VISUAL BASIC
Textbox Text (kosongkan) name : txtnama
Command Button name : cmdpindah caption pindah
Textbox Text (kosongkan isinya) name : txtpindah
Double click tombol pindah, isikan :
Private Sub cmdpindah_Click()
txtpindah.Text = txtnama.Text
txtnama.Text = " "
End Sub
Klik Start
Tampilan :
Menghitung Luas Persegi panjang :
Panjang :
Input panjang : Textbox > Text (kosongkan isinya edit di caption) > name : txtpj
Input panjang : Textbox > Text (kosongkan isinya edit di caption) > name : txtpj
Command Button > name : cmdluas> caption Hitung Luas
Input luas : Textbox > Text (kosongkan isinya edit di caption) > name : txtluas
Double click command button :
Private Sub Command1_Click()
Text3.Text = Text2.Text * Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Tool tip text
Text2
Text1
Command1
Command2
Command3
Text2
Program menghitung luas
Terdiri dari
variable yang berupa label antara lain
panjang sebagai keterangan text box yang berisi angka yang menunjukan panjang dari sebuah persegi panjang yang akan dihitung.
lebar sebagai keterangan sebagai keterangan text box yang berisi angka yang menunjukan lebar dari sebuah persegi panjang yang akan dihitung.
yang berupa text box. Antara lain
text1.text yang berupa kolom isian yang berisi besaran panjang persegi panjang yang akan dihitung.
text2.text yang berupa kolom isian yang berisi besaran panjang persegi panjang yang akan dihitung.
text3.text kolom isian yang berisi besaran luas persegi panjang yang akan dihitung. Dengan mengalikan antara nilai yang terdapat pada text1.txt dengan text2.txt
yang berupa command button antara lain
Private Sub Command1_Click()
Text3.Text = Text2.Text * Text1.Text
End Sub
jika “ulang” diklik maka nilai pada variable text1,text2 dan text3 akan kembali kosong tak bernilaidan kemudian kursor akan secara otomatis berada pada kolom text1 untuk pengisian kembali nilai baru yang akan dihitung
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
jika “exit” diklik maka program akan keluar secara otomatis
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Ket. Jika text1 di enter maka kursor akan beralih ke text2
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Ket. Jika text2 di enter maka kursor akan beralih ke hasil
Panjang1.Text
Lebar1.Text
Alas.Text
Tinggi.Text
Hasil.Text
(Button, Caption : Luas Persegi Panjang , Name : HITUNG)
Private Sub HITUNG_Click()
On Error GoTo salah
Call BALIK
hasil.Text = panjang1.Text * lebar1.Text
Exit Sub
salah:
MsgBox "PANJANG DAN LEBAR BELUM DIISI!!"
End Sub
Sub BALIK()
panjang1.SetFocus
End Sub
(Button, Caption : Luas Segitiga , Name : OK)
Private Sub ok_Click()
On Error GoTo salah
Call BALIK1
hasil.Text = alas.Text * tinggi.Text / 2
Exit Sub
salah:
MsgBox "ALAS DAN TINGGI BELUM DIISI!!"
End Sub
Sub BALIK1()
alas.SetFocus
End Sub
(Button, Caption : Selesai , Name : SELESAI)
Private Sub SELESAI_Click(Index As Integer)
End
End Sub
CATATAN :
Text1.Text
Label1.Caption
Command1
Command2
Command3
(Button, Caption : PROSES , Name : Command1)
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "genap"
Else
Label1.Caption = "ganjil"
End If
Command2.Enabled = True
Command1.Enabled = False
End Sub
(Button, Caption : COBA LAGI , Name : Command2)
Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
Text1.SetFocus
Command1.Enabled = True
Command2.Enabled = False
End Sub
(Button, Caption : KELUAR , Name : Command3)
Private Sub Command3_Click()
End
End Sub
CATATAN : Huruf miring merupakan fungsi untuk mengaktifkan tombol coba lagi setelah tombol proses ditekan
Keterangan
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "genap"
Else
Label1.Caption = "ganjil"
End If
Command2.Enabled = True
Command1.Enabled = False
End Sub
Pada awal permulaan program berjalan jika command2 atau proses diklik maka program akan berjalan dengan membagi jika nilai pada text 1 dibagi dengan 2 tak ada sisa maka pada label 1 caption bernilai genap.
Jika terdapat sisa akan bernilai ganjil. Kemudian setelah hasil didapat tombol proses tak berfungsi lagi dan tombol cobalagi akan berfungsi
(Button, Caption : COBA LAGI , Name : Command2)
Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
Text1.SetFocus
Command1.Enabled = True
Command2.Enabled = False
End Sub
Jika tombol coba lagi di klik maka text1 dan label1 akan bernilai kosong dan kusrsor akan berada pada text1 dan kemudian tombol coba lagi tak berfungsi sedang tombol proses akan berfungsi kembali
Private Sub Command3_Click()
end
End Sub
jika “exit” diklik maka program akan keluar secara otomatis
Text1.Text
Text2.Caption
Command1
Command2
Command3
(Button, Caption : PROSES , Name : Command1)
Private Sub Command1_Click()
If Val(Text1.Text) = 1 Then
text2.Caption = "Bukan Prima"
ElseIf Val(Text1.Text) = 2 Then
text2.Caption = "Prima"
Else
For i = 2 To Val(Text1.Text) – 1
If Val(Text1.Text) Mod i = 0 Then
text2.Caption = "Bukan Prima"
Exit For
Else
text2.Caption = "Prima"
End If
Next
End If
Command2.Enabled = True
Command1.Enabled = False
End Sub
(Button, Caption : ULANG , Name : Command2)
Private Sub Command2_Click()
Text1.Text = ""
text2.Caption = ""
Text1.SetFocus
Command1.Enabled = True
Command2.Enabled = False
End Sub
(Button, Caption : EXIT , Name : Command3)
Private Sub Command3_Click()
End
End Sub
CATATAN : SetFocus untuk mengarahkan kursor ke textbox.
(Button, Caption : PROSES , Name : Command1)
Private Sub Command1_Click()
If Val(Text1.Text) = 1 Then
text2.Caption = "Bukan Prima"
ElseIf Val(Text1.Text) = 2 Then
text2.Caption = "Prima"
Else
For i = 2 To Val(Text1.Text) – 1
If Val(Text1.Text) Mod i = 0 Then
text2.Caption = "Bukan Prima"
Exit For
Else
text2.Caption = "Prima"
End If
Next
End If
Command2.Enabled = True
Command1.Enabled = False
End Sub
Jika tombol proses diklik maka akan mencocokan nilai yang ada pada text.1 jika nilainya sama dengan 1 maka text2.caption akan bernilai “bukan prima” dan kemudian jika nilai yang ada pada text1 bernilai 2 maka text2.caption akan bernilai “prima”
Jika pada text1 nilainya bukan angka 1 dan angka 2 maka program akan berjalan menuju baris setelah “else”
Untuk nilai bilangan i = 2 sampai nilai text1 dikurangi 1 lakukan perintah jika nilai text1 dibagi bilangan I sisanya samadengan 0 maka text2.caption bernilai bukan prima. Kemudian perintah for nya selesai. Lalu tombol ulang berfungsi dan tombol proses tidak berfungsi.
(Button, Caption : ULANG , Name : Command2)
Private Sub Command2_Click()
Text1.Text = ""
text2.Caption = ""
Text1.SetFocus
Command1.Enabled = True
Command2.Enabled = False
End Sub
Jika tombol tombol ulang di klik maka text1 dan text2 caption akan bernilai kosong dan kusrsor akan berada pada text1 dan kemudian tombol ulang tak berfungsi sedang tombol proses akan berfungsi kembali .
Private Sub Command3_Click()
end
End Sub
jika “exit” diklik maka program akan keluar secara otomatis
Bil(0).Text
Bil(1).Text
Bil(2).Text
Bil(3).Text
Bil(4).Text
Txtganjil.Text
Txt_genap.Text
]
(Button, Caption : ULANG , Name : Coba Lagi2)
Private Sub cobalagi_Click()
bil(0).Text = ""
bil(0).BackColor = vbWhite
bil(1).Text = ""
bil(1).BackColor = vbWhite
bil(2).Text = ""
bil(2).BackColor = vbWhite
bil(3).Text = ""
bil(3).BackColor = vbWhite
bil(4).Text = ""
bil(4).BackColor = vbWhite
txtganjil.Text = ""
txt_genap.Text = ""
bil(0).SetFocus
End Sub
(Button, Caption : GANJIL , Name : Command2)
Private Sub Command2_Click()
For i = 0 To 4
ganjil = bil(i) / 2 - Int(bil(i) / 2)
If ganjil <> 0 Then
bil(i).BackColor = vbYellow
txtganjil.Text = txtganjil.Text & " " & Str(bil(i))
End If
Next
Command3.Enabled = True
Command2.Enabled = False
End Sub
(Button, Caption : GENAP , Name : Command3)
Private Sub Command3_Click()
For i = 0 To 4
genap = bil(i) / 2 - Int(bil(i) / 2)
If genap = 0 Then
bil(i).BackColor = vbBlue
txt_genap.Text = txt_genap.Text & " " & Str(bil(i))
End If
Next
Command2.Enabled = False
Command3.Enabled = False
End Sub
(Button, Caption : KELUAR , Name : Command1)
Private Sub Command1_Click()
End
End Sub
(Button, Caption : ULANG , Name : Coba Lagi2)
Private Sub cobalagi_Click()
bil(0).Text = ""
bil(0).BackColor = vbWhite
bil(1).Text = ""
bil(1).BackColor = vbWhite
bil(2).Text = ""
bil(2).BackColor = vbWhite
bil(3).Text = ""
bil(3).BackColor = vbWhite
bil(4).Text = ""
bil(4).BackColor = vbWhite
txtganjil.Text = ""
txt_genap.Text = ""
bil(0).SetFocus
End Sub
Jika bil tak bernilai mulai dari bil 0 sampai dengan 4 maka warna backgroundnya akan putih dan txtganji dan txtgenap akan kosong.
(Button, Caption : GANJIL , Name : Command2)
Private Sub Command2_Click()
For i = 0 To 4
ganjil = bil(i) / 2 - Int(bil(i) / 2)
If ganjil <> 0 Then
bil(i).BackColor = vbYellow
txtganjil.Text = txtganjil.Text & " " & Str(bil(i))
End If
Next
Command3.Enabled = True
Command2.Enabled = False
End Sub
Untuk i samadengan 0 sampai dengan 4.
Ganjil sama dengan bil dibagi 2 dikurangi pembulatan bilangan ke i dibagi 2 jika nilai ganjil tidak sama dengan 0 kemudian warna bil ke i sama dengan kuning
Dan txt.gantjil bernilai angka hasil perhitungan secara berulang. Kemudian ganjil tak berfungsi dan genap berfungsi.
(Button, Caption : GENAP , Name : Command3)
Private Sub Command3_Click()
For i = 0 To 4
genap = bil(i) / 2 - Int(bil(i) / 2)
If genap = 0 Then
bil(i).BackColor = vbBlue
txt_genap.Text = txt_genap.Text & " " & Str(bil(i))
End If
Next
Command2.Enabled = False
Command3.Enabled = False
End Sub
genapGanjil sama dengan bil dibagi 2 dikurangi pembulatan bilangan ke i dibagi 2 jika nilai genap sama dengan 0 kemudian warna bil ke i sama dengan biru
Dan txt.genap bernilai angka hasil perhitungan secara berulang. Kemudian genap tak berfungsi dan ganjil berfungsi.
Private Sub Command3_Click()
end
End Sub
jika “keluar” diklik maka program akan keluar secara otomatis
(Button, Caption : PROSES Name : cmdproses)
Private Sub cmd Proses_Click()
bil = 1
For i = 1 To txtangka.Text
bil = bil * i
Next
txthasil.Text = Str(bil)
Command1.Enabled = True
cmdproses.Enabled = False
End Sub
(Button, Caption : lagi , Name : command1)
Private Sub Command1_Click()
txtangka.Text = ""
txthasil.Text = ""
txtangka.SetFocus
Command1.Enabled = False
cmdproses.Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
(Button, Caption : PROSES Name : cmdproses)
Private Sub cmd Proses_Click()
bil = 1
For i = 1 To txtangka.Text
bil = bil * i
Next
txthasil.Text = Str(bil)
Command1.Enabled = True
cmdproses.Enabled = False
End Sub
Keterangan:
Jika proses diklik maka bil akan bernilai 1 , kemudian untuk i bernilai 1 sampai dengan nilai yang terdapat pada txtangka bil akan bernilai mulai dari perkalian bil dengan i dan nilai bil kemudian dikalikan dengan pertambahan nilai i sampai dengan nilai txtangka. Kemudian nilai bil akan ditampilkan pada txthasil lalu tombol proses tidak akan berfungsi dan tombol lagi akan berfungsi.
(Button, Caption : lagi , Name : command1)
Private Sub Command1_Click()
txtangka.Text = ""
txthasil.Text = ""
txtangka.SetFocus
Command1.Enabled = False
cmdproses.Enabled = True
End Sub
Jika tombol “lagi” maka txt angka dan txt hasil akan bernilai kosongdan tuoso akan berada pada txtangka.
Private Sub Command3_Click()
end
End Sub
jika “exit” diklik maka program akan keluar secara otomatis
