Visual Basic - programa generador de claves con visual basic

Life is soft - evento anual de software empresarial
 
Vista:

programa generador de claves con visual basic

Publicado por cluster (1 intervención) el 13/05/2011 12:02:32
hola, necesitaria que me ayudaseis con un problema que tengo, no se como hacer un programa con visual basic que genere claves alfanuméricas con mayusculas y minusulas (6 caràcteres) al pulsar un botón. gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

programa generador de claves con visual basic

Publicado por jcmg (518 intervenciones) el 14/05/2011 06:21:49
Hola cluster:

esta es una idea de como hacerlo:
controles:
inserta dos cajas de texto
inserta tres botones

uso:
inserta en el text1 el caracter o numero y al dar click en cualquiera de los botones saldra en text2
ya estando en el text2 la cadena puedes invertir la cadena asi:
Text2 = StrReverse(Text2)

codigo:
Rem generar numeros ascii(de todo)
Private Sub Command1_Click()
If Len(Text1) > 1 Then GoTo fin
a = Asc(Text1)
Rem mandar el resultado al text2
text2.SelText = a
Text1.Text = ""
Text1.SetFocus
Exit Sub
fin:
MsgBox "solo de 1 en 1", 32, "Mensaje"
End Sub
-------------------------------------------------------
Rem generar numeros hexadecimal(solo escribir numeros)
Private Sub Command2_Click()
On Error GoTo fin
a = Hex(Text1)
Rem mandar el resultado al text2
Text2.SelText = a
Text1.Text = ""
Text1.SetFocus
Exit Sub
fin:
MsgBox "Error", 32, "Mensaje"
End Sub
-------------------------------------------------------
Rem generar caracteres ascii(solo de 32 hasta 253)
Private Sub Command3_Click()
If Text1 > 253 Then GoTo fin
a = Chr(Text1)
Rem mandar el resultado al text2
Text2.SelText = a
Text1.Text = ""
Text1.SetFocus
Exit Sub
fin:
MsgBox "Error de lectura", 32, "Mensaje"
End Sub
-------------------------------------------------------
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar