Dim chave(1 To 5) As Integer
Dim estrela(1 To 2) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 5
chave(i) = Int(Rnd * 50) + 1
Next
\\'Randomize
For i = 1 To 2
estrela(i) = Int(Rnd * 9) + 1
Next
On Error GoTo erro
soma = 0
For i = 1 To 5
For j = 1 To 5
If chave(i) = Text1(j) Then
soma = soma + 1
End If
Next
Next
soma1 = 0
For i = 1 To 2
For j = 1 To 2
If estrela(i) = Text2(j) Then
soma1 = soma1 + 1
End If
Next
Next
Picture1.Cls
Picture1.Print "numeros"
For i = 1 To 5
Picture1.Print chave(i)
Next
Picture1.Print "estrelas"
For i = 1 To 2
Picture1.Print estrela(i)
Next
MsgBox ("acertou " & soma & " numeros e " & soma1 & " estrelas")
Exit Sub
erro:
MsgBox ("nao intruduziu os numero ou parte deles")
End Sub
Muito bom, pelos conhecimentos que tenho o codigo tá simples e certo!
Ta mal tens 1 ponto a mais. de resto esta bem : mota :
Bem-vindo City!
: bom trabalho :
O codigo não está mal, mas podias evoluir e tentar fazer uma coisa baseada num dos sistemas de probabilidades, para determinar quais os proximos números.
eu nAO PERCEBI ISSO PODIAM EXPLIKAR
muito bom
Não testei, mas deve funcionar. Se bem que podia estar mais organizadito... Picture1 e Command1? Um programador dá nomes às coisas, por mais basaroucos que sejam...
Tipo, isto é só meter no compilador e F5 ?
Ou precisa de alguma coisa adicional?
QuoteTipo, isto é só meter no compilador e F5 ?
Ou precisa de alguma coisa adicional?
Precisas de criar uma picturebox chamada Picture1, um botão chamado Command1 e duas text boxes, uma chamada Text1 e outra Text2. Estes nomes vêm por defeito por isso é so fazer, colar o código e já está.
QuoteQuoteTipo, isto é só meter no compilador e F5 ?
Ou precisa de alguma coisa adicional?
Precisas de criar uma picturebox chamada Picture1, um botão chamado Command1 e duas text boxes, uma chamada Text1 e outra Text2. Estes nomes vêm por defeito por isso é so fazer, colar o código e já está.
yah, vais ter que fazer isso
Bem, eu fiz isso tudo e dá-me este erro:
(http://s34.photobucket.com/albums/d109/cenourinha/noticias/th_81cb3075.png) (http://i34.photobucket.com/albums/d109/cenourinha/noticias/81cb3075.png)
contacta - para o mail e eu digo o k tens de fazer, pk nao sei onde te da erro
Tenho o VB6 desinstalado e não sei onde anda o DVD se não dizia-te onde esta o problema. Mas a avaliar pela imagem tá relacionado com a Text2 (tá o nome seleccionado no código)... Kacetada, alteraste alguma propriedade da dita textbox? Se sim, diz ai...
se calhar não é o text2 mas sim o text1 por exemplo
Código identado.
QuoteNão testei, mas deve funcionar. Se bem que podia estar mais organizadito... Picture1 e Command1? Um programador dá nomes às coisas, por mais basaroucos que sejam...
Por exemplo eu defino todas as minha var e const com nome de raparigas, para o vb é coisa mais ao menos assim dim maria as integer, tatiana as double ...
QuoteQuoteNão testei, mas deve funcionar. Se bem que podia estar mais organizadito... Picture1 e Command1? Um programador dá nomes às coisas, por mais basaroucos que sejam...
Por exemplo eu defino todas as minha var e const com nome de raparigas, para o vb é coisa mais ao menos assim dim maria as integer, tatiana as double ...
Não sou capaz. Tenho que olhar para o nome e perceber o que é, o que faz, para que serve e que tipo de dados rebe.
n percebi nada