Dezembro 2017
SegTerQuaQuiSexSabDom
    123
45678910
11121314151617
18192021222324
25262728293031

Calendário Calendário

Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Últimos assuntos
» matrizes em c
2011-11-10, 13:52 por allanyo

» matriz em c
2011-11-08, 19:02 por allanyo

» matriz em c
2011-11-08, 19:02 por allanyo

» [FUNÇÃO] C
2011-09-25, 15:33 por lucas150992

» Comprare Viagra. da mulher viagra generico
2011-08-04, 09:16 por Convidado

Navegação
 Portal
 Índice
 Membros
 Perfil
 FAQ
 Buscar

ERROS E ACERTOS - PROJETO EM BANCA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

ERROS E ACERTOS - PROJETO EM BANCA

Mensagem por Edward Phoenix em 2010-09-26, 15:35

PESSOAL!.
BLZ?
BOM AGORA QUE TEMRINOU O PROJETO EM BANCA PRA QUEM SE INTERESSA EM ESTUDAR AS VALIDAÇOES DE STRINGS EM VB.SEGUE O CODIGO.COMENTADO....


--


Public Class frmain
Dim palavras(10, 2) As String
Dim jogador(5, 3) As String
Dim esc As Integer
Dim LETRAS As String
Dim verificador As String
Dim existe As Boolean
Dim credito_ajuda As Integer
Dim g As Integer
Dim total_testados As Integer
Dim total_erros As Integer
Dim total_acertos As Integer
Dim fatal As Boolean
Dim mis As Boolean
Dim ver As Boolean






Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
escolhe()
credito_ajuda = 3
End Sub

Private Sub escolhe()

Randomize()

'=============================================
'CARREGA VETORES COM SEUS ESPECIFICOS VALORES
'=============================================

palavras(0, 0) = "RANAMONTANA"
palavras(0, 1) = "UMA RÃ SUBINDO EM UMA CAMINHONETE: QUAL O NOME DO FILME?"


palavras(1, 0) = "DILMA"
palavras(1, 1) = "É BAIXINHA USA VESTIDO VERMELHO E É DENTUÇA E TEM UM AMIGO QUE FALA ERRADO?"


palavras(2, 0) = "NATAL"
palavras(2, 1) = "OQUE É COMEMORADO NO DIA 25/12?"


palavras(3, 0) = "LULA"
palavras(3, 1) = "...PRESIDENTE DO BRASIL?"


palavras(4, 0) = "TECLADO"
palavras(4, 1) = "DIGITAÇÃO . . . . "



palavras(5, 0) = "CPU"
palavras(5, 1) = "UNIDADE DE PROCESSAMENTOS"


palavras(6, 0) = "HTTP"
palavras(6, 1) = "PROTOCOLO DE INTERNET"


palavras(7, 0) = "SQL"
palavras(7, 1) = "LINGUAGEM NAO PROCEDURAL"


palavras(8, 0) = "LINUX"
palavras(8, 1) = "OPEN SOURCE"


palavras(9, 0) = "CRACK"
palavras(9, 1) = "METODO PARA QUEBRAR SENHA " + Chr(3)


'==============================================
'SORTEIA UM VETOR
'==============================================

esc = Int((10 * Rnd()) + 0)
lbldica.Text = "DICA: " & palavras(esc, 1)
txtusd.MaxLength = Len(palavras(esc, 0))

End Sub

Private Sub check(ByVal informa As String, ByVal arrisca As String)
Dim i As Integer
Dim TENTATIVA As String
Dim tot_tent As Integer


existe = False
fatal = False
'================================================
'VERIFICA SE A LETRA DIGITADA JA EXISTE
'================================================
If (informa = "") Then
If (arrisca = palavras(esc, 0)) Then
txtusd.Text = arrisca
incluir_jogador()
Else
fatal = True
incluir_jogador()
End If
Else
For D = 1 To Len(TXTLETRAS_USADAS.Text)
TENTATIVA = Mid(TXTLETRAS_USADAS.Text, D, 1)
If (TENTATIVA = informa) Then
tot_tent = tot_tent + 1
existe = True
End If
Next

If (tot_tent > 0) Then
MsgBox("Ja existe tentativa com esta letra!", MsgBoxStyle.Critical, "Erro")
Exit Sub
End If

'================================================
'TESTAR A LETRA PRA VERIFICAR POSSIVEL EXISTENCIA
'================================================
txtusd.Text = ""

mis = True

If (MsgBox("Tem certeza que a palavra tem a letra " & informa & "?", MsgBoxStyle.OkCancel, MessageBoxIcon.Information) = MsgBoxResult.Ok) Then
total_testados = total_testados + 1
For i = 1 To Len(palavras(esc, 0))
verificador = Mid(palavras(esc, 0), i, 1)
If (verificador = informa) Then
mis = False
txtusd.Text = txtusd.Text + informa
total_acertos = total_acertos + 1
lblacrt.Text = "Acertos: " & total_acertos
Else
If Strings.InStr(TXTLETRAS_USADAS.Text, verificador) Then
txtusd.Text = txtusd.Text + verificador

Else
txtusd.Text = txtusd.Text + "_"
End If
End If
Next

If (txtusd.Text = palavras(esc, 0)) Then
incluir_jogador()
ElseIf (total_erros = 3) Then
fatal = True
incluir_jogador()
End If


If (mis) Then
MsgBox("Essa letra nao existe na palavra selecionada!", MsgBoxStyle.Critical, "Letra inválida!")
total_erros = total_erros + 1
lblerr.Text = "Erros: " & total_erros
End If
Else
existe = True
End If

End If

End Sub


' Private Sub habilita(ByVal valor As String)
' If (TextBox1.Text.Length < Len(palavras(esc, 0))) Then
' TextBox1.Text = TextBox1.Text & valor
' End If
' End Sub

Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmda.Click
check("A", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("A")
End If

End Sub

Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdb.Click

check("B", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("B")
End If

End Sub

Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdc.Click

check("C", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("C")
End If

End Sub

Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdd.Click
check("D", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("D")
End If

End Sub

Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmde.Click
check("E", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("E")
End If

End Sub

Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdf.Click
check("F", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("F")
End If

End Sub

Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdg.Click
check("G", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("G")
End If

End Sub

Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdh.Click
check("H", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("H")
End If

End Sub

Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdi.Click
check("I", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("I")
End If
End Sub

Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdj.Click
check("J", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("J")
End If
End Sub

Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdk.Click
check("K", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("K")
End If
End Sub

Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdl.Click
check("L", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("L")
End If
End Sub

Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdm.Click
check("M", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("M")
End If
End Sub

Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdn.Click
check("N", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("N")
End If
End Sub

Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdo.Click
check("O", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("O")
End If
End Sub

Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdp.Click
check("P", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("P")
End If
End Sub

Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdq.Click
check("Q", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("Q")
End If
End Sub

Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdr.Click
check("R", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("R")
End If
End Sub

Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmds.Click
check("S", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("S")
End If
End Sub

Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt.Click
check("T", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("T")
End If
End Sub

Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdu.Click
check("U", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("U")
End If
End Sub

Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdv.Click
check("V", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("V")
End If
End Sub

Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdx.Click
check("X", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("X")
End If
End Sub

Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdy.Click
check("Y", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("Y")
End If
End Sub

Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdz.Click
check("Z", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("Z")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdw.Click
check("W", "")
If existe = False Then
TXTLETRAS_USADAS.Text = TXTLETRAS_USADAS.Text & "," & ("W")
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnarrisca.Click
Dim tudo As String
tudo = InputBox("Digite a palavra que voce acha:")
check("", UCase(tudo))
End Sub

Private Sub incluir_jogador()
If (fatal) Then
MsgBox("Voce errou a palavra")
jogador(g, 0) = InputBox("Digite o seu nome:", "Looser")
jogador(g, 1) = total_testados
jogador(g, 2) = total_erros
jogador(g, 3) = total_acertos
If (g <= 5) Then
g = g + 1
Call continua()
Else
MsgBox("O limite maximo de jogadores foi atingido!")
Call ranking()
End
End If

Else
MsgBox("Parabens! Voce conseguiu ganhar o jogo!!!", MsgBoxStyle.Information, "Voce ganhou!")
jogador(g, 0) = InputBox("Digite o seu nome:", "Ganhador")
jogador(g, 1) = total_testados
jogador(g, 2) = total_erros
'jogador(g, 3) = total_acertos
g = g + 1
Call continua()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsair.Click
Call sair()
End Sub

Private Sub continua()
If (MsgBox("Deseja continuar?", MsgBoxStyle.YesNo)) = MsgBoxResult.Yes Then
Call escolhe()
txtusd.Text = ""
TXTLETRAS_USADAS.Text = ""
total_erros = 0
total_testados = 0
total_acertos = 0
mis = False
existe = True
Else
End
End If
End Sub

Private Sub sair()
If (MsgBox("Tem certeza?", MsgBoxStyle.YesNo, "Sair")) = MsgBoxResult.Yes Then
End
End If
End Sub

Private Sub ranking()
Dim completo As String
Dim i As Integer
Dim c As Integer
Dim j As Integer
Dim d As Integer
Dim maior As String
Dim tudo As Integer = 0


For i = 0 To Len(jogador(i, 2))
For c = 0 To Len(jogador(c, 2))
If (jogador(i, 2) < jogador(c, 2)) Then
maior = jogador(i, 0)
End If
Next
Next

For j = 0 To g
completo = completo & "," & jogador(j, 0)
Next


MsgBox("Dos jogadores: " & completo & vbCrLf & maior & " é o ganhador")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrank.Click
Call ranking()
End Sub

Private Sub TXTLETRAS_USADAS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTLETRAS_USADAS.TextChanged

End Sub


End Class
'
-----

VB DOT NET...
BY PHOENIX..

ABRAÇOS! rendeer
avatar
Edward Phoenix

Mensagens : 34
Pontos : 86
Data de inscrição : 22/02/2010
Idade : 27

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum