Error de compilación
Buenas, yo de nuevo :)
Estoy intentando hacer un programa para generar números aleatorios, ya esta el código, pero al tratar de correr el programa me sale el siguiente error:
"Error de compilación: No se ha definido el tipo definido por el usuario"
No se si tenga que ver con declaración de variables o algo por el estilo.
Acá les dejo el código.
Option Explicit
Dim Maximo As Long
Dim Minimo As Long
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize 1
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Private Sub Cmd_Aceptar_Click()
If Len(Txt_01) <> 0 And Len(Txt_02) <> 0 Then
'generar un numero
MsgBox Aleatorio(CLng(Txt_01), CLng(Txt_02)), vbInformation
End If
End Sub
Private Sub Form_Load()
Txt_01 = ""
Txt_02 = ""
End Sub
Private Sub Txt_01_KeyPress(KeyAscii As Interger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub Txt_02_KeyPress(KeyAscii As Interger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Muchas gracias de antemano
Estoy intentando hacer un programa para generar números aleatorios, ya esta el código, pero al tratar de correr el programa me sale el siguiente error:
"Error de compilación: No se ha definido el tipo definido por el usuario"
No se si tenga que ver con declaración de variables o algo por el estilo.
Acá les dejo el código.
Option Explicit
Dim Maximo As Long
Dim Minimo As Long
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize 1
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Private Sub Cmd_Aceptar_Click()
If Len(Txt_01) <> 0 And Len(Txt_02) <> 0 Then
'generar un numero
MsgBox Aleatorio(CLng(Txt_01), CLng(Txt_02)), vbInformation
End If
End Sub
Private Sub Form_Load()
Txt_01 = ""
Txt_02 = ""
End Sub
Private Sub Txt_01_KeyPress(KeyAscii As Interger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub Txt_02_KeyPress(KeyAscii As Interger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Muchas gracias de antemano
1 respuesta
Respuesta de calvuch
1