Bueno amigos voy a realizar una aplicación que se realicen tantas tiradas de dado como nos indique el usuario dentro del TextBox
Listbox que tendra como nombre Dado.
un commandBotton que tendrá como nombre y caption: Tirada
un textbox que pondremos nombre: NumTiradas y borra el contenido que aparece por defecto dentro de ese objeto..
aqui será donde indiquemos cuentas tiradas queremos realizar.
y este sería el código:
Private Sub Tirada_Click()
For Contador = 1 To NumTiradas.Text
Dado.AddItem (Int(6 * Rnd) + 1)
Next Contador
End Sub
y al poner en el textbox por ejemplo el numero 5 o el 4 o el 3 o el 2 o el 1 incluso vacío salta un mensaje diciendo:
Error de compilación variable no definida y me subraya el nombre CONTADOR
Saludos amigos
Si dice que la variable no esta definida seguramente es ese el problema..
Declaraste la variable Contador? haz la declaracion antes del bucle
Si amigo es por lo que dices pero que raro es que me dice en el tutorial que no hace falta pero ya veo que sí
gracias amigo de veras
"option explicit"?
Esa opcion, cuando se activa, debes ser extricto al usar variables ya que antes debes de declararlas. Si esta escrito en la parte superior del codigo "option explicit" es que esta activado. Personalmente te recomiendo que lo utilices...
Private Sub Tirada_Click()
dim contador as integer
For Contador = 1 To val(NumTiradas.Text)
Dado.AddItem (Int(6 * Rnd) + 1)
Next
End Sub
Lo de "Val(numtiradas.text)" es extra, pero necesario ya que evita el error del usuario de agregar un dato no numerico en el "textbox", por ejemplo "a"...
Salud!
Exacto, fijate si tienes "Option Explicit" como primera linea. Esa linea te OBLIGA a declarar las variables antes de usarla. Pueden pasar catastrofes si no lo tienes.
El tutorial que sigues parece que no usa Option Explicit, yo que tu, dejo ese ya y empiezo otro tutorial serio :rolleyes:
Sí cierto es que lo puse yo por que no venia en el tutorial y como siempre me aconsejan ponerlo pues lo puse...
Saludos y muchas gracias a todos por ayudarme