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.