Mengenal Visual Basic (VB)

Mengenal Visual Basic (VB) Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose

Symbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual Basic merupakan salah satu

Development Tool yaitu alat bantu untuk membuat

berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows. Visual Basic merupakan salah satu bahasa pemrograman komputer yang mendukung object ( Visual

Basic

merupakan

Object Oriented Programming = OOP). software

pengembangan

dari

bahasa

pemrograman BASIC dengan ramai pemrograman beroientasi object (visual) maka lahir bahasa pemrograman Visual Basic, yang didukung aplikasi-aplikasi lain seperti Crystal Report, Microsoft Access dan lain-lainnya. Beberapa Pengertian penting OOP. 1. Properties Propeties adalah karakteristik atau atribut-atribut yang dimiliki oleh suatu objek, contoh : Tinggi Objek, Lebar Objek, Nama Objek dan Lain-lainnya. Atau karakteristik yang dimiliki object 2. Event Event adalah suatu kejadian yang dimiliki oleh suatu objek, seperti kejadian jika objek ditinggalkan, kejadian jika objek diklik, kejadian jika objek diubah dan lain-lainnya. Atau kejadian yang dapat dialami oleh object 3. Form Form adalah tempat kita membuat tampilan program atau tempat untuk menempatkan objek-objek. 4. Method Method adalah suatu perintah seperti halnya fungsi dan procedure. Atau aksi yang dapat dilakukan oleh object 5. Variabel, Variabel adalah suatu tempat untuk menampung data sementara yang memikili jenis data tertentu sesuai dengan jenis data yang dikandungnya.

6. Konstanta Konstanta adalah suatu tetapan yang tidak dapat berubah selama program berjalan, tidak seperti variable dapat berubah. 7. Jenis Data Setiap Variabel harus mempunyai jenis data yang perlu diperhatikan dari jenis data ini dalah penggunaan memori, sesuai dengan kebutuhan. Contoh : Integer, Single, Double, dan Lain-lainnya. 8. Operator Operator adalah suatu yang menghubungkan operand seperti jumlah, kurang, kali dan lain-lainnya. Contoh : C=A*B. tanda * merupakan operator yang menghubungkan operand A, B. Mengenal Integrated Development Environment (IDE) VB 6 Aktifkan VB 6 melalui tombol Start > Programs > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0. Tunggulah beberapa saat hingga muncul tampilan berikut :

Pilih Standard EXE dan klik tombol Open. Anda akan melihat tampilan area kerja atau IDE VB 6. Kenali bagian-bagian utama di dalam IDE VB 6 berikut ini :

Menggunakan Event dan Property Membuat User Interface (UI) Aktifkan VB 6 melalui tombol Start. Kenali jenis-jenis komponen (control) yang ada di dalam bagian ToolBox :

Untuk Latihannya silahkan coba masukkan beberapa komponen yang ada pada toolbox diatas seperti : Label, textbox, command button, dll. Mengatur Property Object Kenali bagian-bagian di dalam Jendela Properties :

Untuk mengatur suatu objek yang dimasukkan, anda bisa mengaturnya melalui property suatu objek/ komponen yang dimasukkan. Menulis Kode Program : Property Test

Buka Jendela Code dan kenali bagian-bagian di dalamnya :

Program yang berbasis Windows bersifat event-driven, artinya program

bekerja berdasarkan event yang terjadi pada object di dalam program tersebut. Misalnya, jika seorang user meng-klik sebuah tombol maka program akan memberikan “reaksi” terhadap event klik tersebut. Program akan memberikan “reaksi” sesuai dengan kode-kode program yang dibuat untuk suatu event pada object tertentu. Pilih object Command1 pada bagian Object Selector. Secara otomatis pada bagian Code Editor akan muncul blok kode program berikut : Private Sub Command1_Click() End Sub Dalam jendela code erdapat pernyataan-pernyataan program yang menandai awal dan akhir subrutin Visual Basic tertentu, atau event procedure, sebuah blok kode yang berhubungan dengan objek tertentu pada antarmuka.

Tip ; Nama lain untuk pengejaan, urut-urutan serta pemakaian spasi yang tepat pada penulisan keyword pada program disebut dengan sitilah statement syntax. Sewaktu anda mengetikkan kode program, Visual Basic memformat teks tersebut dan menampilkan bagian-bagian program yang berbeda dengan warna untuk membantu anda mengenali elemen yang berbeda. Apabila anda mengetikkan sebuah property, Visual Basic juga menampilkan property yang tersedia untuk objek yang anda gunakan pada kotak daftar. Jika Visual Basic menampilkan pesan error, berarti anda salah mengetikkan pernyataan program. Periksalah baris program kembali, buatlah perbaikan yang diperlukan, lalu lanjtkan mengetikkan sintax programnya.

PEMBELAJARAN 1 Program tampilan Sederhana

Program dibawah ini sebagai latihan awal untuk membuatkan sebuah program sederhana dengan menampilkan suatu text dalam label sehingga menghasilkan tampilan keluaran berupa tulisan “Selamat Datang di Pemrograman Visual Basic”. Latihan 1 :  Buatkan tampilan dibawah ini dengan menggunakan Label dan

Command Button.

 Sintax Program Button ”Pesan Saya” Private Sub Command1_Click() Label1.Caption ="Selamat Datang di Pemrograman Visual Basic" Label1.ForeColor = vbBlue End Sub

Latihan 2 :

 Buatkan Tampilan form dibawah ini dengan menggunakan : Label, Text dan Command Button

 Sintax Program ; Private Sub Command1_Click() Label1.Caption = Text1.Text Label1.Font.Size = 16 Label1.ForeColor = vbBlue Label1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Activate() Text1.SetFocus End Sub

Latihan 3 :

 Buatkan Tampilan form dibawah ini dengan menggunakan : Label, Text, Command Button, Option Button, Checkbox dan Frame

 Sintax Program ; Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() End End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub Check3_Click() Label2.FontUnderline = Check3.Value End Sub

Latihan 4 :  Buatkan Tampilan form dibawah ini dan Tuliskan Sintax programnya.

PEMBELAJARAN 2 Pada Pembelajaran kedua kita mencoba menggunakan Komponen lain untuk bisa membuat suatu program inputan pada komponen Label, Text, Listbox dan komponen Combobox. Latihan 1 :  Buatkan tampilan dibawah ini dengan menggunakan Label dan Combo

dan Button.

 Sintax Program ; Private Sub Form_Load() Combo1.AddItem "Pemrograman"

Combo1.AddItem "Microsoft" Combo1.AddItem "Visual" Combo1.AddItem "Basic" End Sub Private Sub Combo1_Click() Label1.Caption = Combo1.Text Combo1.SetFocus End Sub Private Sub Command1_Click() Label1.Caption = Combo1.Text Combo1.SetFocus End Sub Latihan 2 :  Buatkan tampilan dibawah ini dengan menggunakan Label dan Combo

dan Button.

Keterangan :

Combo1 berisi Beberapa Field ini :

Combo2 berisi Field :

-

Microsoft Windows XP

-

Microsoft Word

-

Linux

-

Microsoft Excell

-

UNIX

-

Microsoft Access

-

Macinthosh

-

Microsoft Power Point

-

Free BSD

-

Microsoft Publisher

-

Button Proses untuk mengaktifkan data yangada di label supaya muncul sesuai yang ada pada Combo.

-

Button Ulang berfungsi untuk menghilangkan kembali tulisan yang ada pada label.

Latihan 3 :  Buatkan tampilan dibawah ini dengan menggunakan listbox dan

Combo dan Button.

-

Isi combo dengan beberapa field nama seseorang : Michael Jhonson Peter Smith Albert Enstein

Linus Torvalds Bill Gates

-

Perintah Add untuk menampilkan data yang di combo muncul pada listbox.

-

Perintah Delete untuk menghapus field yang sudah masuk di listbox. Dengan menghapus satu-satu pada listbox.

-

Perintah Clear untuk mengosongkan kembali tampilan pada ListBox. PEMBELAJARAN 3 Penggunaan Data dan Variabel

Mengenal Data dan Variabel Ketika seorang user (pengguna) menggunakan sebuah program komputer, seringkali komputer memintanya untuk memberikan informasi. Informasi ini kemudian disimpan atau diolah oleh komputer. Informasi inilah yang disebut dengan DATA. Visual Basic 6 mengenal beberapa type data, antara lain : - String adalah type data untuk teks (huruf, angka dan tanda baca). - Integer adalah type data untuk angka bulat. - Single adalah type data untuk angka pecahan. - Currency adalah type data untuk angka mata uang. - Date adalah type data untuk tanggal dan jam. - Boolean adalah type data yang bernilai TRUE atau FALSE. Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu membutuhkan alokasi jumlah memory (byte) yang berbeda. Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program : Dim As Contoh : Dim nama_user As String Aturan di dalam penamaan variabel : - Harus diawali dengan huruf. - Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter underscore (_). - Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <, >, dll). - Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh Visual Basic 6 (seperti : dim, as, string, integer, dll).

Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan type datanya. Cara mengisi nilai data ke dalam sebuah variabel : = Contoh : nama_user = “krisna” Untuk type data tertentu nilai_data harus diapit tanda pembatas. Type data string dibatasi tanda petikganda : “nilai_data”. Type data date dibatasi tanda pagar : #nilai_data#. Type data lainnya tidak perlutanda pembatas. Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) : - Variabel global adalah variabel yang dapat dikenali oleh seluruh bagian program. Nilai data yang tersimpan didalamnya akan hidup terus selama program berjalan. - Variabel lokal adalah variabel yang hanya dikenali oleh satu bagian program saja. Nilai data yang tersimpan didalamnya hanya hidup selama bagian program tersebut dijalankan. Variabel yang nilai datanya bersifat tetap dan tidak bisa diubah disebut KONSTANTA. Penulisan deklarasi konstanta di dalam kode program : Const As = Contoh : Const tgl_gajian As Date = #25/09/2003# Latihan 1 : Buatkan tampilan dibawah ini dengan menggunakan Button dan Text.

Sintax Program Private Sub Command1_Click() Dim test1 As String test1 = "nusantara" Label1.Caption = test1 End Sub

Private Sub Command2_Click() Dim Test2 As Integer test2 = 10 Label1.Caption = test1 End Sub Private Sub Command3_Click() Const test3 As Single = 90.55 Label1.Caption = test1 End Sub

Latihan 2 : Buatkan tampilan dibawah ini dengan menggunakan Button dan Text.

Sintax Program : Private Sub Command1_Click() Dim X, Y As Integer X = Text1.Text Y = Text2.Text Text3.Text = X + Y End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Latihan 3 : Buatkan tampilan dibawah ini dan tuliskan sintax programnya.

PEMBELAJARAN 4 QUIS Visual Basic 6 mengenal beberapa type data, antara lain : - String adalah type data untuk teks (huruf, angka dan tanda baca). - Integer adalah type data untuk angka bulat. - Single adalah type data untuk angka pecahan. - Currency adalah type data untuk angka mata uang. - Date adalah type data untuk tanggal dan jam. - Boolean adalah type data yang bernilai TRUE atau FALSE. Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu membutuhkan alokasi jumlah memory (byte) yang berbeda. Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program :

Dim As Contoh : Dim nama_user As String Latihan 1 : Buatkan tampilan dibawah ini :

Code Program : Dim var1 As Single, var2 As Single Dim hasil As Single Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Label3.Caption = "" End Sub

Private Sub Option7_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 < var2) Label3.Caption = Format(hasil, "True/False") End Sub

Private Sub Option1_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 + var2 Label3.Caption = hasil End Sub

Private Sub Option8_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 = var2) Label3.Caption = Format(hasil, "True/False") End Sub

Private Sub Option2_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 - var2 Label3.Caption = hasil End Sub

Private Sub Option9_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <> var2) Label3.Caption = Format(hasil, "True/False") End Sub

Private Sub Option3_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 * var2 Label3.Caption = hasil End Sub

Private Sub Option10_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 >= var2) Label3.Caption = Format(hasil, "True/False") End Sub

Private Sub Option4_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 / var2 Label3.Caption = hasil End Sub

Private Sub Option11_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <= var2) Label3.Caption = Format(hasil, "True/False") End Sub

Private Sub Option5_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 & var2 Label3.Caption = hasil End Sub

Private Sub Option12_Click() var1 = IIf(Text1.Text = "True", -1, 0) hasil = Not (var1) Label3.Caption = Format(hasil, "True/False") End Sub

Private Sub Option6_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 > var2) Label3.Caption = Format(hasil, "True/False") End Sub

Private Sub Option13_Click() var1 = IIf(Text1.Text = "True", -1, 0) var2 = IIf(Text2.Text = "True", -1, 0) hasil = (var1 Or var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option14_Click() var1 = IIf(Text1.Text = "True", -1, 0)

var2 = IIf(Text2.Text = "True", -1, 0) hasil = (var1 And var2)

Label3.Caption = Format(hasil, "True/False") End Sub

Latihan 2 :

Kerjakan soal dibawah ini sebagai penilaian QUIS anda: 1. Buatkan satu tampilan program untuk menampilkan rumus Volume dan Luas Balok. 2. Buatkan tampilan program untuk menampilkan rumus Volume Tabung. 3. Buatkan tampilan program untuk menampilkan rumus Luas Segitiga. 4. Buatkan

tampilan

program

untuk

menampilkan

rumus

Luas

Lingkaran.

PEMBELAJARAN 5 MENGENAL STRUKTUR KONTROL Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program. Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu : 1. Struktur kontrol keputusan - digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi. Akan dibahas pada bab ini. 2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program. Akan dibahas pada bab selanjutnya. Ada dua bentuk struktur kontrol keputusan, yaitu : 1. Struktur IF…THEN. Akan dibahas pada bab ini. 2. Struktur SELECT…CASE. Akan dibahas pada bab selanjutnya. Bentuk penulisan (syntax) struktur IF…THEN : 1. IF THEN Bila bernilai True maka akan dikerjakan. 2. IF THEN ELSE END IF Bila bernilai True maka akan dikerjakan, tetapi bila bernilai False maka yang akan dikerjakan.

Latihan 1 :

 Sintax Program ; Private Sub Command1_Click() If Text1.Text = "Rahasia" Then Image1.Visible = True End Sub Anda juga bisa menuliskan Code Program seperti dibawah ini dengan menggunakan fungsi kondisi If-Then-Else :  Sintax Program ; Private Sub Command1_Click() If Text1.Text = "Rahasia" Then Image1.Visible = True Text1.Enabled = False Command1.Enabled = False Else MsgBox "Passwordnya Salah !" Text1.Text = "" Text1.SetFocus End If End Sub

Latihan 2 : Buat tampilan program dan masukkan componen Label, Text dan Command. Keterangan program akan menampilkan jika : Nilai

Keterangan

A

Sangat Baik

B

Baik

C

Cukup

D

Kurang

Selain itu

Tidak Dikenal

Latihan 3 : Buat tampilan program dan masukkan componen Label, Text dan Command. Keterangan program akan menampilkan jika : Nilai

Keterangan

>= 90

Sangat Memuaskan

80 – 89

Memuaskan

70 – 79

Baik

60 – 69

Cukup

0 – 59

Kurang PEMBELAJARAN 6

MENGENAL STRUKTUR KONTROL Ada dua bentuk struktur kontrol keputusan, yaitu : 1. Struktur IF…THEN. Sudah dibahas pada bab yang lalu. 2. Struktur SELECT…CASE. Akan dibahas pada bab ini.

1.2 Struktur Kontrol Select…Case Bentuk penulisan (syntax) struktur SELECT…CASE : SELECT CASE CASE CASE CASE [CASE ELSE ] END SELECT Bila sesuai dengan maka akan dikerjakan, dst. Tetapi bila tidak ada yang sesuai dengan s/d maka yang akan dikerjakan. Latihan 1 :

 Sintax Program ; Private Sub Form_Load() List1.AddItem "Disket" List1.AddItem "Buku" List1.AddItem "Kertas" List1.AddItem "Pulpen" End Sub Private Sub Command1_Click() Dim harga As Currency, total As Currency Dim jumlah As Integer Dim diskon As Single Dim satuan As String If List1.Text = "" Then MsgBox "Anda belum memilih barang !!" List1.ListIndex = 0 Exit Sub End If If Text1.Text = "" Then MsgBox "Anda belum mengisi jumlah barang !!" Text1.SetFocus Exit Sub End If Select Case List1.Text Case "Disket" harga = 35000 satuan = "Box" Case "Buku" harga = 20000 satuan = "Lusin" Case "Kertas" harga = 25000 satuan = "Rim" Case "Pulpen" harga = 10000 satuan = "Pak" End Select lblBarang.Caption = "Barang : " & List1.Text lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan jumlah = Text1.Text Select Case jumlah Case Is < 10 diskon = 0 Case 10 To 20

diskon = 0.15 Case Else diskon = 0.2 End Select total = jumlah * (harga * (1 - diskon)) lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %") lblTotal.Caption = "Total Bayar : " & Format(total, "Currency") End Sub

Latihan 2 : Buat tampilan program dan masukkan componen Label, Text dan Command. Keterangan program akan menampilkan jika : Nilai

Keterangan

A

Sangat Baik

B

Baik

C

Cukup

D

Kurang

Selain itu

Tidak Dikenal

Latihan 3 : Buat tampilan program dan masukkan componen Label, Text dan Command. Keterangan program akan menampilkan jika : Nilai

Keterangan

>= 90

Sangat Memuaskan

80 – 89

Memuaskan

70 – 79

Baik

60 – 69

Cukup

0 – 59

Kurang

PEMBELAJARAN 7 PENGGUNAAN STRUKTUR KONTROL PENGULANGAN Mengenal Struktur Kontrol Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program. Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu : 1. Struktur kontrol keputusan - digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi. Sudah dibahas pada bab lalu. 2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program. Akan dibahas pada bab ini. Ada dua bentuk struktur kontrol pengulangan (looping), yaitu : 1. Struktur FOR…NEXT. 2. Struktur DO…LOOP. 

STRUKTUR KONTROL FOR…NEXT Bentuk penulisan (syntax) struktur For…Next : FOR = TO [STEP ] NEXT adalah variabel (tipe: integer) yang digunakan untuk menyimpan angka pengulangan. adalah nilai awal dari . adalah nilai akhir dari . adalah perubahan nilai setiap pengulangan. Sifatnya optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai adalah 1.  STRUKTUR KONTROL DO…LOOP Bentuk penulisan (syntax) struktur Do…Loop : 1. DO WHILE LOOP akan diulang selama bernilai TRUE. Pengulangan berhenti bila sudah bernilai FALSE. 2. DO UNTIL LOOP akan diulang sampai bernilai TRUE. Pengulangan berhenti bila sudah bernilai TRUE.

Latihan 1 :

 Sintax Program ; Dim i As Integer Private Sub Command1_Click() List1.Clear For i = 1 To 100 List1.AddItem "Angka " & i 'If i = 50 Then Exit For Next i End Sub Private Sub Command2_Click() List1.Clear For i = 100 To 1 Step -2 List1.AddItem "Angka " & i Next i End Sub

Latihan 2 :

Private Sub Command3_Click() List1.Clear i = Asc("A") Do Until i > Asc("Z") List1.AddItem "Huruf " & Chr(i) 'If Chr(i) = "M" Then Exit Do i=i+1 Loop End Sub Private Sub Command4_Click() List1.Clear i = Asc("Z") Do While i >= Asc("A") List1.AddItem "Huruf " & Chr(i) i=i-1 Loop End Sub

Gunakan Struktur Kontrol For..Next atau Do..Loop Buatkan code programnya Jika di Klik tiap Button, dengan ketentuan :  List1 berisi tulisan “Pemrograman “ sebanyak 100  List1 berisi tulisan “Visual “ sebanyak 100  List1 berisi tulisan “Basic “ sebanyak 100 Latihan 3 :

Ketentuan :  Combo1 berisi “Pemrograman”, “Visual”, “Basic”.  Setiap isi yang ditampilkan di combo1 akan keluar di List1 sebanyak 100 kali.

PEMBELAJARAN 8 PENGGUNAAN MENU EDITOR DAN SSTAB MENGGUNAKAN MENU EDITOR Untuk membuat menu dalam tampilan Form memerlukan tahapan sebagai berikut : 1. Buka project dan tampilan form baru dan atur tampilan form secukupnya. 2. Klik icon Menu Editor yang terdapat pada Toolbar, akan tampil gambar sebagai berikut ;

Keterangan :  Caption  Name  Enable  Visible  Shortcut  Ikon Panah (Submenu)

: : : : : :

untuk judul atas menu utama. Untuk memberi nama pengenal menu untuk supaya menu dapat dipilih untuk menu dapat ditampilkan dilayar untuk menambah tombol singklat di menu untuk menurunkan atau menaikkan level menu

MENGGUNAKAN SSTAB Untuk dapat mengaktifkan ikon SSTAB kita harus mengambil ikon dari Component, Caranya : 1. Klik menu Project – Component. Atau tekan tombol Ctrl+T. 2. Aktifkan dengan cara klik check box pada Microsoft Tabbed Dialog Control 6.0. 3. maka akan muncul ikon SSTAB. 4. Tentukan Tabs dan TabsPerRow nya. Latihan 1 : Buat tampilan form seperti dibawah ini dengan menggunakan Menu Editor. BARANG

SUPPLIER

INPUT BARANG EDIT BARANG HAPUS BARANG LIHAT BARANG CETAK BARANG

INPUT SUPPLIER EDIT SUPPLIER CETAK SUPPLIER

PEMBELIAN INPUT PEMBELIAN CETAK PEMBELIAN

EXIT KELUAR

PROGRAM PEMBELIAN Latihan 2 : Buat tampilan dan Jalankan masing-masing menu yang ada dengan menampilkan tampilan form sesuai perintah. LATIHAN RUMUS VOLUME BALOK VOLUME TABUNG

LUAS SEGITIGA

FORM FORM KOSONG 1 FORM KOSONG 2 FORM KOSONG 3

EXIT KELUAR PROGRAM

LUAS LINGKARAN

PROGRAM RUMUS

Latihan 3 : Buatkan tampilan seperti dibawah ini dengan mengisi setiap isian Tabsnya.

PEMBELAJARAN 9 MEMBUAT DATABASE & TABEL LEWAT VDM (VISUAL DATABASE MANAGER) Visual Basic merupakan software database, salah satu fasilitas aplikasinya adalah didukung oleh aplikasi Add Ins, sebagai contoh VDM (Visual Database Manager). Tahapan Pembuatan Database dan tabel lewqat VDM sebagai berikut : Di menu Visual Basic pilih Add Ins – Visual Data Manager maka akan muncul tampilan berikut :

Untuk membuatkan database baru, pada Visdata tersebut masuk pada menu File – New – Microsoft Access – Version 7.0 MDB. maka akan muncul perintah untuk menyimpan dahulu nama Database dari tempat nanti kita akan menyimpan Tabel-tabel. Kemudian ketikkan nama Database nya dan simpan pada folder sesuai dengan tempat kita akan menyimpan file-file program nya.

Sesudah kita menyimpan Database maka tampilan akan kembali ke Visdata dan akan muncul Database Window. Setelah itu anda Klik kanan pada Properties – New Table. Seperti tampilan dibawah ini :

Setelah melaksanakan perintah diatas maka akan muncul Table Structure untuk mengisi data Field.

Sebagai contoh membuat tabel data Mahasiswa, ketik pada Table Name : TblMhs. Kemudian untuk mengisi Field, anda klik Add Field dan ketiikan field-field dibawah ini ;

Field Name NIM Nama Mahasiswa Jenis Kelamin Tempat Lahir Tgllahir Status Alamat Pendidikan No _Telpon

Type Text Text Text Text Date Text Text Text Integer

Size 10 30 10 10

Tampilan untuk memasukkan Field-field seperti dibawah ini ;

10 50 10

Sesudah anda memasukkan filed-field yang dibutuhkan untuk membuat table kemudian klik Close dan klik No untuk menyimpan tabelnya. Setelah anda membuatkan table diatas untuk selanjutnya gunakan table tersebut pada tampilan inputan yang ada pada form Visual Basic dengan cara membuat dahulu tampilan form. Jadi sekarang anda masuk pada tampilan Form Visual Basic dan simpanlah beberapa komponen pada tampilan Formnya seperti tampilan form dibawah ini ; Latihan 1 ; Isilah Data mahasiswa ini sebanyak 10 record untuk bisa membedakan tiap data yang ada.

No 1 2 3 4 5 6

Object Label1 Label2 Label3 Label4 Label5 Label6

Properties Caption Caption Caption Caption Caption Caption

Nilai DATA MAHASISWA NIM NAMA JENIS KELAMIN TEMPAT LAHIR TGL LAHIR

7 8 9 10 11

Label7 Label8 Label9 Label10 Data1

12

Text1

13

Text2

14

Text3

15

Text4

16

Text5

17

Text6

18

Text7

19

Text8

20

Text9

21 22 23

Command1 Command2 Command3

Caption Caption Caption Caption Caption Database Name RecordSource Text Data Source Data Field Text Data Source Data Field Text Data Source Data Field Text Data Source Data Field Text Data Source Data Field Text Data Source Data Field Text Data Source Data Field Text Data Source Data Field Text Data Source Data Field Caption Caption Caption

 Code Program Button Simpan ; Private Sub Command1_Click() Data1.Recordset.Update End Sub  Code Program Button Tambah ; Private Sub Command2_Click()

STATUS ALAMAT PENDIDIKAN NO TELPON TABEL DATA MAHASISWA Browse ke file .Mdb TblMhs None Data1 NIM None Data1 NAMA None Data1 JENIS KELAMIN None Data1 TEMPAT LAHIR None Data1 TGLLAHIR None Data1 STATUS None Data1 ALAMAT None Data1 PENDIDIKAN None Data1 NO TELPON &Simpan &Tambah &Keluar

Data1.Recordset.AddNew Text1.SetFocus End Sub  Code Program Button Keluar ; Private Sub Command3_Click() End End Sub  Code Program Form Active ; Private Sub Form_Activate() Data1.Recordset.AddNew Text1.SetFocus End Sub MEMBUAT DATABASE & TABEL LEWAT VDM (VISUAL DATABASE MANAGER) Latihan 1 ;

Form Utama ; Untuk Command2, Command3, Command4 Pada Properties Alphabetic, Enabled nya False.

-

Code Program ;

Form Utama Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False End Sub Private Sub Command3_Click() Form3.Show End Sub Private Sub Command4_Click() Form4.Show End Sub Private Sub Command5_Click() MsgBox ("Terima Kasih Telah menggunakan Program ini..!") End End Sub Form Password Private Sub Command1_Click() If (Text1.Text = "Buka") And (Text2.Text = "Buka") Then Form1.Command2.Enabled = True Form1.Command3.Enabled = True

Form1.Command4.Enabled = True Form2.Hide Else MsgBox ("Password Atau Pengguna Salah..!") Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End Sub Private Sub Command2_Click() Form2.Hide End Sub Private Sub Form_Activate() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Form Input Data Private Sub Command1_Click() If Command1.Caption = "&Simpan" Then Data1.Recordset.Update Command1.Caption = "&Tambah" Else If Command1.Caption = "&Tambah" Then Data1.Recordset.AddNew Command1.Caption = "&Simpan"

Text1.SetFocus End If End If End Sub

End Sub Private Sub Command4_Click() Form3.Hide End Sub

Private Sub Command2_Click() Data1.Recordset.Edit End Sub Private Sub Command3_Click() Data1.Recordset.Delete

Private Sub Form_Activate() Data1.Recordset.AddNew Text1.SetFocus End Sub

Untuk Form Lihat Data Gunakan Data Grid dan AdoDc dengan mengambil Component pada Toolbox nya. Aktifkan - Microsoft Ado Data Control 6.0 (OLEDB) - Microsoft DataGrid Control 6.0 (OLEDB)

MEMBUAT PROGRAM APLIKASI DATABASE Untuk selanjutnya buatkan program aplikasi dengan menggunakan Visual basic dengan ketentuan ; 1. Program harus mempunyai menu utama sebagai awal tampilan. 2. Program harus mempunyai sekuriti / keamanan sehingga orang tidak mudah sembarangan masuk atau menggunakan program tersebut. 3. Program harus mempunyai fasilitas untuk penginputan data. 4. Program harus mempunyai fasilitas untuk mengeditan/ pengubahan, sehingga apabila terjadi kesalahan pada data, data tersebut bisa diperbaiki. 5. Program harus mempunyai fasilitas untul melihat / mencetak suatu data. 6. Program harus mempunyai Fasilitas untuk pencarian suatu data. (Searching/ Filtering). 7. Program harus ditata tampilannya sebagus mungkin serta mudah digunakan (User Friendly). 8. Buatkan Program ini dengan minimal 3 tabel yang dimasukkan.