elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Facil programita de supermercado.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Facil programita de supermercado.  (Leído 4,867 veces)
rdzlcs


Desconectado Desconectado

Mensajes: 781


El cerebro, la experiencia y una pizca de suerte.


Ver Perfil
Facil programita de supermercado.
« en: 8 Abril 2010, 21:23 pm »

Hola amigos, aca les dejo una aplicacion muy falcil (expertos es para los que recien empiesan en esto) aclarado eso pueden dejar cuanquier comentario...

Código:
Dim a As Byte 'Declara una bariable general

Private Sub Command1_Click()
Data1.Recordset.AddNew 'Permite crear un nuevo registro
Command2.Enabled = True 'Habilita el boton 2
Command10.Enabled = True 'Habilita el boton 10
Text1.Enabled = True 'Habilita el text1
Text2.Enabled = True 'Habilita el text2
Text3.Enabled = True 'Habilita el text3
Text4.Enabled = True 'Habilita el text4
Text5.Enabled = True 'Habilita el text5
Command1.Enabled = False 'Desabilita el boton 1
Command3.Enabled = False 'Desabilita el boton 3
Command4.Enabled = False 'Desabilita el boton 4
Text1.SetFocus 'Toma como foco el text1
End Sub

Private Sub Command12_Click()
Data2.Recordset.AddNew 'Crea una lista de impresion de articulos nueva
Label9 = Date 'Muestra la fecha en el label 9
Text9 = "" 'vacia el text9
Text10 = "" 'vacia el text10
Text11 = "" 'vacia el text11
Text12 = "" 'vacia el text12
Text13 = "" 'vacia el text13
Text14 = "" 'vacia el text14
Text15 = "" 'vacia el text15
Text16 = "" 'vacia el text16
Text17 = "" 'vacia el text17
Text18 = "" 'vacia el text18
Text19 = "" 'vacia el text19
Text20 = "" 'vacia el text20
Label17 = "" 'vacia el label17
Label18 = "" 'vacia el label18
Label19 = "" 'vacia el label19
Label20 = "" 'vacia el label20
Label21 = "" 'vacia el label21
Label22 = "" 'vacia el label22
Label23 = "" 'vacia el label23
Label24 = "" 'vacia el label24
Label25 = "" 'vacia el label25
Label26 = "" 'vacia el label26
Label27 = "" 'vacia el label27
Label28 = "" 'vacia el label28
Label29 = "" 'vacia el label29
Label30 = "" 'vacia el label30
Label31 = "" 'vacia el label31
Label32 = "" 'vacia el label32
Label33 = "" 'vacia el label33
Label34 = "" 'vacia el label34
Label35 = "" 'vacia el label35
Label36 = "" 'vacia el label36
Label37 = "" 'vacia el label37
Label38 = "" 'vacia el label38
Label39 = "" 'vacia el label39
Label40 = "" 'vacia el label40
Label41 = "" 'vacia el label41
Label42 = "" 'vacia el label42
Label43 = "" 'vacia el label43
Label44 = "" 'vacia el label44
Label45 = "" 'vacia el label45
Label46 = "" 'vacia el label46
Label47 = "" 'vacia el label47
Label48 = "" 'vacia el label48
Label49 = "" 'vacia el label49
End Sub

Private Sub Command15_Click()
Data2.Recordset.Update 'permite guardar nuevos datos en la base de datos
End Sub

Private Sub Command17_Click()
Form2.Show 'abre el form2
End Sub

Private Sub Command18_Click()
Form3.Show 'abre el form3
End Sub

Private Sub Command17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command17.Width = 1500
Command17.Height = 400
End Sub

Private Sub Command18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command18.Width = 1500
Command18.Height = 400
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.Width = 1200
Command2.Height = 400
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.Width = 1200
Command3.Height = 400
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command4.Width = 1200
Command4.Height = 400
End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command5.Width = 1200
Command5.Height = 400
End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command6.Width = 1200
Command6.Height = 400
End Sub

Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command7.Width = 1200
Command7.Height = 400
End Sub

Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command8.Width = 1200
Command8.Height = 400
End Sub

Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command9.Width = 1200
Command9.Height = 400
End Sub

Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command10.Width = 1200
Command10.Height = 400
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Width = 1200
Command1.Height = 400
End Sub

Private Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command11.Width = 2700
Command11.Height = 400
End Sub

Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command12.Width = 1000
Command12.Height = 400
End Sub

Private Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command13.Width = 1200
Command13.Height = 400
End Sub

Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command14.Width = 1000
Command14.Height = 400
End Sub

Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command15.Width = 1000
Command15.Height = 400
End Sub

Private Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command16.Width = 1000
Command16.Height = 400
End Sub

Private Sub Command10_Click()
Data1.Recordset.CancelUpdate 'cancela un dato antes de ser cargado en la base de datos
Command2.Enabled = True 'Habilita el boton 2
Command10.Enabled = True 'Habilita el boton 10
Text1.Enabled = True 'Habilita el text1
Text2.Enabled = True 'Habilita el text2
Text3.Enabled = True 'Habilita el text3
Text4.Enabled = True 'Habilita el text4
Text5.Enabled = True 'Habilita el text5
Command1.Enabled = False 'desabilita el boton 1
Command3.Enabled = False 'desabilita el boton3
Command4.Enabled = False 'desabilita el boton4
End Sub

Private Sub Command11_Click()
CrystalReport1.Action = 1 'Muestra un informe prebio de imprecion
End Sub

Private Sub Command13_Click()
d = MsgBox("Salir?", vbYesNo) 'd toma el valor de un mesaje
If d = vbYes Then End 'si de es verdadero sale de la aplicacion, si es falso no
End Sub

Private Sub Command14_Click()
On Error Resume Next 'En caso que alla un error que la aplicacion siga corriendo
Dim cant1 As Single 'declara la bariable tipo numerico
Dim cant2 As Single 'declara la bariable tipo numerico
Dim cant3 As Single 'declara la bariable tipo numerico
Dim cant4 As Single 'declara la bariable tipo numerico
Dim cant5 As Single 'declara la bariable tipo numerico
Dim cant6 As Single 'declara la bariable tipo numerico
Dim cant7 As Single 'declara la bariable tipo numerico
Dim cant8 As Single 'declara la bariable tipo numerico
Dim cant9 As Single 'declara la bariable tipo numerico
Dim cant10 As Single 'declara la bariable tipo numerico

Dim precio1 As Single 'declara la bariable tipo numerico
Dim precio2 As Single 'declara la bariable tipo numerico
Dim precio3 As Single 'declara la bariable tipo numerico
Dim precio4 As Single 'declara la bariable tipo numerico
Dim precio5 As Single 'declara la bariable tipo numerico
Dim precio6 As Single 'declara la bariable tipo numerico
Dim precio7 As Single 'declara la bariable tipo numerico
Dim precio8 As Single 'declara la bariable tipo numerico
Dim precio9 As Single 'declara la bariable tipo numerico
Dim precio10 As Single 'declara la bariable tipo numerico

Dim total1 As Single 'declara la bariable tipo numerico
Dim total2 As Single 'declara la bariable tipo numerico
Dim total3 As Single 'declara la bariable tipo numerico
Dim total4 As Single 'declara la bariable tipo numerico
Dim total5 As Single 'declara la bariable tipo numerico
Dim total6 As Single 'declara la bariable tipo numerico
Dim total7 As Single 'declara la bariable tipo numerico
Dim total8 As Single 'declara la bariable tipo numerico
Dim total9 As Single 'declara la bariable tipo numerico
Dim total10 As Single 'declara la bariable tipo numerico

Dim subtotal As Single 'declara la bariable tipo numerico
Dim iva As Single 'declara la bariable tipo numerico
Dim total As Single 'declara la bariable tipo numerico

