Prime Number (Low Level) - Visual Basic

Program dasar ini dirancang khusus untuk menentukan suatu angka, apakah termasuk bilangan prima atau bilangan bukan prima. Bilangan prima adalah bilangan yang tidak habis dibagi bilangan apapun kecuali bilangan 1 dan bilangannya sendiri. Misalnya angka 5 adalah bilangan prima, sebab hanya dibagi 1 dan 5. Sedangkan, angka 1 digolongkan sebagai bilangan bukan prima. Perhatikan gambar yang berisi kumpulan angka prima dan angka bukan prima berikut sebagai sketsanya.

Buka program VB, kemudian buat project dengan formasi tool dan properties seperti gambar.

Setelah selesai, masukkan kode berikut di kode editor program tersebut.

Private Sub Command1_Click()
Dim N, D  As Single
Dim tag As String
N = Val(Text1.Text)
Select Case N
Case Is < 2
Text2.Text = "This is not Prime Number"
Case Is = 2
Text2.Text = "This is Prime Number"
Case Is > 2
D = 2
Do
If N / D = Int(N / D) Then
Text2.Text = "This is not Prime Number"
tag = "Not Prime"
Exit Do
End If
D = D + 1
Loop While D <= N - 1
If tag <> "Not Prime" Then
Text2.Text = "This is Prime Number"
End If
End Select
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Catatan : Tulisan yang berwarna biru artinya bisa diganti dengan kata apapun tetapi tentunya tetap harus mengacu pada bilangan prima atau bilangan bukan prima itu sendiri.

Setelah itu, aktifkan program dengan menekan tombol "Start" di toolbar sehingga muncul layar dengan tampilan berikut.

Tampilan program setelah memasukkan angka 13 dan setelah menekan tombol Launch

Tampilan program setelah memasukkan angka 25 dan setelah menekan tombol Launch

Program telah sukses dirancang!
Jika ada permasalahan, silahkan komentar di bawah ....