"PROGRAM MENCARI BILANGAN PRIMA"

Langkah mencari bilangan Prima:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Prima”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL dan ganti nama Label3 dengan TXTHASIL kosongkan Captionnya. Lalu klik dan drag-drop TextBox sebanyak 1kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTANGKA.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CMDPROSES, Command2 dengan CMDULANG dan Command3 dengan CMDEXIT.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub CMDPROSES_Click()
If Val(TXTANGKA.Text) = 1 Then
TXTHASIL.Caption = "Bukan Prima"
ElseIf Val(TXTANGKA.Text) = 2 Then
TXTHASIL.Caption = "Prima"
Else
For i = 2 To Val(TXTANGKA.Text) - 1
If Val(TXTANGKA.Text) Mod i = 0 Then
TXTHASIL.Caption = "Bukan Prima"
Exit For
Else
TXTHASIL.Caption = "Prima"
End If
Next
End If
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTANGKA.Text = ""
TXTHASIL.Caption = ""
TXTANGKA.SetFocus
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

"PROGRAM MENCARI LUAS PERSEGI PANJANG"

Langkah mencari Luas Persegi Panjang :
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Luas Persegi Panjang”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan PANJANG, Label2 dengan LEBAR dan Caption3 dengan nama LUAS. Lalu klik dan drag-drop TextBox sebanyak 3kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTPANJANG, Text2 dengan TXTLEBAR dan Text3 dengan nama TXTHASIL.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CMDPROSES, Command2 dengan CMDULANG dan Command3 dengan CMDEXIT.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub CMDPROSES_Click()
TXTHASIL.Text = TXTPANJANG.Text * TXTLEBAR.Text
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTPANJANG.Text = ""
TXTLEBAR.Text = ""
TXTHASIL.Text = ""
TXTPANJANG.SetFocus
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

"PROGRAM MENCARI BILANGAN FAKTORIAL"

Langkah mencari faktorial :
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Faktorial”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 2kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL. Lalu klik dan drag-drop TextBox sebanyak 2kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan TXTANGKA dan Text2 dengan TXTHASIL.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan CmdProses, Command2 dengan CmdUlang dan Command3 dengan CmdExit.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub cmdproses_Click()
bil = 1
For i = 1 To TXTANGKA.Text
bil = bil * i
Next
TXTHASIL.Text = Str(bil)
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub

Private Sub CMDULANG_Click()
TXTANGKA.Text = ""
TXTHASIL.Text = ""
TXTANGKA.SetFocus
CMDULANG.Enabled = False
CMDPROSES.Enabled = True
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

"PROGRAM MENCARI BILANGAN GENAP & GANJIL"

Langkah mencari bilangan genap atau ganjil:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Bilangan Genap atau Ganjil”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan ANGKA, Label2 dengan HASIL, dan Label3 diganti namanya menjadi HASIL. Lalu klik dan drag-drop TextBox sebanyak 1kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan Txt_angka.
• Kemudian klik dan drag CommandButton sebanyak 3kali. Ganti nama Caption Command1 dengan PROSES, Command2 dengan ULANG dan Command3 dengan nama EXIT. Dan beri nama Command1 dengan Cmd_Proses, Command2 dengan Cmd_Ulang dan Command3 dengan Cmd_Exit.


• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub cmd_proses_Click()
If Val(txt_angka.Text) Mod 2 = 0 Then
hasil.Caption = "genap"
Else
hasil.Caption = "ganjil"
End If
cmd_ulang.Enabled = True
cmd_proses.Enabled = False
End Sub

Private Sub cmd_ulang_Click()
txt_angka.Text = ""
hasil.Caption = ""
txt_angka.SetFocus
cmd_proses.Enabled = True
cmd_ulang.Enabled = False
End Sub

Private Sub cmd_exit_Click()
End
End Sub

"PROGRAM MENCARI LUAS BUJUR SANGKAR"

Langkah mencari Luas Bujur Sangkar:
• Masuklah ke program Microsoft Visual Basic, akan keluar tampilan New Project, pilih Standar EXE kemudian klik Open.
• Kemudian muncul tampilan Form1, dan ganti nama Form1 pada Caption menjadi “Mencari Luas Bujur Sangkar”
• Dan untuk membuat User Interface klik dan drag-drop komponen label didalam ToolBox ke Form sebanyak 3kali dan kemudian ganti nama Captionnya Label1 dengan Sisi1, Label2 dengan Sisi2, dan Label3 dengan Luas. Lalu klik dan drag-drop TextBox sebanyak 3kali, dan kosongkan semua textnya kemudian beri nama pada text1 dengan Txt_sisi1, text2 dengan Txt_sisi2 dan text3 dengan Txt_luas.
• Kemudian klik dan drag CommandButton sebanyak 2kali. Ganti nama Caption Command1 dengan ULANG dan Command2 dengan HITUNG. Dan beri nama Command1 dengan Cmd_Ulang dan Command2 dengan Cmd_Hitung.
• Klik View Code untuk menampilkan Jendela Code kemudian masukan rumusnya :
Private Sub Cmd_Hitung_Click()
Txt_luas.Text = Val(Txt_sisi1.Text) * Val(Txt_sisi2.Text)
End Sub

Private Sub Cmd_Ulang_Click()
Txt_sisi1.Text = ""
Txt_sisi2.Text = ""
Txt_luas.Text = ""
Txt_sisi1.SetFocus
End Sub