Ir para o conteúdo
BOTELHO19

Euromilhões

Mensagens Recomendadas

BOTELHO19    0
BOTELHO19

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

 

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
He B TeMy    37
He B TeMy

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
	

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.