Docstoc

Visual Basic 6.0 - PDF

Document Sample
Visual Basic 6.0 - PDF Powered By Docstoc
					Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




                            Di Susun Oleh
                          Agus Muhardi, A.Md



  Jurusan Komputerisasi Akuntansi dan Manajeman Informatika

                                    Tangerang




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md           1
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika


                          KATA PENGANTAR


Visual Basic! Kata ini sepertinya sudah tidak asing lagi bagi para pemakai
komputer, khususnya yang orang-orang yang senang bahasa pemograman.
Sejak bahasa ini muncul, seakan-akan menjadi kiblat bagi para progremmer
untuk mempelajari dan menguasainya. Siapapun yang tidak mengetahui Visual
Basic adalah orang yang ketinggalan katanya.

Modul ini di susun untuk memberikan panduan pengunaan perangkat lunak
Visual Basic, sehingga pembaca dapat mencobanya langsung. Pejelasan tiap
modul di sajikan dalam bentuk step by step, sehingga lebih mudah dipelajari.
Dan modul Visual Basic ini disusun untuk melengkapi kebutuhan belajar
mahasiswa di Bina Sarana Informatika, khususnya bagi mereka yang ingin
menekuni bidang pemograman berbasis windows.

Penulis menyadari keterbatasan penyusunan modul ini masih jauh dari
sempurnah. Oleh karena itu saran dan kritik dari para pembaca sangat di
hargai.
Saran, kritik atau pun pertanyaan dapat di kirim melalui email ke:
Agus_muhardi@bsi.ac.id    atau    nusa_dharma2003@yahoo.com        atau
nusa_dharma@yahoo.com kunjungi www.geocities.com/alga_musa

Akhir kata semoga pembaca mendapat menfaat dari buku ini.Terima Kasih.




                                                     Tangerang, 17 Maret 2005




                                                        Agus Muhardi,A.md
                                                             Penulis




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md           2
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika


                              Pertemuan 1- 3
                        Pengenalan Visual Basic 6.0

Merancang Form




                   Label 2




Pengaturan Objek
Objek         Properti              Nilai
Form1         Name                  Perkenalan
              Caption               Perkenalan VB
Label1        Caption               Belajar Visual Basic 6.0
Label2        Name                  lblkenal
Text1         Name                  txtkenal
Frame1        Name                  frmoption
              Caption               Coba Option Button
OptionButton Caption                Klik Daku
Frame2        Name                  Frmcek
              Caption               Check List Aku
CheckBox      Caption               Coba Cehck Button
Comamnd1      Name                  cmdmerah
              Caption               &Merah



Kumpulan Materi Visual Basic 6.0                 CopyRight:AgusMuhardi, A.Md        3
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Comamnd2       Name                 cmdkuning
               Caption              &Kuning
Comamnd3       Name                 cmdclear
               Caption              &Clear
Comamnd1       Name                 cmdaktif
               Caption              &Aktif


Listing Programnya:
Private Sub Check1_Click()
lblkenal.Caption = "Visual Basic 6.0 Gampang Yach"
lblkenal.Alignment = vbCenter
lblkenal.FontSize = 24
txtkenal.Text = "Ini gara-gara diklik CheckBox"
txtkenal.Alignment = vbCenter
txtkenal.FontSize = 20
Option1.Value = 0
End Sub


Private Sub cmdaktif_Click()
lblkenal.Enabled = True
txtkenal.Enabled = True
frmoption.Enabled = True
frmcek.Enabled = True
Option1.Enabled = True
Check1.Enabled = True
cmdmerah.Enabled = True
cmdkuning.Enabled = True
cmdclear.Enabled = True
End Sub




Kumpulan Materi Visual Basic 6.0                  CopyRight:AgusMuhardi, A.Md       4
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdclear_Click()
lblkenal.Caption = ""
txtkenal.Text = ""
Check1.Value = 0
Option1.Value = 0
End Sub


Private Sub cmdkuning_Click()
lblkenal.ForeColor = vbYellow
txtkenal.ForeColor = vbYellow
End Sub


Private Sub cmdmerah_Click()
lblkenal.ForeColor = vbRed
txtkenal.ForeColor = vbRed
End Sub


Private Sub Form_Load()
                                   Private Sub Option1_Click()
lblkenal.Enabled = False
                                   lblkenal.Caption = "Kami Baru Belajar Visual Basic 6.0"
txtkenal.Enabled = False
                                   lblkenal.Alignment = vbCenter
frmoption.Enabled = False
                                   lblkenal.FontSize = 24
frmcek.Enabled = False
                                   txtkenal.Text = "Ini ada di TextBox"
Option1.Enabled = False
                                   txtkenal.Alignment = vbCenter
Check1.Enabled = False
                                   txtkenal.FontSize = 20
cmdmerah.Enabled = False
                                   Check1.Value = 0
cmdkuning.Enabled = False
                                   End Sub
cmdclear.Enabled = False
End Sub




Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md          5
Bina Sarana Informatika             Komputerisasi Akuntansi & Manajemn Informatika


                                  Pertemuan 4 - 7
      Konstanta dan Variable , operator , Struktur Kendali

Designlah Form seperti di bawah ini:




o Objek-objek yang terkait
   Objek             Properti                                Nilai
 Form1         Caption          If then else n select case
 Label1        Captiom          Latihan Brancing
 Label2        Captiom          Niali
 Label3        Caption          Keterangan
 Label4        Caption          Kategori
 Text1         Name             txtnilai
 Label5        Name             lblket
 Label5        Name             lblkate

Listing programnya
Private Sub cmdbersih_Click()
txtnilai.Text = ""
lblket = ""
lblkate = ""
txtnilai.SetFocus
End Sub


Kumpulan Materi Visual Basic 6.0                   CopyRight:AgusMuhardi, A.Md       6
Bina Sarana Informatika              Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdelse_Click()
Dim niali As Integer
Dim ket As String
nilai = txtnilai.Text
Select Case nilai
  Case 0 To 50
       ket = "Mengecewakan"
  Case 51 To 60
       ket = "Tidak Memuaskan"
  Case 61 To 70
       ket = "Memeuaskan"
  Case Is <= 100
       ket = "Sangat Memuaskan"
  Case Else
       ket = "Buset Tinggi Bangget Nilai Looeeee Tong"
End Select
lblkate.Caption = ket
End Sub


Private Sub cmdif_Click()                      Private Sub cmdkeluar_Click()
If txtnilai <= 50 Then                         End
  lblket.Caption = "Bodoh"                     End Sub
ElseIf txtnilai <= 60 Then
  lblket.Caption = "Sedang"
ElseIf txtnilai <= 70 Then
  lblket.Caption = "Pintar"
ElseIf txtnilai <= 100 Then
  lblket.Caption = "Sangat Pintar"
Else
  lblket.Caption = "Emang ada Nilai Segitu"
End If
End Sub




Kumpulan Materi Visual Basic 6.0                 CopyRight:AgusMuhardi, A.Md          7
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Designlah Form seperti di bawah ini:




Urutan Proses:
o Pertama form dipanggil, tombol Hitung,Bersih, dan Keluar tidak aktif.
o User mengisi Jumlah Beli, dan jika di tekan enter, kursor akan terfokus menuju Harga
 Satuan.
o Saat mengisi Harga Satuan, Tombol Hitung aktif, dan jika di tekan enter maka hasil
 perhitungan muncul pada label Bayar(Bayar=Jumalh Beli * Harga Satuan)
o Saati itu tombol Bersih dan Keluar bisa di akses
o Objek-objek yang terkait
   Objek         Properti                               Nilai
 Form1         Caption         Yantie Mart
 Label1        Captiom         Yantie Mart Struk Belanja
 Label2        Captiom         Jumlah Beli
 Label3        Caption         Harga Satuan
 Label4        Caption         Bayar
 Label5        Name            lblhasi
 Text1         Name            txtjumlah
 Text2         Name            txtharga
 Command1 Name                 Cmdhitung
               Caption         &Hitung
 Command2 Name                 Cmdbersih
               Caption         &Bersih
 Command3 Name                 Cmdkeluar
               Caption         &Keluar



Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md         8
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Listing Programnya:
Dim bayar As Single


Private Sub cmdbersih_Click()
txtjumlah.Text = ""
txtharga.Text = ""
txthasil = ""
txtjumlah.SetFocus
End Sub


Private Sub cmdhitung_Click()
bayar = Val(txtjumlah.Text) * Val(txtharga.Text)
lblhasil = Format(bayar, " Rp ###,###,###") & ",-"
cmdbersih.Enabled = True
cmdkeluar.Enabled = True
Exit Sub
End Sub


Private Sub cmdkeluar_Click()
psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi")
If psn = vbYes Then
  MsgBox "Makasih Yach.........", 32, "informasi"
  End
Else
If psn = vbNo Then
  MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi"
End If
  End If
End Sub
Private Sub Form_Load()
cmdhitung.Enabled = False
cmdbersih.Enabled = False
cmdkeluar.Enabled = False
End Sub


Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md          9
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub txtharga_Change()
bayar = Val(txtjumlah.Text) * Val(txtharga.Text)
On Error Resume Next
lblhasil = Format(" Rp ") & ",-"
Exit Sub
End Sub


Private Sub txtharga_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  cmdhitung.Enabled = True
   cmdhitung.SetFocus
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack)
Then
  MsgBox "Hanya Boleh Angka BO....?", 16, "informasi"
  KeyAscii = 0
End If
  End If
End Sub


Private Sub txtjumlah_Change()
bayar = Val(txtjumlah.Text) * Val(txtharga.Text)
On Error Resume Next
lblhasil = Format(bayar, " Rp ###,###,###") & ",-"
Exit Sub
End Sub


Private Sub txtjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  txtharga.SetFocus
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack)
Then
  MsgBox "Hanya Boleh Angka BO....?", 16, "informasi"
Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md      10
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

  KeyAscii = 0
End If
  End If
End Sub


Rancanglah form berikut ini : (Struktur Kendali/Brancing)




Urutan Proses
o Pertama form dipanggil, tombol Hitung tidak aktif.
o User mengisi Nilai Ujian 1, dan jika di tekan enter, kursor akan terfokus menuju Nilai
 Ujian 2.
o Saat mengisi Nilai Ujian , Tombol Hitung aktif, dan jika di tekan enter maka hasil
 perhitungan tampil dan Tombol Hitung berganti dengan Tombol Clear
o Objek-objek yang terkait
    Objek          Properti                              Nilai
 Form1           Caption        Hitung Nilai
 Label1          Captiom        Menghitung Nilai Mahasiswa
 Label2          Captiom        Nilai Ujian 1
 Label3          Caption        Nilai Ujian 2
 Label4          Caption        Rata - Rata
 Label5          Caption        Keterangan
 Label6          Name           lblrata

Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md          11
Bina Sarana Informatika              Komputerisasi Akuntansi & Manajemn Informatika

 Label7          Name             lblket
 Text1          Name              Txtnilai1
 Text1          Name              Txtnilai2
 Comamand1 Caption                &Hitung
                 Name             Cmdhitung
Listing Programnya:
Private Sub cmdhitung_Click()
If cmdhitung.Caption = "&Hitung" Then
lblrata = (Val(txtnilai1.Text) + Val(txtnilai2.Text)) / 2
ket
cmdhitung.Caption = "&Clear"
Else
If cmdhitung.Caption = "&Clear" Then
bersih
cmdhitung.Caption = "&Hitung"
End If
End If
End Sub


