Hola, soy un poco novato en esto de programar y me sale este error cuando intento hacer una cosa. Explico:
Estoy creando un programa para que el que lo use pueda practicar las tablas de multiplicar.
El código es este:
Código:
Dim aciertos As Byte
Dim fallos As Byte
Dim num As Byte
Private Sub Form_Load()
Randomize
num = Int((10 - 0 + 1) * Rnd + 0)
Label4.Caption = num
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim total As Byte
total = Label4.Caption * Label2.Caption
If KeyAscii = vbKeyReturn Then
If Text1.Text = "" Then
fallos = fallos + 1
End If
If Text1.Text = total Then
aciertos = aciertos + 1
Else
fallos = fallos + 1
End If
Text1.Text = ""
Randomize
num = Int((10 - 0 + 1) * Rnd + 0)
Label4.Caption = num
KeyAscii = 0
End If
Label8.Caption = aciertos
Label9.Caption = fallos
End Sub
y tengo creados unos cuantos labels en el que se ponen los numeros que tiene que multiplicar mediante un Rnd, y un textbox en el que pone la solución. Cuando pulsas intro mira el resultado que has puesto y si está bien suma 1 a aciertos y si está mal suma uno a fallos.
Eso va todo bien, este error sale cuando no pongo nada en la caja de texto y pulso Intro. Si le doy a debug me señala la linea que está en negrita. Al principio en esa línea no habian variables y despues he ido probando y las he puesto, pero sigue dando error.
¿Alguien me puede ayudar? Gracias de antemano