Perdon por el descuido
Repito todo
estoy intentando realizar un programilla para aprender las notas musicales y esta parte me da problemas.
Me podriais ayudar?
Sub Globals
'Declare the global variables here.
Dim Img(28)
Dim i, w, x, y, z
End Sub
Sub App_Start
Form1.Show
y=0
Z=0
'Introduzco las imagenes en el array (estan todas marcadas como no visibles)
Img(0)=Image1.Image 'Do3
Img(1)=Image2.Image 'Re3
Img(2)=Image3.Image 'Mi3
Img(3)=Image4.Image 'Fa3
Img(4)=Image5.Image 'Sol3
Img(5)=Image6.Image 'La3
Img(6)=Image7.Image 'Si3
Img(7)=Image8.Image 'Do4
Img(8)=Image9.Image 'Re4
Img(9)=Image10.Image 'Mi4
Img(10)=Image11.Image 'Fa4
Img(11)=Image12.Image 'Sol4
Img(12)=Image13.Image 'La4
Img(13)=Image14.Image 'Si4
Img(14)=Image15.Image 'Do5
Img(15)=Image16.Image 'Re5
Img(16)=Image17.Image 'Mi5
Img(17)=Image18.Image 'Fa5
Img(18)=Image19.Image 'Sol5
Img(19)=Image20.Image 'La5
Img(20)=Image21.Image 'Si5
Img(21)=Image22.Image 'Do6
Img(22)=Image23.Image 'Re6
Img(23)=Image24.Image 'Mi6
Img(24)=Image25.Image 'Fa6
Img(25)=Image26.Image 'Sol6
Img(26)=Image27.Image 'La6
Img(27)=Image28.Image 'Si6
'Compruebo que estan todas
textbox5.Text= ArrayLen (Img())
'Selecciono una aleatoriamente
x=Rnd(0, ArrayLen (Img())-1)
'Compruebo que correponde
textbox3.Text = x
'Le digo al programa que la haga visible
For i=0 To ArrayLen(Img())-1
If i=x Then
Control("Image" & i).visible=true
End If
Next
End Sub
'Hasta aquí todo sin problemas.
El botton 8 tiene que seguir el programa y ocultar la nota visible haciendo aparecer otra segun corresponda pero poniendo los contadores de aciertos y fallos, ya existentes, a cero.
Sub Button8_Click
For i=0 To ArrayLen(Img())-1
Control("Image" & i).visible=false
Next
textbox5.Text= ArrayLen (Img())
x=Rnd(0, ArrayLen (Img())-1)
textbox3.Text = x
For i=0 To ArrayLen(Img())-1
If i=x Then
Control("Image" & i).visible=true
End If
Next
End Sub
Cuando hacemos 'run' ocurre mensaje de error en 'button8':
Control("Image" & i).visible=false
Referencia a objeto no establecida como instancia de un objeto
¿Porque aquí, si antes he usado la misma expresion y me la ha aceptado?
Gracias por todo
Saludos
Joserra
|