Private Sub Form_Load()
cmdhitung.Enabled = False
End Sub


Sub bersih()
txtnilai1.Text = ""
txtnilai2.Text = ""
lblket = ""
lblrata = ""
txtnilai1.SetFocus
End Sub




Kumpulan Materi Visual Basic 6.0                   CopyRight:AgusMuhardi, A.Md    12
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnilai2.SetFocus
End If
End Sub


Sub ket()
If lblrata >= 85 Then
  lblket = "Sangat Memuaskan"
ElseIf lblrata >= 75 Then
  lblket = "Cukup Memuaskan"
ElseIf lblrata >= 60 Then
  lblket = "Memuaskan"
Else
  lblket = "Kurang Memuaskan"
End If
End Sub


Private Sub txtnilai2_KeyPress(KeyAscii As Integer)
cmdhitung.Enabled = True
If KeyAscii = 13 Then
         cmdhitung.SetFocus
End If
End Sub




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       13
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika


                                   Pertemuan 9
                           Perulangan / Looping

Designlah Form Berikut ini




o Objek-objek yang terkait
   Objek        Properti                              Nilai
 Form1        Caption        looping
 Command1 Name               Cmdfor
              Caption        FOR
 Command2 Name               cmdfornext
              Caption        FORNEXT
 Command3 Name               cmdfornested
              Caption        FOR NESTED
 Command4 Name               cmddowhile
              Caption        DO - WHILE
 Comamnd5 Name               cmdfornested
              Caption        &FOR NESTED
 Command3 Name               cmdfornested
              Caption        &FOR NESTED
 Command6 Name               cmdwhilewen
              Caption        WHILE - WEN
 Command7 Name               cmdkeluar


Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       14
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Listing Programnya:
Private Sub cmddountil_Click()
frmperulangan.Cls
kamu = 8
  Do Until kamu = 0
    frmperulangan.Print kamu;
    kamu = kamu - 2
  Loop
End Sub

Private Sub cmddowhile_Click()
frmperulangan.Cls
kamu = 5
  Do While kamu > 0
    frmperulangan.Print kamu;
    kamu = kamu - 1
  Loop
End Sub

Private Sub cmdfor_Click()
frmperulangan.Cls
For Yantie = 1 To 5
frmperulangan.Print Yantie
  Next Yantie
End Sub

Private Sub cmdfornested_Click()
frmperulangan.Cls
Dim cinta, sayang As Integer
For cinta = 1 To 3
For sayang = 10 To 5 Step -1
 frmperulangan.Print sayang
Next sayang
Next cinta
End Sub

Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       15
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdfornext_Click()
frmperulangan.Cls
Dim Yantie As Integer
For Yantie = 1 To 10
frmperulangan.Print Yantie
Next Yantie
End Sub


Private Sub cmdkuluar_Click()
End
End Sub


Private Sub cmdloop_Click()
frmperulangan.Cls
y=6
Do
 frmperulangan.Print y;
 y=y-1
Loop While y > 0
End Sub


Private Sub cmdwhilewen_Click()
frmperulangan.Cls
Dim p As Integer
p=1
While p <= 10
  frmperulangan.Print p
  p=p+1
Wend
End Sub




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       16
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Contoh Aplikasi yang Menggunakan Perulangan:




o Objek-objek yang terkait
   Objek        Properti                              Nilai
 Form1        Caption        Aplikasi Perulangan
 Command1 Name               cmdhitung
              Caption        &Hitung Lagi
 Command2 Name               cmdselesai
              Caption        &Selesai




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       17
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Program Listingnya:
Private Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Combo1 = ""
List1 = ""
Option1.Value = 0
Option2.Value = 0
Option3.Value = 0
End Sub


Private Sub cmdhitung_Click()
bersih
End Sub
Private Sub cmdselesai_Click()
psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi")
If psn = vbYes Then
  MsgBox "Makasih Yach.........", 32, "informasi"
  End
Else
If psn = vbNo Then
  MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi"
End If
  End If
End Sub


Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md      18
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub Combo1_click()
Select Case Combo1.ListIndex
Case 0
  Text3 = 150000
  Text4 = 100000
Case 1
  Text3 = 200000
  Text4 = 125000
Case 2
  Text3 = 300000
  Text4 = 175000
Case 3
  Text3 = 400000
  Text4 = 200000
Case 4
  Text3 = 500000
  Text4 = 250000
Case 5
  Text3 = 600000
  Text4 = 300000
End Select
End Sub


Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  List1.SetFocus
End If
End Sub


Private Sub Form_Load()
bersih
Dim yasta As Integer
For yasta = 1 To 6
  Combo1.AddItem "A" & CStr(yasta)
Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       19
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Next
For yasta = 1 To 5
  List1.AddItem CStr(yasta) & "A"
Next
End Sub

Private Sub List1_Click()
If List1.ListIndex = 0 Then
  Text5 = "Direktur"
  Text6 = 500000
ElseIf List1.ListIndex = 1 Then
  Text5 = "Manager"
  Text6 = 300000
ElseIf List1.ListIndex = 2 Then
  Text5 = "Kabag"
  Text6 = 250000
ElseIf List1.ListIndex = 3 Then
  Text5 = "Manager"
  Text6 = 175000
ElseIf List1.ListIndex = 4 Then
  Text5 = "Seketaris"
  Text6 = 125000
End If
End Sub

Private Sub Option1_Click()
Text9 = 150000
Option2.Value = False
Option3.Value = False
End Sub




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       20
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub Option2_Click()
Text9 = 0
Option1.Value = False
Option3.Value = False
End Sub
Private Sub Option3_Click()
Text9 = 100000
Option1.Value = False
Option2.Value = False
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text2.SetFocus
End If
End Sub


