Menetukan Nilai Genap, Ganjil dan Prima dengan Menggunakan VB 2010

1.       Buka program Microsoft Visual Studio 2010.
Dengan tampilan seperti berikut :

2.       Klik file – new – project

3.       Lalu ketik nama project dan pilih lokasi untuk penyimpanan file dan OK

4.       Saat klik Ok akan keluar tampilan form.

5.       Klik toolbox yang terdapat pada pinggiran tampilan form, lalu pilih Textbox, Radiobotton, Label dan Button.

6.       Klik double klik pada form dengan linsting program :
Public Class Form1
    Dim bilangan As Double
    Dim I As Integer

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            bilangan = TextBox1.Text
            If bilangan Mod 2 = 0 Then
                TextBox2.Text = "Genap"
            Else
                TextBox2.Text = "Ganjil"
            End If
        Else
            bilangan = TextBox1.Text
            If bilangan = 1 Then
                TextBox2.Text = "Bukan Prima"
            ElseIf bilangan = 2 Then
                TextBox2.Text = "Prima"
            Else
                For I = 2 To bilangan - 1
                    If bilangan Mod I = 0 Then
                        TextBox2.Text = "Bukan Prima"
                        Exit For
                    Else
                        TextBox2.Text = "Prima"
                    End If
                Next
            End If
        End If
    End Sub

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

    End Sub
End Class


7.       Lalu save and start debugging

8.       Input angka dan pilih salah satu dari dari robutton (Genap atau Ganjil dan Prima).

Jika memilih Radiobutton Genap dan Ganjil :



Jika dipilih Prima :



9.       Selesai.