Source Code Menampilkan Bilangan Genap, Ganjil, dan Prima pada Visual Basic

Untuk menampilkan bilangan genap, ganjil, dan prima pada visual basic ikuti langkah-langkah berikut :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.
Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih Label, TextBox, RadioButton, dan Button.

Kemudian, gantikan nama Label1 menjadi “Input Nilai”, Label2 menjadi “Hasil”, RadioButton1 menjadi “Genap atau Ganjil”, RadioButton2 menjadi “Prima”, Button1 menjadi “Proses”, dan Button2 menjadi “Selesai”.
Maka akan tampak seperti gambar dibawah ini :

5. Double klik pada Button1 dan Button2. Kemudian isi listing program seperti dibawah ini :

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
End Class

6. Kemudian Save and Start Debugging.

Maka akan muncul seperti ini :

Untuk pilihan bilangan genap atau ganjil :

Untuk pilihan bilangan prima :

7. Klik “Selesai”.

Sekian langkah-langkah cara menampilkan bilangan genap, ganjil, dan prima pada Visual Basic. Semoga Bermanfaat ^^

Mohon kritik dan sarannya ya ^^

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.