Private Sub Text10_Click()
Text10 = Format(Val(Text3.Text) + (Text4.Text) + (Text6.Text) + (Text8.Text) +
(Text9.Text), "Rp ###,###,###")
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Combo1.SetFocus
End If
End Sub


Private Sub Text8_Click()
Text8 = Val(Text7.Text) * 75000
End Sub




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md        21
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika


                                   Pertemuan 10
         Latihan Aplikasi Dari Pertemuan 1 Samapi Pertemuan 9

Sebuah Cafe Palembang 16 Ilir mempunyai cara sendiri dalam menarik pelanggannya
mulai dari menu yang menarik samapai mendapat bonus ataupun potongan, Menu
Pilihan di pilih secara otomatis melalui Option Button:
       o Jika memilih Menu Kapal Selam maka Harga 5500/porsi
       o Jika memilih Menu Pempek Panggang maka Harga 5000/porsi
       o Jika memilih Menu Lenggang maka Harga 4500/porsi
Café Palembang ini juga memberikan potongan pembayaran berdasarkan jumlah porsi
yang dipesan:
Bila pemesanan diatas 10 maka akan mendapatkan potongan 10% dari Bayar dan
mendapat bonus 1 porsi. Tekwan, selainnya tidak dpat potongan dan bonus
Biaya pajak yang harus di keluarkan oleh pembeli sebagai wajib pajak yang baik adalah
5% dari Bayar.
Buatlah program berdasarkan ketentuan diatas dan designlah tampilan seperti dibawah
ini:




Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md       22
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Urutan Proses
o Pertama form dipanggil, tombol Claer tidak aktif.
o User Memilih Mnu maka otomatis Harga Per Porsih Terisi
o Saat mengisi Jumlah Porsi maka secara otomatis Bayarm Bonus, Potongan, PPn, Total
 Bayat Terisi, jika di tekan enter maka kursor berada pada Uang Bayar dan Tombol
 Clear bisa di akses
o Saat mengisi Uang Bayar maka Uang Kembali akan terisi secara otomatis


Jawaban:
o Objek-objek yang terkait
   Objek         Properti                             Nilai
 Form1        Caption          Latihan 1 samapi 9
 Command1 Caption              &Clear
              Name             Cmdclear
 Command2 Caption              &Exit
              Name             cmdexit


Listing Programnya:
Dim bayar As Long
Private Sub cmdclear_Click()
bersih
End Sub


Private Sub Form_Load()
Label10 = Date
bersih
Option1.Value = False
Option2.Value = False
Option3.Value = False
cmdclear.Enabled = False
End Sub




Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md     23
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Option1.Value = 0
Option2.Value = 0
Option3.Value = 0
End Sub

Private Sub Option1_Click()
Text1 = 5500
Text2.SetFocus
Option2.Value = False
Option3.Value = False
End Sub

Private Sub Option2_Click()
Text1 = 5000
Text2.SetFocus
Option1.Value = False
Option3.Value = False
End Sub


Private Sub Option3_Click()
Text1 = 4500
Text2.SetFocus
Option1.Value = False
Option2.Value = False
End Sub

Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       24
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub Text2_Change()
cmdclear.Enabled = True
bayar = Val(Text1.Text) * Val(Text2.Text)
On Error Resume Next
Text3.Text = Format(bayar, " Rp ###,###,###") & ",-"
If Text2 >= 10 Then
  Text4.Text = "Lenggang"
  Text5.Text = bayar * 10 / 100
  Text6.Text = bayar * 5 / 100
  Text7.Text = bayar + Text6.Text - Text5.Text
Else
  Text4.Text = "-"
  Text5.Text = 0
  Text6.Text = bayar * 5 / 100
  Text7.Text = bayar + Text6.Text
End If
Exit Sub
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text8.SetFocus
End If
End Sub


Private Sub Text8_Change()
On Error Resume Next
'Text9.Text = Text8.Text - Text7.Text
Text9.Text = Format(Text8.Text - Text7.Text, " Rp ###,###,###") & ",-"
End Sub



           Selamat Menempuh UTS

Kumpulan Materi Visual Basic 6.0                 CopyRight:AgusMuhardi, A.Md    25
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika


                 Kretria penilaian
                  Visual basic 6.0

Kriteria penilaian programing
(database):
a. persiapan (20%)
 n-1-> kesesuaian aplikasi & Nama
               file yang digunakan (10%)
 n-2-> Pembuatan database, table &
               index (10%)
b. struktur program (50%)
 n-3-> Koneksi database (15%)
 n-4-> Penggunaan objek &
               properties (15%)
 n-5-> Sintak program & prosedur
               (20%)
c. tampilan hasil (30%)
 n-6-> Eksekusi program (15%)
 n-7-> Kesesuaian tampilan (15%)




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       26
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




                                Pertemuan 19
                           Pengenalan DataBase

Membuat database dengan Visual Manager, ikuti langka2 berikut ini:
   Pilih Add-Ins pada menu utma Visual Basic, lalu pilih Visual Data Manager




   Pilih: File/New/Microsoft Access/version7.0 MDB




                             Pindahkan ke folder masing-
                             masing setelah itu ketik File Name
                             nya….kemudian Tekan Save




   Setelah klik Save maka akan tampil




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       27
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




   Klik kanan pada Properties, pilih New Table, setelah itu ketik Table Name : tbl_bio




   Klik Add Fiels untuk menginput field-filed berikut ini




Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md          28
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




                 Name                Type                  Size
                 inisial             Text                   3
                 nama                Text                   25
                 alamat              Text                   30
                 telepon             Text                   15
Membuat Index
   Klik Add Index, jika sudah di isi klik Ok




   Klik Build the Table, jika telh selesai membuat index
   Mengisi data pada Tabel, cukup doble klik aja pada tbl_bio, maka akan tampil




Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md        29
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




   Fungsi –fungsi
                          Add      : Menambah Record Baru
                          Edit     : Mengedit Record Aktif
                          Delete : Menghapus Record Aktif
                          Close    : Tutup Database




