Selasa, 07 Mei 2013

MODUL VB


BAB I
DASAR-DASAR VISUAL BASIC

1.1. PEMROGRAMAN
            Pemrograman adalah penggabungan intruksi/perintah dari suatu bahasa komputer. Apabila anda membuat program berarti anda telah membuat intruksi/perintah yang dapat dimengerti oleh komputer untuk menyelesaikan suatu permasalahan yang anda hadapi. Pemrograman sebenarnya dikategorikan menjadi dua yaitu pemrograman konvensional dan pemrograman visual. Pemrograman konvensional biasanya menggunakan sistem operasi DOS (pascal, basic, c++, fortran, COBOL) sedangkan pemrograman visual sudah menggunakan basis GUI (Graphical User Interface) atau visual. Visual dalam hal ini berarti input dan output langsung terlihat oleh mata (visual). Contohnya program visual basic, visual delphi, visual C++, Visual FoxPro dan visual Object.
            Pada pemrograman visual pengembangan aplikasi dimulai dengan pembentukan user interface kemudian mengatur properti dari objek-objek yang digunakan dalam user interface, baru dilakukan penulisan kode program untuk menangani kejadian-kejadian (event).


1.2. TAMPILAN VISUAL BASIC 6.0
            Untuk menjalankan Visual Basic anda dapat mengklik icon pada desktop (bila ada) atau dengan cara mengklik  Start – Program – Visual Studio – Visual Basic 6.0 lalu tampil gambar sebagai berikut:

Right Arrow Callout: Properties

Form
 
Left Arrow Callout: ToolBox
Gambar 1. Tampilan Awal Visual Basic 6.0
1.3. KOMPONEN-KOMPONEN PADA VISUAL BASIC
Untuk memunculkan komponen toolbox, form properties, project diatas dapat anda lihat pada menu view.

Right Arrow Callout: Project WindowsToolBox adalah kotak berisi objek yang digunakan untuk membuat aplikasi pemrograman dan diletakkan didalam form. Misalnya untuk membuat membuat tulisan, anda dapat mengklik icon label kemudian drag ke dalam form. Icon ToolBox dapat diubah/dimodifikasi dengan cara mengklik kanan mouse pada ToolBox lalu pilih Components – pilih salah satu komponen – ApplyOK.

Form adalah tempat membuat program aplikasi. Form akan muncul secara otomatis apabila anda baru membuka aplikasi baru dengan nama Form1. Didalam form terdapat garis yang berupa titik-titik yang disebut dengan Grid.

Properties digunakan untuk menentukan setting suatu objek. Objek biasanya mempunyai beberapa properties yang dapat diatur secara langsung dari properties windows atau object bisa diatur melalui kode program.

Project adalah kumpulan modul-modul yang anda buat didalam program visual basic. Modul-modul pada project sebenarnya adalah isi aplikasi/program yang kita buat. Project disimpan dalam file yang berextention .VBP

Kode Program adalah kumpulan intruksi/perintah yang akan dilaksanakan jika suatu objek dijalankan. Kode program inilah yang akan mengendalikan semua aktivitas objek.

Event adalah peristiwa atau kejadian yang diterima suatu objek misalnya drag, klik, keypress dan lain sebagainya.
Contoh:
Private Sub Command1_Click()                  ‘event apabila command1 di klik.
     <Intruksi /Perintah>
End Sub

Method adalah suatu set perintah yang sudah tersedia di dalam suatu objek untuk mengerjakan suatu hal yang khusus pada objek.
Contoh:
Private Sub Form_Activate()
Form1.Print "Selamat Belajar Visual Basic 6.0"
End Sub
Method yang yang digunakan untuk menampilkan tulisan "Selamat Belajar Visual Basic 6.0" pada kode program diatas adalah print.
1.4. TIPE DATA  DAN CONSTANTA
1.4.1.  TIPE DATA
            Tipe / jenis data yang sering digunakan adalah Interger, Long, Single, Double, Curency, String, Byte, Boolean, Date,Object, Variant. Range / Batasan data untuk masing-masing tipe data tersebut adalah sebagai berikut:
TIPE
RANGE
Integer
- 32768 s/d 32767
Long
- 2147483648 s/d 2147483647
Single
Negatif : - 340282E38 s/d – 14012981E45
Positif  : 1401298E45 s/d 340282E38
Double
Negatif   : - 79769313482321E308 s/d –4940636458412471E32
Positif     : 494065645841247E324 s/d 179769313482321E308
Currency
- 922337203685477.5808 s/d 922337203685477.5808
String
0 s/d 2 milyar karakter
Byte
0 s/d 255
Boolean
True / False
Date
s/d 31 Desember 9999
Object
Refensi Object
variant
Null, Error


1.4.2. CONSTANTA
            Constanta adalah pernyataan dari sebuah nilai yang tetap dan tidak berubah-ubah. Constantan dideklarasikan dengan statement Const.
Contoh:
Const Harga As 500

1.5. VARIABEL DAN OPERATOR
1.5.1. VARIABEL
            Variabel adalah tempat yang ada didalam memori yang diberi nama sebagai pengingat (pengenal) dan dialokasikan untuk menampung data.

Formula:
Dim <var> as <Tipe Data>
Keterangan:
<Var> adalah nama variabel
<Tipe data> adalah Jenis data yang digunakan

Contoh:
Dim nama as String             à nama = ‘Eugine Syafalda Audriella’
Dim gaji as long                   à gaji = 2500000
Dim umur as integer            à umur = 25
1.5.2. OPERATOR

Penugasan
Formula:
<variabel>=<ekspresi>
contoh :
bilangan = 0                          ‘Memberikan nilai 0 (nol) kepada variabel Bilangan
harga = 500                           ‘Memberi nilai 500 untuk variabel harga
bayar = banyak * harga       ‘bayar menampung hasil perkalian  banyak
 dengan harga.

Aritmatika
Digunakan untuk operasi aritmatika dengan hierarki yang berbeda-beda yaitu sebagai berikut :
Operator
Operasi
^
Pemangkatan
* , /
Perkalian dan pembagian
\
Pembagian integer
Mod
Modulus (sisa pembagian)
+ , -
Penambahan dan pengurangan
+ , &
Penggabungan string
Contoh :
2 ^ 2                            à hasilnya 4
2 ^ 2 +                         à hasilnya 9
7 \ 2                             à hasilnya 3
“A” & 2 & “b”              à hasilnya A2B
“A” + “B” + “C”            à hasilnya ABC
  
Perbandingan
Digunakan untuk membandingkan suatu data (ekspresi) dengan data (ekspresi) yang lain dan menghasilkan nilai logika (benar atau salah). Dua data atau ekspresi yang dibandingkan mempunyai tipe data yang sama.
operator
Keterangan
=
Sama dengan
<> 
Tidak sama dengan
Lebih kecil
Lebih besar
<=
Lebih kecil atau sama dengan
>=
Lebih besar atau ssama dengan
Like
Mempunyai ciri yang sesuai
Is
Sama referensi objek

Contoh :
Tes = 5>4                                           ‘variabel tes berisi true’
Sama = “abc” = “ab”                         ‘variabel sama berisi false’
Sama = “abcde” like “a*”                 ‘variabel sama berisi true’
Sama = “abcde” like “b*”                 ‘variabel sama berisi false’
Sama = “abcde” like “ab?de”          ‘variabel sama berisi true’
Mycheck = myobjek is thatobjek    ‘mycheck berisi true jika myobjek sama
 dengan thatobjek’

Logika
Digunakan untuk mengekspresi satu atau lebih data (ekspresi) logika (boolean) menghasilkan data logika (boolean).
Operator
Keterangan
Not
Tidak
And
Dan
Or
Atau

PRAKTIKUM 1
NamaFile       : Prak-001
Folder             : Mahasiswa

1.      Jalankan Program Visual Basic
2.      Double Klik Form  dan ketik Program Berikut:
Private Sub Form_Activate()
Form1.Print "Selamat Belajar Visual Basic 6.0"
Form1.Print "NPM : 0131001"
Form1.Print "Nama: Eugine Syafalda Audriella"
Form1.Print "  "
harga = 500                    
banyak = 10
bayar = banyak * harga
Form1.Print bayar
Form1.Print "  "
Form1.Print 2 ^ 2                        ' hasilnya 4
Form1.Print 2 ^ 2 + 5                 ' hasilnya 9
Form1.Print 7 / 2                         ' hasilnya 3
Form1.Print "A" & 2 & "b"         ' hasilnya A2b
Form1.Print "A" + "B" + "C"     ' hasilnya ABC
End Sub

3.      Jalankan Program dengan menekan F5  atau Klik menu Run – Start sehingga tampil hasil sebagai berikut:
Gambar 2. Hasil Praktikum 1

Tugas:
1. Apa Hasil dari program berikut:
    banyak = 12
    harga = 100
    bayar = harga * banyak
    Form1.Print banyak & " * " & harga & "= " & bayar
    Form1.Print  50 mod 2
2. Buatlah potongan 5% dari total pembayaran



BAB II
MENGGUNAKAN OBJECT PADA TOOLBOX


Objek standar pada toolbox terdiri dari PictureBox, Label, TextBox, Frame, Command Button, CheckBox, OptionsBox, ComboBox, ListBox, HscrolBar, VScrolBar, Timer, DriveListBox, DirListBox, FileListBox, Shape, Line, Image dan Data. Berikut ini adalah icon yang terdapat pada toolbox:































         
              PictureBox
Label

Frame

CheckBox

ListBox

VscrolBar

Timer

DirListBox

Shape

Image
 
              TextBoxt   
              Button

              Options Box             

              ComboBox

              HscrolBar

              DriveListBox

              FileListBox

              Line

              Data 
 


Gambar 3. Object ToolBox

2.1. LABEL DAN TEXTBOX
LABEL
Label digunakan untuk menampilkan tulisan dalam bentuk teks


TEXTBOX
TextBox digunakan untuk menginputkan teks, mengedit dan menampilkan teks

PRAKTIKUM 2
NamaFile       : Prak-002
Folder             : Mahasiswa

