Título: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: rdzlcs en 19 Diciembre 2010, 20:43 pm
Hola gente...
Bueno tengo un problema... Que nunca antes en el tiempo que estudie me lo esplicaron :-X. A la hora de compilar me dice "declaracion duplicada en el alcance actual" Revise mil veces el codigo y nada que me sale el error,, (o no me doy cuenta :P)
Tendria que subir el codigo para que lo puedan leer. Pero ahorita voy a estar un tiempo alejado de mi ordenador... xD..
Muchas Gracias!!!
Título: Re: declaraciòn duplicada en el alcance actual..
Publicado por: Psyke1 en 19 Diciembre 2010, 21:34 pm
Eso es que estás declarando dos veces una variable.
Pulsa Ctrl + F5 en el IDE para depurar.
DoEvents! :P
Título: Re: declaraciòn duplicada en el alcance actual..
Publicado por: rdzlcs en 19 Diciembre 2010, 21:37 pm
Eso es que estás declarando dos veces una variable.
Pulsa Ctrl + F5 en el IDE para depurar.
DoEvents! :P
Lo hice, depure paso a paso pero siempre quedo hay, y no veo que este dos veces declarado, y me fije en los valores, tampoco.... despues voy a subir el codigo pa ver que onda!! Gracias! PD: Programando en Windows vista Home Basic, con VB 5..
Título: Re: declaraciòn duplicada en el alcance actual..
Publicado por: raul338 en 19 Diciembre 2010, 22:26 pm
Tienes el option explicit? Ponlo y no te dejara ni probar con f5 :xD
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: rdzlcs en 21 Diciembre 2010, 23:15 pm
Amigos acá esta el fuerte de mi juego!! Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, zz, w As Byte
Dim qwe, qwee As Byte
Public Sub juego()
If zz = 2 Then
If a = 1 And b = 1 Then
Command1.Visible = False
Command10.Visible = False
zz = 0
a = 0
b = 0
Exit Sub
End If
If c = 1 And d = 1 Then
Command2.Visible = False
Command9.Visible = False
zz = 0
c = 0
d = 0
Exit Sub
End If
If e = 1 And f = 1 Then
Command3.Visible = False
Command15.Visible = False
zz = 0
e = 0
f = 0
Exit Sub
End If
If g = 1 And h = 1 Then
Command4.Visible = False
Command11.Visible = False
zz = 0
g = 0
h = 0
Exit Sub
End If
If i = 1 And j = 1 Then
Command7.Visible = False
Command16.Visible = False
zz = 0
i = 0
j = 0
Exit Sub
End If
If k = 1 And l = 1 Then
Command8.Visible = False
Command13.Visible = False
zz = 0
k = 0
l = 0
Exit Sub
End If
If m = 1 And n = 1 Then
Command14.Visible = False
Command6.Visible = False
zz = 0
m = 0
n = 0
Exit Sub
End If
If o = 1 And p = 1 Then
Command12.Visible = False
Command5.Visible = False
zz = 0
o = 0
p = 0
Exit Sub
End If
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0
g = 0
h = 0
i = 0
j = 0
k = 0
l = 0
m = 0
n = 0
o = 0
p = 0
zz = 0
End If
End Sub
Private Sub Command1_Click()
a = 1
zz = zz + 1
juego
End Sub
Private Sub Command10_Click()
b = 1
zz = zz + 1
juego
End Sub
Private Sub Command11_Click()
h = 1
zz = zz + 1
juego
End Sub
Private Sub Command12_Click()
o = 1
zz = zz + 1
juego
End Sub
Private Sub Command13_Click()
l = 1
zz = zz + 1
juego
End Sub
Private Sub Command14_Click()
m = 1
zz = zz + 1
juego
End Sub
Private Sub Command15_Click()
f = 1
zz = zz + 1
juego
End Sub
Private Sub Command16_Click()
j = 1
zz = zz + 1
juego
End Sub
Private Sub Command17_Click()
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Timer2.Enabled = False
Timer1.Enabled = True
For i = 0 To 15
pp = Int(Rnd * 15)
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton2
' Botón1
boton1:
dd:
If pp = 0 Then
a = 1
Command1.Left = 240
Command1.Top = 120
GoTo fin
End If
If pp = 1 Then
b = 1
Command1.Left = 1080
Command1.Top = 120
GoTo fin
End If
If pp = 2 Then
c = 1
Command1.Left = 1920
Command1.Top = 120
GoTo fin
End If
If pp = 3 Then
d = 1
Command1.Left = 2760
Command1.Top = 120
GoTo fin
End If
If pp = 4 Then
e = 1
Command1.Left = 240
Command1.Top = 960
GoTo fin
End If
If pp = 5 Then
f = 1
Command1.Left = 1080
Command1.Top = 960
GoTo fin
End If
If pp = 6 Then
g = 1
Command1.Left = 1920
Command1.Top = 960
GoTo fin
End If
If pp = 7 Then
h = 1
Command1.Left = 2760
Command1.Top = 960
GoTo fin
End If
If pp = 8 Then
i = 1
Command1.Left = 240
Command1.Top = 1800
GoTo fin
End If
If pp = 9 Then
j = 1
Command1.Left = 1080
Command1.Top = 1800
GoTo fin
End If
If pp = 10 Then
k = 1
Command1.Visible = True
Command1.Left = 1920
Command1.Top = 1800
GoTo fin
End If
If pp = 11 Then
l = 1
Command1.Left = 2760
Command1.Top = 1800
GoTo fin
End If
If pp = 12 Then
m = 1
Command1.Left = 240
Command1.Top = 2520
GoTo fin
End If
If pp = 13 Then
n = 1
Command1.Left = 1080
Command1.Top = 2520
GoTo fin
End If
If pp = 14 Then
o = 1
Command1.Left = 1920
Command1.Top = 2520
GoTo fin
End If
If pp = 15 Then
p = 1
Command1.Left = 2760
Command1.Top = 2520
GoTo fin
End If
' Botón2
boton2:
If a1 = 1 Or b1 = 1 Or c1 = 1 Or d1 = 1 Or e1 = 1 Or f1 = 1 Or g1 = 1 Or h1 = 1 Or i1 = 1 Or j1 = 1 Or k1 = 1 Or l1 = 1 Or m1 = 1 Or n1 = 1 Or o1 = 1 Or p1 = 1 Then GoTo boton3
If a = 1 Then GoTo com1
If pp = 0 Then
a1 = 1
Command2.Left = 240
Command2.Top = 120
GoTo fin
End If
If pp = 8 Then
i1 = 1
Command2.Visible = True
Command2.Left = 240
Command2.Top = 1800
GoTo fin
End If
com1:
If b = 1 Then GoTo com2
If pp = 1 Then
b1 = 1
Command2.Left = 1080
Command2.Top = 120
GoTo fin
End If
com2:
If c = 1 Then GoTo com3
If pp = 2 Then
c1 = 1
Command2.Left = 1920
Command2.Top = 120
GoTo fin
End If
com3:
If d = 1 Then GoTo com4
If pp = 3 Then
d1 = 1
Command2.Left = 2760
Command2.Top = 120
GoTo fin
End If
com4:
If e = 1 Then GoTo com5
If pp = 4 Then
e1 = 1
Command2.Left = 240
Command2.Top = 960
GoTo fin
End If
com5:
If f = 1 Then GoTo com6
If pp = 5 Then
f1 = 1
Command2.Left = 1080
Command2.Top = 960
GoTo fin
End If
com6:
If g = 1 Then GoTo com7
If pp = 6 Then
g1 = 1
Command2.Left = 1920
Command2.Top = 960
GoTo fin
End If
com7:
If h = 1 Then GoTo com8
If pp = 7 Then
h1 = 1
Command2.Left = 2760
Command2.Top = 960
GoTo fin
End If
com8:
If i = 1 Then GoTo com9
If pp = 8 Then
i1 = 1
Command2.Left = 240
Command2.Top = 1800
GoTo fin
End If
com9:
If j = 1 Then GoTo com10
If pp = 9 Then
j1 = 1
Command2.Left = 1080
Command2.Top = 1800
GoTo fin
End If
com10:
If k = 1 Then GoTo com11
If pp = 10 Then
k1 = 1
Command2.Left = 1920
Command2.Top = 1800
GoTo fin
Exit Sub
End If
com11:
If l = 1 Then GoTo com12
If pp = 11 Then
l1 = 1
Command2.Left = 2760
Command2.Top = 1800
GoTo fin
End If
com12:
If m = 1 Then GoTo com13
If pp = 12 Then
m1 = 1
Command2.Left = 240
Command2.Top = 2520
GoTo fin
End If
com13:
If n = 1 Then GoTo com14
If pp = 13 Then
n1 = 1
Command2.Left = 1080
Command2.Top = 2520
GoTo fin
End If
com14:
If o = 1 Then GoTo com15
If pp = 14 Then
o1 = 1
Command2.Left = 1920
Command2.Top = 2520
GoTo fin
End If
com15:
If p = 1 Then GoTo com1a
If pp = 15 Then
p1 = 1
Command2.Left = 2760
Command2.Top = 2520
GoTo fin
End If
' Botón3
boton3:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton4
com1a:
If a1 = 1 Then GoTo com2a
If pp = 0 Then
a2 = 1
Command3.Left = 240
Command3.Top = 120
GoTo fin
End If
com2a:
If b1 = 1 Then GoTo com3a
If pp = 1 Then
b2 = 1
Command3.Left = 1080
Command3.Top = 120
GoTo fin
End If
com3a:
If c1 = 1 Then GoTo com4a
If pp = 2 Then
c2 = 1
Command3.Left = 1920
Command3.Top = 120
GoTo fin
End If
com4a:
If d1 = 1 Then GoTo com5a
If pp = 3 Then
d2 = 1
Command3.Left = 2760
Command3.Top = 120
GoTo fin
End If
com5a:
If e1 = 1 Then GoTo com6a
If pp = 4 Then
e2 = 1
Command3.Left = 240
Command3.Top = 960
GoTo fin
End If
com6a:
If f1 = 1 Then GoTo com7a
If pp = 5 Then
f2 = 1
Command3.Left = 1080
Command3.Top = 960
GoTo fin
End If
com7a:
If g1 = 1 Then GoTo com8a
If pp = 6 Then
g2 = 1
Command3.Left = 1920
Command3.Top = 960
GoTo fin
End If
com8a:
If h1 = 1 Then GoTo com9a
If pp = 7 Then
h2 = 1
Command3.Left = 2760
Command3.Top = 960
GoTo fin
End If
com9a:
If i1 = 1 Then GoTo com10a
If pp = 8 Then
i2 = 1
Command3.Left = 240
Command3.Top = 1800
GoTo fin
End If
com10a:
If j1 = 1 Then GoTo com11a
If pp = 9 Then
j2 = 1
Command3.Left = 1080
Command3.Top = 1800
GoTo fin
End If
com11a:
If k1 = 1 Then GoTo com12a
If pp = 10 Then
k2 = 1
Command3.Left = 1920
Command3.Top = 1800
GoTo fin
End If
com12a:
If l1 = 1 Then GoTo com13a
If pp = 11 Then
l2 = 1
Command3.Left = 2760
Command3.Top = 1800
GoTo fin
End If
com13a:
If m1 = 1 Then GoTo com14a
If pp = 12 Then
m2 = 1
Command3.Left = 240
Command3.Top = 2520
GoTo fin
End If
com14a:
If n1 = 1 Then GoTo com15a
If pp = 13 Then
n2 = 1
Command3.Left = 1080
Command3.Top = 2520
GoTo fin
End If
com15a:
If o1 = 1 Then GoTo com16a
If pp = 14 Then
o2 = 1
Command3.Left = 1920
Command3.Top = 2520
GoTo fin
End If
com16a:
If p1 = 1 Then GoTo com1b
If pp = 15 Then
p2 = 1
Command3.Left = 2760
Command3.Top = 2520
GoTo fin
End If
' Botón4
boton4:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton5
com1b:
If a2 = 1 Then GoTo com2b
If pp = 0 Then
a3 = 1
Command4.Left = 240
Command4.Top = 120
GoTo fin
End If
com2b:
If b2 = 1 Then GoTo com3b
If pp = 1 Then
b3 = 1
Command4.Left = 1080
Command4.Top = 120
GoTo fin
End If
com3b:
If c2 = 1 Then GoTo com4b
If pp = 2 Then
c3 = 1
Command4.Left = 1920
Command4.Top = 120
GoTo fin
End If
com4b:
If d2 = 1 Then GoTo com5b
If pp = 3 Then
d3 = 1
Command4.Left = 2760
Command4.Top = 120
GoTo fin
End If
com5b:
If e2 = 1 Then GoTo com6b
If pp = 4 Then
e3 = 1
Command4.Left = 240
Command4.Top = 960
GoTo fin
End If
com6b:
If f2 = 1 Then GoTo com7b
If pp = 5 Then
f3 = 1
Command4.Left = 1080
Command4.Top = 960
GoTo fin
End If
com7b:
If g2 = 1 Then GoTo com8b
If pp = 6 Then
g3 = 1
Command4.Left = 1920
Command4.Top = 960
GoTo fin
End If
com8b:
If h2 = 1 Then GoTo com9b
If pp = 7 Then
h3 = 1
Command4.Left = 2760
Command4.Top = 960
GoTo fin
End If
com9b:
If i2 = 1 Then GoTo com10b
If pp = 8 Then
i3 = 1
Command4.Left = 240
Command4.Top = 1800
GoTo fin
End If
com10b:
If j2 = 1 Then GoTo com11b
If pp = 9 Then
j3 = 1
Command4.Left = 1080
Command4.Top = 1800
GoTo fin
End If
com11b:
If k2 = 1 Then GoTo com12b
If pp = 10 Then
k3 = 1
Command4.Left = 1920
Command4.Top = 1800
GoTo fin
End If
com12b:
If l2 = 1 Then GoTo com13b
If pp = 11 Then
l3 = 1
Command4.Left = 2760
Command4.Top = 1800
GoTo fin
End If
com13b:
If m2 = 1 Then GoTo com14b
If pp = 12 Then
m3 = 1
Command4.Left = 240
Command4.Top = 2520
GoTo fin
End If
com14b:
If n2 = 1 Then GoTo com15b
If pp = 13 Then
n3 = 1
Command4.Left = 1080
Command4.Top = 2520
GoTo fin
End If
com15b:
If o2 = 1 Then GoTo com16b
If pp = 14 Then
o3 = 1
Command4.Left = 1920
Command4.Top = 2520
GoTo fin
End If
com16b:
If p2 = 1 Then GoTo com1c
If pp = 15 Then
p3 = 1
Command4.Left = 2760
Command4.Top = 2520
GoTo fin
End If
' Botón5 4c (cccc* )
boton5:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton6
com1c:
If a3 = 1 Then GoTo com2c
If pp = 0 Then
a4 = 1
Command5.Left = 240
Command5.Top = 120
GoTo fin
End If
com2c:
If b3 = 1 Then GoTo com3c
If pp = 1 Then
b4 = 1
Command5.Left = 1080
Command5.Top = 120
GoTo fin
End If
com3c:
If c3 = 1 Then GoTo com4c
If pp = 2 Then
c4 = 1
Command5.Left = 1920
Command5.Top = 120
GoTo fin
End If
com4c:
If d3 = 1 Then GoTo com5c
If pp = 3 Then
d4 = 1
Command5.Left = 2760
Command5.Top = 120
GoTo fin
End If
com5c:
If e3 = 1 Then GoTo com6c
If pp = 4 Then
e4 = 1
Command5.Left = 240
Command5.Top = 960
GoTo fin
End If
com6c:
If f3 = 1 Then GoTo com7c
If pp = 5 Then
f4 = 1
Command5.Left = 1080
Command5.Top = 960
GoTo fin
End If
com7c:
If g3 = 1 Then GoTo com8c
If pp = 6 Then
g4 = 1
Command5.Left = 1920
Command5.Top = 960
GoTo fin
End If
com8c:
If h3 = 1 Then GoTo com9c
If pp = 7 Then
h4 = 1
Command5.Left = 2760
Command5.Top = 960
GoTo fin
End If
com9c:
If i3 = 1 Then GoTo com10c
If pp = 8 Then
i4 = 1
Command5.Left = 240
Command5.Top = 1800
GoTo fin
End If
com10c:
If j3 = 1 Then GoTo com11c
If pp = 9 Then
j4 = 1
Command5.Left = 1080
Command5.Top = 1800
GoTo fin
End If
com11c:
If k3 = 1 Then GoTo com12c
If pp = 10 Then
k4 = 1
Command5.Left = 1920
Command5.Top = 1800
GoTo fin
End If
com12c:
If l3 = 1 Then GoTo com13c
If pp = 11 Then
l4 = 1
Command5.Left = 2760
Command5.Top = 1800
GoTo fin
End If
com13c:
If m3 = 1 Then GoTo com14c
If pp = 12 Then
m4 = 1
Command5.Left = 240
Command5.Top = 2520
GoTo fin
End If
com14c:
If n3 = 1 Then GoTo com15c
If pp = 13 Then
n4 = 1
Command5.Left = 1080
Command5.Top = 2520
GoTo fin
End If
com15c:
If o3 = 1 Then GoTo com16c
If pp = 14 Then
o4 = 1
Command5.Left = 1920
Command5.Top = 2520
GoTo fin
End If
com16c:
If p3 = 1 Then GoTo com1d
If pp = 15 Then
p4 = 1
Command5.Left = 2760
Command5.Top = 2520
GoTo fin
End If
' Botón6 5c (ccccc*)
boton6:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton7
com1d:
If a4 = 1 Then GoTo com2d
If pp = 0 Then
a5 = 1
Command6.Left = 240
Command6.Top = 120
GoTo fin
End If
com2d:
If b4 = 1 Then GoTo com3d
If pp = 1 Then
b5 = 1
Command6.Left = 1080
Command6.Top = 120
GoTo fin
End If
com3d:
If c4 = 1 Then GoTo com4d
If pp = 2 Then
c5 = 1
Command6.Left = 1920
Command6.Top = 120
GoTo fin
End If
com4d:
If d4 = 1 Then GoTo com5d
If pp = 3 Then
d5 = 1
Command6.Left = 2760
Command6.Top = 120
GoTo fin
End If
com5d:
If e4 = 1 Then GoTo com6d
If pp = 4 Then
e5 = 1
Command6.Left = 240
Command6.Top = 960
GoTo fin
End If
com6d:
If f4 = 1 Then GoTo com7d
If pp = 5 Then
f5 = 1
Command6.Left = 1080
Command6.Top = 960
GoTo fin
End If
com7d:
If g4 = 1 Then GoTo com8d
If pp = 6 Then
g5 = 1
Command6.Left = 1920
Command6.Top = 960
GoTo fin
End If
com8d:
If h4 = 1 Then GoTo com9d
If pp = 7 Then
h5 = 1
Command6.Left = 2760
Command6.Top = 960
GoTo fin
End If
com9d:
If i4 = 1 Then GoTo com10d
If pp = 8 Then
i5 = 1
Command6.Left = 240
Command6.Top = 1800
GoTo fin
End If
com10d:
If j4 = 1 Then GoTo com11d
If pp = 9 Then
j5 = 1
Command6.Left = 1080
Command6.Top = 1800
GoTo fin
End If
com11d:
If k4 = 1 Then GoTo com12d
If pp = 10 Then
k5 = 1
Command6.Left = 1920
Command6.Top = 1800
GoTo fin
End If
com12d:
If l4 = 1 Then GoTo com13d
If pp = 11 Then
l5 = 1
Command6.Left = 2760
Command6.Top = 1800
GoTo fin
End If
com13d:
If m4 = 1 Then GoTo com14d
If pp = 12 Then
m5 = 1
Command6.Left = 240
Command6.Top = 2520
GoTo fin
End If
com14d:
If n4 = 1 Then GoTo com15d
If pp = 13 Then
n5 = 1
Command6.Left = 1080
Command6.Top = 2520
GoTo fin
End If
com15d:
If o4 = 1 Then GoTo com16d
If pp = 14 Then
o5 = 1
Command6.Left = 1920
Command6.Top = 2520
GoTo fin
End If
com16d:
If p4 = 1 Then GoTo com1e
If pp = 15 Then
p5 = 1
Command6.Left = 2760
Command6.Top = 2520
GoTo fin
End If
' Botón7 6 c (cccccc*)
boton7:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton8
com1e:
If a5 = 1 Then GoTo com2e
If pp = 0 Then
a6 = 1
Command7.Left = 240
Command7.Top = 120
GoTo fin
End If
com2e:
If b5 = 1 Then GoTo com3e
If pp = 1 Then
b6 = 1
Command7.Left = 1080
Command7.Top = 120
GoTo fin
End If
com3e:
If c5 = 1 Then GoTo com4e
If pp = 2 Then
c6 = 1
Command7.Left = 1920
Command7.Top = 120
GoTo fin
End If
com4e:
If d5 = 1 Then GoTo com5e
If pp = 3 Then
d6 = 1
Command7.Left = 2760
Command7.Top = 120
GoTo fin
End If
com5e:
If e5 = 1 Then GoTo com6e
If pp = 4 Then
e6 = 1
Command7.Left = 240
Command7.Top = 960
GoTo fin
End If
com6e:
If f5 = 1 Then GoTo com7e
If pp = 5 Then
f6 = 1
Command7.Left = 1080
Command7.Top = 960
GoTo fin
End If
com7e:
If g5 = 1 Then GoTo com8e
If pp = 6 Then
g6 = 1
Command7.Left = 1920
Command7.Top = 960
GoTo fin
End If
com8e:
If h5 = 1 Then GoTo com9e
If pp = 7 Then
h6 = 1
Command7.Left = 2760
Command7.Top = 960
GoTo fin
End If
com9e:
If i5 = 1 Then GoTo com10e
If pp = 8 Then
i6 = 1
Command7.Left = 240
Command7.Top = 1800
GoTo fin
End If
com10e:
If j5 = 1 Then GoTo com11e
If pp = 9 Then
j6 = 1
Command7.Left = 1080
Command7.Top = 1800
GoTo fin
End If
com11e:
If k5 = 1 Then GoTo com12e
If pp = 10 Then
k6 = 1
Command7.Left = 1920
Command7.Top = 1800
GoTo fin
End If
com12e:
If l5 = 1 Then GoTo com13e
If pp = 11 Then
l6 = 1
Command7.Left = 2760
Command7.Top = 1800
GoTo fin
End If
com13e:
If m5 = 1 Then GoTo com14e
If pp = 12 Then
m6 = 1
Command7.Left = 240
Command7.Top = 2520
GoTo fin
End If
com14e:
If n5 = 1 Then GoTo com15e
If pp = 13 Then
n6 = 1
Command7.Left = 1080
Command7.Top = 2520
GoTo fin
End If
com15e:
If o5 = 1 Then GoTo com16e
If pp = 14 Then
o6 = 1
Command7.Left = 1920
Command7.Top = 2520
GoTo fin
End If
com16e:
If p5 = 1 Then GoTo com1f
If pp = 15 Then
p6 = 1
Command7.Left = 2760
Command7.Top = 2520
GoTo fin
End If
' Botón8
boton8: If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton9
com1f:
If a6 = 1 Then GoTo com2f
If pp = 0 Then
a7 = 1
Command8.Left = 240
Command8.Top = 120
GoTo fin
End If
com2f:
If b6 = 1 Then GoTo com3f
If pp = 1 Then
b7 = 1
Command8.Left = 1080
Command8.Top = 120
GoTo fin
End If
com3f:
If c6 = 1 Then GoTo com4f
If pp = 2 Then
c7 = 1
Command8.Left = 1920
Command8.Top = 120
GoTo fin
End If
com4f:
If d6 = 1 Then GoTo com5f
If pp = 3 Then
d7 = 1
Command8.Left = 2760
Command8.Top = 120
GoTo fin
End If
com5f:
If e6 = 1 Then GoTo com6f
If pp = 4 Then
e7 = 1
Command8.Left = 240
Command8.Top = 960
GoTo fin
End If
com6f:
If f6 = 1 Then GoTo com7f
If pp = 5 Then
f7 = 1
Command8.Left = 1080
Command8.Top = 960
GoTo fin
End If
com7f:
If g6 = 1 Then GoTo com8f
If pp = 6 Then
g7 = 1
Command8.Left = 1920
Command8.Top = 960
GoTo fin
End If
com8f:
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: DarkMatrix en 21 Diciembre 2010, 23:20 pm
Es demasiado subelo a un servidor para verlo mejor...
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: rdzlcs en 21 Diciembre 2010, 23:21 pm
If h6 = 1 Then GoTo com9f
If pp = 7 Then
h7 = 1
Command8.Left = 2760
Command8.Top = 960
GoTo fin
End If
com9f:
If i6 = 1 Then GoTo com10f
If pp = 8 Then
i7 = 1
Command8.Left = 240
Command8.Top = 1800
GoTo fin
End If
com10f:
If j6 = 1 Then GoTo com11f
If pp = 9 Then
j7 = 1
Command8.Left = 1080
Command8.Top = 1800
GoTo fin
End If
com11f:
If k6 = 1 Then GoTo com12f
If pp = 10 Then
k7 = 1
Command8.Left = 1920
Command8.Top = 1800
GoTo fin
End If
com12f:
If l6 = 1 Then GoTo com13f
If pp = 11 Then
l7 = 1
Command8.Left = 2760
Command8.Top = 1800
GoTo fin
End If
com13f:
If m6 = 1 Then GoTo com14f
If pp = 12 Then
m7 = 1
Command8.Left = 240
Command8.Top = 2520
GoTo fin
End If
com14f:
If n6 = 1 Then GoTo com15f
If pp = 13 Then
n7 = 1
Command8.Left = 1080
Command8.Top = 2520
GoTo fin
End If
com15f:
If o6 = 1 Then GoTo com16f
If pp = 14 Then
o7 = 1
Command8.Left = 1920
Command8.Top = 2520
GoTo fin
End If
com16f:
If p6 = 1 Then GoTo com1g
If pp = 15 Then
p7 = 1
Command8.Left = 2760
Command8.Top = 2520
GoTo fin
End If
' Botón9
boton9:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton10
com1g:
If a7 = 1 Then GoTo com2g
If pp = 0 Then
a8 = 1
Command9.Left = 240
Command9.Top = 120
GoTo fin
End If
com2g:
If b7 = 1 Then GoTo com3g
If pp = 1 Then
b8 = 1
Command9.Left = 1080
Command9.Top = 120
GoTo fin
End If
com3g:
If c7 = 1 Then GoTo com4g
If pp = 2 Then
c8 = 1
Command9.Left = 1920
Command9.Top = 120
GoTo fin
End If
com4g:
If d7 = 1 Then GoTo com5g
If pp = 3 Then
d8 = 1
Command9.Left = 2760
Command9.Top = 120
GoTo fin
End If
com5g:
If e7 = 1 Then GoTo com6g
If pp = 4 Then
e8 = 1
Command9.Left = 240
Command9.Top = 960
GoTo fin
End If
com6g:
If f7 = 1 Then GoTo com7g
If pp = 5 Then
f8 = 1
Command9.Left = 1080
Command9.Top = 960
GoTo fin
End If
com7g:
If g7 = 1 Then GoTo com8g
If pp = 6 Then
g8 = 1
Command9.Left = 1920
Command9.Top = 960
GoTo fin
End If
com8g:
If h7 = 1 Then GoTo com9g
If pp = 7 Then
h8 = 1
Command9.Left = 2760
Command9.Top = 960
GoTo fin
End If
com9g:
If i7 = 1 Then GoTo com10g
If pp = 8 Then
i8 = 1
Command9.Left = 240
Command9.Top = 1800
GoTo fin
End If
com10g:
If j7 = 1 Then GoTo com11g
If pp = 9 Then
j8 = 1
Command9.Left = 1080
Command9.Top = 1800
GoTo fin
End If
com11g:
If k7 = 1 Then GoTo com12g
If pp = 10 Then
k8 = 1
Command9.Left = 1920
Command9.Top = 1800
GoTo fin
End If
com12g:
If l7 = 1 Then GoTo com13g
If pp = 11 Then
l8 = 1
Command9.Left = 2760
Command9.Top = 1800
GoTo fin
End If
com13g:
If m7 = 1 Then GoTo com14g
If pp = 12 Then
m8 = 1
Command9.Left = 240
Command9.Top = 2520
GoTo fin
End If
com14g:
If n7 = 1 Then GoTo com15g
If pp = 13 Then
n8 = 1
Command9.Left = 1080
Command9.Top = 2520
GoTo fin
End If
com15g:
If o7 = 1 Then GoTo com16g
If pp = 14 Then
o8 = 1
Command9.Left = 1920
Command9.Top = 2520
GoTo fin
End If
com16g:
If p7 = 1 Then GoTo com1h
If pp = 15 Then
p8 = 1
Command9.Left = 2760
Command9.Top = 2520
GoTo fin
End If
' Botón10
boton10:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton11
com1h:
If a8 = 1 Then GoTo com2h
If pp = 0 Then
a9 = 1
Command10.Left = 240
Command10.Top = 120
GoTo fin
End If
com2h:
If b8 = 1 Then GoTo com3h
If pp = 1 Then
b9 = 1
Command10.Left = 1080
Command10.Top = 120
GoTo fin
End If
com3h:
If c8 = 1 Then GoTo com4h
If pp = 2 Then
c9 = 1
Command10.Left = 1920
Command10.Top = 120
GoTo fin
End If
com4h:
If d8 = 1 Then GoTo com5h
If pp = 3 Then
d9 = 1
Command10.Left = 2760
Command10.Top = 120
GoTo fin
End If
com5h:
If e8 = 1 Then GoTo com6h
If pp = 4 Then
e9 = 1
Command10.Left = 240
Command10.Top = 960
GoTo fin
End If
com6h:
If f8 = 1 Then GoTo com7h
If pp = 5 Then
f9 = 1
Command10.Left = 1080
Command10.Top = 960
GoTo fin
End If
com7h:
If g8 = 1 Then GoTo com8h
If pp = 6 Then
g9 = 1
Command10.Left = 1920
Command10.Top = 960
GoTo fin
End If
com8h:
If h8 = 1 Then GoTo com9h
If pp = 7 Then
h9 = 1
Command10.Left = 2760
Command10.Top = 960
GoTo fin
End If
com9k:
If i8 = 1 Then GoTo com10h
If pp = 8 Then
i9 = 1
Command10.Left = 240
Command10.Top = 1800
GoTo fin
End If
com10h:
If j8 = 1 Then GoTo com11h
If pp = 9 Then
j9 = 1
Command10.Left = 1080
Command10.Top = 1800
GoTo fin
End If
com11h:
If k8 = 1 Then GoTo com12h
If pp = 10 Then
k9 = 1
Command10.Left = 1920
Command10.Top = 1800
GoTo fin
End If
com12h:
If l8 = 1 Then GoTo com13h
If pp = 11 Then
l9 = 1
Command10.Left = 2760
Command10.Top = 1800
GoTo fin
End If
com13h:
If m8 = 1 Then GoTo com14h
If pp = 12 Then
m9 = 1
Command10.Left = 240
Command10.Top = 2520
GoTo fin
End If
com14h:
If n8 = 1 Then GoTo com15h
If pp = 13 Then
n9 = 1
Command10.Left = 1080
Command10.Top = 2520
GoTo fin
End If
com15h:
If o8 = 1 Then GoTo com16h
If pp = 14 Then
o9 = 1
Command10.Left = 1920
Command10.Top = 2520
GoTo fin
End If
com16h:
If p8 = 1 Then GoTo com1i
If pp = 15 Then
p9 = 1
Command10.Left = 2760
Command10.Top = 2520
GoTo fin
End If
' Botón11
boton11:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton12
com1i:
If a9 = 1 Then GoTo com2i
If pp = 0 Then
a10 = 1
Command11.Left = 240
Command11.Top = 120
GoTo fin
End If
com2i:
If b9 = 1 Then GoTo com3i
If pp = 1 Then
b10 = 1
Command11.Left = 1080
Command11.Top = 120
GoTo fin
End If
com3i:
If c9 = 1 Then GoTo com4i
If pp = 2 Then
c10 = 1
Command11.Left = 1920
Command11.Top = 120
GoTo fin
End If
com4i:
If d9 = 1 Then GoTo com5i
If pp = 3 Then
d10 = 1
Command11.Left = 2760
Command11.Top = 120
GoTo fin
End If
com5i:
If e9 = 1 Then GoTo com6i
If pp = 4 Then
e10 = 1
Command11.Left = 240
Command11.Top = 960
GoTo fin
End If
com6i:
If f9 = 1 Then GoTo com7i
If pp = 5 Then
f10 = 1
Command11.Left = 1080
Command11.Top = 960
GoTo fin
End If
com7i:
If g9 = 1 Then GoTo com8i
If pp = 6 Then
g10 = 1
Command11.Left = 1920
Command11.Top = 960
GoTo fin
End If
com8i:
If h9 = 1 Then GoTo com9i
If pp = 7 Then
h10 = 1
Command11.Left = 2760
Command11.Top = 960
GoTo fin
End If
com9i:
If i9 = 1 Then GoTo com10i
If pp = 8 Then
i10 = 1
Command11.Left = 240
Command11.Top = 1800
GoTo fin
End If
com10i:
If j9 = 1 Then GoTo com11i
If pp = 9 Then
j10 = 1
Command11.Left = 1080
Command11.Top = 1800
GoTo fin
End If
com11i:
If k9 = 1 Then GoTo com12i
If pp = 10 Then
k10 = 1
Command11.Left = 1920
Command11.Top = 1800
GoTo fin
End If
com12i:
If l9 = 1 Then GoTo com13i
If pp = 11 Then
l10 = 1
Command11.Left = 2760
Command11.Top = 1800
GoTo fin
End If
com13i:
If m9 = 1 Then GoTo com14i
If pp = 12 Then
m10 = 1
Command11.Left = 240
Command11.Top = 2520
GoTo fin
End If
com14i:
If n9 = 1 Then GoTo com15i
If pp = 13 Then
n10 = 1
Command11.Left = 1080
Command11.Top = 2520
GoTo fin
End If
com15i:
If o9 = 1 Then GoTo com16i
If pp = 14 Then
o10 = 1
Command11.Left = 1920
Command11.Top = 2520
GoTo fin
End If
com16i:
If p9 = 1 Then GoTo com1j
If pp = 15 Then
p10 = 1
Command11.Left = 2760
Command11.Top = 2520
GoTo fin
End If
' Botón12
boton12:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton13
com1j:
If a10 = 1 Then GoTo com2j
If pp = 0 Then
a11 = 1
Command12.Left = 240
Command12.Top = 120
GoTo fin
End If
com2j:
If b10 = 1 Then GoTo com3j
If pp = 1 Then
b11 = 1
Command12.Left = 1080
Command12.Top = 120
GoTo fin
End If
com3j:
If c10 = 1 Then GoTo com4j
If pp = 2 Then
c11 = 1
Command12.Left = 1920
Command12.Top = 120
GoTo fin
End If
com4j:
If d10 = 1 Then GoTo com5j
If pp = 3 Then
d11 = 1
Command12.Left = 2760
Command12.Top = 120
GoTo fin
End If
com5j:
If e10 = 1 Then GoTo com6j
If pp = 4 Then
e11 = 1
Command12.Left = 240
Command12.Top = 960
GoTo fin
End If
com6j:
If f10 = 1 Then GoTo com7j
If pp = 5 Then
f11 = 1
Command12.Left = 1080
Command12.Top = 960
GoTo fin
End If
com7j:
If g10 = 1 Then GoTo com8j
If pp = 6 Then
g11 = 1
Command12.Left = 1920
Command12.Top = 960
GoTo fin
End If
com8j:
If h10 = 1 Then GoTo com9j
If pp = 7 Then
h11 = 1
Command12.Left = 2760
Command12.Top = 960
GoTo fin
End If
com9j:
If i10 = 1 Then GoTo com10j
If pp = 8 Then
i11 = 1
Command12.Left = 240
Command12.Top = 1800
GoTo fin
End If
com10j:
If j10 = 1 Then GoTo com11j
If pp = 9 Then
j11 = 1
Command12.Left = 1080
Command12.Top = 1800
GoTo fin
End If
com11j:
If k10 = 1 Then GoTo com12j
If pp = 10 Then
k11 = 1
Command12.Left = 1920
Command12.Top = 1800
GoTo fin
End If
com12j:
If l10 = 1 Then GoTo com13j
If pp = 11 Then
l11 = 1
Command12.Left = 2760
Command12.Top = 1800
GoTo fin
End If
com13j:
If m10 = 1 Then GoTo com14j
If pp = 12 Then
m11 = 1
Command12.Left = 240
Command12.Top = 2520
GoTo fin
End If
com14j:
If n10 = 1 Then GoTo com15j
If pp = 13 Then
n11 = 1
Command12.Left = 1080
Command12.Top = 2520
GoTo fin
End If
com15j:
If o10 = 1 Then GoTo com16j
If pp = 14 Then
o11 = 1
Command12.Left = 1920
Command12.Top = 2520
GoTo fin
End If
com16j:
If p10 = 1 Then GoTo com1k
If pp = 15 Then
p11 = 1
Command12.Left = 2760
Command12.Top = 2520
GoTo fin
End If
' Botón13
boton13:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton14
com1k:
If a11 = 1 Then GoTo com2k
If pp = 0 Then
a12 = 1
Command13.Left = 240
Command13.Top = 120
GoTo fin
End If
com2k:
If b11 = 1 Then GoTo com3k
If pp = 1 Then
b12 = 1
Command13.Left = 1080
Command13.Top = 120
GoTo fin
End If
com3k:
If c11 = 1 Then GoTo com4k
If pp = 2 Then
c12 = 1
Command13.Left = 1920
Command13.Top = 120
GoTo fin
End If
com4k:
If d11 = 1 Then GoTo com5k
If pp = 3 Then
d12 = 1
Command13.Left = 2760
Command13.Top = 120
GoTo fin
End If
com5k:
If e11 = 1 Then GoTo com6k
If pp = 4 Then
e12 = 1
Command13.Left = 240
Command13.Top = 960
GoTo fin
End If
com6k:
If f11 = 1 Then GoTo com7k
If pp = 5 Then
f12 = 1
Command13.Left = 1080
Command13.Top = 960
GoTo fin
End If
com7k:
If g11 = 1 Then GoTo com8k
If pp = 6 Then
g12 = 1
Command13.Left = 1920
Command13.Top = 960
GoTo fin
End If
com8k:
If h11 = 1 Then GoTo com9k
If pp = 7 Then
h12 = 1
Command13.Left = 2760
Command13.Top = 960
GoTo fin
End If
com9k:
If i11 = 1 Then GoTo com10k
If pp = 8 Then
i12 = 1
Command13.Left = 240
Command13.Top = 1800
GoTo fin
End If
com10k:
If j11 = 1 Then GoTo com11k
If pp = 9 Then
j12 = 1
Command13.Left = 1080
Command13.Top = 1800
GoTo fin
End If
com11k:
If k11 = 1 Then GoTo com12k
If pp = 10 Then
k12 = 1
Command13.Left = 1920
Command13.Top = 1800
GoTo fin
End If
com12k:
If l11 = 1 Then GoTo com13k
If pp = 11 Then
l12 = 1
Command13.Left = 2760
Command13.Top = 1800
GoTo fin
End If
com13k:
If m11 = 1 Then GoTo com14k
If pp = 12 Then
m12 = 1
Command13.Left = 240
Command13.Top = 2520
GoTo fin
End If
com14k:
If n11 = 1 Then GoTo com15k
If pp = 13 Then
n12 = 1
Command13.Left = 1080
Command13.Top = 2520
GoTo fin
End If
com15k:
If o11 = 1 Then GoTo com16k
If pp = 14 Then
o12 = 1
Command13.Left = 1920
Command13.Top = 2520
GoTo fin
End If
com16k:
If p11 = 1 Then GoTo com1l
If pp = 15 Then
p12 = 1
Command13.Left = 2760
Command13.Top = 2520
GoTo fin
End If
' Botón14
boton14:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton15
com1l:
If a12 = 1 Then GoTo com2l
If pp = 0 Then
a13 = 1
Command14.Left = 240
Command14.Top = 120
GoTo fin
GoTo fin
End If
com2l:
If b12 = 1 Then GoTo com3l
If pp = 1 Then
b13 = 1
Command14.Left = 1080
Command14.Top = 120
GoTo fin
End If
com3l:
If c12 = 1 Then GoTo com4l
If pp = 2 Then
c13 = 1
Command14.Left = 1920
Command14.Top = 120
GoTo fin
End If
com4l:
If d12 = 1 Then GoTo com5l
If pp = 3 Then
d13 = 1
Command14.Left = 2760
Command14.Top = 120
GoTo fin
End If
com5l:
If e12 = 1 Then GoTo com6l
If pp = 4 Then
e13 = 1
Command14.Left = 240
Command14.Top = 960
GoTo fin
End If
com6l:
If f12 = 1 Then GoTo com7l
If pp = 5 Then
f13 = 1
Command14.Left = 1080
Command14.Top = 960
GoTo fin
End If
com7l:
If g12 = 1 Then GoTo com8l
If pp = 6 Then
g13 = 1
Command14.Left = 1920
Command14.Top = 960
GoTo fin
End If
com8l:
If h12 = 1 Then GoTo com9l
If pp = 7 Then
h13 = 1
Command14.Left = 2760
Command14.Top = 960
GoTo fin
End If
com9l:
If i12 = 1 Then GoTo com10l
If pp = 8 Then
i13 = 1
Command14.Left = 240
Command14.Top = 1800
GoTo fin
End If
com10l:
If j12 = 1 Then GoTo com11l
If pp = 9 Then
j13 = 1
Command14.Left = 1080
Command14.Top = 1800
GoTo fin
End If
com11l:
If k12 = 1 Then GoTo com12l
If pp = 10 Then
k13 = 1
Command14.Left = 1920
Command14.Top = 1800
GoTo fin
End If
com12l:
If l12 = 1 Then GoTo com13l
If pp = 11 Then
l13 = 1
Command14.Left = 2760
Command14.Top = 1800
GoTo fin
End If
com13l:
If m12 = 1 Then GoTo com14l
If pp = 12 Then
m13 = 1
Command14.Left = 240
Command14.Top = 2520
GoTo fin
End If
com14l:
If n12 = 1 Then GoTo com15l
If pp = 13 Then
n13 = 1
Command14.Left = 1080
Command14.Top = 2520
GoTo fin
End If
com15l:
If o12 = 1 Then GoTo com16l
If pp = 14 Then
o13 = 1
Command14.Left = 1920
Command14.Top = 2520
GoTo fin
End If
com16l:
If p12 = 1 Then GoTo com1m
If pp = 15 Then
p13 = 1
Command14.Left = 2760
Command14.Top = 2520
GoTo fin
End If
' Botón15
boton15:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton16
com1m:
If a13 = 1 Then GoTo com2m
If pp = 0 Then
a14 = 1
Command15.Left = 240
Command15.Top = 120
GoTo fin
End If
com2m:
If b13 = 1 Then GoTo com3m
If pp = 1 Then
b14 = 1
Command15.Left = 1080
Command15.Top = 120
GoTo fin
End If
com3m:
If c13 = 1 Then GoTo com4m
If pp = 2 Then
c14 = 1
Command15.Left = 1920
Command15.Top = 120
GoTo fin
End If
com4m:
If d13 = 1 Then GoTo com5m
If pp = 3 Then
d14 = 1
Command15.Left = 2760
Command15.Top = 120
GoTo fin
End If
com5m:
If e13 = 1 Then GoTo com6m
If pp = 4 Then
e14 = 1
Command15.Left = 240
Command15.Top = 960
GoTo fin
End If
com6m:
If f13 = 1 Then GoTo com7m
If pp = 5 Then
f14 = 1
Command15.Left = 1080
Command15.Top = 960
GoTo fin
End If
com7m:
If g13 = 1 Then GoTo com8m
If pp = 6 Then
g14 = 1
Command15.Left = 1920
Command15.Top = 960
GoTo fin
End If
com8m:
If h13 = 1 Then GoTo com9m
If pp = 7 Then
h14 = 1
Command15.Left = 2760
Command15.Top = 960
GoTo fin
End If
com9m:
If i13 = 1 Then GoTo com10m
If pp = 8 Then
i14 = 1
Command15.Left = 240
Command15.Top = 1800
GoTo fin
End If
com10m:
If j13 = 1 Then GoTo com11m
If pp = 9 Then
j14 = 1
Command15.Left = 1080
Command15.Top = 1800
GoTo fin
End If
com11m:
If k13 = 1 Then GoTo com12m
If pp = 10 Then
k14 = 1
Command15.Left = 1920
Command15.Top = 1800
GoTo fin
End If
com12m:
If l13 = 1 Then GoTo com13m
If pp = 11 Then
l14 = 1
Command15.Left = 2760
Command15.Top = 1800
GoTo fin
End If
com13m:
If m13 = 1 Then GoTo com14m
If pp = 12 Then
m14 = 1
Command15.Left = 240
Command15.Top = 2520
GoTo fin
End If
com14m:
If n13 = 1 Then GoTo com15m
If pp = 13 Then
n14 = 1
Command15.Left = 1080
Command15.Top = 2520
GoTo fin
End If
com15m:
If o13 = 1 Then GoTo com16m
If pp = 14 Then
o14 = 1
Command15.Left = 1920
Command15.Top = 2520
GoTo fin
End If
com16m:
If p13 = 1 Then GoTo com1n
If pp = 15 Then
p14 = 1
Command15.Left = 2760
Command15.Top = 2520
GoTo fin
End If
' Botón16
boton16:
If a = 1 Or b = 1 Or c = 1 Or d = 1 Or e = 1 Or f = 1 Or g = 1 Or h = 1 Or i = 1 Or j = 1 Or k = 1 Or l = 1 Or m = 1 Or n = 1 Or o = 1 Or p = 1 Then GoTo boton1
com1n:
If a14 = 1 Then GoTo com2n
If pp = 0 Then
a15 = 1
Command16.Left = 240
Command16.Top = 120
GoTo fin
End If
com2n:
If b14 = 1 Then GoTo com3n
If pp = 1 Then
b15 = 1
Command16.Left = 1080
Command16.Top = 120
GoTo fin
End If
com3n:
If c14 = 1 Then GoTo com4n
If pp = 2 Then
c15 = 1
Command16.Left = 1920
Command16.Top = 120
GoTo fin
End If
com4n:
If d14 = 1 Then GoTo com5n
If pp = 3 Then
d15 = 1
Command16.Left = 2760
Command16.Top = 120
GoTo fin
End If
com5n:
If e14 = 1 Then GoTo com6n
If pp = 4 Then
e15 = 1
Command16.Left = 240
Command16.Top = 960
GoTo fin
End If
com6n:
If f14 = 1 Then GoTo com7n
If pp = 5 Then
f15 = 1
Command16.Left = 1080
Command16.Top = 960
GoTo fin
End If
com7n:
If g14 = 1 Then GoTo com8n
If pp = 6 Then
g15 = 1
Command16.Left = 1920
Command16.Top = 960
GoTo fin
End If
com8n:
If h14 = 1 Then GoTo com9n
If pp = 7 Then
h15 = 1
Command16.Left = 2760
Command16.Top = 960
GoTo fin
End If
com9n:
If i14 = 1 Then GoTo com10n
If pp = 8 Then
i15 = 1
Command16.Left = 240
Command16.Top = 1800
GoTo fin
End If
com10n:
If j14 = 1 Then GoTo com11n
If pp = 9 Then
j15 = 1
Command16.Left = 1080
Command16.Top = 1800
GoTo fin
End If
com11n:
If k14 = 1 Then GoTo com12n
If pp = 10 Then
k15 = 1
Command16.Left = 1920
Command16.Top = 1800
GoTo fin
End If
com12n:
If l14 = 1 Then GoTo com13n
If pp = 11 Then
l15 = 1
Command16.Left = 2760
Command16.Top = 1800
GoTo fin
End If
com13n:
If m14 = 1 Then GoTo com14n
If pp = 12 Then
m15 = 1
Command16.Left = 240
Command16.Top = 2520
GoTo fin
End If
com14n:
If n14 = 1 Then GoTo com15n
If pp = 13 Then
n15 = 1
Command16.Left = 1080
Command16.Top = 2520
GoTo fin
End If
com15n:
If o14 = 1 Then GoTo com16n
If pp = 14 Then
o15 = 1
Command16.Left = 1920
Command16.Top = 2520
GoTo fin
End If
com16n:
If p14 = 1 Then GoTo dd
If pp = 15 Then
p15 = 1
Command16.Left = 2760
Command16.Top = 2520
GoTo fin
End If
fin:
Next i
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
Command4.Visible = True
Command5.Visible = True
Command6.Visible = True
Command7.Visible = True
Command8.Visible = True
Command9.Visible = True
Command10.Visible = True
Command11.Visible = True
Command12.Visible = True
Command13.Visible = True
Command14.Visible = True
Command15.Visible = True
Command16.Visible = True
Command1.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\mail.ico")
Command2.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\cd.ico")
Command3.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\plane.ico")
Command4.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\circulo.ico")
Command5.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\reloj.ico")
Command6.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\ojo.ico")
Command7.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\nofumar.ico")
Command8.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\trebol.ico")
Command9.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\cd2.ico")
Command10.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\mail2.ico")
Command11.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\circulo2.ico")
Command12.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\reloj2.ico")
Command13.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\trebol2.ico")
Command14.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\ojo2.ico")
Command15.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\plane2.ico")
Command16.Picture = LoadPicture("C:\Users\Gaston\Desktop\Programacion\juego\iconos\nofumar2.ico")
Label1 = ""
Label2 = ""
End Sub
Private Sub Command18_Click()
v = MsgBox("¿Salir?", vbYesNo)
If v = vbYes Then End
End Sub
Private Sub Command2_Click()
c = 1
zz = zz + 1
juego
End Sub
Private Sub Command3_Click()
e = 1
zz = zz + 1
juego
End Sub
Private Sub Command4_Click()
g = 1
zz = zz + 1
juego
End Sub
Private Sub Command5_Click()
p = 1
zz = zz + 1
juego
End Sub
Private Sub Command6_Click()
n = 1
zz = zz + 1
juego
End Sub
Private Sub Command7_Click()
i = 1
zz = zz + 1
juego
End Sub
Private Sub Command8_Click()
k = 1
zz = zz + 1
juego
End Sub
Private Sub Command9_Click()
d = 1
zz = zz + 1
juego
End Sub
Private Sub Option1_Click()
qwee = 20
End Sub
Private Sub Option2_Click()
qwee = 15
End Sub
Private Sub Option3_Click()
qwee = 10
End Sub
Private Sub Timer1_Timer()
If w < 5 Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Command11.Enabled = False
Command12.Enabled = False
Command13.Enabled = False
Command14.Enabled = False
Command15.Enabled = False
Command16.Enabled = False
End If
w = w + 1
Label1 = w
If w = 5 Then
Command1.Picture = LoadPicture()
Command2.Picture = LoadPicture()
Command3.Picture = LoadPicture()
Command4.Picture = LoadPicture()
Command5.Picture = LoadPicture()
Command6.Picture = LoadPicture()
Command7.Picture = LoadPicture()
Command8.Picture = LoadPicture()
Command9.Picture = LoadPicture()
Command10.Picture = LoadPicture()
Command11.Picture = LoadPicture()
Command12.Picture = LoadPicture()
Command13.Picture = LoadPicture()
Command14.Picture = LoadPicture()
Command15.Picture = LoadPicture()
Command16.Picture = LoadPicture()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
Command12.Enabled = True
Command13.Enabled = True
Command14.Enabled = True
Command15.Enabled = True
Command16.Enabled = True
Timer1.Enabled = False
Timer2.Enabled = True
w = 0
End If
End Sub
Private Sub Timer2_Timer()
Command17.Enabled = False
qwe = qwe + 1
Label2 = qwe
If qwe = qwee Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Command11.Enabled = False
Command12.Enabled = False
Command13.Enabled = False
Command14.Enabled = False
Command15.Enabled = False
Command16.Enabled = False
Timer2.Enabled = False
Command17.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Command11.Enabled = False
Command12.Enabled = False
Command13.Enabled = False
Command14.Enabled = False
Command15.Enabled = False
Command16.Enabled = False
qwe = 0
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: rdzlcs en 21 Diciembre 2010, 23:22 pm
Oks subo la carpeta!
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: raul338 en 21 Diciembre 2010, 23:23 pm
No hagas repost
Ademas del codigo faltaria decir que controles usas (16 commandsbuttons, 3 options, pero... para que sera cada uno? no somos adivinos :xD)
Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.
Eso esta sin terminar, encima un monton de commands?
Puedes aligerarte usando matriz de controles :)
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: rdzlcs en 21 Diciembre 2010, 23:25 pm
No hagas repost
Ademas del codigo faltaria decir que controles usas (16 commandsbuttons, 3 options, pero... para que sera cada uno? no somos adivinos :xD)
Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.
Eso esta sin terminar, encima un monton de commands?
Puedes aligerarte usando matriz de controles :)
Si esta sin terminar, y el juego se basa en command...
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: rdzlcs en 21 Diciembre 2010, 23:31 pm
http://www.megaupload.com/?d=69KUZP51
Proyecto entero código, ejecutable tooo!!
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: Psyke1 en 21 Diciembre 2010, 23:37 pm
Dios mio, no te ofendas pero es un codigo espantoso, usa matrices de controles, para encontrar un error ahi llevaria siglos... :xD
PD: Despues lo miro... ;)
DoEvents! :P
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: rdzlcs en 21 Diciembre 2010, 23:44 pm
Jejeje siempre hago programas complicados, trabajo mas, pero en el fondo, evitas errores, pero cuando cometes errores, te volves loco buscándolos, y esto es algo fácil que hice en unos días de aburrimiento!! pero me perdi... :rolleyes: :rolleyes: :rolleyes: y la verdad que ni los borradores que hice me ayudan muchio!!
GRacias por su ayuda!
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: raul338 en 21 Diciembre 2010, 23:46 pm
Me referia a que esta sin terminar, a que habias puesto el codigo incompleto :xD
Y....Aprende a usar matrices de controles :)
Y sigues haciendo repost! Limpia tus post antes de que un mod lo haga y se enoje contigo :xD
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: ignorantev1.1 en 22 Diciembre 2010, 19:51 pm
Ya ves que usas etiquetas para los "GOTO". Pues colocaste 2 veces la etiqueta "com2k" y era "com2h" en una... ya corregi tu codigo (con tu permiso) lo subo:
http://www.mediafire.com/?xteei8hb2b75754
aunque no le entendi al juego de que trata?, te recomiendo un poquito mas de orden en el codigo, no para que se vea lindo, si no para que te entiendas mas tu o que te entiendan "los que quieres que te entiendan" :rolleyes:
Título: Re: declaraciòn duplicada en el alcance actual.. (CODIGO)
Publicado por: BlackZeroX en 23 Diciembre 2010, 21:21 pm
.
No uses Goto... confunden al programador mejor aprende a usar Not, <> , <,<=, = >, >=, or, and, xor, etc.. if then.
usar goto no es malo pero si usas mas de 1 es que tu logica de programador es deficiente, mejor aprende a crear subprocesos, funciones, etc..
P.D.: Si realizas subtutinas/funciones/etc (Divide y venceras) tu programa sera maleable.
Dulces Lunas!¡.
|