Dibuat oleh: Dinda Ayu Muthia
Pertemuan 1 Pengenalan IDE dan Struktur Program Visual Basic Versi 6.0 1. Visual Basic Visual Basic adalah bahasa pemrograman berbasis Windows yang merupakan Object Oriented Programming (OOP), yaitu pemrograman berorientasi objek. Visual Basic yang mengadopsi dua macam jenis pemrograman yaitu Permrograman Visual dan Object Oriented Programming (OOP). Cara menjalankan Visual Basic: 1. Klik Menu Start 2. Pilih All Programs 3. Pilih Microsoft Visual Studio 6.0 4. Pilih Microsoft Visual Basic 6.0 5. Pilih Standard EXE Klik Open
Buatlah desain form sebagai berikut:
Ketiklah script berikut:
Tampilan running program:
Pertemuan 2 Tipe Data, Variabel, Konstanta dan Operator 1. Tipe Data Tipe
Ukuran
Data
Storage
Jangkauan
Byte
1 Byte
0 s/d 255
Boolean
2 Byte
True atau False
Integer
2 Byte
-32,768 s/d 32767
Long
4 Byte
-2,147,483,648 s/d 2,147,483,647
Single
4 Byte
-3.402823E38 s/d -1.401298E-45 (-) 1.401298E-45 s/d 3.402823E38 (+)
Double
8 Byte
-1.79769313486232E308 s/d 922,337,203,685,477.5807
Currency 8 Byte
-922,337,203,685,477.5808 s/d 922,337,203,685,477.5807
Decimal
14 Byte
-+ 79,228,162,514,264,337,593,543,950,335
Date
8 Byte
1 januari 100 s/d 31 desember 9999
2. Variabel dan Konstanta Variabel adalah suatu tempat untuk menampung data yang nilainya selalu berubah. Konstanta adalah suatu tempat untuk menampung data yang nilainya tetap dan tidak berubah. Aturan penamaan konstanta dan variabel: a. Harus diawali huruf b. Boleh terdiri dari huruf, angka dan garis bawah
c. Maksimal 225 karakter d. Tidak boleh menggunakan reserve word
2.1.
Deklarasi Variabel
Bentuk umum: Dim
[AS ] Pendeklarasian variabel ada 2 jenis: Deklarasi Eksplisit Untuk mendeklarasikan nama variabel beserta tipe datanya pada awal procedure (menempatkan alokasi nama variabel didalam memori), contohnya sebagai berikut: Dim Nama as String Dim Alamat as String *30 ‘Panjang maksimal 30 Deklarasi Implisit Untuk mendeklarasikan nama variabel beserta tipe datanya dan langsung mengisi nilai variabelnya (menempatkan alokasi nilai variabel langsung didalam memori), contohnya sebagai berikut: Nama$ = “Adi” Gaji$ = 1750000
2.2.
Deklarasi Konstanta
Bentuk umum: Const nama_konstanta [AS tipe_data]
Contoh: Const phi As Double = 3.14
2.3.
Ruang Lingkup Variabel dan Konstanta Variabel dapat dikenal diseluruh bagian program, dan ada yang hanya dikenal
di procedure tempat variabel tersebut dibuat. Keyword Public Private Dim Static
Digunakan pada Berlaku pada level modul Berlaku pada level modul Berlaku pada level modul dan level procedure Berlaku pada level procedure
Contoh program:
Script program: Sub tambah() Dim nilai1, nilai2, hasil As Integer nilai1 = 5 nilai2 = 10 Me.txtnil1.Text = nilai1 Me.txtnil2.Text = nilai2 hasil = nilai1 + nilai2 Me.txthasil.Text = hasil End Sub Sub hitung() Const phi As Double = 3.14 Dim jari As Integer Dim luas As Double jari = 7 luas = phi * jari * jari Me.txtjari2.Text = jari Me.txtphi.Text = phi Me.txtluas.Text = luas End Sub
Private Sub cmdhitung_Click() hitung End Sub Private Sub cmdtambah_Click() tambah End Sub
3. Operator a. Operator Aritmatika Operator ^ * / Mod + &
Aritmatika Keterangan Pangkat Negatif Perkalian Pembagian Sisa bagi Penjumlahan Pengurangan Penggabungan string
b. Operator Relasi (Komparasi/Pembanding) Relasi Operator
Keterangan
=
Sama dengan
<>
Tidak sama dengan
<
Lebih kecil
>
Lebih besar
<=
Lebih kecil atau sama dengan
>=
Lebih besar atau sama dengan
c. Operator Logika Logika Operator
Keterangan
Not
Tidak
And
Dan
Or
Atau
Xor
Exclusive or
Eqv
Ekivalen
Imp
Implikasi
Contoh program:
Script program: Private Sub cmdbagi_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) / Val(Me.txtnilai2.Text) End Sub Private Sub cmdbknsamadgn_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) <> Val(Me.txtnilai2.Text) End Sub Private Sub cmdkali_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) * Val(Me.txtnilai2.Text) End Sub
Private Sub cmdkurang_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) - Val(Me.txtnilai2.Text) End Sub Private Sub cmdkurangdari_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) < Val(Me.txtnilai2.Text) End Sub Private Sub cmdlebihdari_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) > Val(Me.txtnilai2.Text) End Sub Private Sub cmdmodulus_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) Mod Val(Me.txtnilai2.Text) End Sub Private Sub cmdsamadgn_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) = Val(Me.txtnilai2.Text) End Sub Private Sub cmdtambah_Click() Me.txthasil.Text = Val(Me.txtnilai1.Text) + Val(Me.txtnilai2.Text) End Sub
Pertemuan 3 Fungsi Standar 1. Fungsi Standar Pada Visual Basic 6.0 Terdapat 3 fungsi standar pada VB 6.0, diantaranya: a. Fungsi String
Left, mengambil Karakter dari sebelah kiri
Right, mengambil Karakter dari sebelah kanan
Mid, mengambil Karakter dari tengah
LTrim, Membuang semua awal spasi yang ada di sebelah kiri
RTrim, Membuang semua spasi yang ada di sebelah kanan
Trim, Membuang semua spasi yang ada di sebelah kiri dan kanan
Len, Memberikan nilai balik Integer sebagai panjang string
LCase, Mengubah String menjadi huruf kecil semua
UCase, Mengubah String menjadi huruf besar semua
Str (int), Mengubah bilangan menjadi string (konversi)
Chr (Asscii), Konversi dari nilai ascii menghasilkan karakter
b. Fungsi Matematika
Val(str) Konversi string menjadi integer
Asc(Char) Konversi karakter menghasilkan nilai Ascii
Abs(Number) Memberikan nilai mutlak dari suatu nilai negatif
Round(Number, Decimal) Membulatkan suatu angka sampai beberapa digit decimal
Sqr(Number) Memberikan hasil akar kuadrat dari suatu nilai
c. Fungsi Tanggal dan Waktu
Date() Mengambil tanggal sistem komputer
IsDate Memberikan nilai balik Boolean. True jika parameter adalah sebuah tanggal
DateValue Konversi string menjadi date
Date(Date), Month(Date), Year(Date) Memberikan nilai integer dari variabel date untuk hari, bulan dan tahun.
Time() Mengambil waktu dari sistem komputer
Hour(Date), Minute(Date), Second(Date) Memberikan nilai integer dari variabel date untuk jam, menit dan detik.
TimeValue(str) Konversi String ke Variabel Date
Contoh program:
Ketentuan soal: Pada saat form di jalankan maka tanggal dan jam tampil Textbox input kata berisi kata yang akan di jadikan fungsi Pada saat di input kata yang akan di jadikan fungsi maka Textbox di kolom hasil otomatis akan terisi Button bersih berguna untuk membersihkan isi di dalam Textbox Button keluar berfungsi untuk keluar dari program aplikasi
Script program: Private Sub cmdbersih_Click() Me.txtkata.Text = "" Me.txtleft.Text = "" Me.txtright.Text = "" Me.txtmid.Text = "" Me.txtlen.Text = "" Me.txtltrim.Text = "" Me.txtrtrim.Text = "" Me.txtlcase.Text = "" Me.txtucase.Text = "" Me.txtkata.SetFocus End Sub Private Sub cmdkeluar_Click() x = MsgBox("Anda Akan keluar dari form ini ?", vbQuestion + vbOKCancel, "Informasi") If x = vbOK Then End End If End Sub Private Sub Timer1_Timer() Me.LabelJAM.Caption = Time Me.LabelTGL.Caption = Format(Date, "dddd,d mmmm yyyy") End Sub Private Sub txtkata_Change() Me.txtleft.Text = Left(Me.txtkata.Text, 3) Me.txtright.Text = Right(Me.txtkata.Text, 3) Me.txtmid.Text = Mid(Me.txtkata.Text, 3, 3) Me.txtlen.Text = Len(Me.txtkata.Text) Me.txtltrim.Text = LTrim(Me.txtkata.Text)
Me.txtrtrim.Text = RTrim(Me.txtkata.Text) Me.txtlcase.Text = LCase(Me.txtkata.Text) Me.txtucase.Text = UCase(Me.txtkata.Text) End Sub
Pertemuan 4 Percabangan If dan Select Case 1. Percabangan (Branching) Operasi percabangan digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada. Operasi percabangan IF terdiri dari beberapa bentuk, diantaranya: o If… Then Syntax: If kondisi Then pernyataan Atau If kondisi Then pernyataan-pernyataan End If o If… Then… Else Syntax: If kondisi1 Then [blok pernyataan-1] Elseif kondisi2 Then [blok pernyataan-2] Else [blok pertanyaan-n] End If o If Bersarang (Nested If) Syntax: If kondisi ke-1 Then If kondisi ke-1a Then Pernyataan ke-1 Else Pernyataan Ke-2
endif Else If kondisi ke-2 Then Pernyataan ke-1 Else Pernyataan Ke-2 endif End If Contoh program:
Script program: Private Sub txtabsen_Change() Me.txthabsen.Text = 0.1 * Val(Me.txtabsen.Text) End Sub Private Sub txttugas_Change() Me.txthtugas.Text = 0.2 * Val(Me.txttugas.Text) End Sub Private Sub txtuts_Change() Me.txthuts.Text = 0.3 * Val(Me.txtuts.Text) End Sub Private Sub txtuas_Change() Me.txthuas.Text = 0.4 * Val(Me.txtuas.Text)
End Sub Private Sub cmdbersih_Click() Me.txtabsen.Text = 0 Me.txtgrade.Text = "" Me.txthabsen.Text = 0 Me.txthtugas.Text = 0 Me.txthuas.Text = 0 Me.txthuts.Text = 0 Me.txtketerangan.Text = "" Me.txttotal.Text = 0 Me.txttugas.Text = 0 Me.txtuas.Text = 0 Me.txtuts.Text = 0 End Sub Private Sub cmdkeluar_Click() x = MsgBox("Anda Akan keluar dari form ini ?", vbQuestion + vbOKCancel, "Informasi") If x = vbOK Then End End If End Sub Private Sub Form_Activate() Me.txthabsen.Enabled = False Me.txthtugas.Enabled = False Me.txthuts.Enabled = False Me.txthuas.Enabled = False Me.txtabsen.SetFocus End Sub Private Sub cmdhitung_Click() 'Menghitung Total Nilai Me.txttotal.Text = Val(Me.txthtugas.Text) + Val(Me.txthabsen.Text) +
Val(Me.txthuts.Text) + Val(Me.txthuas.Text) 'Menentukan Grade If (Me.txttotal.Text >= 80 And Me.txttotal.Text <= 100) Then Me.txtgrade.Text = "A" Else If (Me.txttotal.Text >= 69 And Me.txttotal.Text <= 79) Then Me.txtgrade.Text = "B" Else If (Me.txttotal.Text >= 56 And Me.txttotal.Text <= 68) Then Me.txtgrade.Text = "C" Else If (Me.txttotal.Text >= 40 And Me.txttotal.Text <= 55) Then Me.txtgrade.Text = "D" Else Me.txtgrade.Text = "E" End If End If End If End If 'Menentukan Keterangan If (Me.txtgrade.Text = "A" Or Me.txtgrade.Text = "B" Or Me.txtgrade.Text = "C") Then Me.txtketerangan.Text = "LULUS" Else Me.txtketerangan.Text = "GAGAL" End If End Sub
2. Select Case Syntax: Select Case ekspresi yang dicoba
[Case ekspresi1 [blok pernyataan-1]] [Case ekspresi2 [blok pernyataan-2]] … [Case Else [blok pernyataan-n] End Select
Contoh program:
Script program: Private Sub Form_Load() Me.cmbkode.AddItem ("MI") Me.cmbkode.AddItem ("KA") Me.cmbkode.AddItem ("TK") End Sub Private Sub cmbkode_Click() Select Case Me.cmbkode.Text Case "MI" Me.txtjurusan.Text = "Manajemen Informatika" Case "KA" Me.txtjurusan.Text = "Komputer Akuntansi" Case Else Me.txtjurusan.Text = "Tehnik Informatika" End Select End Sub
Pertemuan 5 Looping 1. Perulangan (Looping) Struktur loop memperbolehkan anda untuk melakasanakan sekelompok baris pernyataan lebih dari satu kali. Berikut bebereapa bentuk perulangan: a. Do… Loop Gunakan Do Loop untuk mengeksekusi suatu blok statement dengan jumlah perulangan yang tak terhingga. Statement Do Loop, akan dijalankan selama kondisi benar. Ada beberapa Do...Loop statement, diantaranya:
Do While… Loop Bentuk umum: Do While statements Loop
Do… Loop While Bentuk umum: Do statements Loop While
Do Until… Loop Bentuk umum: Do Until statements Loop
Do… Loop Until Bentuk umum: Do statements Loop Until
b. For… Next Bentuk umum: For < pencacah> = To [step] Statement Next Keterangan: Pencacah : Variabel ( tipe : integer) yang digunakan untuk menyimpan angka pengulangan. awal
: Nilai awal dari pencacah
akhir
: Nilai akhir dari pencacah
langkah : Perubahan nilai pencacah setiap pengulangan. Sifatnya optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai langkah adalah 1
c. While… Wend Bentuk umum: WHILE <Statements/Blok Kode Program> WEND
Contoh program:
Script program Private Sub cmdDoUntil_Click() List1.Clear i=1 Do Until i > 5 List1.AddItem (i) i=i+1 Loop End Sub
Private Sub cmdDoWhile_Click() List1.Clear i = 10 Do While i > 6 List1.AddItem (i) i=i-1 Loop End Sub Private Sub cmdFor_Click() List1.Clear For i = 1 To 10 List1.AddItem (i) Next End Sub
Private Sub cmdWhile_Click() List1.Clear i = 20 While i <= 60
Logika program i
i>5
Cetak
i=i+1
1
F
1
2
2
F
2
3
3
F
3
4
4
F
4
5
5
F
5
6
6
T
i
i>6
Cetak
i=i-1
10
T
10
9
9
T
9
8
8
T
8
7
7
T
7
6
6
F
i
i<=10
Cetak
i++
1
T
1
2
2
T
2
3
3
T
3
4
4
T
4
5
5
T
5
6
6
T
6
7
7
T
7
8
8
T
8
9
9
T
9
10
10
T
10
11
11
F
i
i<=60
Cetak
i=i+10
20
T
20
30
List1.AddItem (i) i = i + 10 Wend End Sub
30
T
30
40
40
T
40
50
50
T
50
60
60
T
60
70
70
F
Pertemuan 6 Module 1. Module Module digunakan untuk memuat fungsi,subrutin, konstanta, variabel dan type ciptaan yang akan disediakan bagi keseluruhan project. Untuk membuat module dalam project anda dapat menggunakan perintah Project, Add Module.
Contoh program:
Script program: Public Sub bersih() Dim x As Control For Each x In Me If TypeName(x) = "TextBox" Then x.Text = "" Next End Sub Private Sub cmdbersih_Click() Call bersih End Sub Private Sub cmdhitung_Click() Dim a, t As Integer a = Val(txtalas.Text) t = Val(txttinggi.Text) txtluas.Text = luassegitiga(a, t) End Sub Private Sub cmdkeluar_Click() If MsgBox("Mau Keluar??", vbQuestion + vbOKCancel, "message") Then End End If End Sub Script pada module: Public Function luassegitiga(alas, tinggi As Integer) As Double luassegitiga = (alas * tinggi) / 2 End Function
Pertemuan 7 Array 1. Array Satu Dimensi Array adalah variable yang berisi beberapa
data
sejenis. Data-data tersebut
disimpan dengan nomor urut tertentu yang disebut index. Jika X adalah variable array, maka bisa digambarkan sebagai berikut: Variabel X Data-1 Elemen/index ke-1 Data-2 Elemen/index ke-2 Data-3 Elemen/index ke -3 Data-n Elemen/index ke-n
2. Array Multi Dimensi Array berdimensi 2 terdiri dari baris dan kolom, contohnya pada tabel atau matrik. Pendefinisiannya adalah sebagai berikut: Dim nama_variabel (n1, n2) As tipe_variabel (n1=baris, n2=kolom) Contoh program:
Script program: Private Sub cmdarray_Click() Dim hari(6) As String hari(0) = "Senin" hari(1) = "Selasa" hari(2) = "Rabu" hari(3) = "Kamis" hari(4) = "Jum'at"
hari(5) = "Sabtu" hari(6) = "Minggu" For i = 0 To 6 MsgBox "Hari " & hari(i), , "Nama Hari" Next i End Sub Tampilan output akan mencetak seperti tampilan dibawah ini dan mengulang sebanyak jumlah hari.
Pertemuan 8 Database 1. Database Database adalah kumpulan beberapa data yang saling berhubungan berdasarkan kode-kode tertentu sehingga membentuk sebuah sistem. Secara hirarki database bisa digambarkan sebagai berikut:
2. Membuat Database dengan Microsoft Access
Buatlah
database
dengan
nama:
penjualan_nim
dan
C:\VB_3A_12061479\DB_Penjualan
Simpan dalam format 2003
Buatlah tabel dengan nama: barang
Field Name
Type
Size
Keterangan
kdbrg
Text
6
Primary Key
nmbrg
Text
20
harga
Currency
satuan
Text
5
Buatlah tabel dengan nama: transaksi Field Name
Type
Size
Keterangan
notrans
Text
8
Primary Key
tgltrans
Date/Time
kdbrg
Text
6
jumbel
Number
Integer
total
Currency
Pilih Tab Database Tools Klik Relationship
simpan
di
Pertemuan 9 Pembuatan Form Master Barang 1. Form Master Barang
Pada visual basic, klik kanan pada Toolbox Components
Klik OK
Simpan dengan nama form: FormBarang, Project: Penjualan.
Untuk koneksi database dengan object ADODC. Klik Adodc (adobarang), pada properties, klik bagian ConnectionString, maka muncul tampilan sebagai berikut:
Pada properties, pilih RecordSource, maka akan muncul seperti berikut:
Script program:
Sub aktif() Me.txtharga.Enabled = True Me.txtkode.Enabled = True Me.txtnama.Enabled = True End Sub Sub nonaktif() Me.txtharga.Enabled = False Me.txtkode.Enabled = False Me.txtnama.Enabled = False End Sub Sub bersih() Me.txtharga.Text = 0 Me.txtkode.Text = "" Me.txtnama.Text = "" End Sub Private Sub Form_Load() nonaktif bersih cmdsimpan.Enabled = False cmdedit.Enabled = False cmdhapus.Enabled = False End Sub Private Sub cmdtambah_Click() aktif txtkode.SetFocus cmdtambah.Enabled = False cmdsimpan.Enabled = True End Sub Private Sub txtkode_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then adobarang.Refresh adobarang.Recordset.Find "kdbrg='" & txtkode.Text & "'" If Not (adobarang.Recordset.EOF) Then MsgBox ("Kode barang sudah ada") Else txtnama.SetFocus End If End If End Sub Private Sub cmdsimpan_Click() adobarang.Refresh adobarang.Recordset.Find "kdbrg='" & txtkode.Text & "'" If adobarang.Recordset.EOF Then adobarang.Recordset.AddNew adobarang.Recordset!kdbrg = Me.txtkode.Text
adobarang.Recordset!nmbrg = Me.txtnama.Text adobarang.Recordset!harga = Val(Me.txtharga.Text) adobarang.Recordset.Update adobarang.Recordset.MoveLast MsgBox "Data berhasil disimpan" Else adobarang.Recordset!nmbrg = Me.txtnama.Text adobarang.Recordset!harga = Val(Me.txtharga.Text) adobarang.Recordset.Update adobarang.Recordset.MoveLast MsgBox "Data berhasil diperbaharui" End If adobarang.RecordSource = "barang" adobarang.Refresh grid.Refresh Form_Load End Sub Private Sub cmdcari_Click() nonaktif cmdedit.Enabled = True cmdhapus.Enabled = True x = InputBox("Masukkan kode barang:", "Pencarian Barang") adobarang.Recordset.MoveFirst adobarang.Recordset.Find "kdbrg=' " & x & " ' " If adobarang.Recordset.EOF Then MsgBox "Data tidak ditemukan" Else grid.Refresh Me.txtkode.Text = adobarang.Recordset!kdbrg Me.txtnama.Text = adobarang.Recordset!nmbrg Me.txtharga.Text = adobarang.Recordset!harga End If End Sub Private Sub cmdedit_Click() aktif Me.txtkode.Enabled = False cmdsimpan.Enabled = True cmdtambah.Enabled = False End Sub Private Sub cmdhapus_Click() adobarang.Recordset.Delete adobarang.Refresh adobarang.Recordset.MoveNext adobarang.RecordSource = "barang" adobarang.Refresh
grid.Refresh Form_Load MsgBox ("Data terhapus") End Sub Private Sub cmdkeluar_Click() x = MsgBox("Yakin ingin keluar?", 32 + 4, "Informasi") If x = 6 Then End End If End Sub Masukkan data sebagai berikut: Kode Barang
Nama Barang
Harga
MN-001
Monitor LG 15”
500000
KY-003
Keyboard Komic
25000
MS-001
Mouse Optik
55000
Pertemuan 10 Pembuatan Form Transaksi 1. Form Transaksi
Buka project Penjualan, lalu buatlah form baru, simpan dengan nama: FormTransaksi.
Untuk koneksi database dengan object ADODC, adobarang dihubungkan ke tabel barang dan adotrans dihubungkan ke tabel transaksi.
Ketentuan soal:
Setting Enabled: false pada properties untuk textbox yang tidak boleh dimanipulasi(hanya menampilkan data), yaitu: txtharga, txttotal dan txtkembali.
txtno, txttgl, txtnama,
Pada saat form dijalankan, dalam keadaan nonaktif. Tombol add dan exit aktif. Tombol save dan cancel nonaktif.
Pada saat tombol add diklik, maka muncul nomor otomatis yang terdiri dari 2 digit bulan + 2 digit tanggal + 4 digit nomor urut. Tombol add nonaktif, tombol save dan cancel aktif.
Pilih kode barang, tampil nama barang dan harga.
Input jumlah beli, enter, tampil total = harga*jumbel, setfocus di textbox uang bayar
Input uang bayar, uang kembali otomatis muncul.
Pada saat tombol simpan diklik, maka akan tersimpan di table transaksi dan tampil di grid.
Script program: Sub aktif() Me.cmbkode.Enabled = True Me.txtjumbel.Enabled = True Me.txtbayar.Enabled = True End Sub Sub nonaktif() Me.cmbkode.Enabled = False Me.txtjumbel.Enabled = False Me.txtbayar.Enabled = False End Sub Sub bersih() Me.txtbayar.Text = 0 Me.txtharga.Text = 0 Me.txtjumbel.Text = 0 Me.txtkembali.Text = 0 Me.txtnama.Text = "" Me.txtno.Text = "" Me.txttgl.Text = "" Me.txttotal.Text = 0 Me.cmbkode.Text = "" End Sub Private Sub Form_Load() nonaktif bersih Me.cmdcancel.Enabled = False Me.cmdsave.Enabled = False End Sub
Private Sub Form_Activate() adobarang.Refresh adobarang.Recordset.MoveFirst While Not adobarang.Recordset.EOF cmbkode.AddItem (adobarang.Recordset!kdbrg) adobarang.Recordset.MoveNext Wend End Sub Private Sub cmdadd_Click() aktif nomor cmdadd.Enabled = False cmdcancel.Enabled = True cmdsave.Enabled = True End Sub Private Sub cmdcancel_Click() bersih cmdadd.Enabled = True cmdcancel.Enabled = False cmdsave.Enabled = False End Sub Private Sub cmdexit_Click() x = MsgBox("Yakin mau keluar?", vbInformation + vbYesNo, "Informasi") If x = vbYes Then Unload Me End If End Sub Sub nomor() awal = Format(Now(), "mmdd") If adotrans.Recordset.RecordCount = 0 Then no = "0001" Else adotrans.Recordset.MoveLast If Left(adotrans.Recordset!notrans, 4) <> awal Then no = "0001" Else no = Val(Right(adotrans.Recordset!notrans, 4)) + 1 no = Right(("000" + Trim(Str(no))), 4) End If End If Me.txtno.Text = awal + no End Sub Private Sub cmbkode_Click() adobarang.Refresh adobarang.Recordset.Find "kdbrg='" & cmbkode.Text & "' "
If Not adobarang.Recordset.EOF Then Me.txtnama.Text = adobarang.Recordset!nmbrg Me.txtharga.Text = adobarang.Recordset!harga Me.txtjumbel.SetFocus End If End Sub Private Sub Timer1_Timer() Me.txttgl.Text = Date End Sub Private Sub cmdsave_Click() adotrans.Recordset.AddNew adotrans.Recordset!notrans = Me.txtno.Text adotrans.Recordset!tgltrans = Me.txttgl.Text adotrans.Recordset!kdbrg = Me.cmbkode.Text adotrans.Recordset!jumbel = Val(Me.txtjumbel.Text) adotrans.Recordset!total = Val(Me.txttotal.Text) adotrans.Recordset.Update adotrans.Recordset.MoveLast MsgBox "Data berhasil disimpan" adotrans.RecordSource = "transaksi" adotrans.Refresh grid.Refresh nonaktif bersih cmdadd.Enabled = True cmdcancel.Enabled = False cmdsave.Enabled = False End Sub Private Sub txtbayar_Change() Me.txtkembali.Text = Val(Me.txtbayar.Text) - Val(Me.txttotal.Text) End Sub Private Sub txtjumbel_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txttotal.Text = Val(Me.txtharga.Text) * Val(Me.txtjumbel.Text) Me.txtbayar.SetFocus End If End Sub
Pertemuan 11 Pembuatan Laporan 1. Membuat Laporan dengan Data Report
Buka project Penjualan
Klik kanan pada project Add Data Environment atau
klik
kanan
pada
project Add More ActiveX Designers Data Environment
Klik kanan pada Connection1 Properties Microsoft Jet 4.0 OLE DB Provider Next
Pilih Database penjualan_12061479 Test Connection OK
Klik kanan pada Connection1 Add Command
Klik kanan pada Command1 Properties
Simpan DataEnvironment1 dengan nama: DataEnvironment1
Klik kanan pada project Add Data Report
Properties: DataSource: DataEnvironment1 DataMember: databarang Simpan dengan nama: LapBarang
Drag & drop field-filed pada jendela Data Environment ke jendela Data Report di bagian Detail
Pindahkan bagian yang diakhiri tanda “:” ke bagian Page Header. Ubah nama Field pada Caption.
Berikan judul “DAFTAR BARANG” dengan cara klik kanan pada Report Header Insert Control Label
Hasil laporan setelah di-running
Buatlah laporan transaksi
Add Command pada Data Environment, klik kanan pilih properties pada Command.
Klik kanan pada project Add Data Report
Properties DataReport: DataSource: DataEnvironment1 DataMember: datatransaksi Simpan dengan nama: LapTransaksi
Klik kanan pada area report footer, Insert Control Function.
Properties DataField: total
Hasil laporan setelah di-running
Pertemuan 12 Pembuatan Menu Utama 1. Menu Utama o Klik kanan pada project Add MDIForm Open
o Klik Menu Editor
o Simpan dengan nama: Menu_Utama o Untuk memberikan listing, klik pada submenu o Script program: Private Sub FormBarang_Click() FBarang.Show
End Sub Private Sub FormTransaksi_Click() FTransaksi.Show End Sub Private Sub LaporanBarang_Click() DataReport1.Show End Sub Private Sub LaporanTransaksi_Click() DataReport2.Show End Sub Private Sub Exit_Click() Unload Me End Sub Sesuaikan dengan nama Form dan Laporan.