cant1 = Text11 'la bariable cant1 toma el valor del text11
cant2 = Text12 'la bariable cant2 toma el valor del text12
cant3 = Text13 'la bariable cant3 toma el valor del text13
cant4 = Text14 'la bariable cant4 toma el valor del text14
cant5 = Text15 'la bariable cant5 toma el valor del text15
cant6 = Text16 'la bariable cant6 toma el valor del text16
cant7 = Text17 'la bariable cant7 toma el valor del text17
cant8 = Text18 'la bariable cant8 toma el valor del text18
cant9 = Text19 'la bariable cant9 toma el valor del text19
cant10 = Text20 'la bariable cant10 toma el valor del text20

precio1 = Label18 'la bariable precio1 toma el valor del label18
precio2 = Label21 'la bariable precio2 toma el valor del label21
precio3 = Label24 'la bariable precio3 toma el valor del label24
precio4 = Label27 'la bariable precio4 toma el valor del label27
precio5 = Label30 'la bariable precio5 toma el valor del label30
precio6 = Label33 'la bariable precio6 toma el valor del label33
precio7 = Label36 'la bariable precio7 toma el valor del label36
precio8 = Label39 'la bariable precio8 toma el valor del label39
precio9 = Label42 'la bariable precio9 toma el valor del label42
precio10 = Label45 'la bariable precio10 toma el valor del label45

total1 = cant1 * precio1 'la bariable total1 toma el balor de cant1 * precio1
total2 = cant2 * precio2 'la bariable total2 toma el balor de cant2 * precio2
total3 = cant3 * precio3 'la bariable total3 toma el balor de cant3 * precio3
total4 = cant4 * precio4 'la bariable total4 toma el balor de cant4 * precio4
total5 = cant5 * precio5 'la bariable total5 toma el balor de cant5 * precio5
total6 = cant6 * precio6 'la bariable total6 toma el balor de cant6 * precio6
total7 = cant7 * precio7 'la bariable total7 toma el balor de cant7 * precio7
total8 = cant8 * precio8 'la bariable total8 toma el balor de cant8 * precio8
total9 = cant9 * precio9 'la bariable total9 toma el balor de cant9 * precio9
total10 = cant10 * precio10 'la bariable total10 toma el balor de cant10 * precio10

subtotal = total1 + total2 + total3 + total4 + total5 + total6 + total7 + total8 + total9 + total10 'el subtotal es igual a la suma de todos los totales
iva = 0.21 * subtotal 'iva es igual al 0.21 por el subtotal
total = subtotal + iva ' el total final es igual a la sume del subtotal mas el iva

Label19 = total1 'label19 toma el valor de total1
Label22 = total2 'label22 toma el valor de total2
Label25 = total3 'label25 toma el valor de total3
Label28 = total4 'label28 toma el valor de total4
Label31 = total5 'label31 toma el valor de total5
Label34 = total6 'label34 toma el valor de total6
Label37 = total7 'label37 toma el valor de total7
Label40 = total8 'label40 toma el valor de total8
Label43 = total9 'label43 toma el valor de total9
Label46 = total10 'label46 toma el valor de total10

Label47 = subtotal 'label47 toma el valor de subtotal
Label48 = iva 'label48 toma el valor de iva
Label49 = total 'label49 toma el valor del total

End Sub

Private Sub Command2_Click()
Data1.Recordset.Update 'carga un nuevo registro en la base de datos
Command2.Enabled = True 'Habilita el boton 2
Command10.Enabled = True 'Habilita el boton 10
Text1.Enabled = True 'Habilita el text1
Text2.Enabled = True 'habilita el text2
Text3.Enabled = True 'habilita el text3
Text4.Enabled = True 'habilita el text4
Text5.Enabled = True 'habilita el text5
Command1.Enabled = False 'desabilita el boton 1
Command3.Enabled = False 'desabilita el boton 3
Command4.Enabled = False 'desabilita el boton4
Text1.SetFocus 'toma foco en el text1

End Sub

Private Sub Command3_Click()
Data1.Recordset.Edit 'Permite editar un registro de la base de datos prebiamente seleccionado
Command2.Enabled = True 'Habilita el boton 2
Command10.Enabled = True 'Habilita el boton 10
Text1.Enabled = True 'Habilita el text 1
Text2.Enabled = True 'Habilita el text 2
Text3.Enabled = True 'Habilita el text 3
Text4.Enabled = True 'Habilita el text 4
Command1.Enabled = False 'Desabilita el boton 1
Command3.Enabled = False 'Desabilita el boton 3
Command4.Enabled = False 'Desabilita el boton 4
Text1.SetFocus 'Toma foco en el text 1
End Sub

Private Sub Command4_Click()
Data1.Recordset.Delete 'Elimina un registro prebiamente seleccionado
Data1.Recordset.MoveFirst 'Una vez eliminadoe el registro se mueve el primero
End Sub

Private Sub Command5_Click()
Data1.Recordset.MoveFirst 'Se mueve el primer registro
End Sub

Private Sub Command6_Click()
On Error Resume Next 'Si se produce un error la aplicion sigue corriendo
Data1.Recordset.MovePrevious 'Se mueve al registro anterior de donde estes en ese momento
End Sub

Private Sub Command7_Click()
Data1.Recordset.MoveNext 'Se mueve al siguiente
End Sub

Private Sub Command8_Click()
Data1.Recordset.MoveLast 'Se mueve al ultimo
End Sub

Private Sub Command9_Click()
Data1.Refresh 'Actualiza la base de datos en caso de que otros usuarios cargar nuevos registros
End Sub

Private Sub DBGrid1_DblClick()
If a = 1 Then 'si a es igual a uno entonces
Label17 = Data1.Recordset.Fields("Articulo") 'label17 toma el valor del campo articulo
Label18 = Data1.Recordset.Fields("Precio") 'label18 toma el valor del campo precio
Text3 = Text3 - Text11 'al text3 restarle el valor del text11
End If
If a = 2 Then
Label20 = Data1.Recordset.Fields("Articulo") 'label20 toma el valor del campo articulo
Label21 = Data1.Recordset.Fields("Precio") 'label21 toma el valor del campo precio
Text3 = Text3 - Text12 'al text3 restarle el valor del text12
End If
If a = 3 Then
Label23 = Data1.Recordset.Fields("Articulo") 'label23 toma el valor del campo articulo
Label24 = Data1.Recordset.Fields("Precio") 'label24 toma el valor del campo precio
Text3 = Text3 - Text13 'al text3 restarle el valor del text13
End If
If a = 4 Then
Label26 = Data1.Recordset.Fields("Articulo") 'label26 toma el valor del campo articulo
Label27 = Data1.Recordset.Fields("Precio") 'label27 toma el valor del campo precio
Text3 = Text3 - Text14 'al text3 restarle el valor del text14
End If
If a = 5 Then
Label29 = Data1.Recordset.Fields("Articulo") 'label29 toma el valor del campo articulo
Label30 = Data1.Recordset.Fields("Precio") 'label30 toma el valor del campo precio
Text3 = Text3 - Text15 'al text3 restarle el valor del text15
End If
If a = 6 Then
Label32 = Data1.Recordset.Fields("Articulo") 'label32 toma el valor del campo articulo
Label33 = Data1.Recordset.Fields("Precio") 'label33 toma el valor del campo precio
Text3 = Text3 - Text16 'al text3 restarle el valor del text16
End If
If a = 7 Then
Label35 = Data1.Recordset.Fields("Articulo") 'label35 toma el valor del campo articulo
Label36 = Data1.Recordset.Fields("Precio") 'label36 toma el valor del campo precio
Text3 = Text3 - Text17 'al text3 restarle el valor del text17
End If
If a = 8 Then
Label38 = Data1.Recordset.Fields("Articulo") 'label38 toma el valor del campo articulo
Label39 = Data1.Recordset.Fields("Precio") 'label39 toma el valor del campo precio
Text3 = Text3 - Text18 'al text3 restarle el valor del text18
End If
If a = 9 Then
Label41 = Data1.Recordset.Fields("Articulo") 'label41 toma el valor del campo articulo
Label42 = Data1.Recordset.Fields("Precio") 'label42 toma el valor del campo precio
Text3 = Text3 - Text19 'al text3 restarle el valor del text19
End If
If a = 10 Then
Label44 = Data1.Recordset.Fields("Articulo") 'label44 toma el valor del campo articulo
Label45 = Data1.Recordset.Fields("Precio") 'label45 toma el valor del campo precio
Text3 = Text3 - Text20 'al text3 restarle el valor del text20
End If
End Sub