Setelah selesai membuat database, kita akan membahas bagai mana menggunakan
database tersebut..




                                 Pertemuan 20 - 22
      Menggunakan Database Kontrol Data Dan Pencarian Data SEEK


Designlah Form Berikut ini:




Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md      30
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




o Objek-objek yang terkait
    Objek           Properti                             Nilai
 Form1          Caption             Mengunakan Database Lewat Kontrol Data
 Label1         Caption             Daftar Nama Teman – Teman Ku
 Label2         Caption             Inisial
 Label3         Caption             Nama
 Label4         Caption             Alamat
 Label5         Caption             Telepon


 Data1          Name                Dbbio
                Caption             Bio Data Teman Ku
                Database Name       Ada difolder masing-masing
                RecordSet Type      0-Table


Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       31
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

                RecordSource        Tbl_bio
 Frem1          Caption             Tombol Yang Digunakan
 Command1       Caption             &Awal
                Name                cmdawal
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Vfp98\Wizard\Graphics\TOP
                Style               1 - Graphical
                ToolTipText         Awal
 Command2       Caption             A&khir
                Name                cmdakhir
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Vfp98\Wizard\Graphics\Bottom
                Style               1 - Graphical
                ToolTipText         Akhir
 Command3       Caption             &Lagi
                Name                cmdlagi
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Vfp98\Wizard\Graphics\Next
                Style               1 - Graphical
                ToolTipText         LAgi
 Command4       Caption             Bali&k
                Name                cmdbalik
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Vfp98\Wizard\Graphics\Privious
                Style               1 - Graphical
                ToolTipText         Balik
 Command5       Caption             &Tambah
                Name                cmdtambah
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang
                                    e\Color\New
                Style               1 - Graphical
                ToolTipText         Tambah Files


Kumpulan Materi Visual Basic 6.0                 CopyRight:AgusMuhardi, A.Md    32
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

 Command6       Caption             &Simpan
                Name                cmdsimpan
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang
                                    e\Color\Save
                Style               1 - Graphical
                ToolTipText         Simpan Files
 Command7       Caption             &Edit
                Name                cmdedit
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang
                                    e\Color\Edit
                Style               1 - Graphical
                ToolTipText         Edit File nih….
 Command8       Caption             &Batal
                Name                cmdbatal
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang
                                    e\Color\Undo
                Style               1 - Graphical
                ToolTipText         Ini Batal
 Command9       Caption             &Hapus
                Name                cmdhapus
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang
                                    e\Color\Delete
                Style               1 - Graphical
                ToolTipText         Mo Hapus File


 Command10      Caption             &Cari
                Name                cmdcari
                Picture             C:\Program         Files\Microsoft      Visual
                                    Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang


Kumpulan Materi Visual Basic 6.0                 CopyRight:AgusMuhardi, A.Md    33
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

                                     e\Color\Spell
                   Style             1 - Graphical
                   ToolTipText       Mo Cari File Yach
 Command11         Caption           &Keluar
                   Name              cmdkeluar
                   Picture           C:\Program          Files\Microsoft     Visual
                                     Studio\Common\Graphics\Icon\Traffic\Traffic19A
                   Style             1 - Graphical
                   ToolTipText       Tambah Files
Listing Programnya
Sub aktif()
Dim GusTi As Control
For Each GusTi In Frm_kontrol_data
  If TypeName(GusTi) = "TextBox" Then
       GusTi.Locked = False
       GusTi.Enabled = True
  End If
Next
End Sub


Sub nonaktif()
Dim Yantie As Control
For Each Yantie In Frm_kontrol_data
  If TypeName(Yantie) = "TextBox" Then
       Yantie.Locked = True
       Yantie.Enabled = False
  End If
Next
End Sub


Sub kosong()
Dim yasta As Control
For Each yasta In Frm_kontrol_data
  If TypeName(yasta) = "TextBox" Then
Kumpulan Materi Visual Basic 6.0                  CopyRight:AgusMuhardi, A.Md    34
Bina Sarana Informatika             Komputerisasi Akuntansi & Manajemn Informatika

       yasta.Text = ""
  End If
Next
End Sub


Private Sub cmdakhir_Click()
dbbio.Recordset.MoveLast
MsgBox "Sudah Diawal Record....Aa", 16, "Informasi"
End Sub


Private Sub cmdawal_Click()
dbbio.Recordset.MoveFirst
MsgBox "Sudah Diawal Record...Dek", 16, "Informasi"
End Sub


Private Sub cmdbalik_Click()
dbbio.Recordset.MovePrevious
If dbbio.Recordset.BOF Then
  dbbio.Recordset.MoveFirst
  MsgBox "Sudah Diawal Record Adek", "16", "Informasi"
End If
End Sub


Private Sub cmdbatal_Click()
dbbio.Recordset.CancelUpdate
dbbio.Recordset.MoveLast
nonaktif
End Sub




Private Sub cmdcari_Click()
Dim caridek As String * 3
caridek = InputBox("Ketik Inisialnya:", "Pencarian Biodata")
deksyarat = "inisial '" & caridek & "'"
Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md       35
Bina Sarana Informatika             Komputerisasi Akuntansi & Manajemn Informatika

dbbio.Recordset.Index = "inisial"
dbbio.Recordset.Seek "=", caridek
If dbbio.Recordset.NoMatch Then
  MsgBox "Record Inisial " + caridek + " tidk ada", 16, "informasi"
  dbbio.Recordset.MoveFirst
End If
End Sub


Private Sub cmdedit_Click()
dbbio.Recordset.Edit
aktif
txtini.SetFocus
End Sub


Private Sub cmdhapus_Click()
del = MsgBox("Record Mo Dihapus?", 36, "Konfirmasi")
If del = 6 Then
  dbbio.Recordset.Delete
  dbbio.Recordset.MoveLast
If dbbio.Recordset.EOF Then
  dbbio.Recordset.MoveLast
End If
End If
End Sub


Private Sub cmdkeluara_Click()
psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi")
If psn = vbYes Then
  MsgBox "Makasih Yach.........", 32, "informasi"
  End
Else
If psn = vbNo Then
  MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi"
End If
Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md       36
Bina Sarana Informatika             Komputerisasi Akuntansi & Manajemn Informatika

  End If
End Sub


Private Sub cmdlagi_Click()
dbbio.Recordset.MoveNext
If dbbio.Recordset.EOF Then
         dbbio.Recordset.MoveLast
         MsgBox "Sudah Diakhir Reocrd Adek...Sayang", 16, "Informasi"
End If
End Sub


Private Sub cmdsimpan_Click()
If tambah = True Then
  dbbio.Recordset.Update
Else
         dbbio.Recordset.Update
End If
nonaktif
End Sub


Private Sub cmdtambah_Click()
tambah = True
dbbio.Recordset.AddNew
kosong
aktif
txtini.SetFocus
End Sub




Private Sub Form_Activate() Private Sub txtnomor_KeyPress(KeyAscii As Integer)
txtini.MaxLength = 3        KeyAscii = Asc(UCase(Chr(KeyAscii)))
txtnama.MaxLength = 25        If KeyAscii = 13 Then
txtalamat.MaxLength = 30          cmdsimpan.SetFocus
                             6.0
Kumpulan Materi Visual Basic Else              CopyRight:AgusMuhardi, A.Md       37
                              If Not (KeyAscii >= Asc("0") And KeyAscii <=
                              Asc("9") Or KeyAscii = vbKeyBack) Then
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

txtnomor.MaxLength = 15
End Sub


Private Sub Form_Load()
nonaktif
tambah = False
End Sub




Private Sub txtalamat_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
  txtnomor.SetFocus
End If
End Sub


Private Sub txtini_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
  txtnama.SetFocus
End If
End Sub


Private Sub txtnama_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
  txtalamat.SetFocus
End If
End Sub


                                   Pertemuan 23
 Menggunakan Database Kontrol Data Dan Pencarian Data SEEK Plus Dbgrid


Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       38
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika



Menampilan Objek Dbgtid :
Klik Project – Components atau tekan Ctrl T, maka akan tampil:




Cek List lah Microsoft Data Bound Grid Control5.0 (SP3) kemudian klik APPLY




Buakalah file yang diatas , kemudian tambahkan Objeck Dbgrid diform tersebut:




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       39
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




o Objek-objek yang terkait
    Objek           Properti                             Nilai
 DBgrid         Name                Dbgrid1
                Caption             Daftar Teman – Teman Ku
                DataSource          Tbl_bio


Listing Programnya tidak ada perubahan atau penambahan




                                   Pertemuan 24
Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       40
Bina Sarana Informatika              Komputerisasi Akuntansi & Manajemn Informatika

Menggunakan Database Kontrol Data Dan Pencarian Data FindFirst Plus Dbgrid

Bukalah form yang diatas tadi….lalu edit/hilangkanlah objeck yang tidak di perlukan
sehingga sama seperti dibawah ini:




o Objek-objek yang Dihilangkan
    Objek           Properti                              Nilai
 Command10       Caption         &Cari
                 Name            cmdcari
                 Picture         C:\Program            Files\Microsoft         Visual
                                 Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lange\
                                 Color\Spell
                 Style           1 - Graphical
                 ToolTipText     Mo Cari File Yach
o Objek-objek yang Yang Ditambah


Kumpulan Materi Visual Basic 6.0                 CopyRight:AgusMuhardi, A.Md          41
Bina Sarana Informatika             Komputerisasi Akuntansi & Manajemn Informatika

     Objek            Properti                              Nilai
 Frame1            Caption          Cari Inisial Teman Ku
 Label1            Cation           Masukkan Inisialnya
 Text1             Name             Txtcari
                   Caption          <dikosongkan>
 Command1          Name             Cmdaktif
                   Caption          &Aktif
 Command2          Name             Cmdcari
                   Caption          &Cari


Listing Program yang harus di edit/di rubah dan ditambah:
Private Sub txtcari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Cmdcari.SetFocus
End If
End Sub
Private Sub cmdaktif_Click()
         aktif
         txtcari.SetFocus
End Sub
Private Sub cmdcari_Click()
Dim caridek As String * 3
caridek = txtcari.Text
deksyarat = "inisial '" & caridek & "'"
dbbio.Recordset.Index = "inisial"
dbbio.Recordset.Seek "=", caridek
If dbbio.Recordset.NoMatch Then
  MsgBox "Record Inisial " + caridek + " tidk ada", 16, "informasi"
  dbbio.Recordset.MoveFirst
End If
End Sub


     Latihan Mengunakan 1 database dgn 2 tebel atau lebih

Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md      42
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika




o Buatlah database dengan nama Daftar dan buatlah table-table berikut ini
o Tbl_Makan
          FIELD                       TYPE                     SIZE
  Kode1                   Text                          5
  Nm_Makan                Text                          25
  Harga                   Currency
o Tbl_Minum
          FIELD                       TYPE                     SIZE
  Kode2                   Text                          5
  Nm_Minum                Text                          20
  Harga                   Currency


