Visual basic...............euromilhoes...........

[Kacetada]

Code Select Expand


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

[Teotónio Ricardo]

Muito bom, pelos conhecimentos que tenho o codigo tá simples e certo!

[City]

Ta mal tens 1 ponto a mais. de resto esta bem : mota :

[BigPower]

Bem-vindo City!

[itmaster]

: 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.

[putonarc]

eu nAO PERCEBI ISSO PODIAM EXPLIKAR

[cocacola]

muito bom

[lycosman]

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...

[Teotónio Ricardo]

Tipo, isto é só meter no compilador e F5 ?
Ou precisa de alguma coisa adicional?

[lycosman]

Tipo, 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á.

[cocacola]

Tipo, 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

[Teotónio Ricardo]

Bem, eu fiz isso tudo e dá-me este erro:

[Kacetada]

contacta - para o mail e eu digo o k tens de fazer, pk nao sei onde te da erro

[lycosman]

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...

[cocacola]

se calhar não é o text2 mas sim o text1 por exemplo

[KTachyon]

Código identado.

[SteveCAnthrax]

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...

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 ...

[lycosman]

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...

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.

[morgado0]

n percebi nada