Private Sub Form_Initialize()
Label9 = Date 'label9 muestra la fecha
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.Width = 1215
Command1.Height = 375

Command2.Width = 1215
Command2.Height = 375

Command3.Width = 1215
Command3.Height = 375

Command4.Width = 1215
Command4.Height = 375

Command5.Width = 1215
Command5.Height = 375

Command6.Width = 1215
Command6.Height = 375

Command7.Width = 1215
Command7.Height = 375

Command8.Width = 1215
Command8.Height = 375

Command9.Width = 1215
Command9.Height = 375

Command10.Width = 1215
Command10.Height = 375

Command11.Width = 2655
Command11.Height = 375

Command12.Width = 975
Command12.Height = 375

Command13.Width = 1215
Command13.Height = 375

Command14.Width = 975
Command14.Height = 375

Command15.Width = 975
Command15.Height = 375

Command16.Width = 975
Command16.Height = 375

Command17.Width = 1335
Command17.Height = 375

Command18.Width = 1335
Command18.Height = 375
End Sub

Private Sub Text11_Change()
a = 1 'a toma el valor de uno
End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text12_Change()
a = 2 'a toma el valor de dos
End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text13_Change()
a = 3 ' a toma el valor de 3
End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text14_Change()
a = 4 'a toma el valor de 4
End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text15_Change()
a = 5 'a toma el valor de 5
End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text16_Change()
a = 6 ' a toma el valor de 6
End Sub

Private Sub Text16_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text17_Change()
a = 7 'a toma el valor de 7
End Sub

Private Sub Text17_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text18_Change()
a = 8 ' a toma el valor de 8
End Sub

Private Sub Text18_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text19_Change()
a = 9 'a toma el valor de 9
End Sub

Private Sub Text19_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text20_Change()
a = 10 ' a toma el valor de 10
End Sub

Private Sub Text20_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  'Si apretamos enter entonces
    KeyAscii = 0   'Que no haga Beep
ElseIf KeyAscii <> 8 Then     'Si apretamos back Space entonces (Borrar)

If KeyAscii = 46 Or KeyAscii = 44 Then Exit Sub    'Si apretamos Punto o Coma que escriba y salga
    If Not IsNumeric(Chr(KeyAscii)) Then    'Si no es número entonces
    KeyAscii = 0 'que no escriba nada
    End If
End If
End Sub

Private Sub Text6_Change()
Data1.RecordSource = ("select * from stock where articulo like " & "'" & Text6 & "*'" & " order by articulo") 'inicia una busquedad de articulos en la tabla stock
Data1.Refresh 'actualiza la base de datos
End Sub

Private Sub Text7_Change()
Data1.RecordSource = ("select * from stock where codigo like " & "'" & Text7 & "*'" & " order by codigo") 'inicia una busqueda por codigo en la tabla stock
Data1.Refresh 'actualiza la base d datos
End Sub

Tiene algunas cosas como los botones que se agrandan y contraen, despues alguna funciones de busqueda por codigo, y nombre.. etc..

SAludos.


En línea

Navegando en un mar de unos y ceros. Saltando de capa en capa por un modelo que lejos de ser seguro, nos da la libertad de Ser y No Ser.
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: Facil programita de supermercado.
« Respuesta #1 en: 8 Abril 2010, 21:56 pm »

Creo que para los que se inician en esto, podrian encontrar mejores ejemplos...!

No te ofendas, pero me parace un desastre de codigo...!


En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
rdzlcs


Desconectado Desconectado

Mensajes: 781


El cerebro, la experiencia y una pizca de suerte.


Ver Perfil
Re: Facil programita de supermercado.
« Respuesta #2 en: 8 Abril 2010, 22:00 pm »

