Praktekum VB 6.0 Oleh : Bohal K. Simorangkir, S.Kom STMIK Parna Raya, Manado
========================== I.
KOTAK PESAN
Contoh syntax kotak pesan Private Sub Command2_Click() Dim pesan As String pesan = MsgBox("Ingin menutup aplikasi ?", vbOKCancel, "tutup aplikasi") If pesan = vbOK Then Unload Me End If End Sub Private Sub Command3_Click() Dim pesan As String Dim asking As String pesan = MsgBox("VB yes, no" & vbCrLf & _ "mempergunakan kondisi", vbYesNo, "latihan selanjutnya") If pesan = vbYes Then MsgBox "terima kasih" Unload Me End If End Sub
II. PERULANGAN 1. Perulangan dengan For-Next Suatu perulangan akan melaksanakan proses yang sama secara berulang-ulang dengan mempergunakan beberapa baris statement saja. Dalam suatu perulangan harus ditentukan kondisi awal sampai dengan kondisi berakhirnya perulangan agar proram tidak melaksanakan perulangan sampai dengan tidak terhingga. Contoh syntax perulangan Private Sub Fornext_Click() Dim i As Integer For i = 1 To 10 List1.AddItem "Nilai ke" & i Next End Sub
1
2. Perulangan menggunakan Combo Box ComboBox adalah salah satu kontrol objek VB yang dapat diisi dengan pilihan data yang tertera pada combo bersangkutan. Pada syntax berikut combo box berfungsi sebagai pilihan tanggal (1 – 31), bulan (1-12) dan tahun. User tidak dapat memasukkan data lain selain dari data yang ada dalam combo box. Fungsi dari tombol yang ada pada form tersebut adalah untuk memindahkan setiap data di ComboBox ke dalam ListBox disebelah kirinya.
Contoh syntax perulangan 2 Private Sub Command1_Click() Dim nilai1 As String Dim nilai2 As String Dim nilai3 As String Dim nilai4 As String nilai1 = Combo1.Text nilai2 = Combo2.Text nilai3 = Combo3.Text nilai4 = Text1.Text List1.AddItem (nilai4) & " = " & (nilai1) & "/" & (nilai2) & "/" & (nilai3) End Sub Private Sub Form_Load() Dim i As Integer Label1.Caption = "LATIHAN MEMBUAT HUBUNGAN DATA ANTAR CONTROL" Label1.FontSize = 14 For i = 1 To 31 Combo1.AddItem i Next i For i = 1 To 12 Combo2.AddItem i Next i
2
For i = 1990 To 2003 Combo3.AddItem i Next i Combo1.ListIndex = 0 Combo2.ListIndex = 0 Combo3.ListIndex = 0 End Sub III. FUNCTION Merupakan suatu perintah yang dapat dipanggil dalam suatu private statment. Bentuk dari function merupakan suatu public statement yang terpisah dari suatu private statement suatu objek, namun dapat dipergunakan untuk setiap event objek dalam suatu form.
Contoh syntax fuction Option Explicit Private end_calc As Boolean Private tambah As Boolean Private kurang As Boolean Private kali As Boolean Private bagi As Boolean Private Function calc_end() Dim i As Integer For i = Comma1 To Comma9 If end_calc = True Then Text1 = "" End If Next i end_calc = False End Function Private Sub cmdBagi_Click() 'name=cmdBagi bagi = True Text2.Text = Text1.Text Text1.Text = "" End Sub Private Sub cmdKali_Click() 'name=cmdKali kali = True Text2.Text = Text1.Text
3
Text1.Text = "" End Sub Private Sub cmdKurang_Click() 'name=cmdKurang kurang = True Text2.Text = Text1.Text Text1.Text = "" End Sub Private Sub cmdTambah_Click() 'name= cmdTambah tambah = True Text2.Text = Text1.Text Text1.Text = "" End Sub Private Function jumlah(kesatu As Integer, kedua As Integer) As Integer jumlah = kesatu + kedua End Function Private Function min(kesatu As Integer, kedua As Integer) As Integer min = kesatu - kedua End Function Private Function perkalian(kesatu As Integer, kedua As Integer) As Integer perkalian = kesatu * kedua End Function Private Function pembagian(kesatu As Integer, kedua As Integer) As Integer pembagian = kesatu / kedua End Function Private Sub Comma1_Click() calc_end Text1.Text = Text1.Text & "1" End Sub Private Sub Comma2_Click() calc_end Text1.Text = Text1.Text & "2" End Sub Private Sub Comma3_Click() calc_end Text1.Text = Text1.Text & "3" End Sub Private Sub Comma4_Click() calc_end Text1.Text = Text1.Text & "4" End Sub Private Sub Comma5_Click() calc_end Text1.Text = Text1.Text & "5" End Sub
4
Private Sub Comma6_Click() calc_end Text1.Text = Text1.Text & "6" End Sub Private Sub Command5_Click() Dim sat As Integer Dim dua As Integer Dim tot As Integer sat = Text1.Text dua = Text2.Text If tambah = True Then tot = jumlah(sat, dua) End If If kurang = True Then tot = min(dua, sat) End If If kali = True Then tot = perkalian(dua, sat) End If If bagi = True Then tot = pembagian(dua, sat) End If Text1.Text = tot Text2.Text = "" nset End Sub Private Sub Command6_Click() Text1.Text = "" Text2.Text = "" nset End Sub Private Sub Form_Load() nset End Sub Private Function nset() kurang = False tambah = False kali = False bagi = False End Function
5
