BAB II Unit Control pada Visual Basic Control merupakan objek hubungan dengan pemakai (user Interface Object). Objekobjek ini tujuannya untuk interaksi antara pemakai program dengan program. Objek ini dapat berupa suatu tools yang digunakan untuk input maupun keluaran (output), atau hanya sebagai pesan yang ditampilkan ke layar. Windows telah memberikan beberapa control standar, untuk setiap aplikasi Windows, dan jika sebuah aplikasi menginginkan control tersebut, dapat diminta ke Windows. Control-control standar ini juga dapat dimanfaatkan oleh aplikasi yang dibuat dengan Visual Basic. Banyak control yang telah disediakan oleh Visual Basic, dan control-control ini sudah mencukupi untuk menyelesaikan program seorang programer. Selain daripada itu disediakan pula control-control tambahan yang bentuk tampilannya lebih menarik, atau control-control khusus yang mempermudah pemrograman. Control-control ini disebut dengan Custom Control (OCX). Pada bagian ini akan diuraikan beberapa control yang sering digunakan pada saat pemrograman Visual Basic. Control CommandButton Control ini merupakan control yang paling banyak digunakan sebagai media penghubung pemakai dengan program. Penekanan dengan cara mengklik tombol mouse pada CommandButton akan menyebabkan dijalankannya suatu tugas berdasarkan kondisi saat itu. Ada bebarapa cara untuk mengakses Button, selain mengklik tombol mouse. Berikut ini diberikan beberapa cara : 1. Menggunakan mouse dengan mengklik tombol mouse pada control CommandButton. 2. Menekan kunci spasi keyboard pada saat CommandButton menjadi focus saat itu. 3. Menekan gabungan kunci Alt dengan kunci akses (ditandai dengan karakter yang bergarisbawah pada tulisa control) 4. Pemasukan nilai True di Propery Value pada program. Control ini memiliki dua property yang berhubungan dengan penekana kunci Enter dan Kunci Esc Keyboard. Properti ini adalah Default dan Cancel. Ketika sebuah control ini dibuat, kedua property tersebut akan bernilai False, dan sebuah control tidak boleh memiliki property Default bernilai True jika proerty Cancel juga bernilai True. Microsoft Visual Basic 6.0 – by Iman Basuni
Jika sebuah control dengan property Cancel bernilai True, maka setiap kali penekana kunci keyboard ESCAPE akan menyebabkan diaksesnya control ini, walaupun belum diklik atau bukan merupakan fokus pada saat itu. Ciri ini biasanya digunakan pada Control CommandButton yang bertuliskan CANCEL (Catatan : Pada sebuah FORM hanya dapat memiliki satu tombol Default dan satu tombol Cancel).
Control yang bertuliskan OK, Property Default = True
Control yang bertuliskan CANCEL, Property Cancel = True Control Label Label digunakan untuk menempatkan tulisan pada form. Bagi pemakai, tulisan ini tidak dapat diakses, atau tidak dapat diubah-ubah. Properti yang paling banyak digunakan untuk label adalah Caption. Tujuan property ini adalah untuk menuliskan teks pada label tersebut. Tulisan ini dapat diubah pada saat design time (merancang form) maupun pada saat runtime (menjalankan program). Ukuran label sebaiknya disesuaikan dengan teks yang akan diletakkan pada label. Hal ini mudah dikerjakan pada saat design time. Jika sebuah teks atau tulisan lebih panjang dari lebar control, maka tulisan atau teks tersebut tidak akan ditampilkan penuh. Untuk itu diperlukan perubahan property WordWrap dengan memberikan nilai True dan property AutoSize bernilai False.
Microsoft Visual Basic 6.0 – by Iman Basuni
Control TextBox TextBox hampir sama denga Label, tetapi tulisan (teks) yang terdapat pada control ini dapat diedit oleh pemakai secara langsung. Dengan demikian maka control ini dapat digunakan sebagai media input dari pemakai. Property Teks merupakan property yang sering digunakan untuk TextBox. Property ini tujuannnya untuk meletakan teks pada control dan juga digunakan untuk mendapatkan teks yang terdapat pada control. Karena fungsi ini adalah sebagai input, maka sebaiknya isi property text ini dihilangkan. Hal ini dikerjakan dengan menghapus tulisan “Teks1” atau “Teks2” dari window property pada pengaturan property text. Teks yang terdapat pada TextBox dapat diatur terdiri atas banyak baris (MultiLine) atau hanya atas satu baris. Ini dikerjakan dengan mengatur property MultiLine dengan nilai True utnuk TextBox yang terdiri atas banyak baris.
Property Text, MultiLine dan PasswordChar Control OptionButton Control ini digunakan untuk melakukan pemilihan yang hanya boleh memilih satu pilihan saja. Bagi sebagian pemrogram, control ini disebut juga dengan nama Radio Button. Keadaan OptionButton dapat diketahui dengan menggunakan property Value. Dua nilai dapat diketahui dari property ini, yaitu True dan False. Nilai True menjelaskan bahwa property ini dipilih (diperlihatkan dengan lingkaran hitam di dalam control) dan False untuk menetukan bahwa control dalam keadaan tidak terpilih (lingkaran hitam dihilangkan dari control).
Microsoft Visual Basic 6.0 – by Iman Basuni
Contoh dalam kode program : If Option1.Value = True Then ‘Lakukan Proses lanjutan End If Pada saat program berjalan, pengaturan property inidapat dikerjakan dengan memasukkan nilai True dan False. Pemasukan nilai True sama dengan mengklik tombol mouse pada control ini, dengan kata lain, klik tombol mouse pada control dapat diganti dengan memasukkan nilai True pada property Value.
Contoh OptionButton Jika OptionButton Asia dipilih, maka akan ditampilkan daftar negara di Asia Control Check Box Control ini merupakan control kebalikan dari OptionButton, maka control ini digunakan untuk melakukan pemilihan lebih dari satu pilihan. Sebagai contoh, pada setiap pengolah kata, dapat memilih penampakan teks cetak tebal dan sekaligus miring, atau bergarisbawah, walaupun dapat memilih satu pilihan saja. Pemrograman untuk tipe ini tidak berbeda dengan control OptionButton, hanya ketika sebuah tipe ini di klik, atau property Value diubah True, tidak akan menyebabkan control lain tipe yang sama berubah nilai property value-nya. Control ListBox Listbox digunakan untuk menampilkan daftar pilihan, dan pilihan-pilihan ini dapat dipilih dengan mengklik pada teks (item) yang akan dipilih. Jika jumlah pilihan terlalu banyak, maka tidak semua item ditampilkan, tetapi dapat ditampilkan dengan melakukan scrolling terhadap ListBox. Scrollbar ( baik Vertikal maupun Horisontal) secara otomatis akan ditambahkan pada control, jika jumlah item yang terdapat pada ListBox melebihi panjang atau lebar sebuah ListBox. ListBox hanya dapat diisi pada saat program berjalan (runtime).
Microsoft Visual Basic 6.0 – by Iman Basuni
Sintaks penulisan suatu ListBox adalah sebagai berikut : Menambah Item : ListBox.AddItem item[,index] Menghapus Item : ListBox.RemoveItem item[,index] atau ListBox.Clear Keterangan : ListBox : Nama Control Item : Tulisan atau teks yang akan ditempatkan pada ListBox Index : Menentukan indeks atau urutan ke berapa sebuah item diletakkan pada ListBox Kode Program : Private Sub Command1_Click() List1.AddItem Text1.Text End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub Command3_Click() List1.Clear End Sub Private Sub Form_Load() List1.AddItem "Indonesia" List1.AddItem "Malaysia" List1.AddItem "Singapura" End Sub
Private Sub List1_Click() Text1.Text = List1.Text End Sub
Keterangan : List1.Additem Text1.Text, Perintah ini akan menambahkan item yang dimasukan dari TextBox ke dalam ListBox List1.RemoveItem List1.ListIndex, Perintah ini akan menghapus item ListBox terpilih Text1.Text = List1.Text, Perintah ini akan memindahkan isi item terplih dari ListBox ke Textbox Control-Control Lain pada Visual Basic Nama Control (Class) Picture Box
Icon
Keterangan Merupakan Control untuk menampilkan file bitmaps (.bmp), windows metafiles, dan icon (.ico)
Microsoft Visual Basic 6.0 – by Iman Basuni
Frame
Combo Box
Horizontal Scroll Bar Vertical Scroll Bar Timer Drive List Box Directory List Box File List Box Shape Line
Image
Data
Merupakan unit mengidentifikasikan sebuah group pengontrolan. Merupakan unit dengan kombinasi antara text box dan list box. Dengan unit ini pemakai bisa mengetikan pilihan atau bisa juga memilih item lewat drop-down list. Unit ini memungkinkan pemakai untuk memilih suatu obyek selama masih dalam daerah jangkauan horizontal obyek. Unit ini sama dengan unit Horizontal Scroll hanya daerah jangkauannya vertikal. Merupakan unit untuk mengeksekusi waktu kejadian pada rutin program termasuk di dalamnya adalah selang (interval) waktu. Unit ini akan menampilkan daftar drive pada komputer pemakai dan memungkinkan pemakai untuk memilih sebuah drive. Unit ini akan menampilkan daftar direktori pada drive terpilih. Unit ini memungkinkan untuk memilih sebuah direktori dan path. Unit ini akan menampilkan daftar file pada direktori terpilih dan memungkinkan pemakai untuk memilih sebuah file. Unit ini memungkinkan pemrogram untuk menambahkan lingkaran, elips, dan persegi empat pada form. Unit ini memungkinkan pemrogram untuk membuat garis lurus pada form. Unit ini menampilkan gambar bitmaps, windows metafile, dan icon. Perbedaannya dengan Picture Box adalah unit ini memberikan perintah seperti Command Buton saat pemakai mengklik gambar dengan mouse. Unit ini memungkinkan pemrogram untuk berhubungan dengan aplikasi database dan menampilkan informasi pada form.
Microsoft Visual Basic 6.0 – by Iman Basuni
TUGAS 2.1 : Berikut ini adalah program menggunakan Command Button. Buatlah tampilan program awal sebagai berikut : Control Form1 Command1 Command2 Command3 Command4 Command5
Properties Caption Border Style Name Name Name Name Name Style
Setting Latihan1 3 Fixed Dialog CmdPilih1 CmdPilih2 CmdPilih3 CmdPilih4 CmdPilih5 1 Graphical
Kode Program : Private Sub CmdPilih1_Click() MsgBox "Anda Memilih " & _ CmdPilih1.Caption, vbOKOnly, "Pesan" End Sub
Private Sub CmdPilih5_Click() MsgBox "Anda Memilih " & _ CmdPilih5.Caption, vbOKOnly, "Pesan" End Sub
Private Sub CmdPilih2_Click() MsgBox "Anda Memilih " & _ CmdPilih2.Caption, vbOKOnly, "Pesan” End Sub
Private Sub CmdPilih6_Click() MsgBox "Anda Memilih " & _ CmdPilih6.Caption, vbOKOnly, "Pesan" End Sub
Private Sub CmdPilih3_Click() MsgBox "Anda Memilih " & _ CmdPilih3.Caption, vbOKOnly, "Pesan" End Sub
Private Sub Form_Load() CmdPilih1.Caption = "Pilih 1" CmdPilih2.Caption = "Pilih 2" CmdPilih3.Caption = "Pilih 3" CmdPilih4.Caption = "Pilih 4" CmdPilih5.Caption = "Pilih 5" CmdPilih6.Caption = "Style Graphical" CmdPilih6.Picture= LoadPicture("C:”& _ “\Program Files\Microsoft Visual “ & _ “Studio\Common\Graphics\Bitmaps” & _ “\Assorted\Hand.bmp") End Sub
Private Sub CmdPilih4_Click() MsgBox "Anda Memilih " & _ CmdPilih4.Caption, vbOKOnly, "Pesan" End Sub
Microsoft Visual Basic 6.0 – by Iman Basuni
TUGAS 2.2 : Berikut ini adalah program menggunakan Label. Buatlah tampilan program awal sebagai berikut :
Kode Program : Private Sub Form_Load() Form1.Caption = “Latihan 2” Label1.Caption = "Microsoft" Label2.Caption = "Visual Basic 6.0" Label1.FontSize = 20 'Ukuran Huruf 14 Label1.FontBold = True 'Cetak Tebal Label1.WordWrap = True 'Perataan Teks Label1.Alignment = vbCenter ' Tengah Label1.ForeColor = QBColor(4) ' Merah
Label1.BackColor = QBColor(2) 'Hijau Label2.FontBold = True Label2.FontSize = 20 Label2.Alignment = vbCenter Label2.ForeColor = QBColor(7) Label2.BackColor = QBColor(5) End Sub
TUGAS 2.3 : Berikut ini adalah program menggunakan TextBox. Buatlah tampilan program awal sebagai berikut : Control Text1 Text2 Text3 Command1 Command2
Properties Name Name Name Name Name
Setting TxtNama TxtPassword TxtServer CMDOK CMDCANCEL
Kode Program : Private Sub CMDOK_Click() MsgBox "Selamat Datang di " & TxtServer & " , " & TxtNama End Sub Private Sub CMDCANCEL_Click()
Microsoft Visual Basic 6.0 – by Iman Basuni
MsgBox "Anda Menekan Tombol Cancel" End Sub Private Sub Form_Load() Form1.Caption = "LOGIN USER" Label1.Caption = "USER NAME" Label2.Caption = "PASSWORD" Label3.Caption = "DOMAIN" CMDOK.Caption = "OK" CMDCANCEL.Caption = "CANCEL" TxtNama.Text = "": TxtPassword.Text = "" TxtServer.Text = "SYSTEM_SERVER" TxtPassword.PasswordChar = "*" End Sub
TUGAS 2.4 : Berikut ini adalah program menggunakan Option Button. Buatlah tampilan program awal sebagai berikut : Kode Program : Dim MataPelajaran As String Private Sub Command1_Click() If Option1.Value = True Then MataPelajaran = Option1.Caption ElseIf Option2.Value = True Then MataPelajaran = Option2.Caption ElseIf Option3.Value = True Then MataPelajaran = Option3.Caption ElseIf Option4.Value = True Then MataPelajaran = Option4.Caption ElseIf Option5.Value = True Then MataPelajaran = Option5.Caption Else MataPelajaran = Option6.Caption End If MsgBox "Mata Pelajaran Yang Anda Pilih adalah : " & MataPelajaran, , "If Then Else" End Sub Private Sub Form_Load()
Microsoft Visual Basic 6.0 – by Iman Basuni
Form1.Caption = "If.... Then .....Else...." Option1.Caption = "Matematika" Option2.Caption = "Fisika" Option3.Caption = "Sejarah" Option4.Caption = "Biologi" Option5.Caption = "Kimia" Option6.Caption = "Statistik" Command1.Caption = "OK" End Sub
TUGAS 2.5 : Berikut ini adalah program menggunakan Check Box. Buatlah tampilan program awal sebagai berikut : Kode Program : Dim MP1, MP2, MP3, MP4, MP5 As String Dim MP6 As String Private Sub Check1_Click() MP1 = Check1.Caption End Sub Private Sub Check2_Click() MP2 = Check2.Caption End Sub Private Sub Check3_Click() MP3 = Check3.Caption End Sub Private Sub Check4_Click() MP4 = Check4.Caption End Sub
Private Sub Check6_Click() MP6 = Check6.Caption End Sub
Private Sub Check5_Click() MP5 = Check5.Caption End Sub Private Sub Command1_Click() MataPelajaran = MP1 & MP2 & MP3 & MP4 & MP5 & MP6 MsgBox "Anda Memilih : " & MataPelajaran Check1.Value = 0: Check2.Value = 0 : Check3.Value = 0: Check4.Value = 0 Check5.Value = 0: Check6.Value = 0
Microsoft Visual Basic 6.0 – by Iman Basuni
MP1 = "": MP2 = "" : MP3 = "": MP4 = "" : MP5 = "": MP6 = "" : End Sub Private Sub Form_Load() Form1.Caption = "Check Box" : Command1.Caption = "OK" Check1.Caption = " Matematika " : Check2.Caption = " Fisika " Check3.Caption = " Sejarah " : Check4.Caption = " Statistik " Check5.Caption = " Kimia " : Check6.Caption = " Biologi " End Sub
TUGAS 2.6 : Berikut ini adalah program menggunakan List Box. Buatlah tampilan program awal sebagai berikut :
Kode Program : Private Sub Form_Load() Form1.Caption = "List Box" List1.AddItem "Matematika" List1.AddItem "Fisika" List1.AddItem "Kimia" List1.AddItem "Sejarah" List1.AddItem "Statistik" List1.AddItem "Biologi" List1.AddItem "Agama" List1.AddItem "Antropologi" List1.AddItem "Komputer" End Sub
Private Sub List1_Click() Index = List1.ListIndex List2.AddItem List1.List(Index) End Sub Private Sub List2_Click() List2.RemoveItem List2.ListIndex End Sub
Microsoft Visual Basic 6.0 – by Iman Basuni