o Objek-objek yang terkait

Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       43
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

    Objek           Properti                              Nilai
 Form1          Caption             Mengunakan Database Dengan 2 Table
 Label1         Caption             Rumah Makan Bajek Nian
 Data1          Caption             Data Makanan
                Name                DataMakanan
                DatabaseName        Ada di folder Mahasiswa masing-masing
                RecordSource        Tbl_Makan
 Data2          Caption             Data Minuman
                Name                Dataminuman
                DatabaseName        Ada di folder Mahasiswa masing-masing
                RecordSource        Tbl_Minum
 DBGrid1        Caption             Daftar Makanan
                DataSource          Datamakanan
 DBGrid2        Caption             Daftar Minuman
                DataSource          Dataminuman
 Frame1         Caption             Makanan
 Frame2         Caption             Minuman
 Label2         Caption             Nama Makanan
 Label3         Caption             Harga
 Label4         Caption             Jumlah Porsi
 Label6         Caption             Nama Minuman
 Label7         Caption             Harga
 Label8         Caption             Jumlah porsi
 Label9         Caption             Total Bayar
 Label10        Caption             Uang Bayar
 Label11        Caption             Kembali
 Text1          Name                Text1
                Caption             <Kosongkan>
 Text2          Name                Text2
                Caption             <Kosongkan>
 Text3          Name                Text3
                Caption             <Kosongkan>
 Text4          Name                Text4

Kumpulan Materi Visual Basic 6.0                  CopyRight:AgusMuhardi, A.Md   44
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

                 Caption            <Kosongkan>
 Text5           Name               Text5
                 Caption            <Kosongkan>
 Text6           Name               Text6
                 Caption            <Kosongkan>
 Text7           Name               Text7
                 Caption            <Kosongkan>
 Text8           Name               Text8
                 Caption            <Kosongkan>
 Text9           Name               Text9
                 Caption            <Kosongkan>
 Command1        Name               Cmdhitung
                 Caption            &Hitung
 Command2        Name               Cmdkeluar
                 Caption            &Keluar
Listing Programnya
Dim bayar As Long
Private Sub cmdhitung_Click()
bayar = Val(Text2.Text) * Val(Text3.Text) + Val(Text5.Text) * Val(Text6.Text)
Text7 = Format(bayar, " Rp ###,###,###") & ",-"
End Sub


Private Sub Text8_Change()
Text9.Text = Format(Text8.Text - bayar, " Rp ###,###,###") & ",-"
End Sub


Private Sub cmdkeluar_Click()
End
End Sub




Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md     45
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika


                               Pertemuan 25
            Mengunakan Database Lewat Kode Program

   1. Designlah Form dibawah ini:
   2. Gunakan database bio




o Objek-objek yang terkait
    Objek           Properti                             Nilai
 Form1          Caption             Mengunakan Database Lewat Kode Program
 Label1         Caption             Daftar Nama Teman – Teman Ku
 Label2         Caption             Inisial
 Label3         Caption             Nama
 Label4         Caption             Alamat
 Label5         Caption             Telepon
 Frem1          Caption             Tombol Yang Digunakan
 Command1       Caption             &Awal
                Name                cmdawal

Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       46
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

                ToolTipText         Awal
 Command2       Caption             A&khir
                Name                cmdakhir
                ToolTipText         Akhir
 Command3       Caption             &Lagi
                Name                cmdlagi
                ToolTipText         LAgi
 Command4       Caption             Bali&k
                Name                cmdbalik
                ToolTipText         Balik
 Command5       Caption             &Tambah
                Name                cmdtambah
                ToolTipText         Tambah Files
 Command6       Caption             &Simpan
                Name                cmdsimpan
                ToolTipText         Simpan Files
 Command7       Caption             &Edit
                Name                cmdedit
                ToolTipText         Edit File nih….
 Command8       Caption             &Batal
                Name                cmdbatal
                ToolTipText         Ini Batal
 Command9       Caption             &Hapus
                Name                cmdhapus
                ToolTipText         Mo Hapus File
 Command10      Caption             &Cari
                Name                cmdcari
                ToolTipText         Mo Cari File Yach
 Command11      Caption             &Keluar
                Name                cmdkeluar
                ToolTipText         Tambah Files




Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md     47
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Listing Programnya:
Dim dbbio As Database
Dim rsbio As Recordset


Sub aktif()
Dim GusTi As Control
For Each GusTi In frmkodeprogram
  If TypeName(GusTi) = "TextBox" Then
       GusTi.Locked = False
       GusTi.Enabled = True
  End If
Next
End Sub


Sub nonaktif()
Dim Yantie As Control
For Each Yantie In frmkodeprogram
  If TypeName(Yantie) = "TextBox" Then
       Yantie.Locked = True
       Yantie.Enabled = False
  End If
Next
End Sub


Sub kosong()
Dim Yasta As Control
For Each Yasta In frmkodeprogram
  If TypeName(Yasta) = "TextBox" Then
       Yasta.Text = ""
  End If
Next
End Sub




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       48
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Sub ambil_data()
On Error Resume Next
txtini.Text = rsbio!inisial
txtnama.Text = rsbio!nama
txtalamat.Text = rsbio!alamat
txtnomor.Text = rsbio!telepon
End Sub


Private Sub cmdakhir_Click()
aktif
rsbio.MoveLast
ambil_data
MsgBox "Sudah Diakhir Record Coy....", 16, "Informasi"
End Sub


Private Sub cmdawal_Click()
aktif
rsbio.MoveFirst
ambil_data
MsgBox "Sudah Diawal Record", 16, "Informasi"
End Sub


Private Sub cmdbalik_Click()
'On Error Resume Next
aktif
rsbio.MovePrevious
ambil_data
If rsbio.BOF Then
  rsbio.MoveFirst
  ambil_data
  MsgBox "Sudah Diawal Record", 16, "Informasi"
End If
End Sub


Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       49
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdcari_Click()
carikode = InputBox("ketik Inisial yang akan cari", "Pencarian Data")
rsbio.Index = "inisial"
rsbio.Seek "=", carikode
If rsbio.NoMatch Then
  MsgBox "Maaf Inisial" & carikode & "belum Terdaftar", 16, "Informasi"
Else
  aktif
  ambil_data
