Toolbars Standars. Window Project Explorer. Window Properties. Window Form Layout

Toolbars Standars Toolbox

Menu Bar Form Designer Window Project Explorer

Window Properties

Window Form Layout

Menu Bar Menu dasar untuk Edit, View, Project, Debug dan lainnya. Toolbar Fasilitas ini dapat mempercepat pengaksesan perintah – perintah yang ada dalam pemrograman. Secara default, toolbar jenis standard yang akan ditampilkan saat anda memulai Visual Basic. Untuk menampilkannya dengan memilih menu view – toolbars – kemudian beri tanda centang pada pilihan Standard. Toolbox Sebuah window yang berisi tombol – tombol kontrol yang akan anda gunakan untuk mendesain atau membangun sebuah form atau report. Selain tombol kontrol standard, anda juga dapat menambahkan sendiri tombol kontrol yang lain. Window Project Explorer Window ini menampilkan daftar form, modul serta objek lain yang ada dalam project yang aktif. Sebuah project merupakan sekumpulan file yang anda gunakan untuk membangun sebuah aplikasi. Window Properties Window ini digunakan untuk mengatur properti sebuah objek atau kontrol yang anda pilih. Sebuah properti merupakan karakteristik objek, seperti size, caption, atau color. Untuk menampilkannya dengan memilih menu view – kemudian pilih properties window.

Window Form Layout Window ini dapat anda gunakan untuk mengotrol posisi form pada aplikasi anda dengan menggunakan sistem grafik dalam sebuah layar. Dengan menggunakan fasilitas ini anda dapat melihat dan mengetahui posisi form yang baru anda desain. Untuk menampilkannya dengan memilih menu view – kemudian pilih Form Layout Window. Form Designer Yaitu sebuah window yang dapat anda gunakan untuk mengatur tampilan aplikasi yang Anda susun, atau dengan kata lain sebagai tempat untuk mendesain sebuah form. Dalam form ini Anda dapat menambahkan kontrol, grafik, dan gambar ke dalam form pada posisi yang anda inginkan.

ISTILAH – ISTILAH DALAM PEMROGRAMAN VISUAL Active Control ActiveX Control ini merupakan program yang terpisah dari Microsoft Visual Basic. ActiveX control ini digunakan untuk menambah kontrol – kontrol standard yang disediakan Visual Basic

Event Event merupakan aktivitas yang terjadi saat menggunakan aplikasi. Event terjadi karena adanya tindakan dari pemakai, seperti klik mouse, atau penggunaan keyboard. Namun event dapat juga terjadi karena adanya pengaturan oleh timer atau oleh aplikasi itu sendiri. Nama event yang dapat terjadi adalah : Click

Klik dari mouse

DblClick

Klik ganda dari mouse

Change

Perubahan nilai terjadi

GotFocus

Field Input menjadi aktif, kursor berada pada field tersebut

KeyPress

Tombol keyboard ditekan

Load

program dimulai (startup)

LostFocus

Field Input tidak lagi aktif

MouseDown

Mouse ditekan

MouseUp

Tombol pada mouse dilepas (dari posisi down)

File Eksekusi Adalah file program yang telah diterjemahkan ke dalam bahasa mesin. File eksekusi ini dijalankan dari luar aplikasi pembuatnya, dan biasanya mempunyai ekstensi.exe.

Fungsi Fungsi merupakan senuah prosedur yang mengembalikan sebuah nilai tunggal. Ikon Ikon adalah sebuah gambar kecil yang mengembalikan sebuah aplikasi.

Kontrol Kontrol merupakan pengganti dari tool yang sudah disediakan oleh Visual Basic. Dengan menggunakan fasilitas ini maka program akan dapat menciptakan event agar dapat menerima input. Objek Objek merupakan bagian dari perlengkapan suatu aplikasi yang mempunyai spesifikasi properti sendiri. Sebagai contoh form (lembaran yang kita gunakan untuk mendesain tampilan) adalah sebuah objek. Demikian juga dengan kontrol (salah satu tombol yang ada pada toolbox). Untuk mengakses sebuah objek menjadi perintah atau fungsi yang diasosiasikan dengannya. Sedangkan event merupakan tindakan yang terjadi saat menjalankan aplikasi untuk diberikan kepada kontrol objek. Objek tidak terbatas pada form dan kontrol saja, tetapi anda bisa mengambil dari aplikasi lain, misalnya gambar dari Microsoft Paint atau dokumen Microsoft Word.

Properti Properti adalah bagian yang membangun sebuah objek. Properti ini sangat menentukan objek yang sedang dibuat. Anda dapat menyamakan sebuah objek dengan seorang manusia, sedangkan propertinya, dapat anda samakan dengan namanya, tingginya, beratnya, jenis kelamin dan sebagainya. Atau bisa juga properti itu adalah nilai/karakteristik yang dimiliki oleh sebuah objek Visual basic. Contoh : Name, Captions, Size, Color, Position,dan text. Prosedur Prosedur adalah sekumpulan kode rutin yang ditulis dalam satu blok tersendiri. Blok tersebut hanya dieksekusi jika judul atau namanya dipanggil Proyek Proyek adalah sekumpulan dari sejumlah objek dan modul yang teroganisir dan membentuk sebuah program User Interface User interface adalah bagian aplikasi yang dapat anda lihat. User Interface ini berisi kontrol yang tersedia untuk pemakai apliaksi, seperti tombol, window, grafik, suara, dan lainnya.

Window Window merupakan kotak persegi panjang pada layar yang berisi aplikasi atau bagian dari aplikasi. Window ini mirip dengan selembar kertas dimeja yang dapat anda buka dan anda tutup, ditutupi dengan kertas lain, ditulisi bagian atasnya, dan yang lainnya. Konstanta -

Adalah bilangan atau String tetap yang nilainya tidak dapat diganti.

-

Konstanta didefinisikan dengan kunci kata Const.

Contoh : Const NAMAPT =”Gunamulya” Const PI = 4.13 Const MAXVALUE = 2000 Const ALPHA = -8.7E-3 VB mempunyai banyak konstanta untuk sistem, ummunya diberi awalan “vb” vbBlack

Warna Hitam

vbRed

Warna Merah

vbGreen

Warna Hijau

vbBlue

Warna Biru

vbCyan

Warna Cyanida

vbMagenta

Warna Magenta

vbYellow

Warna Kuning

vbWhite

Warna Putih

Contoh : Private Sub Form_Load MsgBox “Selamat Datang” FrmContoh.BackColor =vbRed EndSub Variable Adalah referensi ketempat penyimpanan data yang merepresentasikan tipe dan nilai data tersebut. Nilai dari sebuah variable dapat dirubah, namun tipe variable bila telah ditetapkan, maka tipe tersebut tidak dapat dirubah. TIPE DATA

NILAI

KETERANGAN

Integer

-32768 s/d 32767

Bilangan bulat

Long

-2,147,483,648 s/d

Bilangan bulat

2,147,483,647 Single

1.4E-45 s/d 3.4E38 -3.4E38 s/d –1.4E-45

Bilangan pecahan

Double

4.9E-324 s/d 1.7E308

Bilangan ganda

-49E-324 s/d –1.7E308 Currency

-922,337,203,685,477.5088 922,337,203,685,477.5088

Byte

0 s/d 255

Boolean

True atau False

Date

1 Januari 100 s/d 31 Desember 9999

Object

Gambar

String

Maksimum 65,500 karakter

Variant

Salah satu dari tipe diatas

pecahan

presisi

s/d Mata Uang

Deret karakter

Deklarasi Variable dilakukan dengan kunci kata DIM DIM Nama As String DIM Jumlah As Integer DIM Hutang As Currency DIM Berat, Jumlah, Total As Long DIM Grafitasi As Single DIM Rate As Double Pemberian nama atas variable dibatasi dengan:  Tidak lebih dari 256  Hanya menggunakan alfabet, angka dan garis bawah “_”  Huruf pertama harus alfabet  Tidak boleh menggunakan kunci kata Visual Basic seperti Sub, Private, End, If, Else dan lainnya  Tidak membedakan huruf besar atau huruf kecil Variable sebenarnya tidak perlu dideklarasikan karena secara implisit pada saat sebuah nama variable diberikan nilai awal, maka tipe variable tersebut akan disesuaikan dengan nilai tersebut. Untuk menghindari penggunaan variable yang tidak dideklarasikan sebelumnya, programmer dapat menggunakan instruksi “Option Explicit” Option Explicit Private Sub …. …. …. End Sub Beberapa karakter khusus dapat membantu menjelaskan tipe varibel secara implisit yaitu : %

Integer

&

Long

!

Single

#

Double

@

Currency

$

String

Contoh : I%, Jumlah&, NAMA$ GAJI@ = 230,000.50 ARITMETIKA +

Tambah

-

Kurang

*

Kali

/

Bagi

\

Pembagian dengan hasil bulat

mod

Modulo

^

Pangkat (expone)

contoh: Dim v,w,x,y,z as Integer V = 7^3 W = 7*3 X = 7/3 Y = 7\3 Z = 7 mod 3 MENGENAL KONTROL Kontrol adalah sebuah alat bantu yang dipakai untuk membuat sebuah objek pada form Visual Basic. Setelah kontrol ditambahkan ke form, kontrol tersebut berubah menjadi sebuah objek yaitu elemen perantara pemakai yang dapat diprogram. Gambar

Nama

Kontrol

Kontrol Picture Box

Pic

Untuk menamapilkan file gambar : .bmp, .jpg, .gif,

Label

Lbl

.wmf dan .ico Menampilkan

Txt

berinteraksi dengannya atau mengubahnya. Menampilkan teks dimana pemakai dapat mengisi

Text Box

Awalan

Fungsi

teks

tetapi

pemakai

tidak

dapat

atau melihat teks yang ditampilkan sebagai output Frame

Fra

suatu proses. Mengidentifikasikan sebuah group pengontrolan.

Command

cmd

Memberikan sebuah perintah atau tindakan ketikan

chk

digunakan. Memberikan

Button Check Box

perintah

pilihan

benar/salah

(True/False) atau ya/tidak (Yes/No). Pemakai dapat Option

opt

memilih beberapa check box secara bersamaan. Memberikan grup pilihan.

Button

Pemakai hanya dapat memilih satu option pada grup

Combo Box

pilihan. Unit kontrol kombinasi antara text box dengan list

cbo

box. Pemakai bisa mengetikkan pilihan atau memilih lewat lst

daftar drop – down. Menampilkan daftar item yang dapat dipilih salah

Horizontal

hsb

satu oleh pemakai. Menampilkan balok gulung horizontal.

Scroll Bar Vertical

vsb

Menampilkan balok gulung vertikal.

Scrol Bar Timer

tmr

Untuk mengeksekusi waktu kejadian pada rutin

List Box

Drive

List drv

program termauk selang waktu (interval) Menampilkan daftar drive.

Box Directory

dir

Menampilkan daftar direktori pada drive terpilih.

List Box File List Box

fil

Menampilkan daftar file pada drive dan direktori

Shape

shp

terpilih. Membuat lingkaran, elips dan kotak pad form.

Line

lin

Membuat garis lurus pada form.

Image

img

Menampilkan gambar : .bmp, .gif, .jpg, .wmf dan .ico. Perbedaan dengan picture box adalah, kontrol ini memberikan perintah seperti command button saat

Data

dat

pemakai mengklik gambar menggunakan mouse. Menampilkan database pada suatu form.

OLE (Object ole

Memungkinkan pemkai menampilkan suatu objek

Linking and

dari aplikasi yang mendukung OLE ke aplikasi Visual

embedding)

Basic.

Metode Setiap objek/kontrol memiliki sebuah metode “built-in” yang berupa fungsi. Fungsi disini dapat terjadi atas perubahan parameter atau property dari objek yang bersangkutan, namun bisa juga suatu metode tidak memiliki parameter. Contoh : Metode yang terjadi atas perubahan property (memiliki parameter) Text1.Move(200,300)

Hasil dari penggunaan metode tersebut sama dengan : Text1.Left=200 Text1.Top=300 Metode tanpa paramater Text1.SetFocus Metode tersebut digunakan untuk melaksanakan focus/posisi kursor pada objek Text1.

String Terdiri atas deretan karakter dan digunakan umunya untuk memanipulasi teks. String dapat digabungkan dengan menggunakan karakter “&” Dim namaDepan As String Dim namaKeluarga As String Dim strLengkap namaDepan = “Ali” namaKeluarga = “Baba” strLengkap = “Bpk. “&namaDepan & “ “ & namaKeluarga Sting yang tidak mempunyai isi, seperti contoh dibawah, disebut sebgai Null String Dim strVar As String strVar = “ ” Beberapa fungsi Basic populer untuk String Val(str) Konversi dari string menjadi Integer Contoh: I% = Val(“26”) Left (str,n) Mengambil n karakter dari sebelah kiri Contoh: newStr$ = Left(“mardiani”, 4); Right(str,n) Mengambil n karakter dari sebelah kanan Contoh: newStr$ = Right(“mardiani”,4) Ltrim(str)

Membuang semua awal spasi yang ada disebelah kiri str Contoh: newString= Ltrim(“ mardiani “) Rtrim(str) Membuang semua spasi dari sebelah kanan sampai ke str Contoh: newString= Rtrim(“ mardiani “) Trim(str) Membuang semua spasi dari sebelah kiri dan dari sebelah kanan sampai ke str Contoh: newString= Trim(“

mardiani ”)

Identis dengan newString=Ltrim(Rtrim*str)) Mid(str, awal, n) Mengambil str dari posisi awal sebanyak n karakter Contoh: newString= Mid(“ mardiani “, 3, 3) Len(str) Memberikan nilai balik Integer sebagai panjang dari String tersebut. Contoh: n% = Len(“Jakarta”) Lcase(str) Mengubah string menjadi huruf kecil semua Ucase(str) Mengubah string menjadi huruf besar semua Str(int) Mengubah bilangan menjadi String(konversi) IF THEN ELSE If Then Else mengendalikan alur program berdasarkan keputusan atas hasil suatu kondisi. Kondisi ini mempunyai nilai boolean, yaitu True atau False. If kondisi Then Instruksi If kondisi Then Instruksi …. Instruksi …. End If If kondisi Then Instruksi …. Instruksi …. Else

Instruksi …. Instruksi …. End If Komparator Dibutuhkan untuk membandingkan 2 variabel, yaitu : =

Sama dengan

<>

Tidak sama dengan

<

Lebih kecil

>

Lebih besar

<=

Lebih kecil atau sama

>=

Lebih besar atau sama

Contoh: If A = B then C=B else C=A End IF ElseIf Penggunaan If adakalanya saling berkait(nested) sehingga menjadi seperti berikut ini : If kondisi1 Then Instruksi …. Instruksi …. Else If kondisi2 Then Instruksi …. Instruksi …. Else If kondisi3 Then Instruksi …. Instruksi …. Else Instruksi …. Instruksi …. End If End If End If Untuk menyederhanakan blok tersebut, maka dibuat kunci kata ElseIf yang berfungsi sebagai berikut:

If kondisi1 Then Instruksi …. Instruksi …. ElseIf Kondisi2 Then Instruksi …. Instruksi …. ElseIf kondisi3 Then Instruksi …. Instruksi …. Else Instruksi …. Instruksi …. EndIf Fungsi Date Visual Basic mempunyai banyak fungsi untuk mengolah tanggal. Dim tglHari1 As Date Dim tglHari2 As Date Dim jam

As Date

Dim tgl

As Date

TglHari1 = Date TglHari2 = Now Jam = Time tgl = “7/27/1998” tgl = “27 Feb 1998” tgl = “7 27 1998” Beberapa fungsi untuk Tanggal: IsDate (str_param) Memberikan nilai balik boolean. True jika parameter adalah sebuah Tanggal. Contoh: If Not IsDate(txtTanggal) Then MsgBox((“Tanggal Salah !”) End If DateValue(str) Konversi string menjadi Date Contoh: Dim tgl As Date tgl = DateValue(“23 Juni 1986”)

Day(date), Month(date), Year(date) Memberikan nilai integer dari variable Date untuk hari, bulan dan tahun Contoh: Dim hari, bulan, tahun As Integer Dim tgl As Date tgl = Now hari = Day(tgl) bulan = Month(tgl) tahun = Year(tgl) Hour(date), Minute(date), Second(date) Memberikan nilai integer dari variable Date untuk jam, menit dan detik. Contoh: Dim jam, menit, detik As Integer Dim tgl As Date tgl = Now jam = Hour(tg) minute = Minute(tgl) detik = Second(tgl) TimeValue(str) Konversi string ke variable Date Contoh: Dim waktu As Date waktu = TimeValue(“7:30:45PM”) Case Digunakan untuk memilah pilihan berdasarkan nilai dari variable. Dim n As Integer Select Case n Case 0 instruksi …. instruksi …. Case 1 instruksi …. instruksi …. End Select

Public, Private Sebelum deklarasi fungsi, subroutine atau variable, dapat dijumpai kunci kata Public atau Private. Kedua kunci kata ini menunjukkan jangkauan (daerah berlaku) variable tersebut. Private berarti bahwa variable, fungsi/subroutine tersebut hanya dapat digunakan/dipanggil oleh program dalam satu modul(satu form). Sedangkan public menyatakan, bahwa variable, fungsi/subroutine tersebut boleh digunakan oleh program lainnya diluar form tersebut. NB: Default untuk jangkauan fungsi adalah Public. Sedangkan variable berlaku lokal pada prosedur/fungsi dimana variable tersebut dideklarasikan. Static Variable Variable jika didefinisikan sebagai static, maka nilai variable akan dipertahankan. Function Tambah ( A As Integer) As Integer Static Jumlah As Integer Jumlah = Jumlah + A Tambah = Jumlah End Fuction Dim S As Integer Dim J As Integer S = Tambah(100) Print S S = Tambah(300) Print S Hasil: 100 400 Bila variable Jumlah tidak dideklarasikan sebagai static, maka hasilnya akan berbeda! Function Tambah (A As Integer) As Integer Static Jumlah As Integer Jumlah = Jumlah + A Tambah = Jumlah End Fuction Kata static untuk fungsi/subroutine menjelaskan bahwa variable dalam fungsi/sub tersebut adalah static. Box Input/Output MsgBox digunakan untk menampilkan pesan dengan format sebagai berikut:

MsgBox(Text, Button, Titel, Helpfile, Context) Text

adalah string pesan yang ditmapilkan

Button

Menampilkan jenis tombol yang diinginkan

Titel

ditampilkan pada window

Helpfile

Bersama dengan context mengimplementasikan sistem “onLine Help”

Latihan 1. Buatlah tampilan form berikut :

Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1 Label1 Text1 Label2

Pengaturan Properties Properti Pengaturan Caption Property Test Caption Tuliskan Nama Anda: BackColor Pallete:

Command1 Command2

Font Caption Caption

Size:24 OK Selesai

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() End End Sub


Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Frame1 Option1 Option2 Check1 Check2

Pengaturan Properties Properti Pengaturan Caption Pilihan: Caption Biru Caption Merah Caption Tebal Caption Miring

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub Private Sub Check1_Click() Label2.FontBold = Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check1.Value End Sub Latihan 3. Buatlah tampilan form berikut :

Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1 Text Box1

Pengaturan Properties Properti Pengaturan Caption Text Box Name Text1

Command1

Text Name

cmdsisip

Command2

Caption Name

Sisipkan Tanggal cmdhapus

Caption

Hapus Teks

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdsisip_Click() Dim tgl tgl = Format(Date, "dddd,d mmm yyyy") Text1.Text = "sekarang hari dan tanggal: " + tgl End Sub Latihan 4. Buatlah tampilan form berikut :

Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1 Label1

Pengaturan Properties Properti Pengaturan Caption Kalender Name lblhari

Text

Sabtu

Alignment

2 – Center

Font Name

Times New Roman, Bold, 24 lbljam

Text

00:00:00

Alignment

2 – Center

Font Name

Times New Roman, Bold, 24 lblbulan

Caption

Januari

Font Name

Times New Roman, Bold, 24 lblangka

Caption

1

Font Name

Arial, Bold, 72 lbltahun

Caption

2007

Timer

Font Name

Times New Roman, Bold, 24 timtampilan

Command1

Interval Name

1000 cmdkeluar

Caption

&Keluar

Label2

Label3

Label4

Label5

Setelah itu ketikkan code program berikut pada jendela code. Private Sub TimTampilan_Timer() Dim Hari_ini As Variant Hari_ini = Now lblHari.Caption = Format(Hari_ini, "dddd") lblBulan.Caption = Format(Hari_ini, "mmmm") lblTahun.Caption = Format(Hari_ini, "yyyy") lblangka.Caption = Format(Hari_ini, "d") lblJam.Caption = Format(Hari_ini, "hh:mm:ss") End Sub Private Sub cmdKeluar_Click() Unload Me End Sub


Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form

Pengaturan Properties Properti Pengaturan Name FrmMetode

Command1

Caption Name

Mengenal Metode CmdFocus1

Command2

Caption Name

Ke Text1 CmdFocus2

Command3

Caption Name

Ke Text2 CmdTukar

Caption

Tukar Posisi

Setelah itu tampilan form akan tampak seperti berikut :

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdFocus1_Click() Text1.SetFocus End Sub Private Sub cmdFocus2_Click() Text2.SetFocus End Sub Private Sub cmdTukar_Click() Dim SimpanLeft As Integer Dim SimpanTop As Integer SimpanLeft = Text1.Left

SimpanTop = Text1.Top Text1.Left = Text2.Left Text1.Top = Text2.Top Text2.Left = SimpanLeft Text2.Top = SimpanTop End Sub



Pengaturan Properties Properti Pengaturan Name FrmMetod

List1 Combobox Command1

Caption Text Name

Method Test cmdadd

Command2

Caption Name

Add cmddelete

Command3

Caption Name

Delete cmdclear

Caption

Clear

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() Combo1.AddItem "Eri" Combo1.AddItem "Nurman"

Combo1.AddItem "Umar" Combo1.AddItem "Shafira" End Sub Private Sub cmdadd_Click() List1.AddItem Combo1.Text End Sub Private Sub cmddelete_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub cmdclear_Click() List1.Clear End Sub

Latihan 7. Buat form dengan tampilan sebagai berikut :

Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form1

Text1

Pengaturan Properties Properti Pengaturan Name frmDftPeg Caption

Daftar Pegawai

ControlBox Name

False txtSales

Text Multiline

True

ScrollBars

2 – Vertical

TabStop

False

Locked

True

Text2

Name

txtMrkt

Text Multiline

True

ScrollBars

2 – Vertical

TabStop

False

Command1

Locked Name

True cmdTmbSI

Command2

Caption Name

Tambah &Sales cmdTmbMr

Command3

Caption Name

Tambah &Marketing cmdKeluar

Text2

Caption Name

&Keluar txtHarga

Text Pada menu Project, Klik perintah AddModule, lalu klik open untuk membuat baru. Pada jendela code dari objek Module, ketikkan listing berikut : Sub TambahNama(Angg$, ReturnString$) Pesan$ = "Masukan Nama Anggota dari Divisi " & Angg$ Nm$ = InputBox(Pesan$, "input Anggota") GantiBaris$ = Chr(13) + Chr(10) ReturnString$ = Nm$ & GantiBaris$ End Sub



Pengaturan Properties Properti Pengaturan Name frmoperator Caption

Operator Test

Label1 Label2 Text1 Text2 Frame1 Option1 Option2 Option3 Option4 Label3

Caption Caption Text Text Caption Caption Caption Caption Caption Name

Var1 Var2 Matematika + * / lblhasil

Caption

-

Alignment

2 - Center

Setelah itu ketikkan code program berikut pada jendela code. Dim var1 as Single, var2 as Single Private Sub Option1_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 + var2 lblhasil.Caption = hasil End Sub Private Sub Option2_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 - var2 lblhasil.Caption = hasil End Sub Private Sub Option3_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 * var2 lblhasil.Caption = hasil End Sub Private Sub Option4_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 / var2 lblhasil.Caption = hasil End Sub



Pengaturan Properties Properti Pengaturan Name frmtest

Label1 Label2 Text1 Text2 Frame1 Option1 Option2 Option3 Option4 Option5 Option6 Label3

Caption Caption Caption Text Text Caption Caption Caption Caption Caption Caption Caption Name

Operator Test1 Var1 Var2 Operator Perbandingan > < = <> >= <= lblhasil

Caption

-

Alignment

2 - Center

Setelah itu ketikkan code program berikut pada jendela code. Dim var1 As Single, var2 As Single Private Sub Option1_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 > var2) lblhasil.Caption = Format(hasil, "True/False")

End Sub Private Sub Option2_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 < var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option3_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 = var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option4_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <> var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option5_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 >= var2) lblhasil.Caption = Format(hasil, "True/False") End Sub Private Sub Option6_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <= var2) lblhasil.Caption = Format(hasil, "True/False") End Sub



Pengaturan Properties Properti Pengaturan Name frmoperasi

Label1 Label2 Text1 Text2 Command1

Caption Caption Caption Text Text Name

Operasi Matematik Var1 Var2 cmdtambah +

Command2

Caption Caption

cmdkurang

Caption

cmdkali

Command4

Caption

* cmdbagi

Command5

Caption

/ cmdkeluar

Name

Keluar lblhasil

Caption

-

Alignment

2 - Center

Command3

Label3

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdtambah_Click() lblhasil.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub cmdkurang_Click() lblhasil.Caption = Val(Text1.Text) - Val(Text2.Text) End Sub

Private Sub cmdkali_Click() lblhasil.Caption = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub cmdbagi_Click() lblhasil.Caption = Val(Text1.Text) / Val(Text2.Text) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Latihan 11. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmdebug

Label1 Label2 Label3 Text1 Text2 Command1

Caption Caption Caption Caption Text Text Name

Test Debug Ujian Ms Visual Basic Nilai : Hasil : cmdproses

Command2

Caption Name

Proses cmdkeluar

Caption

Keluar

Setelah itu ketikkan code program berikut pada jendela code.

Private Sub cmdproses_Click() If Text1 > 60 Then Text2.Text = "Lulus" Else Text2.Text = "Tidak Lulus" End If End Sub Private Sub cmdkeluar_Click() End End Sub



Pengaturan Properties Properti Pengaturan Name frmif

Image1 Label1 Text1 Command1

Caption Caption Name

Struktur If Then Password cmdok

Caption

OK

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdok_Click() If Text1.Text = "nusantara" Then Image1.Visible = True Text1.Enabled = False cmdok.Enabled = False

Else MsgBox "Passwordnya Salah!" Text1.Text = "" Text1.SetFocus End If End Sub Latihan 13. Buatlah tampilan form berikut:


Pengaturan Properties Properti Pengaturan Name frminput

Command1

Caption Name

Input Box cmdinput

Command2

Caption Name

Input cmdkeluar

Caption

OK

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdinput_Click() Dim pesan, usia pesan = "masukan usia anda!" usia = InputBox(pesan, "Masukan") If usia < 17 Then MsgBox ("Usiamu baru " + Str(usia) + "tahun." & _ "Cuci Kaki Lalu Bobo!"), , "Pesan" Else MsgBox ("Usia Anda " + Str(usia) + " tahun." & _ "Anda boleh nonton!"), , "Pesan" End If End Sub

Private Sub cmdkeluar_Click() Unload Me End Sub Latihan 14. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmoperasi

Label1 Label2 Text1 Text2 Option1 Option2 Option3 Option4 Command1

Caption Caption Caption Text Caption Caption Caption Caption Name

Operasi Matematik II Bilangan 1 Bilangan 2 Penjumlahan Pengurangan Perkalian Pembagian cmdhitung

Label3

Caption Name

Hitung txthasil

Text1

Caption Text

Hasil -

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() Option1.Value = True End Sub

Private Sub cmdhitung_Click() If Option1.Value = True Then txthasil.Text = Val(Text1.Text) + Val(Text2.Text) Else If Option2.Value = True Then txthasil.Text = Val(Text1.Text) - Val(Text2.Text) Else If Option3.Value = True Then txthasil.Text = Val(Text1.Text) * Val(Text2.Text) Else If Option4.Value = True Then txthasil.Text = Val(Text1.Text) / Val(Text2.Text) End If End If End If End If End Sub Latihan 15. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmanimasi

Timer Image1

Caption Interval Height

Animasi 500 855

Width

855

Picture

c:\program files\ microsoft Visual studio\common\

graphics\icons\misc\face02.ico Strech

True

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() Image1.Left = 0 Image1.Top = 3820 End Sub Private Sub Timer1_Timer() Static blnwajah As Boolean If (Image1.Left < 4800) And _ (Image1.Top > 500) Then Image1.Left = Image1.Left + 100 Image1.Top = Image1.Top - 100 Else Image1.Left = 0 Image1.Top = 0 End If If blnwajah = True Then Image1.Picture = LoadPicture("c:\program files\" & _ "microsoft Visual studio\common\" & _ "graphics\icons\misc\face03.ico") blnwajah = False Else Image1.Picture = LoadPicture("c:\program files\" & _ "microsoft Visual studio\common\" & _ "graphics\icons\misc\face02.ico") blnwajah = True End If End Sub Latihan 16. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmPmsBrg

Label1

Caption Caption

form Pemesanan Barang Beri Tanda centang pada kotak disebelah barang yang ingin anda

Check1 Check2 Check3 Check4 Text1 Text2

Caption Caption Caption Caption Text Text

Pesan Komputer Televisi Radio VCD Player -

Setelah itu ketikkan code program berikut pada jendela code. Dim harga As Double Dim jumlah As Integer Private Sub check1_Click() If chkKomp.Value = 0 Then jumlah = jumlah - 1 harga = harga - 3500000 Else jumlah = jumlah + 1 harga = harga + 3500000 End If text1.Text = jumlah text2.Text = harga End Sub

Private Sub check2_Click() If check2.Value = 0 Then jumlah = jumlah - 1 harga = harga - 2600000 Else jumlah = jumlah + 1 harga = harga + 2600000 End If text1.Text = jumlah text2.Text = harga End Sub Private Sub check3_Click() If check3.Value = 0 Then jumlah = jumlah - 1 harga = harga - 1000000 Else jumlah = jumlah + 1 harga = harga + 1000000 End If text1.Text = jumlah text2.Text = harga End Sub Private Sub check4_Click() If check4.Value = 0 Then jumlah = jumlah - 1 harga = harga - 800000 Else jumlah = jumlah + 1 harga = harga + 800000 End If text1.Text = jumlah text2.Text = harga End Sub Private Sub Form_Load() harga = 0 jumlah = 0 text1.Text = 0

text2.Text = 0 End Sub Latihan 17. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmkonfirm

Command1

Caption Name

Konfirmasi Dengan Message Box cmdtampil

Label1

Caption Name

Tampilkan Message Box lblkode

Alignment

2 – Center

BorderStyle

1 – Fixed Single

Caption Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdtampil_Click() x = MsgBox("Silahkan Anda Pilih/Tekan" & Chr(13) & "Salah Satu tombol berikut", vbYesNoCancel + vbInformation, "Pesan") lblkode.Caption = x Select Case x Case 6 lblket = "Anda Telah Menekan Tombol Yes" Case 7 lblket = "Anda Telah Menekan Tombol No" Case 2 lblket = "Anda Telah Menekan Tombol Cancel" End Select

End Sub

Latihan 18. Buatlah tampilan form berikut


Pengaturan Properties Properti Pengaturan Name frmAnimasi

Label1

Caption Name

Animasi Warna Latar lblUrut

Alignment

2 – Center

Font

Font : MS Sans Serif Font Style : Bold Size : 24

Timer1

Caption Name

timer1

Command1

Interval Name

1000 cmdStart

Command2

Caption Name

&Start cmdStop

Caption

&Stop

Setelah itu ketikkan code program berikut pada jendela code. Dim i As Integer Private Sub Form_Load() i=0 lblurut.Caption = 0 frmanimasi.BackColor = "&H00FFFFFF" lblurut.BackColor = "&H00FFFFFF"

cmdStart.Enabled = False End Sub Private Sub Timer1_Timer() If i = 9 Then i = -1 End If i=i+1 lblurut.Caption = i Select Case i Case 0 frmanimasi.BackColor = "&H00FFFFFF" lblurut.BackColor = "&H00FFFFFF" Case 1 frmanimasi.BackColor = "&H00C0C0FF" lblurut.BackColor = "&H00C0C0FF" Case 2 frmanimasi.BackColor = "&H00C0E0FF" lblurut.BackColor = "&H00C0E0FF" Case 3 frmanimasi.BackColor = "&H00C0FFFF" lblurut.BackColor = "&H00C0FFFF" Case 4 frmanimasi.BackColor = "&H00C0FFC0" lblurut.BackColor = "&H00C0FFC0" Case 5 frmanimasi.BackColor = "&H00FFFF80" lblurut.BackColor = "&H00FFFF80" Case 6 frmanimasi.BackColor = "&H00FFC0C0" lblurut.BackColor = "&H00FFC0C0" Case 7 frmanimasi.BackColor = "&H00FFC0FF" lblurut.BackColor = "&H00FFC0FF" Case 8 frmanimasi.BackColor = "&H00E0E0E0" lblurut.BackColor = "&H00E0E0E0" Case 9 frmanimasi.BackColor = "&H000080FF" lblurut.BackColor = "&H000080FF"

End Select End Sub Private Sub cmdStart_Click() Timer1.Enabled = True cmdStop.Enabled = True cmdStart.Enabled = False End Sub Private Sub cmdStop_Click() Timer1.Enabled = False cmdStart.Enabled = True cmdStop.Enabled = False End Sub Latihan 19. Buatlah tampilan form berikut:

Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form Label1 List1 Label2 Text1 Command1

Pengaturan Properties Properti Pengaturan Name frmstruktur Caption Caption

Struktur Select Case Pilih Barang:

Caption Name

Jumlah : cmdok

Caption

OK

Label3

Name

lblbarang

Label4

BackColor Name

Putih lblharga

Label5

BackColor Name

Putih lbljumlah

Label6

BackColor Name

Putih lbldiskon

Label7

BackColor Name

Putih lbltotal

BackColor

Putih

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() List1.AddItem "Disket" List1.AddItem "Buku" List1.AddItem "Kertas" List1.AddItem "Pulpen" End Sub Private Sub cmdok_Click() Dim harga As Currency, total As Currency Dim jumlah As Integer Dim diskon As Single Dim satuan As String If List1.Text = "" Then MsgBox "Anda Belum Memilih Barang!!" List1.ListIndex = 0 Exit Sub End If If Text1.Text = "" Then MsgBox "Anda Belum Mengisi Jumlah Barang" Text1.SetFocus Exit Sub End If Select Case List1.Text Case "Disket" harga = 35000 satuan = "Box"

Case "Buku" harga = 20000 satuan = "Lusin" Case "Kertas" harga = 25000 satuan = "Rim" Case "Pulpen" harga = 10000 satuan = "Pak" End Select lblbarang.Caption = "Barang :" & List1.Text lblharga.Caption = "Harga :" & Format(harga, "Currency") & "/" & satuan lbljumlah.Caption = "Jumlah :" & Text1.Text & "" & satuan jumlah = Text1.Text Select Case jumlah Case Is < 10 diskon = 0 Case 10 To 20 diskon = 0.15 Case Else diskon = 0.2 End Select total = jumlah * (harga * (1 - diskon)) lbldiskon.Caption = "diskon :" & Format(diskon, "0%") lbltotal.Caption = "Total Bayar :" & Format(total, "Currency") End Sub

Latihan 20. Buatlah tampilan form berikut:


Pengaturan Properties Properti Pengaturan Name frmmy

Label1 Label2 Label3 List1 Command1

Caption Caption Caption Caption Name

MyItalian Italian Vaocabulary Double Click Word For Definition This Week’s Verb cmdquit

Caption

Quit

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() List1.AddItem "aprire" List1.AddItem "ascoltare" List1.AddItem "bere" List1.AddItem "cucinare" List1.AddItem "dormire" List1.AddItem "pagare" List1.AddItem "scrivere" End Sub Private Sub List1_Click() Select Case List1.ListIndex Case 0 def = "to open" Case 1 def = "to listen" Case 2 def = "to drink"

Case 3 def = "to cook" Case 4 def = "to sleep" Case 5 def = "to pay,pay for" Case 6 def = "to write" End Select Load frmMyItalian frmdefinition.Label1.Font = True frmdefinition.Label1.FontSize = 11 frmdefinition.Label1 = List1.Text frmdefinition.Text1 = def frmdefinition.Show End Sub Private Sub cmdQuit_Click() End End Sub


Pengaturan Properties Properti Pengaturan Name frmdefinition

Image1

Caption Strech

Definition True

Picture

c:\program

files\microsoft

Visual

studio\common\graphics\icons \flags\flgitaly.ico

Text1 Command1

Name

cmdclose

Caption

Close

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdClose_Click() frmdefinition.Hide End Sub

Latihan 21. Buatlah tampilan form berikut:


Pengaturan Properties Properti Pengaturan Name frmbentuk

Label1

Caption Name

Format Bentuk Tulisan lblcetak

Alignment

2 – Center

Autosize

True

Caption Name Name

MARI BELAJAR VISUAL BASIC cbojenis cboukur

Combo1 Combo2

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() lblcetak.FontBold = True cbojenis.AddItem "Book Antiqua" cbojenis.AddItem "Comic Sans MS" cbojenis.AddItem "Times New Roman" cboukur.AddItem "8"

cboukur.AddItem "10" cboukur.AddItem "12" cbojenis.Text = "Book antiqua" cboukur.Text = "8" End Sub Private Sub cbojenis_Click() Select Case cbojenis.ListIndex Case 0 lblcetak.FontName = "Book Antiqua" Case 1 lblcetak.FontName = "Comic Sans MS" Case 2 lblcetak.FontName = "Times New Roman" End Select End Sub Private Sub cboukur_Click() Select Case cboukur.ListIndex Case 0 lblcetak.FontSize = 8 Case 1 lblcetak.FontSize = 10 Case 2 lblcetak.FontSize = 12 End Select End Sub



Image1

Pengaturan Properties Properti Pengaturan Name frmanimasi Caption

Animasi I

Height

5985

Width Picture

3105 c:\program

files\microsoft

Visual

studio\common\graphics\icons\ind Command1

Name

ustry\rocket.ico cmdgo

Caption

GO

Setelah itu ketikkan code program berikut pada jendela code Private Sub cmdgo_Click() For A = 4800 To 0 Step -10 Image1.Move Image1.Left, A Next A For A = 0 To 4800 Step 10 Image1.Move Image1.Left, A Next A End Sub Latihan 23. Buatlah tampilan form berikut :

Setelah itu rubahlah property dari masing – masing objek seperti berikut : Objek Form Timer1 Picturebox1 Image1

Pengaturan Properties Properti Pengaturan Caption About Interval 1 Backcolor Hitam Picture [Nama file BMP anda] Top

0

Left

0

Strech

False

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Image1_Click() Unload Me End Sub Private Sub Timer1_Timer() If Image1.Top > (Picture1.ScaleHeight - Image1.Height) Then Image1.Top = Image1.Top - 20 Else For i = 1 To 4500000 Next i Image1.Top = Picture1.ScaleHeight End If End Sub Latihan 24. Buatlah tampilan form berikut :


Pengaturan Properties Properti Pengaturan Name frmstruktur

List1 Command1

Caption Name

Struktur Looping cmdnext1

Command2

Caption Name

For Next1 cmdnext2

Command3

Caption Name

For Next2 cmduntil

Command4

Caption Name

Do Until cmdwhile

Caption

Do While

Setelah itu ketikkan code program berikut pada jendela code. Dim i As Integer Private Sub cmdnext1_Click() List1.Clear For i = 1 To 100 List1.AddItem "Angka" & i Next i End Sub Private Sub cmdnext2_Click() List1.Clear For i = 100 To 1 Step -2 List1.AddItem "Angka" & i

Next i End Sub Private Sub cmduntil_Click() List1.Clear i = Asc("A") Do Until i > Asc("Z") List1.AddItem "Huruf" & Chr(i) i=i+1 Loop End Sub Private Sub cmdwhile_Click() List1.Clear i = Asc("Z") Do While i >= Asc("A") List1.AddItem "Hu ruf" & Chr(i) i=i-1 Loop End Sub



Pengaturan Properties Properti Pengaturan Name frmpangkat

Label1

Caption Name

Pangkat lblbilangan

Label2

Caption Name

Bilangan lblpangkat

Label3

Caption Name

Pangkat lblhasil

Text1 Text2 Text3 Command1

Caption Name Name Name Name

Hasil Perhitungan txtbilangan txtpangkat txthasil cmdhitung

Caption

Hitung

Setelah itu ketikkan code program berikut pada jendela code. Dim Bilangan, Pangkat As Integer Function Hasilpangkat(Bilangan, Pangkat) Dim i As Integer Dim b As Double b=1 For i = 1 To Abs(Pangkat) b = b * Bilangan Next Hasilpangkat = b End Function Private Sub cmdhitung_Click() Bilangan = txtbilangan.Text Pangkat = txtpangkat.Text If Pangkat = 0 Then txthasil.Text = 1 ElseIf Pangkat > 0 Then txthasil.Text = Hasilpangkat(Bilangan, Pangkat) Else: txthasil.Text = 1 / Hasilpangkat(Bilangan, Pangkat) End If End Sub



Pengaturan Properties Properti Pengaturan Name frmmenghitung

Text1

Caption Name

Menghitung Kata txtcontoh

Text

Contoh teks Yang akan dihitung

Name

Jumlah Kata cmdhitung

Caption

Hitung Kata

Command1

Setelah itu ketikkan code program berikut pada jendela code. Private Sub cmdhitung_Click() Dim Posisi As Long Dim Kata As Long Dim Teks As String Posisi = 1 Teks = txtcontoh.Text Teks = Replace(Teks, Chr(13) & Chr(10), " ") Teks = Replace(Teks, Chr(9), " ") Teks = Trim(Teks) If Len(Teks) > 0 Then Kata = 1 Do While Posisi > 0 Posisi = InStr(Posisi, Teks, " ") If Posisi > 0 Then Kata = Kata + 1 While Mid(Teks, Posisi, 1) = " " Posisi = Posisi + 1

Wend End If Loop MsgBox "Textbox berisi " & Kata & " Kata" End Sub



Pengaturan Properties Properti Pengaturan Name frmlatihan

Command1

Caption Name

Latihan Matematika cmduji

Command2

Text Name

Uji Kemampuan Matematikamu ! cmdkeluar

Caption

Keluar

Setelah itu ketikkan code program berikut pada jendela code. Private Sub Form_Load() Randomize End Sub Private Sub cmduji_Click() Dim DtSebelum As Long Dim DtSesudah As Long Dim DtSelisih As Long Dim Jawab As Long Dim Angka1 As Long Dim Angka2 As Long Dim Jumlah As Long Angka1 = Int(Rnd * 1000) + 1

Angka2 = Int(Rnd * 1000) + 1 Jumlah = Angka1 + Angka2 DtSebelum = Timer Do Jawab = InputBox("Berapa hasilnya " + Str(Angka1) + " + " + Str(Angka2) + "?", "Cepat") Loop Until Jawab = Jumlah DtSesudah = Timer DtSelisih = DtSesudah - DtSebelum MsgBox ("Anda Membutuhkan Waktu" & Str(DtSelisih) & " detik!") End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Latihan 28. Membuat Menu Pada Visual Basic Pembuatan menu pada Visual Basic dapat dilakukan dengan bantuan Menu Editor yang terdapat pada Menu Tools.

Pada dasarnya setiap item menu memiliki Caption dan sebuah Nama. Anda dapat membentuk Kunci Akses dengan menggunakan tanda & (ampersand) pada Caption dui menu tersebut. Untuk membuat menu anda cutup mengetikan Caption dan Name, selanjutnya klik pada Next, dan ketikkan menu yang berikutnya, sampai selesai. Selanjutnya adalah menbuat Sub Menu dengan

melakukan klik pada panah kanan dan sebaliknya. Anda dapat membuat sampai 5 Sub Menu (6 kalau termasuk Menu Utama). Pada contoh diatas akan menghasilkan menu sebagai berikut :

Membuat Garis Pemisah antar Menu Anda dapat menggunakan tanda - (karakter hypen) untuk membuat garis pemisah antar menu pada Caption.

Sehingga akan menghasilkan menu sebagai berikut :

Latihan 29 1. MEMBUAT DATABASE Buat Database dengan nama Pembelian.mdb kemudian buat 4 tabel di bawah ini di dalam database pembelian : Tabel 1 : Tabel Barang Name

Type

Size

KdBrg

Text

6

Nm_brg

Text

20

Hrg_brg

Currency

General Number

Tabel 2 : Pelanggan Name

Type

Size

Kd_Plg (PK)

Text

5

Nm_plg

Text

20

Alamat

Text

50

No.Tlp

Text

20

Tabel 3 : isi Name

Type

Size

No_pesan (PK)

Number

Long Int

Kdbrg (PK)

Text

6

Spek

Text

100

Hrg_brg

Currency

General Number

Jum_brg

Number

Integer

Tabel 4 : Pesanan

2.

Name

Type

Size

No_pesan (PK)

Number

Long integer

kd_plg (FK)

Text

6

Tgl_pesan

Date/time

Alm_kirim

Text

50

LANGKAH MEMBUAT DATABASE  PIlih menu Add-Ins pada menu utama MS-Visual Basic 6.0  Pilih Visual Data Manager, dan akan muncul tampilan seperti dibawah ini.

 Pilih File lalu New  Pilih Microsoft Access lalu pilih versi 7.0 mdb

 Beri nama file dan lokasi penyimpanan data, nama file disimpan dengan nama Pembelian.Mdb, kemudian pilih save.

 Kita selesai membuat database dengan nama pembelian.mdb 3. MEMBUAT TABEL BARANG  Klik kanan pada Tulisan Properties,

 kemudian pilih new table sehingga muncul table dibawah ini

 Ketik tulisan Barang pada Table Name  Klik Add Field untuk menambahkan field(kolom), sampai muncul gambar seperti di slide selanjutnya

 Ketik sesuai dengan gambar diatas, kemudian klik OK.  Ulangi langkah 8 dan 9 untuk menambahkan field Nm_brg (tipe Text, lebar 20), field hrg_brg(tipe currency)  Klik Close 4. MEMBUAT PRIMARY KEY  Klik Add Index, sampai muncul gambar dibawah ini :



Klik OK, kemudian pilih Close sampai muncul seperti dibawah ini kemudian klik build table



Klik Close sampai muncul tampilan Propeties saja seperti dibawah ini

 Buat lah tabel pelanggan, isi dan pesanan seperti langkah membuat tabel barang  Jika table pelanggan, isi dan pesanan selesai dibuat lalu Pilih Menu File lalu Exit untuk keluar dari program Visual Data Manager. 5. MENU EDITOR  Buat project baru dengan memilih Standar EXE pada New Project  Klik Tool, Klik Menu Editor seperti dibawah ini



 Buatlah menu seperti dibawah ini Caption Level 1 Level 2 &File Master Input Data Barang Input Data Pelanggan Input Data Isi Input Data Pesanan &Laporan Laporan Barang &Keluar

Name mnFileMaster mnDataBarang mnDataPelanggan mnDataIsi mnDataPesanan mnLaporan mnLapBarang mnExit

a. Langkah membuat menu  Isilah isian caption dengan tampilan menu, misalnya &File Master  Isilah isian Name dengan nama pengenal menu, misalnya mnFileMaster  Beri tanda pilih pada pilihan Enable agar menu ini bisa dipilih  Beri tanda pilih pada pilihan Visible agar menu ini ditampilkan di layer.

 Klik Next untuk menambahkan menu berikutnya  Gunakan icon tanda panah jika ingin mengubah letak atau level menu.  Menu yang lebih atas akan ditampilkan lebih ke kiri, sedangkan menu dengan identasi (menjorok) ke kanan diletakkan sebagai sub menu dari menu diatasnya yang identasinya lebih ke kiri.  Pilih insert untuk menyisipkan pilihan baru pada posisi yang sekarang ditunjuk.  Pilih Delete untuk menghapus menu yang ditunjuk.  Lengkapi struktur menu menjadi seperti table dibawah ini.

 Klik Ok setelah semua menu dibuat maka akan muncul seperti dibawah ini



Klik File master yang ada di form seperti dibawah ini, kemudian klik Input Data Barang(Jika form barang sudah dibuat

 Ketik koding seperti dibawah ini

6. MEMBUAT FORM BARANG  Buat sebuah form baru, caranya klik kanan pada folder form,kemudian pilih Add -> form



Desainlah beberapa objek dibawah ini seperti di pengaturan form

 Atur property objek sesuai dengan slide berikutnya ( klik ) Objek Data1

DBGrid1

Properti Name Caption Connect Database Name EOF Action RecordsetType RecordSource Name AllowAddNew AllowArrows AllowDelete AllowUpdate Caption ColoumHeaders DataSource

Setting Dbpembelian Pembelian Access D:\latihan\Pembelian.mdb AddNew Dynaset Barang DBGrid1 True True True True Data Barang True dbpembelian

Text1

Text2

Text3

Command1 Command2 Command3 Command4 Command5 Command6



TabAction Name Data Source Data Field Text Name Data Source Data Field Text Name Data Source Data Field Text Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption

Grid Navigation Txtkdbarang dbPembelian Kdbarang (kosong) txtnama dbPembelian Nm_brg (kosong) Txtharga dbPembelian hrg_brg (kosong) Cmdtambah &Tambah Cmdubah &Ubah CmdHapus &Hapus CmdSimpan &Simpan CmdExit E&xit Cmdcari &Cari

Klik 2 kali di tombol tambah, ketik Private Sub cmdtambah_Click() dbpembelian.Recordset.AddNew txtkdbrng.SetFocus End Sub

 Klik 2 kali di tombol exit, ketik Private Sub cmdexit_Click() End End Sub  Klik 2 kali di tombol hapus ketik Private Sub cmdhapus_Click() dbpembelian.Recordset.Delete End Sub  Klik 2 kali di tombol simpan, ketik Private Sub cmdsimpan_Click() dbpembelian.Recordset.Update End Sub  Klik 2 kali di tombol ubah, ketik Private Sub cmdubah_Click() dbpembelian.Recordset.Edit txtkdbrng.SetFocus End Sub

 Klik 2 kali di tombol cari, ketik Private Sub cmdcari_Click() Dim panjang As String mnama = InputBox("Ketik nama barang:") panjang = Len(Trim(mnama)) dbpembelian.Recordset.FindFirst "nm_brg='" + mnama + "'" If dbpembelian.Recordset.NoMatch Then x = MsgBox("Data tidak ditemukan!", vbOKOnly, "pencarian nama anggota") End If End Sub 

Buat lah form Pelanggan, Isi dan Pesanan seperti membuat form barang

Latihan 30

MEMBUAT REPORT DENGAN DATA REPORT Setelah menyiapkan file database (*.mdb) dan setelah membuat project baru maka proses berikutnya adalah menambahkan object DataEnvironment ke dalam project: 1. Pilih Jendela Project, klik kanan lalu pilih ADD  DataEnvirontment

2. Setelah DataEnvironment object masuk kedalam project, maka secara default VB akan memberi nama DataEnvironment1, selanjutnya adalah tugas kamu untuk merubah nama default tersebut menjadi suatu nama yang lebih memiliki arti. Dalam pemberian nama, biasanya untuk DataEnvironment selalu diawali dengan (prefix) 'de', misalnya dalam contoh kasus ini, diberi nama dePembelian.

Properti Name

Setting depembelian

3. Setelah melakukan perubahan pada properti Name dari DataEnvironment object, maka jendela Project Explorer akan telihat seperti pada Gambar dibawah ini.

4. Kemudian gantilah nama connection1 dengan conPembelian (Tiga huruf pertama (con) adalah merupakan prefix untuk object Connection

Properti Name

Setting conPembelian

5. Click tombol Properties yang terdapat pada toolbar dari jendela DataEnvironment, seperti pada gambar dibawah ini

6. Lalu muncul menu seperti dibawah ini, klik Microsoft Jet 4.0 OLE DB Provider

Ket: Dari kotak dialog Data Link Properties yang ditampilkan, terdapat empat tab, yaitu: 1). Provider, digunakan untuk memilih data provider, 2). Connection, digunakan untuk membuat Connection String, 3). Advanced, digunakan untuk mengaturan Network Settings dan Access Permissions, 4). All, menampilkan semua daftar Connection object.

7. Kemudian klik next, klik tombol di select or enter a database name

8. Cari tempat database pembelian disimpan, kemudian pilih database tersebut dengan mengklik open seperti pada gambar dibawah ini

9. Setelah memilih database, kemudian klik test connection seperti gambar dibawah ini

10. Klik ok 11. Klik kanan di conpembelian, kemudian klik add command seperti gambar dibawah ini

12. Setelah muncul command1, klik kanan di command1, klik properties

13. Kemudian ganti seperti pada table dibawah ini

Keterangan connection

conpembelian

Command Name

Barang

Database object

Table

Object name

Barang

Sesuaikan dengan nama table yang dibuat

14. Klik ok, maka table barang akan muncul seperti dibawah ini:

15. buatlah untuk table pelanggan, isi dan pesanan, seperti pada table barang

Hubungkan DataEnvironment dengan Data Report 1. klik di project, klik kanan, kli ADD, klik Data report(Seperti pada gambar dibawah ini)

2. Muncul tampilan data report seperti dibawah ini

Keterangan: Ada 5 Section yang dapat digunakan, yaitu : - Section1

: Untuk menampilkan data-data dalam record (field).

- Section2

: Memberi informasi atas untuk setaip halaman

- Section3

: Memberi informasi akhir perhalaman

- Section4

: Memberi informasi header pada laporan

- Section5

: Memberi informasi footer untuk akhir informasi.

3. Tarik lah field kdbarang kearah detail(section1) seperti pada gambar dibawah ini

4. Pindahkan kd barang yang disebelah kiri ke page header(section2) sampai seperti gambar dibawah ini

5. Klik Label untuk membuat Judul Laporan barang dengan menggunakan label pada toolbar

6. Rubah properties Data report1, seperti pengaturan dibawah ini

Properti

Setting

Name

Datareport1

Datasource

Depembelian

Datamember

Barang

7. Jalan kan report yang sudah dibuat, untuk melihat hasilnya, seperti gambar dibawah ini

Menjalankan Menu yang sudah dibuat 1. Menu yang dibuat pada form menu, seperti gambar dibawah ini

2. Klik file master, klik Input Data barang

3. kemudian ketik listing dibawah ini Private Sub mnDataBarang_Click() Form2.Show End Sub 4. Buatlah pemanggilan untuk menu Pelanggan, Isi, Pesanan dan laporan barang

Toolbars Standars. Window Project Explorer. Window Properties. Window Form Layout

Recommend Documents