AndreVSerafim
Power Member
Boas pessoal eu ainda sou um pouco noob a trabalhar com visual basic mas ja tenho um projecto pa escola que é fazer o jogo da forca, tenho que o entregar ate 2feira e agora encalhei numa parte que nao consigo resolver de maneira nehuma! Sera que alguem me pode ajudar? O meu problema esta em fazer o modo de 2 jogadores e em fazer random as palavras...
Vou vos deixar aqui o codigo que tenho ate agora mas se alguem precisar de mais alguma coisa podem me adicionar no mail [email protected] assim e mais facil de vos mandar o que tenho e voces verem!
Bem pessoal isso e tudo o que tenho por agora...mas nao consigo fazer mais, tou mesmo a entrar em desespero! Se alguem me puder ajudar agradecia muito Fico a espera de respostas!
Vou vos deixar aqui o codigo que tenho ate agora mas se alguem precisar de mais alguma coisa podem me adicionar no mail [email protected] assim e mais facil de vos mandar o que tenho e voces verem!
Código:
-----------------------------------------menu----------------------------------------------
Public Class Form1
Public jgd, b, l As Integer
Dim i As Integer
Public v As String
Private Sub pai()
Static jgd As Integer
Dim pai(0 To 10) As String
Dim c, a As Integer
pai(1) = "ESPANHA"
pai(2) = "ANGOLA"
pai(3) = "BRAZIL"
pai(4) = "FRANCA"
pai(5) = "RUSSIA"
pai(6) = "PORTUGAL"
pai(7) = "DINAMARCA"
pai(8) = "ROMENIA"
pai(9) = "AMERICA"
pai(10) = "ITALIA"
Randomize()
c = Int((Rnd() * 9) + 1)
v = pai(c)
a = Len(v)
For i = 1 To a
form2.le.Text = form2.le.Text + "_"
form2.Label1.Text = ("A palavra tem " & Val(a) & " letras")
Next
form2.Show()
End Sub
Private Sub SaidaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaidaToolStripMenuItem.Click
End
End Sub
Private Sub PaisesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaisesToolStripMenuItem.Click
pai()
form2.Show()
End Sub
Private Sub CidadesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CidadesToolStripMenuItem.Click
Dim cidades(0 To 10) As String
Dim c, a As Integer
Dim v As String
cidades(1) = "Coimbra"
cidades(2) = "Faro"
cidades(3) = "Leiria"
cidades(4) = "Bragança"
cidades(5) = "Setúbal"
cidades(6) = "Braga"
cidades(7) = "Covilhã"
cidades(8) = "Porto"
cidades(9) = "Lisboa"
cidades(10) = "Serpa"
Randomize()
c = Int((Rnd() * 9) + 1)
v = cidades(c)
a = Len(v)
For i = 1 To a
form2.le.Text = form2.le.Text + "_"
form2.Label1.Text = ("A palavra tem " & Val(a) & " letras")
Next
form2.Label2.Text = v
form2.Show()
End Sub
Private Sub AnimaisToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnimaisToolStripMenuItem.Click
Dim ani(0 To 10) As String
Dim c, a As Integer
Dim v As String
ani(1) = "cão"
ani(2) = "Ovelha"
ani(3) = "Crocodilo"
ani(4) = "Cobra"
ani(5) = "Cavalo"
ani(6) = "Rã"
ani(7) = "Coruja"
ani(8) = "Passaro"
ani(9) = "Lontra"
ani(10) = "Cabrito"
Randomize()
c = Int((Rnd() * 9) + 1)
v = ani(c)
a = Len(v)
For i = 1 To a
form2.le.Text = form2.le.Text + " _ "
form2.Label1.Text = ("A palavra tem " & Val(a) & " letras")
Next
form2.Label2.Text = v
form2.Show()
End Sub
Private Sub AjudaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AjudaToolStripMenuItem.Click
MsgBox("dslg")
End Sub
Private Sub PaisesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaisesToolStripMenuItem1.Click
Dim pai(0 To 10) As String
Dim c, a As Integer
Dim v As String
pai(1) = "Espanha"
pai(2) = "Angola"
pai(3) = "Brazil"
pai(4) = "França"
pai(5) = "Russia"
pai(6) = "Portugal"
pai(7) = "Dinamarca"
pai(8) = "Roménia"
pai(9) = "América"
pai(10) = "Itália"
Randomize()
c = Int((Rnd() * 9) + 1)
v = pai(c)
a = Len(v)
For i = 1 To a
form2.le.Text = form2.le.Text + "_"
form2.Label1.Text = ("A palavra tem " & Val(a) & " letras")
Next
form2.Label2.Text = v
form2.Show()
End Sub
Private Sub CidadesPortuguêsasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CidadesPortuguêsasToolStripMenuItem.Click
Dim cidades(0 To 10) As String
Dim c, a As Integer
Dim v As String
cidades(1) = "Coimbra"
cidades(2) = "Faro"
cidades(3) = "Leiria"
cidades(4) = "Bragança"
cidades(5) = "Setúbal"
cidades(6) = "Braga"
cidades(7) = "Covilhã"
cidades(8) = "Porto"
cidades(9) = "Lisboa"
cidades(10) = "Serpa"
Randomize()
c = Int((Rnd() * 9) + 1)
v = cidades(c)
a = Len(v)
For i = 1 To a
form2.le.Text = form2.le.Text + "_"
form2.Label1.Text = ("A palavra tem " & Val(a) & " letras")
Next
form2.Label2.Text = v
form2.Show()
End Sub
Private Sub AnimaisToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnimaisToolStripMenuItem1.Click
Dim ani(0 To 10) As String
Dim c, a As Integer
Dim v As String
ani(1) = "cão"
ani(2) = "Ovelha"
ani(3) = "Crocodilo"
ani(4) = "Cobra"
ani(5) = "Cavalo"
ani(6) = "Rã"
ani(7) = "Coruja"
ani(8) = "Passaro"
ani(9) = "Lontra"
ani(10) = "Cabrito"
Randomize()
c = Int((Rnd() * 9) + 1)
v = ani(c)
a = Len(v)
For i = 1 To a
form2.le.Text = form2.le.Text + "_"
form2.Label1.Text = ("A palavra tem " & Val(a) & " letras")
Next
form2.Label2.Text = v
form2.Show()
End Sub
End Class
--------------------------------------------------------------------------------------------
-----------------------------------------form2----------------------------------------------
Public Class form2
Public b, p, i, v As Integer
Dim d
Dim a, j As String
Dim c() As Char
Private Sub button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
For i = 0 To Len(a) - 1
If Button1.Text = a(i) Then
c(i) = Button1.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Enabled = False
For i = 0 To Len(a) - 1
If Button2.Text = a(i) Then
c(i) = Button2.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Enabled = False
For i = 0 To Len(a) - 1
If Button3.Text = a(i) Then
c(i) = Button3.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button4.Enabled = False
For i = 0 To Len(a) - 1
If Button4.Text = a(i) Then
c(i) = Button4.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Button5.Enabled = False
For i = 0 To Len(a) - 1
If Button5.Text = a(i) Then
c(i) = Button5.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Button6.Enabled = False
For i = 0 To Len(a) - 1
If Button6.Text = a(i) Then
c(i) = Button6.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Button7.Enabled = False
For i = 0 To Len(a) - 1
If Button7.Text = a(i) Then
c(i) = Button7.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Button8.Enabled = False
For i = 0 To Len(a) - 1
If Button8.Text = a(i) Then
c(i) = Button8.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Button9.Enabled = False
For i = 0 To Len(a) - 1
If Button9.Text = a(i) Then
c(i) = Button9.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Button10.Enabled = False
For i = 0 To Len(a) - 1
If Button10.Text = a(i) Then
c(i) = Button10.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Button11.Enabled = False
For i = 0 To Len(a) - 1
If Button11.Text = a(i) Then
c(i) = Button11.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Button12.Enabled = False
For i = 0 To Len(a) - 1
If Button12.Text = a(i) Then
c(i) = Button12.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Button13.Enabled = False
For i = 0 To Len(a) - 1
If Button13.Text = a(i) Then
c(i) = Button13.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Button14.Enabled = False
For i = 0 To Len(a) - 1
If Button14.Text = a(i) Then
c(i) = Button14.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Button15.Enabled = False
For i = 0 To Len(a) - 1
If Button15.Text = a(i) Then
c(i) = Button15.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Button16.Enabled = False
For i = 0 To Len(a) - 1
If Button16.Text = a(i) Then
c(i) = Button16.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Button17.Enabled = False
For i = 0 To Len(a) - 1
If Button17.Text = a(i) Then
c(i) = Button17.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
Button18.Enabled = False
For i = 0 To Len(a) - 1
If Button18.Text = a(i) Then
c(i) = Button18.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Button19.Enabled = False
For i = 0 To Len(a) - 1
If Button19.Text = a(i) Then
c(i) = Button19.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
Button20.Enabled = False
For i = 0 To Len(a) - 1
If Button20.Text = a(i) Then
c(i) = Button20.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Button21.Enabled = False
For i = 0 To Len(a) - 1
If Button21.Text = a(i) Then
c(i) = Button21.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
Button22.Enabled = False
For i = 0 To Len(a) - 1
If Button22.Text = a(i) Then
c(i) = Button22.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Button23.Enabled = False
For i = 0 To Len(a) - 1
If Button23.Text = a(i) Then
c(i) = Button23.Text
End If
Next
le.Text = c
If c = a Then
lpont.Text = Val(lpont.Text) + 1
d = MsgBox("Ganhou! Quer continuar?", MsgBoxStyle.YesNo, "Ganhou!")
If d = vbNo Then
Me.Close()
Else
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
le.Text = ""
End If
End If
End Sub
Private Sub SaidaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaidaToolStripMenuItem.Click
End
End Sub
Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
a = Form1.v
c = le.Text
End Sub
End Class
--------------------------------------------------------------------------------------------
Bem pessoal isso e tudo o que tenho por agora...mas nao consigo fazer mais, tou mesmo a entrar em desespero! Se alguem me puder ajudar agradecia muito Fico a espera de respostas!
Última edição pelo moderador: