2. SINTAKS UNTUK MEMBERI NILAI PADA PROPERTI
ADALAH SBB:
namaobjek.namaproperti = nilaiproperti
KETERANGAN ;
1. namaobjek : nama objek yg ingin diubah. Nama
objek ini adalah properti Name dari suatu objek.
2. Namaproperti : nama properti yg akan diberi nilai.
Nama properti ini harus sesuai dgn properti dpt
didukung oleh objek yg bersangkutan.
3. Nilaiproperti : nilai properti yg diberikan pd properti.
Nilai ini bisa berupa string, numerik atau konstanta.
Contoh:
cmdTombol.caption = “Ini tombol baru!”
lblLabel.FontColor = vbRed
3. LATIHAN SOAL I
1. Pilih menu File>New atau tekan tombol Ctrl+N utk membuat proyek
baru pd Visual Basic
2. Pilih Standard.EXE lalu tekan OK.
3. Klik ganda kontrol Label pada Toolbox. Pd layar Form akan terbentuk
sebuah kontrol Label.
4. Ulangi Langkah 3 di atas sebanyak 3x shg anda akan memiliki 4 buah
kontrol Label pd jendela Form.
5. Aturlah posisi shg tampak rapi.
6. Klik sekali pd kontrol TextBox lalu bawa kursor ke sebelah kanan kontrol
Label2.
7. Buatlah kotak teks di sebelah kanan kontrol Label2.
8. Ulangi membuat kontrol TextBox 2x lagi. Atur ukuran dan posisinya
9. Kini buatlah 2 buah kontrol CommandButton. Lalu letakkan di bagian
bawah Form.
10.Yang terakhir, buatlah sebuah kontrol PictureBox, Lalu aturlah ukuran
dan posisinya.
4. 11. Kini tugas Anda selanjutnya adalah mengganti nama identitas atau properti
Name dari masing-masing kontrol, sehingga menjadi seperti di bawah ini.
NAMA LAMA NAMA BARU
Form1 frmBiodata
Label1 lblJudul
Label2 lblNama
Label3 lblAlamat
Label4 lblTelepon
Text1 txtNama
Text2 txtAlamat
Text3 txtTelepon
Command1 cmdOK
Command1 cmdCancel
Picture1 picGambar
5. 12. Berikutnya ganti pula properti Caption dari setiap kontrol. Caption adalah
judul yg hanya akan ditampilkan pada layar. Ganti setiap Caption lama menjadi
Caption baru seperti di bawah ini.
Tanda & (ampersand) yg ditulis di depan Caption utk cmdOK dan cmdCancel adalah
perintah utk membuat HotKey. HotKey adalah tombol cepat yg dapat diakses dgn
menekan tombol Altdgn huruf yg digarisbawahi (misalnya Alt+O,Alt+C dsb). Disini yg
menjadi Hotkey untuk kontrol cmdOK adalah huruf O,shg tanda & diletakkan di depan
huruf &OK.
KONTROL CAPTION LAMA CAPTION BARU
frmBiodata Form1 BIODATA PRIBADI
lblJudul Label1 BIODATA PRIBADI
lblNama Label2 Nama
lblAlamat Label3 Alamat
lblTelepon Label4 Telepon
cmdOK Command1 &OK
cmdCancel Command2 &CANCEL
6. 13. Berikutnya hapus nilai pada properti Text untuk ketiga kontrol TextBox, agar
nanti saat dijalankan ketiga kotak teks ini akan kosong
14. Berikutnya ubahlah properti Font untuk kontrol-kontrol diatas menjadi
MS Serif,Bold,14
15.Kini pilihlah kontrol picGambar, lalu pilih properti Picture pada jendela
Properties. Klik tombol elipsis di sebelah kanannya untuk memunculkan kotak
dialog Load Picture. Cari dan pilih gambar apa saja yg terdapat pada komputer
Anda utk ditampilkan pd Form.
KONTROL TEXT LAMA TEXT BARU
txtNama Text1 (hapus/kosongkan)
txtAlamat Text2 (Hapus/kosongkan)
txtTelepon Text3 (Hapus/kosongkan)
7. 16. Klik ganda kontrol cmdOK. Ketikkan kata End:
Private Sub cmdOK_Click()
End
End Sub
17. Ulangi langkah di atas untuk kontrol cmdCancel.
18. Kini jalankanlah dgn mengklik tombol start > atau tekan tombol F5
19. Klik tombol OK atau CANCEL untuk menutup aplikasi ini dan kembali ke
Visual Basic
20. Simpan aplikasi tersebut
8. LATIHAN SOAL II (MEMBUAT LABEL)
• Pilih Menu File>New>Standard.EXE
• Pilih ganda kontrol Label pd toolbar.
• Pilih Properti Caption.
• Ganti Caption untuk label ini menjadi : Ini latihan untuk membuat kontrol Label.
• Jika Anda perhatikan teks yg panjang tampak tidak muat di dalam kontrol label,
Anda bisa mengubah ukuran tangkai di sekitar kontrol agar teks terlihat semua
dengan perintah Autosize,lalu ubah nilainya menjadi true.
PROPERTI NILAI
Alignment 2-Center
Appearance 1-3D
Autosize True
BackColor (warna biru)
BackStyle 1-Opaque
BorderStyle 1-Fixed Single
Font Font:MSSans serif
Font style: bold
Size : 18
ForeColor (warna merah)
9. LATIHAN SOAL III(MEMBUAT option button)
1. Buat proyek baru pada VB
2. Buatlah kontrol yg terdiri dari :
1 label (terletak di bagian tengah atas)
6 option button :
option 1 option 4
option 2 option 5
option 3 option 6
3. Ubahlah setiap kontrol menjadi :
KONTROL PROPERTI NILAI
Form1 Caption Contoh Option Button
Label1 Caption Mengubah Label dengan Option Button
Option1 Caption Merah
Option2 Caption Biru
Option3 Caption Hijau
Option4 Caption Kuning
Option5 Caption Ungu
10. 4. Pilih View>Code
Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub
Private Sub Option5_Click()
Label1.ForeColor = vbMagenta
End Sub
Private Sub Option6_Click()
Label1.ForeColor = vbCyan
End Sub
11. LATIHAN SOAL Iv(MEMBUAT KELOMPOK option
button)
1. Buat proyek baru di VB
2. Klik ganda Frame
3. Klik tunggal kontrol Option Button
4. Ubahlah.....
12. KONTROL PROPERTI NILAI
Form1 Caption Option Button Dengan Frame
Label1 Caption Mengubah Label Dengan Option Button
Frame1 Caption Style
Frame2 Caption Color
Frame3 Caption Underline
Frame4 Caption Strikeout
Option1 Caption Normal
Option2 Caption Bold
Option3 Caption Italic
Option4 Caption Bold Italic
Option5 Caption Merah
Option6 Caption Biru
Option7 Caption Hijau
Option8 Caption Kuning
Option9 Caption Bergaris Bawah
Option10 Caption Tidak Bergaris bawah
Option11 Caption Dicoret
Option12 Caption Tidak Dicoret
13. 5. Pilih Menu View>Code, Ketikkan:
Private Sub Option1_Click()
Label1.FontBold = False
Label1.FontItalic = False
End Sub
Private Sub Option10_Click()
Label1.FontUnderline = False
End Sub
Private Sub Option11_Click()
Label1.FontStrikethru = True
End Sub
Private Sub Option12_Click()
Label1.FontStrikethru = False
End Sub
Private Sub Option2_Click()
Label1.FontBold = True
End Sub
14. Private Sub Option3_Click()
Label1.FontItalic = True
End Sub
Private Sub Option4_Click()
Label1.FontBold = True
Label1.FontItalic = True
End Sub
Private Sub Option5_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option6_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option7_Click()
Label1.ForeColor = vbGreen
End Sub
16. LATIHAN SOAL v(MEMBUAT check box)
1. Buat Proyek Baru di VB
2. Klik ganda icon CheckBox pada toolbox
3. Buatlah tiga buah CheckBox lagi dan sebuah kontrol label. Atur Posisinya.
4. Ubahlah properti setiap kontrol tersebut menjadi :
KONTRO
L
PROPERTI NILAI
Form1 Caption Contoh CheckBox
Label1 Caption
borderStyle
Mengubah Tekx Dengan Check Box
1-Fixed Single
Check1 Caption &Bold
Check2 Caption &Underline
Check3 Capton
Style
&Red Text
1-Graphical
Check4 Caption
Style
B&ig Text
1-Graphical
17. 5. Klik ganda kontrol Check1. Lalu ketikkan program di bawah ini :
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Label1.FontBold = True
Else
If Check1.Value = vbUnchecked Then
Label1.FontBold = False
End If
End If
End Sub
Ket: Kode program diatas menggunakan pernyataan if,utk memeriksa apakah Check
Box dipilih atau tidak. Jika dipilih,properti Check1.Value akan bernilai vbChecked,
lalu properti Label1.FontBold diberi nilai True (teks akan ditebalkan).
Sedangkan jika Check Box tidak dipilih maka properti Check1.Value =
vbUnchecked dan Label1.FontBold = False (teks tidak ditebalkan)
18. 6. Ulangi langkah di atas untuk mengubah program ketiga Check Box lainnya seperti di
bawah ini:
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
Label1.FontUnderline = True
Else
If Check2.Value = vbUnchecked Then
Label1.FontUnderline = False
End If
End If
End Sub
19. Private Sub Check3_Click()
If Check3.Value = vbChecked Then
Label1.ForeColor = vbRed
Else
If Check3.Value = vbUnchecked Then
Label1.ForeColor = vbBlack
End If
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = vbChecked Then
Label1.FontSize = 14
Else
If Check4.Value = vbUnchecked Then
Label1.FontSize = 10
End If
End If
End Sub
21. KOTAK INPUT
1. TEXT BOX (Kotak Teks)
Kontrol Text Box adalah kontrol yang menerima input dari user dalam bentuk teks yang
diketikkan. Biasanya kontrol ini digunakan untuk memasukkan informasi-informasi tertulis
seperti nama,alamat,nilai numerik
MEMBUAT TEXT BOX
1. Buatlah proyek baru
2. Buatlah kontrol-kontrol dan aturlah posisi dan ukurannya hingga seperti :
23. KONTROL PROPERTI NILAI
Form1 Name
Caption
frmPassword
Input Password
Label1 Name
Caption
lblJudul
Masukkan Password Anda
Label2 Name
Caption
lblNama
Nama
Label3 Name
Caption
lblPassword
Password
Text1 Name
Text
txtNama
(kosongkan)
Text2 Name
Text
PasswordChar
txtPassword
(kosongkan)
*
Command1 Name
Caption
cmdOK
&OK
Command2 Name
Caption
cmdExit
E&xit
25. 3. Klik ganda kontrol cmdOK,lalu ketikkan kode program:
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdOK_Click()
Dim intExit As Integer
Do While (True)
If (txtNama.Text = "Adi" And txtPassword.Text = "VB6") Then
intPesan = MsgBox("Password Benar!", , "Warning")
Unload frmPassword
End
Else
intPesan = MsgBox("Password Salah! Ulangi!", , "Warning")
txtNama.Text = ""
txtPassword.Text = ""
txtNama.SetFocus
Exit Do
End If
Loop
End Sub
26. 2. List Box (Kotak Daftar)
Kadang utk menginput suatu nilai ke dalam aplikasi,user tidak hanya
melakukannya dengan mengetik,tetapi juga memilih dari daftar yang ada.
Maka digunakanlah kontrol List box
Membuat List Box
1. Buatlah proyek baru
2. Buatlah kontrol kotak list dengan mengklik ganda kontrol ListBox pada
toolbox
28. KONTROL PROPERTI NILAI
Form1 Caption Metode List Box
Label1 Caption Menambah dan Menghapus Item Pada
List Box
Label2 Caption Tambah:
Label3 Caption Hapus:
Label4 Caption Jumlah Item:
Text1 Text (kosongkan)
Text2 Text (kosongkan)
Text3 Text (kosongkan)
Command1 Caption &Add
Command2 Caption &Remove
Command3 Caption &Count
Command4 Caption Remove &All
Command5 Caption E&xit
30. 5. Kliki ViewCode
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click()
List1.RemoveItem (Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = List1.ListCount
End Sub
Private Sub Command4_Click()
List1.Clear
End Sub
31. Private Sub Command5_Click()
End
End Sub
Private Sub Form_Load()
List1.AddItem "Jakarta"
List1.AddItem "Bogor"
List1.AddItem "Bandung"
List1.AddItem "Semarang"
List1.AddItem "Yogyakarta"
List1.AddItem "Malang"
List1.AddItem "Denpasar"
End Sub
32. TUGAS
Event List Box
Buatlah Program dengan menggunakan Event List
Box
1. Buatlah proyek baru
2. Buatlah kontrol kotak list box
34. KONTROL PROPERTI NILAI
Form1 Name frmPilihan
Caption Memilih Item List Box
Label1 Name lblPilihan
Caption Pilih salah satu item
Label2 Name lblTampil
Caption Item yang Anda pilih:
List1 Name lstPilihan
Text1 Name txtTampil
Text (kosongkan)
Command1 Name cmdOK
Caption &OK
Command Name cmdExit
Caption E&xit
35. • Ketikkan program sbb:
Rem Prosedur tombol Exit jika diklik
Rem akan keluar dari aplikasi
Private Sub cmdExit_Click()
End
End Sub
Rem Prosedur tombol OK jika di klik
Rem akan menampilkan pilihan pada list box
Private Sub cmdOK_Click()
txtTampil.Text = lstPilihan.Text
End Sub
36. Rem Me-Load item pada daftar
Private Sub Form_Load()
lstPilihan.AddItem "Jakarta"
lstPilihan.AddItem "Bogor"
lstPilihan.AddItem "Bandung"
lstPilihan.AddItem "Semarang"
lstPilihan.AddItem "Yogjakarta"
lstPilihan.AddItem "Malang"
lstPilihan.AddItem "Surabaya"
lstPilihan.AddItem "Denpasar"
End Sub
37. Rem Prosedur Lst Box jika di klik ganda
Rem akan menampilkan pilihan pada List Box
Private Sub lblPilihan_Click()
txtTampil.Text = lstPilihan.Text
End Sub
Private Sub lstPilihan_DblClick()
cmdOK_Click
End Sub