End If
End Sub


Private Sub cmdedit_Click()
If txtini = "" Then
MsgBox "Tampilkan File dulu atau Cari File yang akan Di EDIT", 32, "Informasi"
Else
rsbio.Edit
aktif
txtini.SetFocus
End If
End Sub


Private Sub cmdhapus_Click()
If txtini = "" Then
MsgBox "Maaf Tidak ada data yang akan dihapus, Tampilkan dulu", 16, "Informasi"
Else
adek = MsgBox("Betul Akan Dihapus?", 32 + 4, "Konfirmasi")
If adek = 6 Then '6=vbyes
  rsbio.Delete
  rsbio.MoveFirst
  Refresh
  kosong
  nonaktif
End If
Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md        50
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

End If
End Sub


Private Sub cmdkeluara_Click()
psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi")
If psn = vbYes Then
  MsgBox "Makasih Yach.........", 32, "informasi"
  End
Else
If psn = vbNo Then
  MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi"
End If
  End If
End Sub


Private Sub cmdlagi_Click()
'On Error Resume Next
aktif
rsbio.MoveNext
ambil_data
If rsbio.EOF Then
  rsbio.MoveLast
  ambil_data
  MsgBox "Sudah Diakhir Record...jangan diklik terus....", 16, "Informasi"
End If
End Sub


Private Sub cmdsimpan_Click()
If tambah = True Then
  rsbio!inisial = txtini.Text
  rsbio!nama = txtnama.Text
  rsbio!alamat = txtalamat.Text
  rsbio!telepon = txtnomor.Text
  rsbio.Update
Kumpulan Materi Visual Basic 6.0               CopyRight:AgusMuhardi, A.Md      51
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

  kosong
  nonaktif
Else
  rsbio!inisial = txtini.Text
  rsbio!nama = txtnama.Text
  rsbio!alamat = txtalamat.Text
  rsbio!telepon = txtnomor.Text
  rsbio.Update
  kosong
  nonaktif
End If
nonaktif
End Sub


Private Sub cmdtambah_Click()         Private Sub Form_Activate()
tambah = True                         txtini.MaxLength = 3
rsbio.AddNew                          txtnama.MaxLength = 25
kosong                                txtalamat.MaxLength = 30
aktif                                 txtnomor.MaxLength = 15
txtini.SetFocus                       nonaktif
End Sub                               tambah = False
                                      End Sub
Private Sub Form_Load()
Set dbbio = OpenDatabase("c:\yantie\database\bio.mdb")
Set rsbio = dbbio.OpenRecordset("tbl_bio")
rsbio.Index = "inisial"
End Sub


Private Sub txtalamat_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
  txtnomor.SetFocus
End If
End Sub
Kumpulan Materi Visual Basic 6.0                 CopyRight:AgusMuhardi, A.Md    52
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

Private Sub txtini_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
  txtnama.SetFocus
End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
  txtalamat.SetFocus
End If
End Sub


Private Sub txtnomor_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  cmdsimpan.SetFocus
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack)
Then
  MsgBox "Hnya Boleh Diisi Dengan Angka", 16, "Informasi"
  KeyAscii = 0
End If
End If
End Sub




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       53
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika


                                  Pertemuan 26
           Membuat Laporan dengan Data Environment

Mo bisa buat laporan, ikutin langka-langka berikut ini:
1. Lihatlah di menu Project apakah Add Data Envorinmet sudah ada atau belum, jika
   belum ada Anda bisa menambahnya dengan cara: Klik Project – component atau
   Ctrl – T lalu klik tab Designers berilah tanda caklist pada Data Environment –
   lalu klik Apply




                          Agus Muhardi
                      Agus_muhardi@bsi.ac.id




2. Klik Procejt – Add Data Envoritment – klik kanan pada conection1. pilih rename
   ketik bio
3. Untuk menghubungkan dengan database, klik kanan pada bio – pilih properties –
   kemudian pilih Microsoft Jet 3.51 OLE DB PROVIDER, klik Next




Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md     54
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika



4. Browse/carilah nama database yang akan di hubungkan

                                                       Klik ini untuk
                                                       mencari database
                                                       yang akan
                                                       dihubunkan.




5. Klik Test Connection untuk melihat berhasil atau tidak koneksinya, jika koneksi
   berhasil silahkan klik OK.
6. Klik kanan pada bio….kemudian klik Add Comamand
7. Klik kanan pada Command1 pilih properties:




                                                     Ubah menjadii
                                                     table




Kumpulan Materi Visual Basic 6.0              CopyRight:AgusMuhardi, A.Md       55
Bina Sarana Informatika            Komputerisasi Akuntansi & Manajemn Informatika

8. Membuat Data Report
   a. Klik Project – klik Add Data Report ( Letakkan jendela Data Environment di
       atas jendela Data Report) sepeti contoh di bawah ini:




   b. Klik Drak/tarik/pindahkan isi yang ada pada Command1 ke dalam
       Detail(Section1) lalu aturlah/designlah sesuai keinginan Anda..
   c. Field yang sebelah kiri itu untuk Judul…dan sebelah kanan untuk isi field
   d. Dan kini laporan Anda sudah siap…..




Kumpulan Materi Visual Basic 6.0                CopyRight:AgusMuhardi, A.Md       56

				
DOCUMENT INFO
Shared By:
Categories:
Tags: Visual, Basic
Stats:
views:2690
posted:6/1/2010
language:Indonesian
pages:56
Description: Visual Basic! Kata ini sepertinya sudah tidak asing lagi bagi para pemakai komputer, khususnya yang orang-orang yang senang bahasa pemograman. Sejak bahasa ini muncul, seakan-akan menjadi kiblat bagi para progremmer untuk mempelajari dan menguasainya. Siapapun yang tidak mengetahui Visual Basic adalah orang yang ketinggalan katanya.