1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Exercicio Adivinha Em Vb

Discussão em 'Programação' iniciada por ButterflyEffect, 27 de Março de 2008. (Respostas: 0; Visualizações: 1678)

  1. ButterflyEffect

    ButterflyEffect Power Member

    [FONT=&quot]ADIVINHA[/FONT]
    [FONT=&quot]Contem[/FONT]
    [FONT=&quot]2botoes, 1 label e 1 caixa texto [/FONT]

    [FONT=&quot]Public[/FONT][FONT=&quot] Class Form1[/FONT]
    [FONT=&quot] Dim numsecreto As Integer[/FONT]
    [FONT=&quot] Dim tentativas As Integer[/FONT]

    [FONT=&quot] 'procedimento para (re)começar o jogo[/FONT]
    [FONT=&quot]Private[/FONT][FONT=&quot] Sub btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrecomeca.Click[/FONT]
    [FONT=&quot]Dim[/FONT][FONT=&quot] rand As New Random[/FONT]
    [FONT=&quot] numsecreto = rand.Next(0, 100) 'escolhe aleatoriamente número entre 1 e 100[/FONT]
    [FONT=&quot] tentativas = 0 'o número de tentativas é reposto a 0[/FONT]
    [FONT=&quot] btnrecomeca.Enabled = True 'torna botão activo, fica "clicável"[/FONT]
    [FONT=&quot] txtpalpite.Enabled = True 'torna botão activo, fica "clicável"[/FONT]
    [FONT=&quot] lbxpalpite.Enabled = True 'torna botão activo, fica "clicável"[/FONT]
    [FONT=&quot] End Sub[/FONT]
    [FONT=&quot] 'procedimento para tratar um palpite que o utilizador efectuou[/FONT]
    [FONT=&quot]Private[/FONT][FONT=&quot] Sub btnadivinha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadivinha.Click[/FONT]
    [FONT=&quot] If IsNumeric(txtpalpite.Text) Then[/FONT]
    [FONT=&quot] tentativas += 1 'ou Me.tentativas = Me.tentativas + 1[/FONT]
    [FONT=&quot] End If[/FONT]
    [FONT=&quot] If txtpalpite.Text = numsecreto Then 'se acertou[/FONT]
    [FONT=&quot]MsgBox("Parabéns, Acertou em" & tentativas & "tentativas") 'a concatenação com símbolo + daria erro[/FONT]

    [FONT=&quot] btnadivinha.Enabled = True 'torna botão activo, fica "clicável"[/FONT]
    [FONT=&quot] lbxpalpite.Enabled = True 'torna botão activo, fica "clicável"[/FONT]
    [FONT=&quot] txtpalpite.Enabled = True 'torna botão activo, fica "clicável"[/FONT]
    [FONT=&quot] txtpalpite.Text = ""[/FONT]

    [FONT=&quot] Else 'se errou[/FONT]
    [FONT=&quot] If txtpalpite.Text > numsecreto Then 'se o nº secreto é menor[/FONT]
    [FONT=&quot] MsgBox("nºsecreto é menor")[/FONT]
    [FONT=&quot] Else 'se o nº secreto é maior[/FONT]
    [FONT=&quot] MsgBox(" nºsecreto é maior")[/FONT]
    [FONT=&quot]End[/FONT][FONT=&quot] If[/FONT]
    [FONT=&quot] End If[/FONT]
    [FONT=&quot] End Sub[/FONT]
    [FONT=&quot]End[/FONT][FONT=&quot] Class[/FONT]
     

Partilhar esta Página