Ficha -> 9

Parte gráfica

código


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        PictureBox1.Visible = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Int(Rnd(10) * 10)
        Label2.Text = Int(Rnd(10) * 10)
        Label3.Text = Int(Rnd(10) * 10)
        If Label1.Text = 7 Or Label2.Text = 7 Or Label3.Text = 7 Then
            PictureBox1.Visible = True
            Label4.Visible = True
            Beep()
            If Label1.Text = 7 And Label2.Text = 7 And Label3.Text = 7 Then
                MsgBox(" ganhou 500 euros ")
            ElseIf (Label1.Text = 7 And Label2.Text = 7) Or (Label1.Text = 7 And Label3.Text = 7) Or (Label2.Text = 7 And Label3.Text = 7) Then
                MsgBox(" ganhou 200 euros ")
            Else
                MsgBox(" ganhou 100 euros ")
            End If
            PictureBox1.Visible = False
            Label4.Visible = False
            Label1.Text = ""
            Label2.Text = ""
            Label3.Text = ""
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Integer
        x = MsgBox("quer mesmo sair?", MsgBoxStyle.YesNo, " sair ")
        If x = vbYes Then
            Close()
        End If
    End Sub
End Class