Pemrograman Visual:Acak Number

• Desain Program

• Seluruh kode program

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAcak.Click
        txtAngka1.Text = Int(Rnd() * 10)
        txtAngka2.Text = Int(Rnd() * 10)
    End Sub

    Private Sub btnCekHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCekHasil.Click
        If Val(txtAngka1.Text) + Val(txtAngka2.Text) = Val(txtHasil.Text) Then
            lblPesan.Text = "SELAMAT JAWABAN BENAR..."
        Else
            lblPesan.Text = "MAAF, JAWABAN SALAH..."
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub
End Class