Creo que para los que se inician en esto, podrian encontrar mejores ejemplos...!

No te ofendas, pero me parace un desastre de codigo...!

Jeje bien hay nadie nace sabiendo... Lo unico que se es de programacion nunca aprendi a explicar algo... Con el tiempo voy a ir agarrando vuelo con el tema de explicar y haci dar cosas mejores no te parece?

Gracias, comentario contructivo para mi.
En línea

Navegando en un mar de unos y ceros. Saltando de capa en capa por un modelo que lejos de ser seguro, nos da la libertad de Ser y No Ser.
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: Facil programita de supermercado.
« Respuesta #3 en: 8 Abril 2010, 22:04 pm »

Te dare varias recomendaciones...:

No uses DAO, es muy viejo... Eso uso NOE para registrar los animales en su arca...!
Para deshabilitar y habilitar controles, puedes hacer una function y te evitas el estar reescribiendo codigo para habilitar o deshabilitar tooodos los controles que tengas...
Para limpiar las cajas de textos, de igual manera puedes usar una function...!

Hay varios ejemplos alojados en el foro, buscalos...! He visto algunos con codigos que puedes usar y de los cuales puedes aprender más...! De igual manera, estamos a la disposicion por si tienes dudas...

Saludos
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Facil programita de supermercado.
« Respuesta #4 en: 8 Abril 2010, 22:10 pm »

Te recomiendo que trabajes con array's, te ahorraras muchas lineas, estás ejecutando el mismo proceso una y otra vez en sub's separados, con una matriz de objetos usarías el mismo procedimiento para todos.

Código:
Text15 = "" 'vacia el text15
Text16 = "" 'vacia el text16
Text17 = "" 'vacia el text17
Text18 = "" 'vacia el text18
Text19 = "" 'vacia el text19
Text20 = "" 'vacia el text20
Label17 = "" 'vacia el label17
Label18 = "" 'vacia el label18
Label19 = "" 'vacia el label19
Label20 = "" 'vacia el label20
Label21 = "" 'vacia el label21
Label22 = "" 'vacia el label22
Label23 = "" 'vacia el label23
Label24 = "" 'vacia el label24
Label25 = "" 'vacia el label25
Label26 = "" 'vacia el label26
Label27 = "" 'vacia el label27
Label28 = "" 'vacia el label28
Label29 = "" 'vacia el label29
Label30 = "" 'vacia el label30
Label31 = "" 'vacia el label31
Label32 = "" 'vacia el label32
Label33 = "" 'vacia el label33

en este caso, haces uso de un ciclo para ir limpiando las variables:
Código:
for i=0 ...
   Text(I) = ""
   Label(I) = ""
next

matriz de objetos y evitas tantos ..
Código:
Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command9.Width = 1200
Command9.Height = 400
End Sub
En línea

Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.723


<3


Ver Perfil WWW
Re: Facil programita de supermercado.
« Respuesta #5 en: 8 Abril 2010, 22:13 pm »

Código
  1. Public Sub Limpiar(frmForm As Form)
  2.   Dim ctlControl As Object
  3.   On Error Resume Next
  4.   For Each ctlControl In frmForm.Controls ctlControl.Text = "" ctlControl.ListIndex = -1
  5.      DoEvents
  6.   Next ctlControl
  7. End Sub

Usage:
Código
  1. Call Limpiar("Nombre_Formulario")

:http://www.mistrucos.net/truco-visual-basic-6-limpiar-todas-las-cajas-de-texto-de-un-formulario-660.htm
En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
rdzlcs


Desconectado Desconectado

Mensajes: 781


El cerebro, la experiencia y una pizca de suerte.


Ver Perfil
Re: Facil programita de supermercado.
« Respuesta #6 en: 8 Abril 2010, 22:28 pm »

A ver lo puedo hacer eso, por que lo se pero lo que intentaba con esto es hacerlo "Facil" y facil de leer. Es verdad se escribe mas y es mas facil equivocarce, pero bue. despues voy a subir el codigo del juego que estoy haciendo haci colaboran.

SAludos
En línea

Navegando en un mar de unos y ceros. Saltando de capa en capa por un modelo que lejos de ser seguro, nos da la libertad de Ser y No Ser.
Dr [F]

Desconectado Desconectado

Mensajes: 50


[H] Risk T [S] --> Dr [F]


Ver Perfil WWW
Re: Facil programita de supermercado.
« Respuesta #7 en: 9 Abril 2010, 02:14 am »

mira este :

dim n as integer
for n = 1 to 49
controls("label" &n).caption = ""
next n


mas simple no ?

xd

PD:: se puede hacer con cualquier control (command etc)
En línea

"Una vulnerabilidad es tan limitada como tu quieres que lo sea"

[H] Risk T --> Dr [F]
rdzlcs


Desconectado Desconectado

Mensajes: 781


El cerebro, la experiencia y una pizca de suerte.


Ver Perfil
Re: Facil programita de supermercado.
« Respuesta #8 en: 9 Abril 2010, 08:05 am »

Gracias amigos por sus criticas constructivas, he apuntado todas para la proxima...

SAludos
En línea

Navegando en un mar de unos y ceros. Saltando de capa en capa por un modelo que lejos de ser seguro, nos da la libertad de Ser y No Ser.
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Facil programita de supermercado.
« Respuesta #9 en: 13 Abril 2010, 15:14 pm »

Dim cant1 As Single 'declara la bariable tipo numerico
Dim cant2 As Single 'declara la bariable tipo numerico
Dim cant3 As Single 'declara la bariable tipo numerico
Dim cant4 As Single 'declara la bariable tipo numerico
Dim cant5 As Single 'declara la bariable tipo numerico
Dim cant6 As Single 'declara la bariable tipo numerico
Dim cant7 As Single 'declara la bariable tipo numerico
Dim cant8 As Single 'declara la bariable tipo numerico
Dim cant9 As Single 'declara la bariable tipo numerico
Dim cant10 As Single 'declara la bariable tipo numerico

Dim precio1 As Single 'declara la bariable tipo numerico
Dim precio2 As Single 'declara la bariable tipo numerico
Dim precio3 As Single 'declara la bariable tipo numerico
Dim precio4 As Single 'declara la bariable tipo numerico
Dim precio5 As Single 'declara la bariable tipo numerico
Dim precio6 As Single 'declara la bariable tipo numerico
Dim precio7 As Single 'declara la bariable tipo numerico
Dim precio8 As Single 'declara la bariable tipo numerico
Dim precio9 As Single 'declara la bariable tipo numerico
Dim precio10 As Single 'declara la bariable tipo numerico

Dim total1 As Single 'declara la bariable tipo numerico
Dim total2 As Single 'declara la bariable tipo numerico
Dim total3 As Single 'declara la bariable tipo numerico
Dim total4 As Single 'declara la bariable tipo numerico
Dim total5 As Single 'declara la bariable tipo numerico
Dim total6 As Single 'declara la bariable tipo numerico
Dim total7 As Single 'declara la bariable tipo numerico
Dim total8 As Single 'declara la bariable tipo numerico
Dim total9 As Single 'declara la bariable tipo numerico
Dim total10 As Single 'declara la bariable tipo numerico

Creo que a la hora de declarar variables tb puedes ahorrar code:
Código
  1. Dim total1 ,total2 ,total3 ,total4 ,total5 ,total6 ,total7 ,total8 ,total9 ,total10 As Single
  2.  

Y asi con las demas...
« Última modificación: 13 Abril 2010, 15:18 pm por *PsYkE1* » En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Supermercado de Nueva Zelanda abre solo
Noticias
WHK 1 2,119 Último mensaje 27 Abril 2011, 10:26 am
por crazykenny
Colas de supermercado
Programación C/C++
mari2diaz 1 2,579 Último mensaje 14 Marzo 2020, 15:14 pm
por apuromafo CLS
Código supermercado
Dudas Generales
Emmet01921 1 2,934 Último mensaje 23 Noviembre 2021, 04:04 am
por @XSStringManolo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines