• Revista PROGRAMAR: Já está disponível a edição #56 da revista programar. Faz já o download aqui!

BOTELHO19

Euromilhões

2 mensagens neste tópico

Tenho este código e necessitava de fazer um botão para o utilizador meter um número e confirmar se é o  que gerou na TextBox1 TextBox2 ate ao fim 
Para dizer se ganhou ou não 
Por favor se alguém souber me diga 
Obrigado...

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub gerarchave_Click(sender As Object, e As EventArgs) Handles gerarchave.Click


        Dim value0 As Integer
        Dim value1 As Integer
        Dim value2 As Integer
        Dim value3 As Integer
        Dim value4 As Integer
        Dim value5 As Integer
        Dim value6 As Integer
        Dim value7 As Integer

        value0 = (50 * Rnd() + 1)
        value1 = (50 * Rnd() + 1)
        value2 = (50 * Rnd() + 1)
        value3 = (50 * Rnd() + 1)
        value4 = (50 * Rnd() + 1)
        value5 = (50 * Rnd() + 1)
        value6 = (9 * Rnd() + 1)
        value7 = (9 * Rnd() + 1)

        TextBox1.Text = value0
        TextBox2.Text = value1
        TextBox3.Text = value2
        TextBox4.Text = value3
        TextBox5.Text = value4
        TextBox6.Text = value5
        TextBox7.Text = value6

        TextBox6.BackColor = Color.Gold
        TextBox7.BackColor = Color.Gold
    End Sub

    Private Sub Utilizador_Click(sender As Object, e As EventArgs) Handles Utilizador.Click

    End Sub
End Class

 

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Usas o If statement...

	If textbox1.text = textbox2.text Then
	'código
	End If
	'ou
	if textbox1.text = value.toString() Then
	'código
	End if
	

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora