CODIFICACIÓN:
'FORM1:
PUBLIC CLASS FORM1
PRIVATE SUB BUTTON1_CLICK(BYVAL SENDER AS SYSTEM.OBJECT,
BYVAL E AS SYSTEM.EVENTARGS) HANDLES BUTTON1.CLICK
TIMER1.STOP()
IF LABEL1.TEXT = 1 THEN
L1.TEXT = "N"
L2.TEXT = "O"
L3.TEXT = "M"
L4.TEXT = "B"
L5.TEXT = "R"
L6.TEXT = "E"
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 2 THEN
L1.TEXT = "M"
L2.TEXT = "U"
L3.TEXT = "R"
L4.TEXT = "C"
L5.TEXT = "I"
L6.TEXT = "E"
L7.TEXT = "L"
L8.TEXT = "A"
L9.TEXT = "G"
L10.TEXT = "O"
END IF
IF LABEL1.TEXT = 3 THEN
L1.TEXT = "C"
L2.TEXT = "A"
L3.TEXT = "R"
L4.TEXT = "R"
L5.TEXT = "E"
L6.TEXT = "T"
L7.TEXT = "I"
L8.TEXT = "L"
L9.TEXT = "L"
L10.TEXT = "A"
END IF
IF LABEL1.TEXT = 4 THEN
L1.TEXT = "C"
L2.TEXT = "A"
L3.TEXT = "F"
L4.TEXT = "E"
L5.TEXT = "T"
L6.TEXT = "E"
L7.TEXT = "R"
L8.TEXT = "A"
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 5 THEN
L1.TEXT = "P"
L2.TEXT = "I"
L3.TEXT = "Z"
L4.TEXT = "A"
L5.TEXT = "R"
L6.TEXT = "R"
L7.TEXT = "A"
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 6 THEN
L1.TEXT = "B"
L2.TEXT = "I"
L3.TEXT = "C"
L4.TEXT = "I"
L5.TEXT = "C"
L6.TEXT = "L"
L7.TEXT = "E"
L8.TEXT = "T"
L9.TEXT = "A"
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 7 THEN
L1.TEXT = "E"
L2.TEXT = "S"
L3.TEXT = "T"
L4.TEXT = "A"
L5.TEXT = "T"
L6.TEXT = "U"
L7.TEXT = "A"
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 8 THEN
L1.TEXT = "L"
L2.TEXT = "A"
L3.TEXT = "M"
L4.TEXT = "P"
L5.TEXT = "A"
L6.TEXT = "R"
L7.TEXT = "A"
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 9 THEN
L1.TEXT = "P"
L2.TEXT = "L"
L3.TEXT = "A"
L4.TEXT = "N"
L5.TEXT = "A"
L6.TEXT = "D"
L7.TEXT = "O"
L8.TEXT = "R"
L9.TEXT = "A"
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 10 THEN
L1.TEXT = "C"
L2.TEXT = "O"
L3.TEXT = "R"
L4.TEXT = "T"
L5.TEXT = "I"
L6.TEXT = "N"
L7.TEXT = "A"
L8.TEXT = "S"
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 11 THEN
L1.TEXT = "B"
L2.TEXT = "I"
L3.TEXT = "B"
L4.TEXT = "L"
L5.TEXT = "I"
L6.TEXT = "A"
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 12 THEN
L1.TEXT = "C"
L2.TEXT = "A"
L3.TEXT = "R"
L4.TEXT = "A"
L5.TEXT = "O"
L6.TEXT = "T"
L7.TEXT = "A"
L8.TEXT = "S"
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 13 THEN
L1.TEXT = "E"
L2.TEXT = "S"
L3.TEXT = "T"
L4.TEXT = "R"
L5.TEXT = "E"
L6.TEXT = "L"
L7.TEXT = "L"
L8.TEXT = "A"
L9.TEXT = "S"
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 14 THEN
L1.TEXT = "C"
L2.TEXT = "R"
L3.TEXT = "U"
L4.TEXT = "Z"
L5.TEXT = ""
L6.TEXT = ""
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 15 THEN
L1.TEXT = "I"
L2.TEXT = "G"
L3.TEXT = "L"
L4.TEXT = "E"
L5.TEXT = "S"
L6.TEXT = "I"
L7.TEXT = "A"
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 16 THEN
L1.TEXT = "I"
L2.TEXT = "M"
L3.TEXT = "P"
L4.TEXT = "R"
L5.TEXT = "E"
L6.TEXT = "S"
L7.TEXT = "O"
L8.TEXT = "R"
L9.TEXT = "A"
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 17 THEN
L1.TEXT = "S"
L2.TEXT = "O"
L3.TEXT = "N"
L4.TEXT = "I"
L5.TEXT = "D"
L6.TEXT = "O"
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 18 THEN
L1.TEXT = "C"
L2.TEXT = "A"
L3.TEXT = "F"
L4.TEXT = "E"
L5.TEXT = ""
L6.TEXT = ""
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 19 THEN
L1.TEXT = "T"
L2.TEXT = "O"
L3.TEXT = "R"
L4.TEXT = "T"
L5.TEXT = "U"
L6.TEXT = "G"
L7.TEXT = "A"
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 20 THEN
L1.TEXT = "A"
L2.TEXT = "H"
L3.TEXT = "O"
L4.TEXT = "R"
L5.TEXT = "C"
L6.TEXT = "A"
L7.TEXT = "D"
L8.TEXT = "O"
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 21 THEN
L1.TEXT = "O"
L2.TEXT = "I"
L3.TEXT = "D"
L4.TEXT = "O"
L5.TEXT = ""
L6.TEXT = ""
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 22 THEN
L1.TEXT = "T"
L2.TEXT = "I"
L3.TEXT = "N"
L4.TEXT = "T"
L5.TEXT = "A"
L6.TEXT = ""
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 23 THEN
L1.TEXT = "P"
L2.TEXT = "E"
L3.TEXT = "R"
L4.TEXT = "R"
L5.TEXT = "E"
L6.TEXT = "R"
L7.TEXT = "A"
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
END IF
IF LABEL1.TEXT = 24
THEN
L1.TEXT =
"P"
L2.TEXT =
"E"
L3.TEXT =
"S"
L4.TEXT =
"C"
L5.TEXT =
"A"
L6.TEXT =
"D"
L7.TEXT =
"O"
L8.TEXT =
""
L9.TEXT =
""
L10.TEXT
= ""
END IF
IF LABEL1.TEXT = 25
THEN
L1.TEXT =
"T"
L2.TEXT =
"R"
L3.TEXT =
"A"
L4.TEXT =
"F"
L5.TEXT =
"I"
L6.TEXT =
"C"
L7.TEXT =
"O"
L8.TEXT =
""
L9.TEXT =
""
L10.TEXT
= ""
END IF
IF LABEL1.TEXT = 26
THEN
L1.TEXT =
"T"
L2.TEXT =
"E"
L3.TEXT =
"C"
L4.TEXT =
"L"
L5.TEXT =
"A"
L6.TEXT =
"D"
L7.TEXT =
"O"
L8.TEXT =
""
L9.TEXT =
""
L10.TEXT
= ""
END IF
IF LABEL1.TEXT = 27
THEN
L1.TEXT =
"M"
L2.TEXT =
"O"
L3.TEXT =
"N"
L4.TEXT =
"T"
L5.TEXT =
"O"
L6.TEXT =
"R"
L7.TEXT =
""
L8.TEXT =
""
L9.TEXT =
""
L10.TEXT
= ""
END IF
IF LABEL1.TEXT = 28
THEN
L1.TEXT =
"P"
L2.TEXT =
"A"
L3.TEXT =
"S"
L4.TEXT =
"A"
L5.TEXT =
"T"
L6.TEXT =
"I"
L7.TEXT =
"E"
L8.TEXT =
"M"
L9.TEXT =
"P"
L10.TEXT
= "O"
END IF
IF LABEL1.TEXT = 29
THEN
L1.TEXT =
"T"
L2.TEXT =
"R"
L3.TEXT =
"A"
L4.TEXT =
"D"
L5.TEXT =
"U"
L6.TEXT =
"C"
L7.TEXT =
"I"
L8.TEXT =
"R"
L9.TEXT =
""
L10.TEXT
= ""
END IF
IF LABEL1.TEXT = 30
THEN
L1.TEXT =
"T"
L2.TEXT =
"O"
L3.TEXT =
"R"
L4.TEXT =
"N"
L5.TEXT =
"I"
L6.TEXT =
"L"
L7.TEXT =
"L"
L8.TEXT =
"O"
L9.TEXT =
""
L10.TEXT
= ""
END IF
IF L1.TEXT <>
"" THEN
R1.TEXT =
"_"
ELSE
R1.TEXT =
""
END IF
IF L2.TEXT <>
"" THEN
R2.TEXT =
"_"
ELSE
R2.TEXT =
""
END IF
IF L3.TEXT <>
"" THEN
R3.TEXT =
"_"
ELSE
R3.TEXT =
""
END IF
IF L4.TEXT <>
"" THEN
R4.TEXT =
"_"
ELSE
R4.TEXT =
""
END IF
IF L5.TEXT <>
"" THEN
R5.TEXT =
"_"
ELSE
R5.TEXT =
""
END IF
IF L6.TEXT <>
"" THEN
R6.TEXT =
"_"
ELSE
R6.TEXT =
""
END IF
IF L7.TEXT <>
"" THEN
R7.TEXT =
"_"
ELSE
R7.TEXT =
""
END IF
IF L8.TEXT <>
"" THEN
R8.TEXT =
"_"
ELSE
R8.TEXT =
""
END IF
IF L9.TEXT <>
"" THEN
R9.TEXT =
"_"
ELSE
R9.TEXT =
""
END IF
IF L10.TEXT <>
"" THEN
R10.TEXT
= "_"
ELSE
R10.TEXT
= ""
END IF
LABEL2.VISIBLE = TRUE
LABEL3.VISIBLE = TRUE
END SUB
PRIVATE SUB TIMER1_TICK(BYVAL SENDER
AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES TIMER1.TICK
DIM CONTADOR AS
INTEGER
CONTADOR = LABEL1.TEXT
+ 1
LABEL1.TEXT =
CONTADOR
IF CONTADOR = 31 THEN
LABEL1.TEXT = 1
END IF
END SUB
PRIVATE SUB FORM1_KEYDOWN(BYVAL
SENDER AS OBJECT, BYVAL E AS SYSTEM.WINDOWS.FORMS.KEYEVENTARGS) HANDLES
ME.KEYDOWN
DIM CONTADOR AS INTEGER
IF E.KEYDATA = KEYS.A
THEN
IF
L1.TEXT <> "A" AND L2.TEXT <> "A" AND L3.TEXT
<> "A" AND L4.TEXT <> "A" AND L5.TEXT <>
"A" AND L6.TEXT <> "A" AND L7.TEXT <>
"A" AND L8.TEXT <> "A" AND L9.TEXT <>
"A" AND L10.TEXT <> "A" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "A"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "A"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "A"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "A"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "A"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "A"
END IF
ELSE
IF L1.TEXT = "A" THEN
R1.TEXT = "A"
END IF
IF L2.TEXT = "A" THEN
R2.TEXT = "A"
END IF
IF L3.TEXT = "A" THEN
R3.TEXT = "A"
END IF
IF L4.TEXT = "A" THEN
R4.TEXT = "A"
END IF
IF L5.TEXT = "A" THEN
R5.TEXT = "A"
END IF
IF L6.TEXT = "A" THEN
R6.TEXT = "A"
END IF
IF L7.TEXT = "A" THEN
R7.TEXT = "A"
END IF
IF L8.TEXT = "A" THEN
R8.TEXT = "A"
END IF
IF L9.TEXT = "A" THEN
R9.TEXT = "A"
END IF
IF L10.TEXT = "A" THEN
R10.TEXT = "A"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.B
THEN
IF
L1.TEXT <> "B" AND L2.TEXT <> "B" AND L3.TEXT
<> "B" AND L4.TEXT <> "B" AND L5.TEXT <>
"B" AND L6.TEXT <> "B" AND L7.TEXT <>
"B" AND L8.TEXT <> "B" AND L9.TEXT <>
"B" AND L10.TEXT <> "B" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "B"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "B"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "B"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "B"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "B"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "B"
END IF
ELSE
IF L1.TEXT = "B" THEN
R1.TEXT = "B"
END IF
IF L2.TEXT = "B" THEN
R2.TEXT = "B"
END IF
IF L3.TEXT = "B" THEN
R3.TEXT = "B"
END IF
IF L4.TEXT = "B" THEN
R4.TEXT = "B"
END IF
IF L5.TEXT = "B" THEN
R5.TEXT = "B"
END IF
IF L6.TEXT = "B" THEN
R6.TEXT = "B"
END IF
IF L7.TEXT = "B" THEN
R7.TEXT = "B"
END IF
IF L8.TEXT = "B" THEN
R8.TEXT = "B"
END IF
IF L9.TEXT = "B" THEN
R9.TEXT = "B"
END IF
IF L10.TEXT = "B" THEN
R10.TEXT = "B"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.C
THEN
IF
L1.TEXT <> "C" AND L2.TEXT <> "C" AND L3.TEXT
<> "C" AND L4.TEXT <> "C" AND L5.TEXT <>
"C" AND L6.TEXT <> "C" AND L7.TEXT <>
"C" AND L8.TEXT <> "C" AND L9.TEXT <>
"C" AND L10.TEXT <> "C" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "C"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "C"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "C"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "C"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "C"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "C"
END IF
ELSE
IF L1.TEXT = "C" THEN
R1.TEXT = "C"
END IF
IF L2.TEXT = "C" THEN
R2.TEXT = "C"
END IF
IF L3.TEXT = "C" THEN
R3.TEXT = "C"
END IF
IF L4.TEXT = "C" THEN
R4.TEXT = "C"
END IF
IF L5.TEXT = "C" THEN
R5.TEXT = "C"
END IF
IF L6.TEXT = "C" THEN
R6.TEXT = "C"
END IF
IF L7.TEXT = "C" THEN
R7.TEXT = "C"
END IF
IF L8.TEXT = "C" THEN
R8.TEXT = "C"
END IF
IF L9.TEXT = "C" THEN
R9.TEXT = "C"
END IF
IF L10.TEXT = "C" THEN
R10.TEXT = "C"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.D
THEN
IF
L1.TEXT <> "D" AND L2.TEXT <> "D" AND L3.TEXT
<> "D" AND L4.TEXT <> "D" AND L5.TEXT <>
"D" AND L6.TEXT <> "D" AND L7.TEXT <>
"D" AND L8.TEXT <> "D" AND L9.TEXT <>
"D" AND L10.TEXT <> "D" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "D"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "D"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "D"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "D"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "D"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "D"
END IF
ELSE
IF L1.TEXT = "D" THEN
R1.TEXT = "D"
END IF
IF L2.TEXT = "D" THEN
R2.TEXT = "D"
END IF
IF L3.TEXT = "D" THEN
R3.TEXT = "D"
END IF
IF L4.TEXT = "D" THEN
R4.TEXT = "D"
END IF
IF L5.TEXT = "D" THEN
R5.TEXT = "D"
END IF
IF L6.TEXT = "D" THEN
R6.TEXT = "D"
END IF
IF L7.TEXT = "D" THEN
R7.TEXT = "D"
END IF
IF L8.TEXT = "D" THEN
R8.TEXT = "D"
END IF
IF L9.TEXT = "D" THEN
R9.TEXT = "D"
END IF
IF L10.TEXT = "D" THEN
R10.TEXT = "D"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.E
THEN
IF
L1.TEXT <> "E" AND L2.TEXT <> "E" AND L3.TEXT
<> "E" AND L4.TEXT <> "E" AND L5.TEXT <>
"E" AND L6.TEXT <> "E" AND L7.TEXT <>
"E" AND L8.TEXT <> "E" AND L9.TEXT <>
"E" AND L10.TEXT <> "E" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "E"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "E"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "E"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "E"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "E"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "E"
END IF
ELSE
IF L1.TEXT = "E" THEN
R1.TEXT = "E"
END IF
IF L2.TEXT = "E" THEN
R2.TEXT = "E"
END IF
IF L3.TEXT = "E" THEN
R3.TEXT = "E"
END IF
IF L4.TEXT = "E" THEN
R4.TEXT = "E"
END IF
IF L5.TEXT = "E" THEN
R5.TEXT = "E"
END IF
IF L6.TEXT = "E" THEN
R6.TEXT = "E"
END IF
IF L7.TEXT = "E" THEN
R7.TEXT = "E"
END IF
IF L8.TEXT = "E" THEN
R8.TEXT = "E"
END IF
IF L9.TEXT = "E" THEN
R9.TEXT = "E"
END IF
IF L10.TEXT = "E" THEN
R10.TEXT = "E"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.F
THEN
IF
L1.TEXT <> "F" AND L2.TEXT <> "F" AND L3.TEXT
<> "F" AND L4.TEXT <> "F" AND L5.TEXT <>
"F" AND L6.TEXT <> "F" AND L7.TEXT <>
"F" AND L8.TEXT <> "F" AND L9.TEXT <> "F"
AND L10.TEXT <> "F" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "F"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "F"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "F"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "F"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "F"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "F"
END IF
ELSE
IF L1.TEXT = "F" THEN
R1.TEXT = "F"
END IF
IF L2.TEXT = "F" THEN
R2.TEXT = "F"
END IF
IF L3.TEXT = "F" THEN
R3.TEXT = "F"
END IF
IF L4.TEXT = "F" THEN
R4.TEXT = "F"
END IF
IF L5.TEXT = "F" THEN
R5.TEXT = "F"
END IF
IF L6.TEXT = "F" THEN
R6.TEXT = "F"
END IF
IF L7.TEXT = "F" THEN
R7.TEXT = "F"
END IF
IF L8.TEXT = "F" THEN
R8.TEXT = "F"
END IF
IF L9.TEXT = "F" THEN
R9.TEXT = "F"
END IF
IF L10.TEXT = "F" THEN
R10.TEXT = "F"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.G
THEN
IF
L1.TEXT <> "G" AND L2.TEXT <> "G" AND L3.TEXT
<> "G" AND L4.TEXT <> "G" AND L5.TEXT <>
"G" AND L6.TEXT <> "G" AND L7.TEXT <>
"G" AND L8.TEXT <> "G" AND L9.TEXT <>
"G" AND L10.TEXT <> "G" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "G"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "G"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "G"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "G"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "G"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "G"
END IF
ELSE
IF L1.TEXT = "G" THEN
R1.TEXT = "G"
END IF
IF L2.TEXT = "G" THEN
R2.TEXT = "G"
END IF
IF L3.TEXT = "G" THEN
R3.TEXT = "G"
END IF
IF L4.TEXT = "G" THEN
R4.TEXT = "G"
END IF
IF L5.TEXT = "G" THEN
R5.TEXT = "G"
END IF
IF L6.TEXT = "G" THEN
R6.TEXT = "G"
END IF
IF L7.TEXT = "G" THEN
R7.TEXT = "G"
END IF
IF L8.TEXT = "G" THEN
R8.TEXT = "G"
END IF
IF L9.TEXT = "G" THEN
R9.TEXT = "G"
END IF
IF L10.TEXT = "G" THEN
R10.TEXT = "G"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.H
THEN
IF
L1.TEXT <> "H" AND L2.TEXT <> "H" AND L3.TEXT
<> "H" AND L4.TEXT <> "H" AND L5.TEXT <>
"H" AND L6.TEXT <> "H" AND L7.TEXT <>
"H" AND L8.TEXT <> "H" AND L9.TEXT <>
"H" AND L10.TEXT <> "H" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "H"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "H"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "H"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "H"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "H"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "H"
END IF
ELSE
IF L1.TEXT = "H" THEN
R1.TEXT = "H"
END IF
IF L2.TEXT = "H" THEN
R2.TEXT = "H"
END IF
IF L3.TEXT = "H" THEN
R3.TEXT = "H"
END IF
IF L4.TEXT = "H" THEN
R4.TEXT = "H"
END IF
IF L5.TEXT = "H" THEN
R5.TEXT = "H"
END IF
IF L6.TEXT = "H" THEN
R6.TEXT = "H"
END IF
IF L7.TEXT = "H" THEN
R7.TEXT = "H"
END IF
IF L8.TEXT = "H" THEN
R8.TEXT = "H"
END IF
IF L9.TEXT = "H" THEN
R9.TEXT = "H"
END IF
IF L10.TEXT = "H" THEN
R10.TEXT = "H"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.I
THEN
IF
L1.TEXT <> "I" AND L2.TEXT <> "I" AND L3.TEXT
<> "I" AND L4.TEXT <> "I" AND L5.TEXT <>
"I" AND L6.TEXT <> "I" AND L7.TEXT <>
"I" AND L8.TEXT <> "I" AND L9.TEXT <>
"I" AND L10.TEXT <> "I" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "I"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "I"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "I"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "I"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "I"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "I"
END IF
ELSE
IF L1.TEXT = "I" THEN
R1.TEXT = "I"
END IF
IF L2.TEXT = "I" THEN
R2.TEXT = "I"
END IF
IF L3.TEXT = "I" THEN
R3.TEXT = "I"
END IF
IF L4.TEXT = "I" THEN
R4.TEXT = "I"
END IF
IF L5.TEXT = "I" THEN
R5.TEXT = "I"
END IF
IF L6.TEXT = "I" THEN
R6.TEXT = "I"
END IF
IF L7.TEXT = "I" THEN
R7.TEXT = "I"
END IF
IF L8.TEXT = "I" THEN
R8.TEXT = "I"
END IF
IF L9.TEXT = "I" THEN
R9.TEXT = "I"
END IF
IF L10.TEXT = "I" THEN
R10.TEXT = "I"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.J
THEN
IF
L1.TEXT <> "J" AND L2.TEXT <> "J" AND L3.TEXT
<> "J" AND L4.TEXT <> "J" AND L5.TEXT <>
"J" AND L6.TEXT <> "J" AND L7.TEXT <>
"J" AND L8.TEXT <> "J" AND L9.TEXT <>
"J" AND L10.TEXT <> "J" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "J"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "J"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "J"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "J"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "J"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "J"
END IF
ELSE
IF L1.TEXT = "J" THEN
R1.TEXT = "J"
END IF
IF L2.TEXT = "J" THEN
R2.TEXT = "J"
END IF
IF L3.TEXT = "J" THEN
R3.TEXT = "J"
END IF
IF L4.TEXT = "J" THEN
R4.TEXT = "J"
END IF
IF L5.TEXT = "J" THEN
R5.TEXT = "J"
END IF
IF L6.TEXT = "J" THEN
R6.TEXT = "J"
END IF
IF L7.TEXT = "J" THEN
R7.TEXT = "J"
END IF
IF L8.TEXT = "J" THEN
R8.TEXT = "J"
END IF
IF L9.TEXT = "J" THEN
R9.TEXT = "J"
END IF
IF L10.TEXT = "J" THEN
R10.TEXT = "J"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.K
THEN
IF
L1.TEXT <> "K" AND L2.TEXT <> "K" AND L3.TEXT
<> "K" AND L4.TEXT <> "K" AND L5.TEXT <>
"K" AND L6.TEXT <> "K" AND L7.TEXT <>
"K" AND L8.TEXT <> "K" AND L9.TEXT <>
"K" AND L10.TEXT <> "K" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "K"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "K"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "K"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "K"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "K"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "K"
END IF
ELSE
IF L1.TEXT = "K" THEN
R1.TEXT = "K"
END IF
IF L2.TEXT = "K" THEN
R2.TEXT = "K"
END IF
IF L3.TEXT = "K" THEN
R3.TEXT = "K"
END IF
IF L4.TEXT = "K" THEN
R4.TEXT = "K"
END IF
IF L5.TEXT = "K" THEN
R5.TEXT = "K"
END IF
IF L6.TEXT = "K" THEN
R6.TEXT = "K"
END IF
IF L7.TEXT = "K" THEN
R7.TEXT = "K"
END IF
IF L8.TEXT = "K" THEN
R8.TEXT = "K"
END IF
IF L9.TEXT = "K" THEN
R9.TEXT = "K"
END IF
IF L10.TEXT = "K" THEN
R10.TEXT = "K"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.L
THEN
IF
L1.TEXT <> "L" AND L2.TEXT <> "L" AND L3.TEXT
<> "L" AND L4.TEXT <> "L" AND L5.TEXT <>
"L" AND L6.TEXT <> "L" AND L7.TEXT <>
"L" AND L8.TEXT <> "L" AND L9.TEXT <>
"L" AND L10.TEXT <> "L" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "L"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "L"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "L"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "L"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "L"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "L"
END IF
ELSE
IF L1.TEXT = "L" THEN
R1.TEXT = "L"
END IF
IF L2.TEXT = "L" THEN
R2.TEXT = "L"
END IF
IF L3.TEXT = "L" THEN
R3.TEXT = "L"
END IF
IF L4.TEXT = "L" THEN
R4.TEXT = "L"
END IF
IF L5.TEXT = "L" THEN
R5.TEXT = "L"
END IF
IF L6.TEXT = "L" THEN
R6.TEXT = "L"
END IF
IF L7.TEXT = "L" THEN
R7.TEXT = "L"
END IF
IF L8.TEXT = "L" THEN
R8.TEXT = "L"
END IF
IF L9.TEXT = "L" THEN
R9.TEXT = "L"
END IF
IF L10.TEXT = "L" THEN
R10.TEXT = "L"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.M
THEN
IF
L1.TEXT <> "M" AND L2.TEXT <> "M" AND L3.TEXT
<> "M" AND L4.TEXT <> "M" AND L5.TEXT <>
"M" AND L6.TEXT <> "M" AND L7.TEXT <>
"M" AND L8.TEXT <> "M" AND L9.TEXT <>
"M" AND L10.TEXT <> "M" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "M"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "M"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "M"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "M"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "M"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "M"
END IF
ELSE
IF L1.TEXT = "M" THEN
R1.TEXT = "M"
END IF
IF L2.TEXT = "M" THEN
R2.TEXT = "M"
END IF
IF L3.TEXT = "M" THEN
R3.TEXT = "M"
END IF
IF L4.TEXT = "M" THEN
R4.TEXT = "M"
END IF
IF L5.TEXT = "M" THEN
R5.TEXT = "M"
END IF
IF L6.TEXT = "M" THEN
R6.TEXT = "M"
END IF
IF L7.TEXT = "M" THEN
R7.TEXT = "M"
END IF
IF L8.TEXT = "M" THEN
R8.TEXT = "M"
END IF
IF L9.TEXT = "M" THEN
R9.TEXT = "M"
END IF
IF L10.TEXT = "M" THEN
R10.TEXT = "M"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.N
THEN
IF
L1.TEXT <> "N" AND L2.TEXT <> "N" AND L3.TEXT
<> "N" AND L4.TEXT <> "N" AND L5.TEXT <>
"N" AND L6.TEXT <> "N" AND L7.TEXT <>
"N" AND L8.TEXT <> "N" AND L9.TEXT <>
"N" AND L10.TEXT <> "N" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "N"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "N"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "N"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "N"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "N"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "N"
END IF
ELSE
IF L1.TEXT = "N" THEN
R1.TEXT = "N"
END IF
IF L2.TEXT = "N" THEN
R2.TEXT = "N"
END IF
IF L3.TEXT = "N" THEN
R3.TEXT = "N"
END IF
IF L4.TEXT = "N" THEN
R4.TEXT = "N"
END IF
IF L5.TEXT = "N" THEN
R5.TEXT = "N"
END IF
IF L6.TEXT = "N" THEN
R6.TEXT = "N"
END IF
IF L7.TEXT = "N" THEN
R7.TEXT = "N"
END IF
IF L8.TEXT = "N" THEN
R8.TEXT = "N"
END IF
IF L9.TEXT = "N" THEN
R9.TEXT = "N"
END IF
IF L10.TEXT = "N" THEN
R10.TEXT = "N"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.O
THEN
IF
L1.TEXT <> "O" AND L2.TEXT <> "O" AND L3.TEXT
<> "O" AND L4.TEXT <> "O" AND L5.TEXT <>
"O" AND L6.TEXT <> "O" AND L7.TEXT <>
"O" AND L8.TEXT <> "O" AND L9.TEXT <>
"O" AND L10.TEXT <> "O" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "O"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "O"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "O"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "O"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "O"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "O"
END IF
ELSE
IF L1.TEXT = "O" THEN
R1.TEXT = "O"
END IF
IF L2.TEXT = "O" THEN
R2.TEXT = "O"
END IF
IF L3.TEXT = "O" THEN
R3.TEXT = "O"
END IF
IF L4.TEXT = "O" THEN
R4.TEXT = "O"
END IF
IF L5.TEXT = "O" THEN
R5.TEXT = "O"
END IF
IF L6.TEXT = "O" THEN
R6.TEXT = "O"
END IF
IF L7.TEXT = "O" THEN
R7.TEXT = "O"
END IF
IF L8.TEXT = "O" THEN
R8.TEXT = "O"
END IF
IF L9.TEXT = "O" THEN
R9.TEXT = "O"
END IF
IF L10.TEXT = "O" THEN
R10.TEXT = "O"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.P
THEN
IF
L1.TEXT <> "P" AND L2.TEXT <> "P" AND L3.TEXT
<> "P" AND L4.TEXT <> "P" AND L5.TEXT <>
"P" AND L6.TEXT <> "P" AND L7.TEXT <>
"P" AND L8.TEXT <> "P" AND L9.TEXT <>
"P" AND L10.TEXT <> "P" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "P"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "P"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "P"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "P"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "P"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "P"
END IF
ELSE
IF L1.TEXT = "P" THEN
R1.TEXT = "P"
END IF
IF L2.TEXT = "P" THEN
R2.TEXT = "P"
END IF
IF L3.TEXT = "P" THEN
R3.TEXT = "P"
END IF
IF L4.TEXT = "P" THEN
R4.TEXT = "P"
END IF
IF L5.TEXT = "P" THEN
R5.TEXT = "P"
END IF
IF L6.TEXT = "P" THEN
R6.TEXT = "P"
END IF
IF L7.TEXT = "P" THEN
R7.TEXT = "P"
END IF
IF L8.TEXT = "P" THEN
R8.TEXT = "P"
END IF
IF L9.TEXT = "P" THEN
R9.TEXT = "P"
END IF
IF L10.TEXT = "P" THEN
R10.TEXT = "P"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.Q
THEN
IF
L1.TEXT <> "Q" AND L2.TEXT <> "Q" AND L3.TEXT
<> "Q" AND L4.TEXT <> "Q" AND L5.TEXT <>
"Q" AND L6.TEXT <> "Q" AND L7.TEXT <>
"Q" AND L8.TEXT <> "Q" AND L9.TEXT <>
"Q" AND L10.TEXT <> "Q" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "Q"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "Q"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "Q"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "Q"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "Q"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "Q"
END IF
ELSE
IF L1.TEXT = "Q" THEN
R1.TEXT = "Q"
END IF
IF L2.TEXT = "Q" THEN
R2.TEXT = "Q"
END IF
IF L3.TEXT = "Q" THEN
R3.TEXT = "Q"
END IF
IF L4.TEXT = "Q" THEN
R4.TEXT = "Q"
END IF
IF L5.TEXT = "Q" THEN
R5.TEXT = "Q"
END IF
IF L6.TEXT = "Q" THEN
R6.TEXT = "Q"
END IF
IF L7.TEXT = "Q" THEN
R7.TEXT = "Q"
END IF
IF L8.TEXT = "Q" THEN
R8.TEXT = "C"
END IF
IF L9.TEXT = "Q" THEN
R9.TEXT = "Q"
END IF
IF L10.TEXT = "Q" THEN
R10.TEXT = "Q"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.R
THEN
IF
L1.TEXT <> "R" AND L2.TEXT <> "R" AND L3.TEXT
<> "R" AND L4.TEXT <> "R" AND L5.TEXT <>
"R" AND L6.TEXT <> "R" AND L7.TEXT <>
"R" AND L8.TEXT <> "R" AND L9.TEXT <>
"R" AND L10.TEXT <> "R" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "R"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "R"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "R"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "R"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "R"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "R"
END IF
ELSE
IF L1.TEXT = "R" THEN
R1.TEXT = "R"
END IF
IF L2.TEXT = "R" THEN
R2.TEXT = "R"
END IF
IF L3.TEXT = "R" THEN
R3.TEXT = "R"
END IF
IF L4.TEXT = "R" THEN
R4.TEXT = "R"
END IF
IF L5.TEXT = "R" THEN
R5.TEXT = "R"
END IF
IF L6.TEXT = "R" THEN
R6.TEXT = "R"
END IF
IF L7.TEXT = "R" THEN
R7.TEXT = "R"
END IF
IF L8.TEXT = "R" THEN
R8.TEXT = "R"
END IF
IF L9.TEXT = "R" THEN
R9.TEXT = "R"
END IF
IF L10.TEXT = "R" THEN
R10.TEXT = "R"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.S
THEN
IF
L1.TEXT <> "S" AND L2.TEXT <> "S" AND L3.TEXT
<> "S" AND L4.TEXT <> "S" AND L5.TEXT <>
"S" AND L6.TEXT <> "S" AND L7.TEXT <>
"S" AND L8.TEXT <> "S" AND L9.TEXT <>
"S" AND L10.TEXT <> "S" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "S"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "S"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "S"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "S"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "S"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "S"
END IF
ELSE
IF L1.TEXT = "S" THEN
R1.TEXT = "S"
END IF
IF L2.TEXT = "S" THEN
R2.TEXT = "S"
END IF
IF L3.TEXT = "S" THEN
R3.TEXT = "S"
END IF
IF L4.TEXT = "S" THEN
R4.TEXT = "S"
END IF
IF L5.TEXT = "S" THEN
R5.TEXT = "S"
END IF
IF L6.TEXT = "S" THEN
R6.TEXT = "S"
END IF
IF L7.TEXT = "S" THEN
R7.TEXT = "S"
END IF
IF L8.TEXT = "S" THEN
R8.TEXT = "S"
END IF
IF L9.TEXT = "S" THEN
R9.TEXT = "S"
END IF
IF L10.TEXT = "S" THEN
R10.TEXT = "S"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.T
THEN
IF
L1.TEXT <> "T" AND L2.TEXT <> "T" AND L3.TEXT
<> "T" AND L4.TEXT <> "T" AND L5.TEXT <>
"T" AND L6.TEXT <> "T" AND L7.TEXT <>
"T" AND L8.TEXT <> "T" AND L9.TEXT <> "T"
AND L10.TEXT <> "T" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "T"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "T"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "T"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "T"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "T"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "T"
END IF
ELSE
IF L1.TEXT = "T" THEN
R1.TEXT = "T"
END IF
IF L2.TEXT = "T" THEN
R2.TEXT = "T"
END IF
IF L3.TEXT = "T" THEN
R3.TEXT = "T"
END IF
IF L4.TEXT = "T" THEN
R4.TEXT = "T"
END IF
IF L5.TEXT = "T" THEN
R5.TEXT = "T"
END IF
IF L6.TEXT = "T" THEN
R6.TEXT = "T"
END IF
IF L7.TEXT = "T" THEN
R7.TEXT = "T"
END IF
IF L8.TEXT = "T" THEN
R8.TEXT = "T"
END IF
IF L9.TEXT = "T" THEN
R9.TEXT = "T"
END IF
IF L10.TEXT = "T" THEN
R10.TEXT = "T"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.U
THEN
IF
L1.TEXT <> "U" AND L2.TEXT <> "U" AND L3.TEXT
<> "U" AND L4.TEXT <> "U" AND L5.TEXT <>
"U" AND L6.TEXT <> "U" AND L7.TEXT <>
"U" AND L8.TEXT <> "U" AND L9.TEXT <>
"U" AND L10.TEXT <> "U" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "U"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "U"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "U"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "U"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "U"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "U"
END IF
ELSE
IF L1.TEXT = "U" THEN
R1.TEXT = "U"
END IF
IF L2.TEXT = "U" THEN
R2.TEXT = "U"
END IF
IF L3.TEXT = "U" THEN
R3.TEXT = "U"
END IF
IF L4.TEXT = "U" THEN
R4.TEXT = "U"
END IF
IF L5.TEXT = "U" THEN
R5.TEXT = "U"
END IF
IF L6.TEXT = "U" THEN
R6.TEXT = "U"
END IF
IF L7.TEXT = "U" THEN
R7.TEXT = "U"
END IF
IF L8.TEXT = "U" THEN
R8.TEXT = "U"
END IF
IF L9.TEXT = "U" THEN
R9.TEXT = "U"
END IF
IF L10.TEXT = "U" THEN
R10.TEXT = "U"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.V
THEN
IF
L1.TEXT <> "V" AND L2.TEXT <> "V" AND L3.TEXT
<> "V" AND L4.TEXT <> "V" AND L5.TEXT <>
"V" AND L6.TEXT <> "V" AND L7.TEXT <>
"V" AND L8.TEXT <> "V" AND L9.TEXT <>
"V" AND L10.TEXT <> "V" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "V"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "V"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "V"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "V"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "V"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "V"
END IF
ELSE
IF L1.TEXT = "V" THEN
R1.TEXT = "V"
END IF
IF L2.TEXT = "V" THEN
R2.TEXT = "V"
END IF
IF L3.TEXT = "V" THEN
R3.TEXT = "V"
END IF
IF L4.TEXT = "V" THEN
R4.TEXT = "V"
END IF
IF L5.TEXT = "V" THEN
R5.TEXT = "V"
END IF
IF L6.TEXT = "V" THEN
R6.TEXT = "V"
END IF
IF L7.TEXT = "V" THEN
R7.TEXT = "V"
END IF
IF L8.TEXT = "V" THEN
R8.TEXT = "V"
END IF
IF L9.TEXT = "V" THEN
R9.TEXT = "V"
END IF
IF L10.TEXT = "V" THEN
R10.TEXT = "V"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.W
THEN
IF
L1.TEXT <> "W" AND L2.TEXT <> "W" AND L3.TEXT
<> "W" AND L4.TEXT <> "W" AND L5.TEXT <>
"W" AND L6.TEXT <> "W" AND L7.TEXT <>
"W" AND L8.TEXT <> "W" AND L9.TEXT <>
"W" AND L10.TEXT <> "W" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "W"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "W"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "W"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "W"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "W"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "W"
END IF
ELSE
IF L1.TEXT = "W" THEN
R1.TEXT = "W"
END IF
IF L2.TEXT = "W" THEN
R2.TEXT = "W"
END IF
IF L3.TEXT = "W" THEN
R3.TEXT = "W"
END IF
IF L4.TEXT = "W" THEN
R4.TEXT = "W"
END IF
IF L5.TEXT = "W" THEN
R5.TEXT = "W"
END IF
IF L6.TEXT = "W" THEN
R6.TEXT = "W"
END IF
IF L7.TEXT = "W" THEN
R7.TEXT = "W"
END IF
IF L8.TEXT = "W" THEN
R8.TEXT = "W"
END IF
IF L9.TEXT = "W" THEN
R9.TEXT = "W"
END IF
IF L10.TEXT = "W" THEN
R10.TEXT = "W"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.X
THEN
IF
L1.TEXT <> "X" AND L2.TEXT <> "X" AND L3.TEXT
<> "X" AND L4.TEXT <> "X" AND L5.TEXT <>
"X" AND L6.TEXT <> "X" AND L7.TEXT <>
"X" AND L8.TEXT <> "X" AND L9.TEXT <>
"X" AND L10.TEXT <> "X" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "X"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "X"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "X"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "X"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "X"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "X"
END IF
ELSE
IF L1.TEXT = "X" THEN
R1.TEXT = "X"
END IF
IF L2.TEXT = "X" THEN
R2.TEXT = "X"
END IF
IF L3.TEXT = "X" THEN
R3.TEXT = "X"
END IF
IF L4.TEXT = "X" THEN
R4.TEXT = "X"
END IF
IF L5.TEXT = "X" THEN
R5.TEXT = "X"
END IF
IF L6.TEXT = "X" THEN
R6.TEXT = "X"
END IF
IF L7.TEXT = "X" THEN
R7.TEXT = "X"
END IF
IF L8.TEXT = "X" THEN
R8.TEXT = "X"
END IF
IF L9.TEXT = "X" THEN
R9.TEXT = "X"
END IF
IF L10.TEXT = "X" THEN
R10.TEXT = "X"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.Y
THEN
IF
L1.TEXT <> "Y" AND L2.TEXT <> "Y" AND L3.TEXT
<> "Y" AND L4.TEXT <> "Y" AND L5.TEXT <>
"Y" AND L6.TEXT <> "Y" AND L7.TEXT <>
"Y" AND L8.TEXT <> "Y" AND L9.TEXT <>
"Y" AND L10.TEXT <> "Y" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "Y"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "Y"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "Y"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "Y"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "Y"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "Y"
END IF
ELSE
IF L1.TEXT = "Y" THEN
R1.TEXT = "Y"
END IF
IF L2.TEXT = "Y" THEN
R2.TEXT = "Y"
END IF
IF L3.TEXT = "Y" THEN
R3.TEXT = "Y"
END IF
IF L4.TEXT = "Y" THEN
R4.TEXT = "Y"
END IF
IF L5.TEXT = "Y" THEN
R5.TEXT = "Y"
END IF
IF L6.TEXT = "Y" THEN
R6.TEXT = "Y"
END IF
IF L7.TEXT = "Y" THEN
R7.TEXT = "Y"
END IF
IF L8.TEXT = "Y" THEN
R8.TEXT = "Y"
END IF
IF L9.TEXT = "Y" THEN
R9.TEXT = "Y"
END IF
IF L10.TEXT = "Y" THEN
R10.TEXT = "Y"
END IF
END IF
END IF
IF E.KEYDATA = KEYS.Z
THEN
IF
L1.TEXT <> "Z" AND L2.TEXT <> "Z" AND L3.TEXT
<> "Z" AND L4.TEXT <> "Z" AND L5.TEXT <>
"Z" AND L6.TEXT <> "Z" AND L7.TEXT <>
"Z" AND L8.TEXT <> "Z" AND L9.TEXT <>
"Z" AND L10.TEXT <> "Z" THEN
CONTADOR = LABEL2.TEXT + 1
LABEL2.TEXT = CONTADOR
IF LABEL2.TEXT = 1 THEN
E1.TEXT = "Z"
END IF
IF LABEL2.TEXT = 2 THEN
E2.TEXT = "Z"
END IF
IF LABEL2.TEXT = 3 THEN
E3.TEXT = "Z"
END IF
IF LABEL2.TEXT = 4 THEN
E4.TEXT = "Z"
END IF
IF LABEL2.TEXT = 5 THEN
E5.TEXT = "Z"
END IF
IF LABEL2.TEXT = 6 THEN
E6.TEXT = "Z"
END IF
ELSE
IF L1.TEXT = "Z" THEN
R1.TEXT = "Z"
END IF
IF L2.TEXT = "Z" THEN
R2.TEXT = "Z"
END IF
IF L3.TEXT = "Z" THEN
R3.TEXT = "Z"
END IF
IF L4.TEXT = "Z" THEN
R4.TEXT = "Z"
END IF
IF L5.TEXT = "Z" THEN
R5.TEXT = "Z"
END IF
IF L6.TEXT = "Z" THEN
R6.TEXT = "Z"
END IF
IF L7.TEXT = "Z" THEN
R7.TEXT = "Z"
END IF
IF L8.TEXT = "Z" THEN
R8.TEXT = "Z"
END IF
IF L9.TEXT = "Z" THEN
R9.TEXT = "Z"
END IF
IF L10.TEXT = "Z" THEN
R10.TEXT = "Z"
END IF
END IF
END IF
IF LABEL2.TEXT = 0 THEN
PICTUREBOX7.VISIBLE = TRUE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
PICTUREBOX6.VISIBLE = FALSE
END IF
IF LABEL2.TEXT = 1 THEN
PICTUREBOX1.VISIBLE = TRUE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX7.VISIBLE = FALSE
END IF
IF LABEL2.TEXT = 2 THEN
PICTUREBOX2.VISIBLE = TRUE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX7.VISIBLE = FALSE
END IF
IF LABEL2.TEXT = 3 THEN
PICTUREBOX3.VISIBLE = TRUE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX7.VISIBLE = FALSE
END IF
IF LABEL2.TEXT = 4 THEN
PICTUREBOX4.VISIBLE = TRUE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX7.VISIBLE = FALSE
END IF
IF LABEL2.TEXT = 5 THEN
PICTUREBOX5.VISIBLE = TRUE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX7.VISIBLE = FALSE
END IF
IF LABEL2.TEXT = 6 THEN
PICTUREBOX6.VISIBLE = TRUE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE
= FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
PICTUREBOX7.VISIBLE = FALSE
MSGBOX("PERDISTE...")
PICTUREBOX7.VISIBLE = TRUE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
LABEL2.TEXT = 0
L1.TEXT =
""
L2.TEXT =
""
L3.TEXT =
""
L4.TEXT =
""
L5.TEXT =
""
L6.TEXT =
""
L7.TEXT =
""
L8.TEXT =
""
L9.TEXT =
""
L10.TEXT
= ""
R1.TEXT =
""
R2.TEXT =
""
R3.TEXT =
""
R4.TEXT =
""
R5.TEXT =
""
R6.TEXT =
""
R7.TEXT =
""
R8.TEXT =
""
R9.TEXT =
""
R10.TEXT
= ""
E1.TEXT =
""
E2.TEXT =
""
E3.TEXT =
""
E4.TEXT =
""
E5.TEXT =
""
E6.TEXT =
""
TIMER1.START()
LABEL2.VISIBLE = FALSE
LABEL3.VISIBLE = FALSE
ELSE
IF
L1.TEXT = R1.TEXT AND L2.TEXT = R2.TEXT AND L3.TEXT = R3.TEXT AND L4.TEXT =
R4.TEXT AND L5.TEXT = R5.TEXT AND L6.TEXT = R6.TEXT AND L7.TEXT = R7.TEXT AND
L8.TEXT = R8.TEXT AND L9.TEXT = R9.TEXT AND L10.TEXT = R10.TEXT THEN
MSGBOX("GANASTE!!!")
PICTUREBOX7.VISIBLE = TRUE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
LABEL2.TEXT = 0
L1.TEXT = ""
L2.TEXT = ""
L3.TEXT = ""
L4.TEXT = ""
L5.TEXT = ""
L6.TEXT = ""
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT = ""
R1.TEXT = ""
R2.TEXT = ""
R3.TEXT = ""
R4.TEXT = ""
R5.TEXT = ""
R6.TEXT = ""
R7.TEXT = ""
R8.TEXT = ""
R9.TEXT = ""
R10.TEXT = ""
E1.TEXT = ""
E2.TEXT = ""
E3.TEXT = ""
E4.TEXT = ""
E5.TEXT = ""
E6.TEXT = ""
TIMER1.START()
LABEL2.VISIBLE = FALSE
LABEL3.VISIBLE = FALSE
END IF
END IF
END SUB
PRIVATE SUB BUTTON3_CLICK(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES BUTTON3.CLICK
L1.TEXT = ""
L2.TEXT = ""
L3.TEXT = ""
L4.TEXT = ""
L5.TEXT = ""
L6.TEXT = ""
L7.TEXT = ""
L8.TEXT = ""
L9.TEXT = ""
L10.TEXT =
""
E1.TEXT = ""
E2.TEXT = ""
E3.TEXT = ""
E4.TEXT = ""
E5.TEXT = ""
E6.TEXT =
""
R1.TEXT = ""
R2.TEXT = ""
R3.TEXT = ""
R4.TEXT = ""
R5.TEXT = ""
R6.TEXT = ""
R7.TEXT = ""
R8.TEXT = ""
R9.TEXT = ""
R10.TEXT = ""
FORM2.T1.TEXT =
""
FORM2.T2.TEXT =
""
FORM2.T3.TEXT =
""
FORM2.T4.TEXT =
""
FORM2.T5.TEXT =
""
FORM2.T6.TEXT =
""
FORM2.T7.TEXT =
""
FORM2.T8.TEXT =
""
FORM2.T9.TEXT =
""
FORM2.T10.TEXT =
""
FORM2.SHOW()
TIMER1.START()
END SUB
PRIVATE SUB
RADIOBUTTON1_CHECKEDCHANGED(BYVAL SENDER AS SYSTEM.OBJECT, BYVAL E AS
SYSTEM.EVENTARGS) HANDLES RADIOBUTTON1.CHECKEDCHANGED,
RADIOBUTTON2.CHECKEDCHANGED
IF RADIOBUTTON2.CHECKED
= TRUE THEN
PICTUREBOX7.VISIBLE = TRUE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX2.VISIBLE = FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE
= FALSE
LABEL2.VISIBLE
= FALSE
LABEL3.VISIBLE = FALSE
BUTTON3.VISIBLE
= TRUE
BUTTON1.VISIBLE = FALSE
L1.TEXT =
""
L2.TEXT =
""
L3.TEXT =
""
L4.TEXT =
""
L5.TEXT =
""
L6.TEXT =
""
L7.TEXT =
""
L8.TEXT =
""
L9.TEXT =
""
L10.TEXT =
""
E1.TEXT =
""
E2.TEXT =
""
E3.TEXT =
""
E4.TEXT =
""
E5.TEXT =
""
E6.TEXT =
""
R1.TEXT =
""
R2.TEXT =
""
R3.TEXT =
""
R4.TEXT =
""
R5.TEXT =
""
R6.TEXT =
""
R7.TEXT =
""
R8.TEXT =
""
R9.TEXT =
""
R10.TEXT
= ""
TIMER1.START()
ELSE
LABEL2.VISIBLE = FALSE
LABEL3.VISIBLE = FALSE
PICTUREBOX7.VISIBLE = TRUE
PICTUREBOX6.VISIBLE = FALSE
PICTUREBOX1.VISIBLE = FALSE
PICTUREBOX2.VISIBLE
= FALSE
PICTUREBOX3.VISIBLE = FALSE
PICTUREBOX4.VISIBLE = FALSE
PICTUREBOX5.VISIBLE = FALSE
BUTTON1.VISIBLE = TRUE
BUTTON3.VISIBLE = FALSE
TIMER1.START()
L1.TEXT =
""
L2.TEXT =
""
L3.TEXT =
""
L4.TEXT =
""
L5.TEXT =
""
L6.TEXT =
""
L7.TEXT =
""
L8.TEXT =
""
L9.TEXT =
""
L10.TEXT
= ""
E1.TEXT =
""
E2.TEXT =
""
E3.TEXT =
""
E4.TEXT =
""
E5.TEXT =
""
E6.TEXT =
""
R1.TEXT =
""
R2.TEXT =
""
R3.TEXT =
""
R4.TEXT =
""
R5.TEXT =
""
R6.TEXT =
""
R7.TEXT =
""
R8.TEXT =
""
R9.TEXT =
""
R10.TEXT
= ""
LABEL2.TEXT = 0
TIMER1.START()
END IF
END SUB
PRIVATE SUB BUTTON2_CLICK_1(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES BUTTON2.CLICK
FORM3.SHOW()
END SUB
PRIVATE SUB L1_CLICK(BYVAL SENDER AS
SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES L1.CLICK
END SUB
END CLASS
'FORM2:
PUBLIC CLASS FORM2
PRIVATE SUB BUTTON1_CLICK(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES BUTTON1.CLICK
IF T1.TEXT =
"" AND T2.TEXT = "" AND T3.TEXT = "" AND T4.TEXT
= "" AND T5.TEXT = "" AND T6.TEXT = "" AND
T7.TEXT = "" AND T8.TEXT = "" AND T9.TEXT = ""
AND T10.TEXT = "" THEN
MSGBOX("INDIQUE
LA PALABRA...")
ELSE
FORM1.L1.TEXT = T1.TEXT
FORM1.L2.TEXT =
T2.TEXT
FORM1.L3.TEXT = T3.TEXT
FORM1.L4.TEXT = T4.TEXT
FORM1.L5.TEXT = T5.TEXT
FORM1.L6.TEXT = T6.TEXT
FORM1.L7.TEXT = T7.TEXT
FORM1.L8.TEXT = T8.TEXT
FORM1.L9.TEXT = T9.TEXT
FORM1.L10.TEXT = T10.TEXT
FORM1.LABEL2.VISIBLE = TRUE
FORM1.LABEL3.VISIBLE = TRUE
IF
FORM1.L1.TEXT <> "" THEN
FORM1.R1.TEXT = "_"
ELSE
FORM1.R1.TEXT = ""
END IF
IF
FORM1.L2.TEXT <> "" THEN
FORM1.R2.TEXT = "_"
ELSE
FORM1.R2.TEXT = ""
END IF
IF FORM1.L3.TEXT
<> "" THEN
FORM1.R3.TEXT = "_"
ELSE
FORM1.R3.TEXT = ""
END IF
IF
FORM1.L4.TEXT <> "" THEN
FORM1.R4.TEXT = "_"
ELSE
FORM1.R4.TEXT = ""
END IF
IF
FORM1.L5.TEXT <> "" THEN
FORM1.R5.TEXT = "_"
ELSE
FORM1.R5.TEXT = ""
END IF
IF
FORM1.L6.TEXT <> "" THEN
FORM1.R6.TEXT = "_"
ELSE
FORM1.R6.TEXT = ""
END IF
IF
FORM1.L7.TEXT <> "" THEN
FORM1.R7.TEXT = "_"
ELSE
FORM1.R7.TEXT = ""
END IF
IF
FORM1.L8.TEXT <> "" THEN
FORM1.R8.TEXT = "_"
ELSE
FORM1.R8.TEXT = ""
END IF
IF
FORM1.L9.TEXT <> "" THEN
FORM1.R9.TEXT = "_"
ELSE
FORM1.R9.TEXT = ""
END IF
IF
FORM1.L10.TEXT <> "" THEN
FORM1.R10.TEXT = "_"
ELSE
FORM1.R10.TEXT = ""
END IF
ME.HIDE()
END IF
END SUB
PRIVATE SUB T1_KEYPRESS(BYVAL SENDER
AS OBJECT, BYVAL E AS SYSTEM.WINDOWS.FORMS.KEYPRESSEVENTARGS) HANDLES T1.KEYPRESS,
T2.KEYPRESS, T3.KEYPRESS, T4.KEYPRESS, T5.KEYPRESS, T6.KEYPRESS, T7.KEYPRESS,
T8.KEYPRESS, T9.KEYPRESS, T10.KEYPRESS
'SOLO NUMEROS Y
CARACTERES Q COLOKES ENTRE LAS COMILLAS :D//
IF
INSTR("ABCDEFGHIJKLMNOPQRSTUVWXYZ" & CHR(8), E.KEYCHAR) = 0 THEN
E.KEYCHAR
= ""
END IF
END SUB
PRIVATE SUB T1_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T1.TEXTCHANGED
IF T1.MAXLENGTH = 1
THEN
T2.SELECT()
END IF
END SUB
PRIVATE SUB T2_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T2.TEXTCHANGED
IF T2.MAXLENGTH = 1
THEN
T3.SELECT()
END IF
END SUB
PRIVATE SUB T3_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T3.TEXTCHANGED
IF T3.MAXLENGTH = 1
THEN
T4.SELECT()
END IF
END SUB
PRIVATE SUB T4_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T4.TEXTCHANGED
IF T4.MAXLENGTH = 1
THEN
T5.SELECT()
END IF
END SUB
PRIVATE SUB T5_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T5.TEXTCHANGED
IF T5.MAXLENGTH = 1
THEN
T6.SELECT()
END IF
END SUB
PRIVATE SUB T6_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T6.TEXTCHANGED
IF T6.MAXLENGTH = 1
THEN
T7.SELECT()
END IF
END SUB
PRIVATE SUB T7_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T7.TEXTCHANGED
IF T7.MAXLENGTH = 1
THEN
T8.SELECT()
END IF
END SUB
PRIVATE SUB T8_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T8.TEXTCHANGED
IF T8.MAXLENGTH = 1
THEN
T9.SELECT()
END IF
END SUB
PRIVATE SUB T9_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T9.TEXTCHANGED
IF T9.MAXLENGTH = 1
THEN
T10.SELECT()
END IF
END SUB
PRIVATE SUB T10_KEYDOWN(BYVAL SENDER
AS OBJECT, BYVAL E AS SYSTEM.WINDOWS.FORMS.KEYEVENTARGS) HANDLES T10.KEYDOWN,
T1.KEYDOWN, T2.KEYDOWN, T3.KEYDOWN, T4.KEYDOWN, T5.KEYDOWN, T6.KEYDOWN,
T7.KEYDOWN, T8.KEYDOWN, T9.KEYDOWN
IF E.KEYDATA =
KEYS.DELETE THEN
T1.TEXT =
""
T2.TEXT =
""
T3.TEXT =
""
T3.TEXT =
""
T3.TEXT =
""
T3.TEXT =
""
T3.TEXT =
""
T3.TEXT =
""
T3.TEXT =
""
T10.TEXT
= ""
END IF
END SUB
PRIVATE SUB T10_TEXTCHANGED(BYVAL
SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM.EVENTARGS) HANDLES T10.TEXTCHANGED
IF T10.MAXLENGTH = 1
THEN
T1.SELECT()
END IF
END SUB
END CLASS
Hey donde va cada parte del codigo porque pusiste un timer
ResponderEliminar