Bab Viii

BAB VIII WINDOWS MEDIA PLAYER Langkah 1 Langkah 2

: Buat sebuah form dan kemudian : Aktifkan Command Dialog dan Windows Media Player Melalui ProjectComponent

Langkah 3

: Desainlah sebuah form dengan ketentuan sebagai berikut. Control Form1 Command1 Command2 CommonDialog1 MediaPlayer1

Properti Name Caption Name Caption Name Caption Name Name

Setting Form1 Windows Media Player Command1 &Buka File Command2 &Selesai CommonDialog1 MediaPlayer1

Sehingga tampak sebagai berikut:

Langkah 4

: Ketik Kode Berikut: Private Sub Command1_Click() CommonDialog1.ShowOpen MediaPlayer1.FileName = CommonDialog1.FileName End Sub Private Sub Command2_Click() End End Sub

Langkah 5

: Jalankan…..

BAB IX Pemrograman Database Langkah 1

: Bukalah project baru dan buatlah satu buah form standar.

Langkah 2

: Pada menu pilih [Add-Ins] [Visual Data Manager]

Langkah 3

: Buatlah database baru dengan memilih [File] [New] [Microsoft Access] [Version 7.0 MDB], kemudian ketik nama databasenya

Langkah 4

: Kemudian buatlah tabel pada database tersebut, dengan melakukan klik kanan pada [Properties] [New Table], kemudian ketik nama tablenya

Langkah 5

: Buatlah field-field dengan struktur sebagai berikut: No 1 2 3 4 5

Nama Field Nama Usia Pendidikan Terakhir Jenis_Kelamin Alamat

Type Text Text Text Text Text

Size 50 2 25 25 50

Keterangan

Langkah 6

: Setelah seluruh field dibentuk, klik [Build The Table] sehingga sebuah table dengan nama biodata terbentuk.

Langkah 7

: Kemudian buatlah interface (form) dengan ketentuan sebagai berikut: No 1 2 3 4 5 6 7

Control Label1 Label2 Label3 Option1 Option2 Label4 Text1

Properties Caption Caption Caption Caption Caption Caption Name Text 8 Text2 Name Text 9 Combo1 Name Text List 10 Text3 Name Text 11 Command1 Name Caption 12 Command2 Name Caption 13 Command3 Name Caption 14 Command4 Name Caption Desainlah hingga tampak seperti berikut:

Setting Nama Usia Pendidikan Terakhir “Laki-laki” “Perempuan” Alamat Txtnama “” Txtusia “” Cmbpdd “” SD, SMP, SMU, S1, S2, S3 Txtalm “” Cmdsimpan &Simpan Cmdkoreksi &Koreksi Cmdhapus &Hapus Cmdkeluar &Keluar

Langkah 8

:

Langkah 9

:

Tambahkan satu buah kontrol “Data1” ke from yang dibuat kemudian ubahlah Properties: Databasename = (Hubungkan dengan database yang telah dibuat), dan Properties: Recordsource = “biodata”

Ketiklah kode berikut:

Dim cari As String * 25 ------ ketikkan pada bagian general Private Sub cmbpdd_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Option1.SetFocus End If End Sub Private Sub cmdhapus_Click() Dim panjang As String Dim X As String cari = InputBox("Ketik Nama yang ingin dihapus", "Hapus Data", "Ketik disini!") panjang = Len(cari) Data1.Recordset.FindFirst "nama='" + cari + "'" If Data1.Recordset.NoMatch Then MsgBox "Data Tidak ditemukan !!", vbCritical, "Error" Else X = MsgBox("Anda yakin data akan dihapus?", vbQuestion + vbOKCancel, "Konfirmasi") If X = vbOK Then Data1.Recordset.Delete kosong End If End If End Sub

Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdkoreksi_Click() Dim panjang As String cari = InputBox("Ketik Nama yang ingin dikoreksi", "Koreksi Nama", "Ketik disini!") panjang = Len(cari) Data1.Recordset.FindFirst "nama='" + cari + "'" If Data1.Recordset.NoMatch Then MsgBox "Data Tidak ditemukan !!", vbCritical, "Error" Else With Data1.Recordset txtnama.Text = !nama txtusia.Text = !usia cmbpdd.Text = !pendidikan If !jenis_kelamin = "Laki-laki" Then Option1.Value = True Else Option2.Value = True End If txtalm.Text = !alamat End With cmdsimpan.Enabled = False End If End Sub Private Sub cmdsimpan_Click() With Data1.Recordset .AddNew !nama = txtnama.Text !usia = txtusia.Text !pendidikan = cmbpdd.Text If Option1.Value = True Then !jenis_kelamin = Option1.Caption Else !jenis_kelamin = Option2.Caption End If !alamat = txtalm.Text .Update End With kosong End Sub Private Sub kosong() txtnama = "" txtusia = "" cmbpdd = "" txtalm = "" End Sub Private Sub cmdupdate_Click() With Data1.Recordset .Edit !nama = txtnama.Text

!usia = txtusia.Text !pendidikan = cmbpdd.Text If Option1.Value = True Then !jenis_kelamin = Option1.Caption Else !jenis_kelamin = Option2.Caption End If !alamat = txtalm.Text .Update End With kosong End Sub Private Sub Form_Load() End Sub Private Sub Option1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalm.SetFocus End If End Sub Private Sub Option2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalm.SetFocus End If End Sub Private Sub txtalm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdsimpan.SetFocus End If End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtusia.SetFocus End If End Sub Private Sub txtusia_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmbpdd.SetFocus End If End Sub