Langkah Kerja:
1.     Jalankan Visual Basic 6.0
2.     Aktifkan Form dan Properties
3.     Klik object Label Pada ToolBox dan Drag ke dalam Form
Pada Properties pilih caption dan ketik tulisan AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER kemudian pilih font.

Objeck
Properties
Ket
Label1
Caption:
AKADEMI MANAJEMEN INFORMATIKA DANKOMPUTER

Font:
Font:MSSans Serif – Bold – 12


4.     Ulangi langkah ke-3 untuk membuat label yang lain

Objeck
Properties
Ket
Label2
Caption:
AMIK AKMI BATURAJA
Font:
Font:MSSans Serif – Bold - 12

Label3
Caption : Hallo, SAYA SEDANG
BELAJAR PEMROGRAMAN VISUAL
BASIC
ForeColor : &H00000080&

Label4
Caption: NAMA SAYA EUGINE SYAFALDA AUDRIELLA HOBBY SAYA MENYANYI DAN MENARI
Alignment : 2 - Center


5.     Jalankan program dengan menekan tombol F5
6.     Lanjutkan dengan membuat TextBox seperti pada tabel berikut:
Objeck
Properties
Ket
Label5
Caption: Nama Anda

Label6
Caption: Alamat anda di mana

TextBox1
Name : TbNama
Text :

TextBox2
Name : TbAlamat
Text :


7.     Jalankan Kembali program yang anda buat

Gambar 3. Hasil Praktikum 2

Tugas:
Buatlah Form sebagai berikut:
Gambar 4. Form Tugas Label dan TextBox

2.2. BUTTON
     CommandButton digunakan untuk memberikan suatu perintah atau tindakan yang akan digunakan dalam program aplikasi

PRAKTIKUM 3
NamaFile       : Prak-002
Folder             : Mahasiswa

Langkah Kerja:
1.  Jalankan Visual Basic 6.0
2.  Aktifkan Form dan Properties
3.  Buat Form untuk menghitung penjumlahan 2 (dua) buah bilangan sebagai berikut:
Gambar 5. Form menghitung 2 (dua) bilangan

Atur Properti sebagai berikut:
Objeck
Properties
Ket
Label1
Caption: Angka Pertama

Label2
Caption: Angka Kedua

Label3
Caption: Total Penjumlahan

Text1
Text:

Text2
Text:

Text3
Text:

Command1
Caption: Hitung


4.  Double Klik CommandButton untuk membuat perintah – perintah penjumlahan dua bilangan tersebut.

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Keterangan:
Command1_Click() menunjukkan tindakan/event yang dilakukan oleh pemakai komputer

Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text3.Text merupakan penampung nilai penjumlahan
Val(Text1.Text) adalah mengubah data text kedalam bentuk angka.

5.  Jalankan program dan isilah angka pertama dan angka kedua pada program aplikasi anda.

2.3. CHECKBOX, OPTIONBUTTON DAN COMBOBOX
CHECKBOX
CheckBox digunakan untuk memilih satu atau beberapa pilihan secara bersamaan.

OPTIONBUTTON
OptionButton digunakan untuk memilih satu pilihan diantara beberapa pilihan.

COMBOBOX
ComboBox digunakan untuk menampilkan beberapa pilihan secara Drop-Down-List.

PRAKTIKUM 3
NamaFile       : Prak-003
Folder             : Mahasiswa

Langkah Kerja:
1.  Jalankan Visual Basic 6.0
2.  Aktifkan Form dan Properties
3.  Rancanglah Form sebagai berikut:
Gambar 6. Data Pegawai Sederhana

4.  Properti object sebagai berikut:
  Objeck
Properties
Ket
Label1
Caption: Komputerisasi data Pegawai
Alignment: 2- Center

Label2
Caption: CV. Usaha Perdana
Alignment: 2- Center

Label3
Caption: Baturaja
Alignment: 2- Center

Label4
Caption: No. Induk Pegawai

Text1
Text:

Label5
Caption: Nama Pegawai

Text2
Text:

Label 6
Caption: Alamat

Text3
Text:

Label7
Caption: Jenis kelamin

Option1
Caption: Laki-Laki

Option2
Caption: Perempuan

Label8
Caption: Agama

Combo1
Text:
List: Islam (Ctrl + Enter)
      Protestan
      Katolik
      Hindu
      Budha
      Kepercayaan 

Label9
Caption: Pendidikan Terakhir

Option3
Caption: SD

Option4
Caption: SLTP

Option5
Caption: SLTA

Option6
Caption: S1

Option7
Caption: S2

Option8
Caption: S3

Label10
Caption: Jurusan

Text4
Text:

Command1
Caption: Keluar


5.  Double Klik Command1 dan ketik perintah untuk keluar sebagai berikut:
Private Sub Command1_Click()
End
End Sub
6.  Jalankan Program


Tugas:
Buatlah form yang mempunyai objek label, ComboBox, option Button, Command Button dan TextBox dan cobalah untuk membuat frame, dan FlexGrid seperti tampilan form di bawah ini:

Gambar 7. Form Tugas


