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 2,147,483,647

Bilangan bulat

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 -49E-324 s/d –1.7E308

Bilangan ganda

pecahan

presisi

Currency

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

s/d Mata Uang

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

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

Awalan Pic

Fungsi Untuk menamapilkan file gambar : .bmp, .jpg, .gif, .wmf dan .ico

Label

Lbl

Menampilkan teks tetapi pemakai tidak

dapat

berinteraksi dengannya atau mengubahnya. Text Box

Txt

Menampilkan teks dimana pemakai dapat mengisi atau melihat teks yang ditampilkan sebagai output suatu proses.

Frame

Fra

Mengidentifikasikan sebuah group pengontrolan.

Command

cmd

Memberikan sebuah perintah atau tindakan ketikan

Button Check Box

digunakan. chk

Memberikan

perintah

pilihan

benar/salah

(True/False) atau ya/tidak (Yes/No). Pemakai dapat memilih beberapa check box secara bersamaan. Option

opt

Memberikan grup pilihan.

Button

Pemakai hanya dapat memilih satu option pada grup pilihan.

Combo Box

cbo

Unit kontrol kombinasi antara text box dengan list box. Pemakai bisa mengetikkan pilihan atau memilih lewat daftar drop – down.

List Box

lst

Menampilkan daftar item yang dapat dipilih salah satu oleh pemakai.

Horizontal

hsb

Menampilkan balok gulung horizontal.

vsb

Menampilkan balok gulung vertikal.

tmr

Untuk mengeksekusi waktu kejadian pada rutin

Scroll Bar Vertical Scrol Bar Timer

program termauk selang waktu (interval) Drive

List drv

Menampilkan daftar drive.

Box

Directory

dir

Menampilkan daftar direktori pada drive terpilih.

fil

Menampilkan daftar file pada drive dan direktori

List Box File List Box

terpilih. Shape

shp

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 pemakai mengklik gambar menggunakan mouse.

Data

dat

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 : Pengaturan Properties Objek

Properti

Pengaturan

Form1

Caption

Property Test

Label1

Caption

Tuliskan Nama Anda:

Text1

-

-

Label2

BackColor

Pallete:

Font

Size:24

Command1

Caption

OK

Command2

Caption

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

Latihan 2. Buatlah tampilan form berikut :


Properti

Pengaturan

Frame1

Caption

Pilihan:

Option1

Caption

Biru

Option2

Caption

Merah

Check1

Caption

Tebal

Check2

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 = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Latihan 3. Buatlah tampilan form berikut :


Properti

Pengaturan

Form1

Caption

Text Box

Text Box1

Name

Text1

Text Command1

Command2

Name

cmdsisip

Caption

Sisipkan Tanggal

Name

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



Properti

Pengaturan

Form

Name

FrmMetode

Caption

Mengenal Metode

Name

CmdFocus1

Caption

Ke Text1

Name

CmdFocus2

Caption

Ke Text2

Name

CmdTukar

Caption

Tukar Posisi

Command1

Command2

Command3

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



Properti

Pengaturan

Form

Name

FrmMetod

Caption

Method Test

List1

-

-

Combobox

Text

-

Command1

Name

cmdadd

Caption

Add

Name

cmddelete

Caption

Delete

Name

cmdclear

Command2

Command3

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



Properti

Pengaturan

Form

Name

frmtest

Caption

Operator Test1

Caption

Var1

Label1

Label2

Caption

Var2

Text1

Text

-

Text2

Text

-

Frame1

Caption

Operator Perbandingan

Option1

Caption

>

Option2

Caption

<

Option3

Caption

=

Option4

Caption

<>

Option5

Caption

>=

Option6

Caption

<=

Label3

Name

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



Properti

Pengaturan

Form

Name

frmoperasi

Caption

Operasi Matematik

Label1

Caption

Masukan Nilai 1

Label2

Caption

Masukan Nilai 2

Text1

Text

-

Text2

Text

-

Command1

Name

cmdtambah

Caption

+

Caption

cmdkurang

Command2

Command3

Caption

cmdkali

* Command4

Caption

cmdbagi /

Command5

Caption

cmdkeluar Keluar

Label3

Name

lblhasil

Caption

-

Alignment

2 - Center

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



Properti

Pengaturan

Form

Name

frmdebug

Caption

Test Debug

Label1

Caption

Ujian Ms Visual Basic

Label2

Caption

Nilai :

Label3

Caption

Hasil :

Text1

Text

-

Text2

Text

-

Command1

Name

cmdproses

Caption

Proses

Name

cmdkeluar

Caption

Keluar

Command2

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



Properti

Pengaturan

Form

Name

frmif

Caption

Struktur If Then

Image1

-

-

Label1

Caption

Password

Text1

-

-

Command1

Name

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 10. Buatlah tampilan form berikut:


Properti

Pengaturan

Form

Name

frminput

Caption

Input Box

Name

cmdinput

Caption

Input

Name

cmdkeluar

Caption

OK

Command1

Command2

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



Properti

Pengaturan

Form

Name

frmoperasi

Caption

Operasi Matematik II

Label1

Caption

Bilangan 1

Label2

Caption

Bilangan 2

Text1

Text

-

Text2

-

-

Option1

Caption

Penjumlahan

Option2

Caption

Pengurangan

Option3

Caption

Perkalian

Option4

Caption

Pembagian

Command1

Name

cmdhitung

Caption

Hitung

Name

txthasil

Caption

Hasil

Text

-

Label3

Text1

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 12. Buatlah tampilan form berikut :


Properti

Pengaturan

Form

Name

frmanimasi

Caption

Animasi

Timer

Interval

500

Image1

Height

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



Properti

Pengaturan

Form1

Name

frmPmsBrg

Caption

form Pemesanan Barang

Caption

Beri Tanda centang pada kotak

Label1

disebelah barang yang ingin anda Pesan Check1

Caption

Komputer

Check2

Caption

Televisi

Check3

Caption

Radio

Check4

Caption

VCD Player

Text1

Text

-

Text2

Text

-

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 Form_Load() harga = 0 jumlah = 0 text1.Text = 0 text2.Text = 0 End Sub Latihan 14. Buatlah tampilan form berikut


Properti

Pengaturan

Form1

Name

frmAnimasi

Caption

Animasi Warna Latar

Name

lblUrut

Alignment

2 – Center

Font

Font : MS Sans Serif

Label1

Font Style : Bold Size : 24 Caption Timer1

Command1

Command2

Name

timer1

Interval

1000

Name

cmdStart

Caption

&Start

Name

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 15. Buatlah tampilan form berikut:


Properti

Pengaturan

Form

Name

frmmy

Caption

MyItalian

Label1

Caption

Italian Vaocabulary

Label2

Caption

Double Click Word For Definition

Label3

Caption

This Week’s Verb

List1

-

-

Command1

Name

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


Properti

Pengaturan

Form

Name

frmdefinition

Caption

Definition

Strech

True

Picture

c:\program

Image1

files\microsoft

Visual

studio\common\graphics\icons\flag s\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 16. Buatlah tampilan form berikut:


Properti

Pengaturan

Form

Name

frmbentuk

Caption

Format Bentuk Tulisan

Name

lblcetak

Alignment

2 – Center

Autosize

True

Caption

MARI BELAJAR VISUAL BASIC

Combo1

Name

cbojenis

Combo2

Name

cboukur

Label1

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



Properti

Pengaturan

Form

Name

frmanimasi

Caption

Animasi I

Image1

Height

5985

Width

3105

Picture

c:\program

files\microsoft

Visual

studio\common\graphics\icons\ind ustry\rocket.ico Command1

Name

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 18. Buatlah tampilan form berikut :


Properti

Pengaturan

Form

Caption

About

Timer1

Interval

1

Picturebox1

Backcolor

Hitam

Image1

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 19. Buatlah tampilan form berikut :


Properti

Pengaturan

Form

Name

frmstruktur

Caption

Struktur Looping

List1

-

-

Command1

Name

cmdnext1

Caption

For Next1

Name

cmdnext2

Caption

For Next2

Name

cmduntil

Caption

Do Until

Name

cmdwhile

Caption

Do While

Command2

Command3

Command4

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

Latihan 20. 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 21 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 Name

Type

Size

No_pesan (PK)

Number

Long integer

kd_plg (FK)

Text

6

Tgl_pesan

Date/time

Alm_kirim

Text

50

2. 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 Command Name Database object Object name

conpembelian Barang Sesuaikan dengan nama table yang dibuat Table Barang

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