Latihan VB Database

PROGRAM DATABASE

Bekerja dengan Sistem Database dalam Visual Basic

Dalam Visual Basic, Database dapat dibuat dalam dua bentuk

1. Berupa Grid berbentuk tabel yang berisi kumpulan baris/kolom

Fasilitas yang digunakan :

Data Grid control, Grid control, DbList, DBGrid control dan MSFlexGrid control

2. Berbentuk baris dan kolom terpisah

Digunakan teknik file data yang memanfaatkan statement Open.

Kontrol Data

Kontrol Data berguna untuk menampilkan record-record database pada aplikasi.

Properti Kontrol Data

Properti	Keterangan
Caption	Teks judul yang akan ditampilkan ditengah-tengah kontrol data
Connect	Memilih salah satu jenis database yang ada seperti : Access(mdb),dBase(dbf),Foxpro (dbf) dsb.
DatabaseName	Menghubungkan kontrol data dengan file database
RecordSource	Memilih salah atu tabel dari database yang dipilih

Membuat Aplikasi Database

A. Aplikasi Database yang menampilkan record-record pada layar dengan kontrol data tanpa menggunakan fasilitas Grid

Langkah-langkah :

• Buata project baru (Ctrl +N)
• Tambahkan data control pada form
• Buat lima buah kontrol Label, empat buah kontrol Text box dan sebuah command button
• Pilih kontrol data1, ganti properties

Properties	Keterangan
Connect	Access
DatabaseName	C:\Program files\Microsoft Visual Studio\VB98\Bibio.Mdb
RecordSource	Pilih Tabel All Titles
Caption	Tabel Daftar Buku

• Pilih kontrol textbox untuk menampilkan fiel-fiel yang terdapat pada file database Bibio.mdb pada tabel All Titles.klik pada kontrol kotak teks text1.
• Pilih properties datasource, pilih data1 yang akan dijadikan sumber data untuk kotak teks.
• Pilih properties datafield,pilih title. Lakukan untuk textbox berikutnya.

Kontrol	Properti	Nilai
Form1	Caption	Contoh Kontrol Data
Text1	Text DataSource Datafield	(kosongkan) Data1 Author
Text2	Text DataSource Datafield	(kosongkan) Data1 Year Published
Text3	Text DataSource Datafield	(kosongkan) Data1 Title
Text4	Text DataSource Datafield	(kosongkan) Data1 Company Name
Label1	caption	Database Buku Komputer
Label2	caption	Judul Buku
Label3	caption	Penulis
Label4	caption	Tahun
Label5	caption	Penerbit
Command1	caption	Exit

Run Program

B. Aplikasi Database yang menampilkan record-record pada layar dengan kontrol data dan menggunakan fasilitas DBList

Langkah-langkah :

• Buata project baru (Ctrl +N)
• Tambahkan data control pada form
• Klik kanan pada toolbox klik components pilih Microsoft Databound List Control 6.0. Letakkan kontrol DBList
• Pilih kontrol data1, ganti properties

Properties	Keterangan
Connect	Access
DatabaseName	C:\Program files\Microsoft Visual Studio\VB98\Bibio.Mdb
RecordSource	Pilih Tabel All Titles
Caption	Tabel Daftar Buku

• Isi Properti Data Source dan Row Source pada DBList1 dengan data1
• Pilih properti Datafield dan ListField pada DBList 1 dengan memilih nama field yang akan ditampilkan.
• Jalankan Program

Run Program

C. Aplikasi Database yang menampilkan record-record pada layar dengan kontrol data dan menggunakan fasilitas MSFlexGrid

Langkah-langkah

1. Buat New Project

2. Pilih Microsoft FlexGrid control 6.0 pada commmand letakkan MsFlexGrid pada form dan letakkan pula kontrol data pada form.

3. Isis properti Database File pada Data1 dengan browsing file database.ubah pula Recordsource

4. Isi Properti DataSource pada MSFlexGrid dengan memilih kontrol data

5. Klik kanan pada kontrol MSFlexGrid, pilih Properties

6. Pada tab General, ubah bagian FixedCols menjadi 0 dan bagian Cols menjadi 3. klik Ok

7. Jalankan Program.

D. Aplikasi Database yang menampilkan record-record pada layar dengan kontrol data dan menggunakan fasilitas DBGrid

Langkah-langkah

1. Buat New Project

2. Pilih Microsoft Data Bound Grid control 5.0 pada commmand letakkan MsFlexGrid pada form dan letakkan pula kontrol data pada form.

3. Untuk menambah jumlah kolom pada DBGrid, klik kanan DBGrid, pilih Edit

4. Klik kanan sekali lagi, pilih Append

5. Untuk memasukkan data pada database kedalam kontrol klik kanan pada DBGrid, pilih Properties

6. Klik Tab Columns

7. Pada bagian Column, pilih column 0

8. Ketikkan Judul kolom pada bagian Caption

9. Pilih nana field pada bagian DataField

10. Klik Apply

11. Untuk memasukkan data kolom berikutnya, pada bagian column, pilih column1 dan seterusnya. Klik Ok

12. Jalankan Program.

LATIHAN 1

1. Buat Database dalam Access

2. Tampilkan record-record Database dalam Visual Basic dengan menggunakan Kontrol Data. Tambahkan perintah untuk mencari data, tambah data dan hapus. Untuk tampilan desain sesuai kebutuhan.

LATIHAN 2

1. Buat Database dalam Access

2. Tampilkan record-record Database dalam Visual Basic dengan menggunakan Kontrol Data dan menggunakan fasilitas Grid.

Baca Selengkapnya

Latihan VB Stuktur Perulangan

PERULANGAN

Stuktur Perulangan

Digunakan untuk menggulang sabagian rutin sehingga tidak perlu menulis ulang rutin sebanyak perulangan yang diinginkan.

1. Do ... Loop

Berfungsi untuk menggulang blok perintah sampai jumlah tertentu. Perintah ini dipakai jika tidak tahu pasti berapa kali akan diadakan pengulangan blok perintah.

Sintax :

Do while (kondisi) ....perintah.... Loop

Visual Basic akan menguji kondisi, jika hasilnya salah maka akan melewati perintah di bawah Do dan meneruskan ke bagian bawah Loop.

	Do Until Kondisi ....Perintah... Loop

Visual Basic akan melakukan perulangan jika hasil pengujian bernilai salah ( false). Pengulangan ini dilakukan minimal 0 kali.

2. While...Wend

Urutan kode while dan wend akan di ulang terus selama kondisi true (benar) masih berlangsung.

While (kondisi) .....ekspresi... Wend

Syntax :

3. For ... Next

Dipilih jika sudah tahu berapa kali perulangan yang akan dilakukan dalam blok perintah.

Syntax :

For counter = nilaiawal To Nilaiakhir [ Step Kenaikan ] ...............ekspresi......... Next counter

Program Aplikasi Perulangan

Langkah- langkah :

1. Buat Form Aplikasi dan ubah Property

2. Buat Kode Program
   • Klik ganda tombol For..Next

Private Sub Command1_Click()

List1.Clear

For i = 1 To 100

List1.AddItem "angka" & i

Next i

End Sub

· Klik Ganda Tombol Do..Until

Private Sub Command3_Click()

List1.Clear

i = Asc("A")

Do Until i > Asc("Z")

List1.AddItem "huruf" & Chr(i)

i = i + 1

Loop

End Sub

· Klik Ganda Tombol Do..While

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

3. Jalankan Program dengan klik tombol Run atau F5

LATIHAN3

1. Buat program dengan output bilangan genap seperti :

( Simapan Di folder Latihan3, folder Latihan3A, Nama File F31.frm, P31.frm)

2. Buat Program untuk menghitung jumlah kata.

(Simapan Di folder Latihan3, folder latihan3B, Nama File F32.frm, P32.frm)

Baca Selengkapnya

Latihan VB Pernyataan Berkondisi

SELEKSI KONDISI

Pernyataan Berkondisi

1. If

Sintax :

	If (kondisi) Then ......ekspresi..... end If

2. If else

Sintax :

If (kondisi) Then ......ekspresi 1..... Else ......ekspresi 2.... end If

3. Select Case

Sintax :

Select Case ekspresi Case nilai : ........ekspresi 1..... Case nilai : ........ekspresi 2..... Case nilai : ........ekspresi 3..... End Select

Program Aplikasi dengan Menggunakan Pernyataan IF

1. Buat Form Aplikasi dan Ubah Properties Seperti di bawah ini

Ketentuan :

Jika penjualan barang lebih dari 1000000 akan mendapat bonus 15 % dari penjualan, pajak 0.5% dari jumlah gaji pokok dan bonus. Untuk total gaji adalah jumlah semua gaji pokok ditambah bonus dikurangi pajak.

