Taller de Visual Basic Juego Del Ahorcado

TALLER DE VISUAL BASIC JUEGO DEL AHORCADO

Command1

Command3

form1 Text1

Line10(0)

Line2

Frame1

Line3 Shape2 0

Command2

1

Line9 Line8 Line7 Line1

Es una matriz

Line4 Line6

Line5

Shape1

Dim j As Byte

partes = 1

Dim n As Integer

letrasm

Dim espacio As Integer

borrar

Dim partes As Byte

End Sub

Dim error As Byte

Private Sub Command2_Click(Index Command2_Click(Index As

Dim gano As Byte

Integer)

Private Sub Command1_Click() Command1_Click() For For j = 1 To To n - 1 Unload Label1(j)

For For j = 0 To To n - 1 If Command2(In Command2(Index).C dex).Captio aption n= Label1(j).Caption Then

Unload Line10(j)

Label1(j).Visible = True

Label1(0).Visible = False

error = 1

Line10(0).Visible = False

gano = gano + 1

Next j espacio = 0

Command2(Index).Enabled Command2(Index).Enabl ed = False End If 

Text1.Text = ""

Next j

Text1.Enabled = True

If gano = n Then

Text1.Visible = True

MsgBox "GANASTE"

Text1.SetFocus

Command1_Click

Command1.Enabled = False

'partes = 1

gano = 0

End If 

If error = 0 Then muneco End If  error = 0

End Sub Sub muneco() Select Case partes Case 1

End Sub Private Sub Form_Load()

Shape2.Visible = True Case 2

Label1(0).Visible = False Line10(0).Visible = False

Line4.Visible = True Case 3

Command1.Enabled = False partes = 1

Line5.Visible = True Case 4

letrasm

End Sub

Line6.Visible = True Case 5

Private Sub Text1_KeyPress(KeyAscii As Integer)

Line7.Visible = True Case 6

If KeyAscii = 13 Then If Text1.Text = "" Then Exit Sub

Line8.Visible = True Case 7

Text1.Enabled = False

Line9.Visible = True

Label1(0).Visible = True

MsgBox "PERDISTE"

Line10(0).Visible = True

Command1_Click

n = Len(Text1.Text) For j = 1 To n - 1

End Select partes = partes + 1

espacio = espacio + 700

End Sub

Load Label1(j)

Sub borrar()

Load Line10(j)

Shape2.Visible = False

Label1(j).Visible = True

Line4.Visible = False

Line10(j).Visible = True

Line5.Visible = False

Label1(j).Left = Label1(j).Left + espacio

Line6.Visible = False

Line10(j).X1 = Line10(j).X1 + espacio

Line7.Visible = False

Line10(j).X2 = Line10(j).X2 + espacio

Line8.Visible = False

Next j For j = 1 To n

Line9.Visible = False

End Sub

Label1(j - 1).Visible = False

Sub letrasm()

Label1(j - 1).Caption = Mid(Text1.Text,

For j = 0 To 26

 j, 1)

Command2(j).Enabled = False Next j

Next j

Label2.Caption = "La palabra secreta

End Sub

posee " & n & " letras"

Sub letras()

Text1.Visible = False

For j = 0 To 26

Command1.Enabled = True

Command2(j).Enabled = True

letras

Next j

End If 

End Sub