2.4. PICTURE DAN IMAGE
     Picture dan image digunakan untuk menampilkan object gambar. Object gambar yang ditampilkan dalam picture dan image berextention bitmap, icon, gif,Jpeg, metafile, dan lain sebagainya).

2.5. FRAME DAN TIMER
FRAME
Frame digunakan untuk membuat bingkai dari sebuah kumpulan object atau group pengontrolan.

TIMER
Timer digunakan untuk mengoperasikan waktu kejadian pada setiap tindakan/event dari suatu program.

2.6. FILE LISTBOX, DRIVE LISTBOX  DAN DIRECTORY LISTBOX
FILE LISTBOX
FileListBox digunakan untuk menampilkan daftar file pada directory yang aktif.



DRIVE LISTBOX
DriveListBox digunakan untuk menampilkan daftar drive pada komputer dan memungkinkan untuk memilih salah satu drive.

DIRECTORY LISTBOX
DirListBox digunakan untuk menampilkan daftar folder atau directory pada drive.

PRAKTIKUM 4
NamaFile       : Prak-004
Folder             : Mahasiswa

Langkah Kerja:
1.  Jalankan Visual Basic 6.0
2.  Aktifkan Form dan Properties
3.  Rancanglah Form sebagai berikut:

Gambar 8. Praktikum 4

4.  Properties object sebagai berikut



  Objeck
Properties
Ket
Frame1


Image1
Picture: Bitmap (c:\Windows\)
Stretch: True

Label1
Caption: LATIHAN MEMBUAT PICTURE, IMAGE, FRAME, FILE LIST BOX, DRIVE LIST BOX DAN DIRECTORY LIST BOX

Picture1
Picture: Bitmap (c:\Windows\)
Stretch: True

Frame2


Dir1


Frame3


File1



5.  Double Klik Drive1 dan buat source code sbb:
Private Sub Drive1_Change()
Dir1 = Drive1         ‘Apabila drive berubah maka  
End Sub               ‘directory juga berubah.

6.  Double Klik Dir1 dan buat source code sbb:
Private Sub Dir1_Change()
File1 = Dir1     ‘Apabila directory berubah
End Sub              ‘maka file juga berubah

7.  Jalankan Program


2.7. MEMBUAT MENU
Menu adalah pilihan intruksi atau perintah yang dapat dipilih secara vertikal atau harizontal. Menu yang  umum terlihat diantaranya adalah menu file, Edit, View, Format dan lainnya. Untuk membuat menu menggunakan perintah sebagai berikut:
1.     Pilih tools – Menu Editor lalu muncul tampilan sebagai berikut:
Gambar 9. Gambar Menu Editor

Keterangan:
Caption    : digunakan untuk membuat menu
  Contoh: &File
  & = untuk membuat garis disebelah kanan
      Menu
Name       : untuk membuat nama menu
              Contoh: mnFile
Next       : untuk melanjutkan menu
Insert     : untuk menyisipkan menu
Delete     : untuk menghapus menu
à          : Membuat sub dan sub-sub menu
ß                                                 : Menghapus sub menu

2.     Ketika Menu yang akan anda buat pada Caption
3.     Ketik nama menu pada Name
4.     Klik Next dan Ulangi kembali langkah 2 (dua) untuk menu yang lain.
5.     OK dan coba jalankan


PRAKTIKUM 5
NamaFile       : Prak-005
Folder             : Mahasiswa

Langkah Kerja:
1.  Jalankan Visual Basic 6.0
2.  Aktifkan Form dan Properties
3.  Rancanglah menu sebagai berikut:
Gambar 10. Gambar Menu

4.  Jalankan program anda
5.  Lanjutkan dengan mengklik menu keluar dan ketik perintah keluar sbb:
Private Sub mnKeluar_Click()
End
End Sub
6.  Buatlah sub menu File sebagai berikut:
Input Data Mahasiswa, Input Data Dosen, Input Data Mata Kuliah, Input Data Mahasiswa Baru dan Input Data Nilai.

Gambar 11. Sub menu File

7.  Jalankan program anda


Tugas:
Buatlah program dan menu untuk menghitung rumus-rumus matematika yang anda ketahui.




BAB III
MEMBUAT SOURCE CODE
(MENULIS PERINTAH PROGRAM)


3.1. METHOD
     Method adalah perintah yang sudah tersedia didalam suatu object. Didalam Visual basic Method dibuat dengan pemisah tanda titik (.) misalnya : form1.print “ Selamat Belajar”. Tanda titik yang terdapat pada perintah form1.print merupakan method untuk menampilkan text pada form1. Perintah tersebut diatas umumnya sudah terdapat pada properties.
Contoh:
Private Sub Form_Load()
Text1.Text = " " ‘Text1.text diisi dengan karakter blank
End Sub

3.2. EVENT
     Event adalah peristiwa atau kejadian yang diterima suatu object. Misalnya drag, klik, tunjuk dan lain sebagainya.
Contoh:
Private Sub Command1_Click()

End Sub

PRAKTIKUM 6
NamaFile       : Prak-006
Folder             : Mahasiswa

Langkah Kerja:
1.  Jalankan Visual Basic 6.0
2.  Aktifkan Form dan Properties
3.  Rancanglah Form Kalkulator sebagai berikut:
Gambar 12. Form Kalkulator Sederhana
4.  Isi Properties sebagai berikut
  Objeck
Properties
Ket
Text1
Text:

Text2
Text:

Text3
Text:

Text4
Text:

Command1
Caption: 7

Command2
Caption: 8

Command3
Caption: 9

Command4
Caption: +

Command5
Caption: 4

Command6
Caption: 5

Command7
Caption: 6

Command8
Caption: -

Command9
Caption: 1

Command10
Caption: 2

Command11
Caption: 3

Command12
Caption: *

Command13
Caption: 0

Command14
Caption: CE

Command15
Caption: =

Command16
Caption: /


5.  Dengan SourceCode Sebagai berikut:
Private Sub Command1_Click()
Text4.Text = Text4.Text + "7"
End Sub

Private Sub Command10_Click()
Text4.Text = Text4.Text + "2"
End Sub

Private Sub Command11_Click()
Text4.Text = Text4.Text + "3"
End Sub

Private Sub Command12_Click()
Text2.Text = "*"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command13_Click()
Text4.Text = Text4.Text + "0"
End Sub

Private Sub Command14_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command15_Click()
Text3.Text = Text4.Text
If Text2.Text = "+" Then Text4.Text = Val(Text1.Text) + Val(Text3.Text)
If Text2.Text = "-" Then Text4.Text = Val(Text1.Text) - Val(Text3.Text)
If Text2.Text = "*" Then Text4.Text = Val(Text1.Text) * Val(Text3.Text)
If Text2.Text = "/" Then Text4.Text = Val(Text1.Text) / Val(Text3.Text)
End Sub

Private Sub Command16_Click()
Text2.Text = "/"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command17_Click()
CrystalReport1.Name = "Test1.rpt"
CrystalReport1.RetrieveDataFiles
End Sub

Private Sub Command2_Click()
Text4.Text = Text4.Text + "8"
End Sub

Private Sub Command3_Click()
Text4.Text = Text4.Text + "9"
End Sub

Private Sub Command4_Click()
Text2.Text = "+"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command5_Click()
Text4.Text = Text4.Text + "4"
End Sub

Private Sub Command6_Click()
Text4.Text = Text4.Text + "5"
End Sub
Private Sub Command7_Click()
Text4.Text = Text4.Text + "6"
End Sub

Private Sub Command8_Click()
Text2.Text = "-"
Text1.Text = Text4.Text
Text4.Text = "": Text4.SetFocus
End Sub

Private Sub Command9_Click()
Text4.Text = Text4.Text + "1"
End Sub

Private Sub Form_Load()
‘Text1.Visible = False
‘Text2.Visible = False
'Text3.Visible = False
End Sub

6.  jalankan Program Anda

Catatan:
Rumus dari Perintah IF
If Expression Then  TruePart
Contoh:
If T2.Text = "+" Then T4.Text = Val(T.Text) + Val(T3.Text)
atau
If Expression Then  
   <TruePart>   ‘Perintah dijalankan apabila ekspresi benar
Else
   <FalsePart>  ‘ Perintah dijalankan apabila ekspresi salah
End IF

Contoh 1:
If T2.Text = "+" Then
   T4.Text = Val(T.Text) + Val(T3.Text)
End IF

Contoh 2:
If T2.Text = "+" Then
   T4.Text = Val(T.Text) + Val(T3.Text)
Else
   T4.Text = Val(T.Text) - Val(T3.Text)
End IF


BAB IV
BEKERJA DENGAN DATABASE


4.1. BEKERJA DENGAN SATU TABEL
Cara Membuat Tabel Database:
1.     Klik Add-In – Visual Data Manager
Gambar 13. Visual data Manager (VisData)

2.     Klik File – New dan pilih salah satu penampung database misalnya: Microsoft Acces – Version 7.0 MDB
3.     Pada File Name buat nama Database yang akan dibuat Misalnya Pegawai Lalu Klik Save
Gambar 14. VisData Database Pegawai

4.     Buat Tabel dengan cara klik kanan pada properties dan pilih new table
Gambar 15. Strukur Table

5.     Buat nama tabel pada Table Name Misalnya: TbKaryawan
6.     Klik AddField kemudian masukkan field, Type data dan size dari field yang akan anda buat dalam tabel lalu Klik Ok (Ulangi langkah 6 sampai dengan selesai)

Gambar 16. Struktur Add Field



Dengan field sebagai berikut:
NO
Field
 Name
Type
Size
Keterangan
1
NIK
Text
10
No Induk Karyawan
2
Nama
Text
35
Nama Karyawan
3
Alamat
Text
50
Alamat karyawan
4
Kota
Text
25
Kota
5
TPLahir
Text
25
Tempat Lahir
6
TglLahir
Date

Tanggal lahir
7
Kelamin
Text
10
Jenis Kelamin
8
Status
Text
15
Status

7.     Klik Close dan Klik Built the Table

PRAKTIKUM 7
MENGHUBUNGKAN OBJECK DATA DENGAN TABEL
NamaFile       : Prak-007
Folder             : Mahasiswa

Langkah Kerja:
1.  Jalankan Visual Basic 6.0
2.  Aktifkan Form dan Properties
3.  Rancanglah Form sebagai berikut:
Gambar 16. form Latihan membuat tabel


4.  isi Properties sebagai berikut:

  Objeck
Properties
Ket
Data1
Database Name:DBKaryawan
Record Source:Tbkaryawan

Text1
Text:
Data Source: Data1
Data Field : NIK

Text2
Text:
Data Source: Data1
Data Field : Nama

Text3
Text:
Data Source: Data1
Data Field : Alamat

Text4
Text:
Data Source: Data1
Data Field : Kota

Text5
Text:
Data Source: Data1
Data Field : TpLahir

Text6
Text:
Data Source: Data1
Data Field : TglLahir

Text7
Text:
Data Source: Data1
Data Field : Kelamin

Text8
Text:
Data Source: Data1
Data Field : Status

Command1
Caption: Input Data

Command2
Caption: Simpan Data

Command3
Caption: Edit Data

Command4
Caption: Delete Data

Command5
Caption: Cari Data

Command6
Caption: Keluar

Form1
WindowsState: 2 -  Maximazise


5.  Jalankan Program Anda lalu lanjutkan pembuatan aplikasi anda

6.  Double Klik Button Input Data Lalu Ketikkan perintah berikut ini.
Private Sub Command1_Click()
Data1.Recordset.AddNew    ‘Menambah Record Baru
Text1.SetFocus            ‘Kursor di Posisi Text1
End Sub


7.  Double Klik Button Simpan Data Lalu Ketikkan perintah berikut:
Private Sub Command2_Click()
Data1.Recordset.Update         ‘Menyimpan Data Record
Data1.Refresh
End Sub

8.  Double Klik Button Edit Data Lalu Ketikkan perintah berikut:
Private Sub Command3_Click()
Data1.Recordset.Edit      ‘Edit record
Data1.Refresh
End Sub

9.  Double Klik Button Delete Data Lalu Ketikkan perintah berikut:
Private Sub Command4_Click()
Data1.Recordset.Delete         ‘Delete Record
Data1.Refresh
End Sub

10.    Double Klik Button Cari Data Lalu Ketikkan perintah 
Private Sub Command5_Click()
‘Pencarian Data
Dim Cari As String
Cari = InputBox("Masukkan NIK", "Search Data")
Data1.Recordset.FindFirst ("NIK='" & Cari & " ' ")
If Data1.Recordset.NoMatch Then
   MsgBox ("Record tersebut tidak ada")
End If
End Sub
 
11.    Double Klik Button Keluar Lalu Ketikkan perintah 
Private Sub Command6_Click()
‘Selesai / Keluar
End
End Sub

12.         Jalankan Program Anda


BEKERJA DENGAN KOMPONEN FLEXGRID
Flexgrid adalah komponen yang dapat menampilkan data dalam bentuk tabel yang terdiri dari kolom dan baris. FlexGrid pada umumnya digunakan untuk melihat data yang sudah terdapat di dalam tabel.
Cara Menampilkan Komponen FlexGrid:
1.     Klik Project – Component
2.     Pilih Microsoft FlexGrid Control 6.0 – Apply
3.     Klik Close (ToolBox anda sudah terdapat objeck FlexGFrid)
4.     Klik FlexGrid pada ToolBox dan Drag ke x Form
5.     Isi Properties – DataSource: Data1
Gambar 17. Komponen FlexGrid

6.     Jalankan Program Anda


MENCETAK DATA DENGAN DATA DATA REPORT

A. MEMBUAT LINK DENGAN DATA ENVIRONMENT

PRAKTIKUM 8
NamaFile       : Prak-007
Folder             : Mahasiswa

Langkah Kerja
1.     Project – Add Data Environment sehingga tampil gambar sebagai berikut:
Gambar 18. Data Environment

2.     Klik kanan pada Conection1 – Pilih Microsoft Jet 4.0 OLE DB Provider seperti Pada gambar berikut:
Gambar 19. Data Link Properties

3.     Kemudian Klik Next
4.     Pilih Nama database pada Select or enter Database Name kemudian klik Test Conection.
Catatan:
Apabila link benar maka akan muncul “Test Conection Succeeded”
5.     Klik Kanan Properties – Pilih Command1
6.     Klik Kanan Command1 – Pilih Properties
7.     Pilih Database Object – Table
8.     Pilih Object Name – Pilih satu tabel – apply - OK

B. MEMBUAT DATA REPORT
     Data Report digunakan untuk membuat laporan yang akan dicetak di layar monitor maupun di printer. Untuk membuat data report ikuti langkah berikut:
1.     Klik Object – Add Data Report


2.     Isi Properties: Data Source – Data Environment
               Data Member – Command1       
Catatan:
-       Report Header & Page Header untuk membuat Catatan pada bagian atas tabel (judul Report)
-       Detail untuk meletakkan field database yang akan di cetak
-       Page Footer & Report Foother untuk membuat catatan bawah / tulisan dibawah tabel.
Gambar 20. Data Report

3.     Masukkan Field-Field Table pada Detail dengan cara sebagai berikut:
-       Klik Data Report – Isi Properties : DataSource
  DataMember
-       Klik Detail – Klik Kanan – Pilih Insert Control dan Pilih Text Box
-       Isi Properties :   Data Member (Command1)
Data Field  (Pilih Field)
   Catatan:
Insert Control digunakan untuk membuat / menyisipkan label, TextBox, Image (gambar), Line (Garis), shape (Objext lain).
4.     Ulangi langkah ke 3 (tiga) sampai dengan selesai

5.     Buat Judul Field pada Page Header dengan cara:
-       Klik kanan – Insert Control – Pilih Label
-       Isi Properties: Caption (Isi Judul Field)

6.     Buat Report Header (sama seperti langkah 5)


Tugas (dikumpulkan)
Buatlah program aplikasi (tidak boleh sama antara mahasiswa satu dengan mahasiswa lain) dengan ketentuan sbb:
1.  Memiliki Button Input data, Simpan Data, Edit Data, Delete Data, Cari Data, Cetak  dan Keluar
2.  Memiliki FlexGrid



4.2. BEKERJA DENGAN MULTI TABEL



BAB V
MENCETAK DATA VISUAL BASIC
DENGAN CRYSTAL REPORT

CrystalReport adalah program bantu untuk membuat report / laporan pada Visual Basic. Dengan CrystalReport kita dapat membuat Report dengan mudah dan cepat. Langkah untuk membuat report adalah sebagai berikut:
1.      Klik Add-In
2.      Pilih Report Designer maka akan tampil aplikasi CrytalReport
Gambar 1. Tampilan Crystal Report

3.      Klik File – New dan akan tampil pilihan pembuatan report lalu kita pilih listing
Gambar 2. Membuat report baru

4.      Klik Data atau SQL/ODBC untuk memilih tabel yang akan dicetak
Gambar 3. Pilihan datafile / SQL untuk membuat report

5.      Pilih Database/table  yang akan di cetak
Gambar 4. Pilihan database file
6.      Klik Done dan klik Next
7.      Pilih Field yang akan dibuat report
Gambar 5. Form Report Fields
8.      Klik Preview Report
9.      Simpan Report

Catatan:
Memperbesar tampilan report
1.      Klik Report
2.      Pilih Zoom

Menyisipkan Garis / Kotak / Picture
1.      Klik Insert
2.      Pilih Line / Box / Picture dan Drag ke Report

Membuat no halaman / data / tanggal Report
1.      Klik Insert
2.      Klik Special Field
Page Number Field           = untuk nomor halaman
Record Number Field       = untuk nomor record
Print Date Field                = tanggal cetak
3.      Klik ke Report


MEMBUAT BUTTON PRINT /CETAK
1.      Klik Project – component – pilih CrystalReport – OK
2.      Drag Object Crystal Report ke Form
3.      Isi Properties:
ReportFilename dan pilih file
4.      Buat Button Print dan buat perintah sbb:
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.PrintReport
Keterangan:
CrystalReport1.WindowState = crptMaximized digunakan untuk memperbesar tampilan Report (Maximize), CrystalReport1.RetrieveDataFiles digunakan untuk mengatur data yang baru dimasukkan kedalam tabel dan CrystalReport1.PrintReport digunakan untuk mencetak report (preview).
5.      Run Program

Mencetak Per Kelompok Barang
1. Dengan InputBox
SForBox = InputBox("Masukkan Kode barang yang akan di print")
CrystalReport1.SelectionFormula = "{BrgMasuk.KodeBarang}='" & SForBox & "'"
CrystalReport1.ReportFileName = "C:\tstrepttgl.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1



2. Dengan ComboBox / TextBox
Private Sub Command3_Click()
If Combo1.Text = "" Then
   Combo1.SetFocus
   Exit Sub
Else
CrystalReport1.SelectionFormula = "{BrgMasuk.KodeBarang}='" & Combo1.Text & "'"
CrystalReport1.ReportFileName = "C:\tstrepttgl.rpt"                    ‘ Nama Report
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End If
End Sub


Mencetak Data Perhari berdasarkan Tanggal
Private Sub Command4_Click()
'Report Per Tanggal
SForBox = InputBox("Masukkan Kode barang yang akan di print")
CrystalReport1.SelectionFormula = "ToText({BrgMasuk.TglMasuk})='"
                         & SForBox & "'"
CrystalReport1.ReportFileName = "C:\tstrepttgl.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub


Report Tanggal Perhari

Private Sub nmPerhari_Click()
Dim Tgl, Bln, Thn As String
SforBox = InputBox("Masukkan Tanggal yang akan dicetak")
Tgl = Left(SforBox, 2)
Bln = Mid(SforBox, 4, 2)
Thn = Right(SforBox, 4)

MsgBox ("Tahun " & Thn & " Bulan " & Bln & " Tanggal " & Tgl)
'CrystalReport1.SelectionFormula = "{Siswa.Tanggal_Diterima}=Date(2006,07,10)"

CrystalReport1.SelectionFormula = "ToText({Siswa.Tanggal_Diterima})= '" & Tgl & "-" & Bln & "-" & Thn & "'"
CrystalReport1.ReportFileName = "D:\Hendra\Tugas_Akhir\lapsiswa.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub

Report Data Perminggu
CrystalReport1.SelectionFormula = "ToText({Siswa.Tanggal_Diterima})>= '" &
                          Format(DTPicker1.Value, "dd-mm-yyyy") & "'" &
                          “and ToText({Siswa.Tanggal_Diterima})<= '" &
                          Format(DTPicker1.Value + 7, "dd-mm-yyyy") & "'"

CrystalReport1.ReportFileName = "D:\Hendra\Tugas_Akhir\rpt-tglterima.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1

Report data perbulan
'Report Perbulan
CrystalReport1.SelectionFormula = "ToText({Siswa.Tanggal_Diterima})>= '" &
                          Format(DTPicker1.Value, "dd-mm-yyyy") & "'" &
                          "and ToText({Siswa.Tanggal_Diterima})<= '"
                          & Format(DTPicker2.Value, "dd-mm-yyyy") & "'"

CrystalReport1.ReportFileName = "D:\Hendra\Tugas_Akhir\rpt-tglterima.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1

Seleksi Data PerMinggu  berdasarkan Tanggal
Private Sub Command1_Click()
'Seleksi Report harian
Data1.RecordSource = " SELECT * From Siswa " & _
                   " Where Tanggal_Diterima = #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "#"
Data1.Refresh
End Sub

Private Sub Command2_Click()
Form4.Show
End Sub

Private Sub Command3_Click()
'Seleksi report perminggu
Data1.RecordSource = " SELECT * From Siswa " & _
                   " Where Tanggal_Diterima >= #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "#" & _
                   " and Tanggal_Diterima <= #" & Format(DTPicker1.Value + 7, "mm/dd/yyyy") & "#"
Data1.Refresh
End Sub

Seleksi  Data PerBulan berdasarkan Bulan
Private Sub Command4_Click()
'seleksi report dari tanggal tertentu (perbulan)
Data1.RecordSource = " SELECT * From Siswa " & _
                   " Where Tanggal_Diterima >= #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "#" & _
                   " and Tanggal_Diterima <= #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#"
Data1.Refresh
End Sub

Menggunakan Formula / Rumus
Langkah:
1.      Klik Insert – Formula Field
2.      Buat Nama Variabel – Klik Ok
3.      Buat formula, misal: Jumlah Barang * Harga Barang
-          Double Klik Field Jumlah
-          Double Klik x * y
-          Double Klik Harga
4.      Klik Accept
5.      Klik Posisi Formula / Rumus

Menggunakan Fungsi Logika pada Crystal Report

Latihan:
Buat table dengan Field KodeBarang, NamaBarang, Harga, Banyak lalu buat report. Apabila sudah selesai buat Formula total Pembelian, Discount 5% dan Total Bayar  pada report serta lengkapi dengan judul, garis, nomor halaman, nomor record dan tanggal cetak. Seperti pada gambar berikut:


Query dengan banyak baris

Private Sub Data1_Reposition()
Dim lPubId As Long
lPubId = Data1.Recordset!PubId

'que = " Select * From Titles " & _
'     "where PubId=" & lPubId
    
'Data2.RecordSource = que

Data2.RecordSource = " Select * From Titles " & _
                     "Where PubId = " & lPubId

'mess = "Selamat datang kami ucapkan" & _
     "kepada rekan-rekan sekalian"
'MsgBox (mess)

Data2.Refresh
MSFlexGrid1.ColWidth(0) = 6500
MSFlexGrid1.ColWidth(1) = 1500
MSFlexGrid1.ColWidth(2) = 2000
End Sub

Note:
Antara titik dua yang dibuat dalam perintah harus dispasi. Diantara variabel OK !!!!


Pencarian query dengan menggunakan textbox
Private Sub Command1_Click()
Data1.RecordSource = " Select * From mahasiswa " & _
                     " where npm ='" & Text1.Text & " ' "

Data1.Refresh
End

Pencarian data dengan like
Private Sub Command6_Click()
Data1.RecordSource = " Select * From Siswa " & _
                     " Where Nama Like'" & Trim(Text1.Text) + "*" & "'"
Data1.Refresh
End

Pencarian data dengan while
Private Sub Command1_Click()
caridata = InputBox("Masukkan Nama Pegawai", "Pencarian data")
Data1.Recordset.MoveFirst
While Not (Data1.Recordset.EOF)
   If Data1.Recordset.Fields("Nama") = Trim(caridata) Then
      Tanya = MsgBox("Data " & caridata & " ditemukan")
      'Data1.Recordset.Move (Data1.Recordset.RecordCount)
      Exit Sub
    Else
      Data1.Recordset.MoveNext
   End If
Wend
End Sub



MODUL
PEMROGRAMAN VISUAL I
( VISUAL BASIC )












OLEH:
HENDRAYUDI

















AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER
(AMIK) AKMI BATURAJA
2005

1 komentar: