Nose Si Depronto esto te sirva, todo es cuestion de logica y saber un poco de caracteres Ascii, aqui lo que hize fue generar 5 numeros aleatorios 5 veces he ir componiendo la clave conviertiendo los numero aleatorios (ascii) en caracteres mediante la funcion Chr$
El objetivo es que estudies bien el code todo es cuestion de analisis.... este lo acabo de hacer, no es tan dificil
Mira estos enlaces:
http://es.wikipedia.org/wiki/ASCII
http://www.google.com.co/search?hl=es&q=Ascii&meta=
Atentamente,
Juan Manuel Lombana
Medellín - Colombia
El objetivo es que estudies bien el code todo es cuestion de analisis.... este lo acabo de hacer, no es tan dificil
Código [Seleccionar]
Private Sub Command1_Click()
Dim MAY As Integer 'Num Aleatorio Letras MAYUSCULAS
Dim Num As Integer 'Num Aleatorio Numeros 0-9
Dim LON As Integer 'Letra O Numero
Dim i As Integer 'Control De Bucle
Dim j As Integer 'Control De Bucle
Dim Clave As String 'Clave Completa XXXXX-XXXXX-XXXXX-XXXXX-XXXXX
For i = 1 To 5
For j = 1 To 5
Randomize
LON = Rnd * 1
If LON = 0 Then 'Si Es Verdadero Se Genera Letra MAYUSCULA
Randomize
MAY = Rnd * 24
MAY = MAY + 65
If j = 5 And i < 5 Then
Clave = Clave + Chr$(MAY) + "-"
Else
Clave = Clave + Chr$(MAY)
End If
Else 'De lo contrario se genera un numero de 0 - 9
Randomize
Num = Rnd * 8
Num = Num + 49
If j = 5 And i < 5 Then
Clave = Clave + Chr$(Num) + "-"
Else
Clave = Clave + Chr$(Num)
End If
End If
Next j
Next i
MsgBox Clave
End Sub
Mira estos enlaces:
http://es.wikipedia.org/wiki/ASCII
http://www.google.com.co/search?hl=es&q=Ascii&meta=
Atentamente,
Juan Manuel Lombana
Medellín - Colombia