2. Buat Kode Program

Klik Ganda Tombol Proses

Dim penjualan

Dim gajipokok, bonus, pajak, total As Single

Private Sub Command1_Click()

gajipokok = Tgaji.Text

If (TPenjualan.Text > 1000000) Then

bonus = TPenjualan.Text * 0.15

pajak = (gajipokok + bonus) * 0.05

total = gajipokok + bonus - pajak

Else

bonus = 0

pajak = (gajipokok + bonus) * 0.05

total = gajipokok + bonus - pajak

End If

TBonus.Text = bonus

TPajak.Text = pajak

TTotal.Text = total

End Sub

Program Aplikasi dengan Menggunakan Pernyataan Case...Of

1. Buat Form Aplikasi dan Ubah Properties Seperti di bawah ini

2. Buat Kode Program

· Klik ganda text1

Private Sub Text1_Change()

pilihan = Text1.Text

Select Case pilihan

Case 1: Text2.Text = "Rp 6000"

Case 2: Text2.Text = "Rp 5000"

Case 3: Text2.Text = "Rp 7000"

Case 4: Text2.Text = "Rp 10000"

Case Else: Text2.Text = "pilihan salah"

End Select

End Sub

· Klik Ganda Tombol Clear

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

3. Jalankan Program dengan mengklik tombol Run atau F5

LATIHAN2

1. Buat Project Kasir di sebuah restoran, gunakan kondisi if, if..else atau case. Dengan output program sebagai berikut : ( Simpan program di folder Latihan2, folder latihan 2A, Nama file F21. frm , P21 ).

2. Seperti latihan1, buat Program aplikasi Pembayaran Listrik selama 1 bulan. Desain program sesuai dengan kebutuhan. ( Simpan program di folder Latihan2, folder latihan 2B, Nama file F22. frm , P22 ).

Baca Selengkapnya

Latihan VB Input Output

Program Input Nama

Langkah- langkah

1. Buat form baru dan letakkan komponen pada form sebagai berikut :

2. Ubah Properties

Kontrol	Propery	Nilai
Form1	Caption	Input Nama
Label1	Caption	Nama Depan
Label2	Caption	Nama Belakang
Label3	Caption	Nama Lengkap
Text1	Text	< Kosongkan >
Text2	Text	< Kosongkan >
Text3	Text	< Kosongkan >
Command1	Caption	Proses

3. Buat Kode Program

Klik Ganda Tombol Proses

Private Sub Command1_Click()

Text3.Text = Text1.Text + Text2.Text

End Sub

Program Gerak

Langkah – langkah

1. Buat form baru dan letakkan komponen pada form sebagai berikut :

2. Ubah Property

Kontrol	Property	Nilai
Form1	Caption	Gerak
Commandbutton1	Name	Cnaik
Commandbutton2	Name	Cturun
Commandbutton3	Name	Ckanan
Commandbutton4	Name	Ckiri
Shape1	Shape Borderstyle	5 - Rounded Square Solid

3. Buat Kode Program

· Klik Ganda Tombol Naik

Private Sub Cnaik_Click()

Shape1.Top = Shape1.Top - 100

End Sub

· Klik Ganda Tombol Turun

Private Sub Cturun_Click()

Shape1.Top = Shape1.Top + 100

End Sub

· Klik Ganda Tombol Kanan

Private Sub Ckanan_Click()

Shape1.Left = Shape1.Left + 100

End Sub

· Klik Ganda Tombol Kiri

Private Sub Ckiri_Click()

Shape1.Left = Shape1.Left - 100

End Sub

4. Jalankan Program Dengan Mengklik tombol Run atau F5

LATIHAN 1

1. Buat program untuk menginputkan umur dengan menggunakan input box. Output program seperti di bawah ini. ( Simpan program dengan folder Latihan1, folder Latihan1A, Nama file F11. frm , P11.frm ).

2. Buat program kalkulator yaitu : penjumlahan, pengurangan, perkalian dan pembagian dan pangkat dengan menggunakan operasi aritmatika.(Simpan program dengan folder Latihan1, folder Latihan1B, Nama file F12. frm , P12.frm).

3. Buat Program Gerak dengan menggunakan kontrol timer. Kriteria Kanan, Kiri, Naik, Turun, Center dan Stop. ( Simpan program dengan folder Latihan1, folder Latihan1C, Nama file F13. frm , P13.frm ).

Baca Selengkapnya