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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: 1 ... 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 [59] 60 61 62 63 64 65
581  Programación / Programación Visual Basic / 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.
582  Seguridad Informática / Hacking / Re: [Iniciación]Explotación de vulnerabilidades teoria + práctica en: 4 Abril 2010, 08:19 am
Buena teoria!!!!

583  Seguridad Informática / Hacking / Re: Nuevos programas - Cambio de IP en: 24 Marzo 2010, 17:38 pm
Si te funcionaban que los hicistes?
584  Seguridad Informática / Hacking / Re: Nuevos programas - Cambio de IP en: 24 Marzo 2010, 04:42 am
Hola...

incio, ejecutar, cmd

ipconfig/release    le das enter..

ipconfig/renew          le das enter..

listo nueva ip...

SAludos
585  Media / Diseño Gráfico / 3D Flash Animator 4.9 Manuales, turoriales..(Necesito en español) en: 27 Octubre 2009, 22:40 pm
Hola amigos de el hacker... como estan tanto tiempo?

Paso a preguntar, alguien tiene algo de documentacion de 3D Flash Animator 4.9 en español que me pase? pues lo ando necesitando.

Desde ya Gracias.

CL1O
586  Foros Generales / Sugerencias y dudas sobre el Foro / Actualizemos los manuales? en: 25 Junio 2009, 19:49 pm
Hola amigos, y mienbros del staff que pueden o no leer esto jeje...

Como se han de imaginar yo no soy un usuario que le busca un problema a todo, o que se queja de todo pero eso no viene al caso...

El tema por que abro este tema es que me gustaria que alla mas actualizaciones a nivel manueles el la parte de "manueles, tutoriales etc" que aparece ni bien uno pone elhacker en google. Hay temas como "como ser un hacker en terminos legales" que lei ese manual y es de windows 98 y 95 escasamente de NT, es su tiempo a sido una locura modificar windows 95, pero lo cierto es que estamo en el 2009 y eso creo que es algo ochentoso o casi jeje.

A lo que voy es que si kieren y recibo la ayudo de un par de colaboradores podemos hacer manualess de herramientas y eso... mas actuales...

Ustedes Desiden...

Desde ya Grax

SAludos
587  Comunicaciones / Hacking Mobile / Re: keyloggers? en: 10 Marzo 2009, 19:22 pm


¿Quieres una aplicacion echa? Quieres conocer el API?

¿Que es lo que buscas exactamente? Por que me da que no es para nada bueno...

 :o

Saludos,
Sir Graham.

Hola amigo grax por contestar, seria bueno la aplicacion y el code en el mejor de los casos.. pasa lo siguiente, tengo barios dispositivos y ultimamente gente que no aprecio los agarran para conectarce a internet y eso infujendo haci en mi economia entienden...

Me gustaria tener un registro de cada para que dan para tener fundamente a la hora que los este por matar jeje no!

SAludos
588  Foros Generales / Sugerencias y dudas sobre el Foro / Re: Propongo Nueva sección en: 10 Marzo 2009, 17:46 pm
Es raro que propongas una sección así...

Si bien en tus mensajes veo que haz escrito en programacion..

=P veo que aun los haces en Ms-Dos...

 o  cosas simples  (leer y escribir)


Yo diria sin ofendir a nadie cualkier personaje "nuevo" que aparece en el foro proponer crear algo, osea todo bien que aporten ideas y aganlon el los foros ya exixtentes...

Osea tenes algun code? algun programa o aplicacion como kieres yamarlos. crea un blog los sunis y el que kiera entra y los descarga es haci de facil....


Tenez razón EvilGoblin...

SAludos
589  Comunicaciones / Hacking Mobile / keyloggers? en: 10 Marzo 2009, 17:01 pm
Hola amigos..

Bueno mi pregunta es la siguiente, existe algun tito de keylogger que se pueda enviar... para windows mobile y paml os? ha y Symbian os?

Gracias

PD: perdon si mi pregunta molesta a alguien o ya la han hecho....

SAludos
590  Foros Generales / Sugerencias y dudas sobre el Foro / Re: El porque de los grupos.... en: 18 Febrero 2009, 19:32 pm
en general los grupos son para que sea mas facil el decir quien o quienes pueden acceder a determinada cosa, por ejemplo los foros que estan ocultos es para lo que lo usan, ya que un grupo puede ver xforo pero no pueden ver xforo2, y así con todo, es posible que para xgrupo se le faciliten opciones como alojamiento de mensajes privados (me refiero a una mayor cuota) y que a xgrupo2 se le permita borrar cuentas de usuario, con esto cualquiera que no este en xgrupo2 no podra hacerlo.
Es mas que todo para cuestion de permisos y etc xD

yo me preguntaba porque sdc ya no tenia el cargo xD pero no quize preguntar xD

Mi No Entender jejeje....

Grax igual...
Páginas: 1 ... 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 [59] 60 61 62 63 64 65
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines