Database Adodb Lanjutan

SOURCE CODE: Form List, Form Entry, Module dan Project

Praktek Visual Basic kali ini masih tentang database Adodb dengan menggunakan database db_mahasiswa yang lalu. Disini kita membuat 2 form dan sebuah modul. Untuk lebih jelasnya...langsung praktek yah :-)

1. Buka VB6 pilih VB Enterprise Edition Controls.

2. Buat form baru, kita sebut saja form list. Untuk mempercepat kita gunakan form praktek minggu lalu tentang adodb kemudian kita save as dengan nama form_list.frm. Terus kita tambahkan object 4 command button sbb:

a. CommanButton1, name=cmd_new; caption=NEW
b. CommanButton2, name=cmd_edit; caption=EDIT
c. CommanButton3, name=cmd_delete; caption=DELETE
d. CommanButton4, name=cmd_exit; caption=EXIT

3. Buat form baru lalu kita namakan form_entry.frm. Kemudian buat object sbb:
a. CommanButton1, name=cmd_save; caption=SAVE
b. CommanButton2, name=cmd_cancel; caption=CANCEL
c. CommanButton4, name=cmd_exit; caption=EXIT
d. Untuk label dan textbox bisa dibuat sendiri.

4. Buat sebuah modul. Caranya klik kanan nama project pada project properties kemudian pilih add - module. Kemudian ketik coding sebagai berikut:

Global Fedit As Boolean
Global con As ADODB.Connection
Global RS As ADODB.Recordset

Sub main()
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
Set RS = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\Semester II\Visual Basic II\06-05-09\db_mahasiswa.mdb;Persist Security Info=False"
form_list.Show
End Sub

5. Buat coding form list (liat praktek VB minggu lalu tentang database adodb).

6. Buat coding cmd_new pada form list

Private Sub cmd_new_Click()
Fedit = False
form_entry.Show 1
End Sub

7. Buat coding cmd_edit pada form list

Private Sub cmd_edit_Click()
Fedit = True
form_entry.Show 1
End Sub

8. Buat coding cmd_delete pada form list

Private Sub cmd_delete_Click()
Pesan = MsgBox("Apakah Anda menghapus?", vbYesNo, "Konfirmasi:")
If Pesan = vbYes Then
RS.Delete
Else
End If
End Sub

9. Buat coding cmd_exit pada form list

Private Sub cmd_exit_Click()
Unload Me
End Sub

10. Buat coding cmd_save pada form entry

Private Sub cmd_save_Click()
If Fedit = False Then
RS.AddNew
End If
RS!Kode = txt_kode
RS!Nama = txt_nama
RS!Alamat = txt_alamat
RS!Kode_Jurusan = txt_kode_jurusan
RS.Update
Unload Me
End Sub

11. Buat coding cmd_cancel pada form entry

Private Sub cmd_cancel_Click()
Pesan = MsgBox("Apakah Anda akan keluar?", vbYesNo, "Konfirmasi:")
If Pesan = vbYes Then
Unload Me
Else
End If
End Sub

12. Buat coding cmd_exit pada form list

Private Sub cmd_exit_Click()
Unload Me
End Sub

13. Buat coding untuk memunculkan database pada form entry

Private Sub Form_Load()
If Fedit = True Then
txt_kode = RS!Kode
txt_nama = RS!Nama
txt_alamat = RS!Alamat
txt_kode_jurusan = RS!Kode_Jurusan
End If
End Sub

14. La tansa, pada project propertis pilih sub_main untuk mengaktifkan modul yang sudah kita buat. Caranya klik menu Project - Project Properties.

15. Selamat mencoba, good luck -:)
Bila program dijalankan, maka akan tampak gambar di bawah ini.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 05 Juni 2009
Semester II STIKOM CKI Wijaya Kusuma

Selengkapnya...

Database Adodb

SOURCE: Database, Form dan Project

1. Buka VB6 pilih VB Enterprise Edition Controls
2. Buat object sbb pada form:

a. Frame1, Caption = -
b. Frame2, Caption = -
c. Label1, Caption = Kode
d. Label2, Caption = Nama
e. Label3, Caption = Kode
f. Label4, Caption = Nama
g. Label5, Caption = Kejuruan
h. Textbox1, Name = txt_kode1
i. Textbox2, Name = txt_nama1
j. Textbox3, Name = txt_kode2
k. Textbox4, Name = txt_nama2
l. Textbox5, Name = txt_kejuruan
m. Datagrid1
n. Adodc1
o. CommandButton1, Name = txt_cari_kode, Caption = Cari Kode
p. CommandButton2, Name = txt_cari_nama, Caption = Cari Nama
q. CommandButton3, Name = txt_cari_first, Caption = FIRST
r. CommandButton4, Name = txt_cari_prev, Caption = PREV
s. CommandButton5, Name = txt_cari_next, Caption = NEXT
t. CommandButton6, Name = txt_cari_last, Caption = LAST

3. Deklarasi untuk koneksi ke database dan table

Dim con As ADODB.Connection 'Koneksi ke database
Dim RS As ADODB.Recordset 'Koneksi ke table/query

4. Mengaktifkan prosedur isi_data pada form ketika dibuka

Sub isidata()
txt_kode2 = RS!kode
txt_nama2 = RS!nama
txt_kejuruan = RS!kode_jurusan
'berdasarkan nama field tabel karyawan pada database db_mahasiswa
End Sub

5. Mengaktifkan database ketika form dibuka

Private Sub Form_Load()
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
Set RS = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\Semester II\Visual Basic II\05-29-09\db_mahasiswa.mdb;Persist Security Info=False"
'merujuk pada database db_mahasiswa
RS.Open "table_Mahasiswa", con, adOpenStatic, adLockOptimistic
'merujuk nama tabel mahasiswa pada db_mahasiswa yaitu: table_mahasiswa
Set DataGrid1.DataSource = RS
isidata
End Sub

6. Membuat coding cmd_cari_kode

Private Sub cmd_cari_kode_Click()
RS.MoveFirst RS.Find "kode='" & txt_kode1.Text & "'"
If RS.EOF Then
MsgBox "Data tidak ditemukan"
RS.MoveLast
End If
isidata
End Sub

7. Membuat coding cmd_cari_nama

Private Sub cmd_cari_nama_Click()
RS.MoveFirst
RS.Find "nama='" & txt_nama1.Text & "'"
If RS.EOF Then
MsgBox "Data tidak ditemukan"
RS.MoveLast
End If
isidata
End Sub

8. Membuat coding cmd_first

Private Sub cmd_first_Click()
RS.MoveFirst
isidata
End Sub

9. Membuat coding cmd_prev

Private Sub cmd_prev_Click()
RS.MovePrevious
If RS.BOF Then RS.MoveFirst 'supaya tdk terjadi error ketika data pertama kita klik prev
isidata
End Sub

10. Membuat coding cmd_next

Private Sub cmd_next_Click()
RS.MoveNext
If RS.EOF Then RS.MoveLast 'supaya tdk terjadi error ketika data terakhir kita klik next
isidata
End Sub

11. Membuat coding cmd_last

Private Sub cmd_last_Click()
RS.MoveLast
isidata
End Sub

12. Jalankan program.


Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 29 Mei 2009
Semester II STIKOM CKI Wijaya Kusuma

Selengkapnya...

ADO (Active Data Object)

SOURCE: Database, Form dan Project
ADO (Active Data Object) berfungsi untuk mengakses dan mengolah database.
1. Buka VB6 pilih VB Enterprise Edition Controls
2. Buat object sbb pada form:

a. Datagrid1

3. Buat database (misal database access dengan nama db_mahasiswa di dalamnya ada tabel Table_Mahasiswa

4. Deklarasi untuk koneksi ke database dan table

Dim cn As ADODB.Connection 'Koneksi ke database
Dim rs As ADODB.Recordset 'Koneksi ke table/query

5. Memanggil database ketika form dibuka

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\Semester II\Visual Basic II\05-15-09\db_mahasiswa.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 15 Mei 2009
Semester II STIKOM CKI Wijaya Kusuma

Selengkapnya...

Membuat ActiveX Control

SOURCE CODE: Form, Project EXE dan Project ActiveX

File ocx itu adalah file yang didalamnya bisa terdiri dari beberapa komponen/kontrol yang digunakan untuk mendesain suatu form, atau boleh dibilang *.ocx adalah kontrol buatan sendiri.

1. Buka VB6 pilih ActiveX Control

2. Buat object sbb:
a. Label1
b. Timer1, Interval = 500 (artinya 0,5 detik)

3a. Buat coding Timer1 sbb:

Private Sub timer1_Timer()
label1.Caption = Format(Now, "dd MMM yy - HH : MM : SS")
End Sub

3b. Simpan project yang kita buat dengan nama jam.vbp dimana name properties kita namakan Kontrol_Jam (misal jam.vbp di drive c).

4. Membuat file ocx. Caranya: Klik menu File - Make jam.ocx. Kemudian simpan (misal jam.ocx di drive c).

5. Register file ocx yang kita buat tadi ke dalam windows. Caranya: Buka DOS, ketik regsvr32 nama-path_nama-file. (contoh "regsvr32 c:\jam.ocx" tanpa tanda petik). Kalau berhasil ada pesan notifikasi DllRegisterServer in c:\jam.oxc succeeded.

6. Buka project VB6 baru dengan Standard EXE

7. Masukkan file ocx ke dalam Component Visual Basic. Caranya: Klik menu Project - Component. Kemudian klik Browse dan cari file ocx yang sudah kita buat tadi, klik Ok. Sehingga di Toolbox akan muncul kontrol baru bernama UserControl1

8. Pilih toolbox UserControl1, kemudian drag n drop pada form.

9. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 08 Mei 2009
Semester II STIKOM CKI Wijaya Kusuma

Selengkapnya...

Membuat ActiveX Componen

SOURCE CODE: Class Lingkaran, Class Segitiga, Lingkaran.dll, Lingkaran.exp, Lingkaran.lib, Form Lingkaran, Project Lingkaran (EXE) dan Project Lingkaran (ActiveX)
ActiveX Componen yaitu sebuah standar container class yang dapat digunakan oleh satu atau lebih aplikasi.

1. Buka VB6 pilih ActiveX DLL
2a. Buat class module dengan nama class_lingkaran. Codingnya sbb:

Private var_panjang As Double
Private var_lebar As Double
Private var_tinggi As Double

Public Property Let panjang(ByVal vdata As Double)
var_panjang = vdata
End Property

Public Property Get panjang() As Double
panjang = var_panjang
End Property

Public Property Let lebar(ByVal vdata As Double)
'Private varjarijari As Double

Public Property Let jarijari(ByVal vdata As Double)
varjarijari = vdata
End Property

Public Property Get jarijari() As Double
jarijari = varjarijari
End Property

Public Function HitungLuas() As Double
HitungLuas = 3.14 * jarijari * jarijari
End Function

2b. Buat class module dengan nama class_segitiga. Codingnya sbb:

Private varalas As Double
Private vartinggi As Double

Public Property Let alas(ByVal vdata As Double)
varalas = vdata
End Property

Public Property Get alas() As Double
alas = varalas
End Property

Public Property Let tinggi(ByVal vdata As Double)
vartinggi = vdata
End Property

Public Property Get tinggi() As Double
tinggi = vartinggi
End Property

Public Function HitungLuas() As Double
HitungLuas = 0.5 * alas * tinggi
End Function

2c. Simpan class module dengan nama HitungLuas dengan nama project lingkaran.vbp yang di dalamnya ada class_lingkaran dan class_segitiga yang sudah kita buat.

3. Compile class project (lingkaran.vbp) menjadi Dynamic Link Library (DLL). caranya
klik: File - Make Lingkaran.dll, kemudian simpan (contoh di drive c dengan nama lingkaran.dll).

4. Register file dll yang kita buat tadi ke dalam windows. Caranya: Buka DOS, ketik regsvr32 nama-path_nama-file. (contoh "regsvr32 c:\lingkaran.dll" tanpa tanda petik). Kalau berhasil ada pesan notifikasi DllRegisterServer in c:\lingkaran.dll succeeded.
5. Masukkan file dll ke dalam Preference Visual Basic. Caranya: Klik menu Project - Preferences. Kemudian klik Browse dan cari file dll yang sudah kita buat tadi, klik Ok.

6. Selanjutnya, buka VB6 pilih Standar EXE, kemudian buat object sbb pada form:
a. Label1, Caption = Menghitung Luas Lingkaran
b. Label2, Caption = Jari-jari
c. Label3, Caption = Luas
d. Label4, Caption = Menghitung Luas Segitiga
e. Label5, Caption = Alas
f. Label6, Caption = Tinggi
g. Label7, Caption = Luas
h. Textbox1, Name = txt_jarijari
i. Textbox2, Name = txt_luas
j. Textbox3, Name = txt_alas_segitiga
k. Textbox4, Name = txt_tinggi_segitiga
m. Textbox5, Name = txt_luas_segitiga
n. Command Button1, Name = cmd_hitung; Caption = Hitung
o. Command Button2, Name = cmd_hitung_segitiga; Caption = Hitung

7. Deklarasi class_module menjadi variabel bertipe object

Dim objlingkaran As class_lingkaran
Dim objsegitiga As class_segitiga

8a. Membuat coding cmd_hitung

Private Sub cmd_hitung_Click()
Set objlingkaran = New class_lingkaran
objlingkaran.jarijari = txt_jarijari.Text
txt_luas.Text = objlingkaran.HitungLuas
End Sub

8b. Perhatikan bahwa class module yaitu class_segitiga dan class_lingkaran akan muncul di ketika kita mengetik coding.

9. Membuat coding cmd_hitung_segitiga

Private Sub cmd_hitung_segitiga_Click()
Set objsegitiga = New class_segitiga
objsegitiga.alas = txt_alas_segitiga.Text
objsegitiga.tinggi = txt_tinggi_segitiga.Text
txt_luas_segitiga.Text = objsegitiga.HitungLuas
End Sub

10. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 01 Mei 2009
Semester II STIKOM CKI Wijaya Kusuma

Selengkapnya...

Membuat Class Module [balok]

SOURCE CODE: Class, Form dan Project
1. Buka VB6 pilih Standard EXE
2. Buat class module segitiga dengan nama class_balok. Caranya: klik kanan project pada jendela project, kemudian pilih add - class module. Codingnya sbb:

Private var_panjang As Double
Private var_lebar As Double
Private var_tinggi As Double

Public Property Let panjang(ByVal vdata As Double)
var_panjang = vdata
End Property

Public Property Get panjang() As Double
panjang = var_panjang
End Property

Public Property Let lebar(ByVal vdata As Double)
var_lebar = vdata
End Property

Public Property Get lebar() As Double
lebar = var_lebar
End Property

Public Property Let tinggi(ByVal vdata As Double)
var_tinggi = vdata
End Property

Public Property Get tinggi() As Double
tinggi = var_tinggi
End Property

Public Function volume() As Double
volume = panjang * lebar * tinggi
End Function

2b. Sehingga di dalam project ada 2 object yaitu class_balok dan Volume_Balok

3. Buat object sbb pada form:
a. Label1, Caption = panjang
b. Label2, Caption = lebar
c. Label3, Caption = tinggi
d. Label4, Caption = volume balok
e. Textbox1, Name = txt_panjang
f. Textbox2, Name = txt_lebar
g. Textbox3, Name = txt_tinggi
h. Textbox4, Name = txt_volume
i. Command Button1, Name = cmd_hitung; Caption = Hitung

4. Deklarasi class_module menjadi variabel bertipe object

Dim VBalok As class_balok

5. Membuat coding cmd_proses

Private Sub cmd_hitung_Click()
Set VBalok = New class_balok
VBalok.panjang = txt_panjang.Text
VBalok.lebar = txt_lebar.Text
VBalok.tinggi = txt_tinggi.Text
txt_panjang.Text = VBalok.panjang
txt_lebar.Text = VBalok.lebar
txt_tinggi.Text = VBalok.tinggi
txt_volume.Text = VBalok.volume
End Sub

5b. Ketika kita mengetikkan coding class_balok maka akan muncul variabel panjang, lebar, tinggi dan volume.


6. Jalankan program.




Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 17 April 2009
Semester II STIKOM CKI Wijaya Kusuma

Selengkapnya...

Contoh Penggunaan Event

SOURCE CODE : Form dan Project
1. Buka VB6 pilih Standard EXE
2. Buat object sbb pada form:

a. Label1, Caption = Isi Angka
b. Label2, Caption = Isian Huruf Besar
c. Label3, Caption = Isian Huruf Kecil
d. Textbox1, Name = txt_angka
e. Textbox2, Name = txt_huruf_besar
f. Textbox3, Name = txt_huruf_kecil

3. Buat prosedur untuk mengosongkan data

Sub kosong_data()
txt_angka.Text = ""
txt_huruf_besar.Text = ""
txt_huruf_kecil.Text = ""
End Sub

4. Mengaktifkan prosedur kosong_data pada form ketika dibuka

Private Sub Form_Load()
kosong_data
End Sub

5. Membuat coding isian angka, huruf besar dan kecil (fungsi dari pembuatan coding ini diperuntukan untuk pembuatan kalkulator, barcode).
'coding validasi untuk mengisi angka saja pada textbox

Private Sub txt_angka_keypress(Keyascii As Integer)
If Keyascii = 8 Then Exit Sub '8 adalah backspace
If Keyascii <> 57 Then '48-56 angka 0-9
Keyascii = 0
End If
End Sub

'coding validasi untuk mengisi huruf besar saja pada textbox
Private Sub txt_huruf_besar_keypress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
End Sub

'coding validasi untuk mengisi huruf kecil saja pada textbox
Private Sub txt_huruf_kecil_keypress(Keyascii As Integer)
Keyascii = Asc(LCase(Chr(Keyascii)))
End Sub

'Keterangan:
'ASC untuk membuat code ascii
'UCase adalah upercase, untuk membuat huruf kapital
'LCase = lowcase, untuk membuat huruf kecil
'chr adalah kebalikan Asc

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 03 April 2009
Semester II STIKOM CKI Wijaya Kusuma

Selengkapnya...

Membuat Class Module [segitiga]

SOURCE CODE : Project, Form dan Class Module

1. Buka VB6 pilih Standard EXE
2. Buat class module segitiga dengan nama class_segitiga. Caranya: klik kanan project pada jendela project, kemudian pilih add - class module. Codingnya sbb:

Private mvaralas As Double
Private mvartinggi As Double

Public Property Let tinggi(ByVal vdata As Double)
'let artinya memasukin data
mvartinggi = vdata
End Property

Public Property Get tinggi() As Double
'get artinya mengeluarin data
tinggi = mvartinggi
End Property

Public Property Let alas(ByVal vdata As Double)
mvaralas = vdata
End Property

Public Property Get alas() As Double
alas = mvaralas
End Property

Public Function HitungLuas() As Double
HitungLuas = 0.5 * alas * tinggi
End Function

3. Buat object sbb pada form:
a. Frame1, Caption = Input
b. Frame2, Caption = Hasil
c. Label1, Name = lbl_alas_input; Caption = Alas
d. Label2, Name = lbl_tinggi_input; Caption = Tinggi
e. Label3, Name = lbl_alas_hasil; Caption = Alas
f. Label4, Name = lbl_tinggi_hasil; Caption = Tinggi
g. Label5, Name = lbl_luas_hasil; Caption = Luas
h. Label6, Name = lbl_alas; Caption = -
i. Label7, Name = lbl_tinggi; Caption = -
j. Label8, Name = lbl_luas; Caption = -
k. Textbox1, Name = txt_alas
l. Textbox2, Name = txt_tinggi
m. Command Button1, Name = cmd_hitung; Caption = Hitung
n. Command Button2, Name = cmd_keluar; Caption = Keluar

4. Deklarasi class_module menjadi sebuah object

Dim Lsegitiga As class_segitiga

5. Membuat coding cmd_proses

Private Sub cmd_hitung_Click()
Set Lsegitiga = New class_segitiga
Lsegitiga.alas = txt_alas.Text
Lsegitiga.tinggi = txt_tinggi.Text
lbl_alas.Caption = Lsegitiga.alas
'lbl_alas.Caption adalah label alas yang ada di frame hasil
lbl_tinggi.Caption = Lsegitiga.tinggi
'lbl_tinggi.Caption adalah label tinggi yang ada di frame hasil
lbl_luas.Caption = Lsegitiga.HitungLuas
'lbl_luas.Caption adalah label luasyang ada di frame hasil
End Sub

6. Membuat coding cmd_keluar

Private Sub cmd_keluar_Click()
End
End Sub

7. Jalankan program.


Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 27 Maret 2009
Semester II STIKOM CKI Wiajaya Kusuma

Selengkapnya...

Nilai & Komen Fungsi IF

SOURCE CODE : Project dan Form

1. Buka VB6 pilih Standard EXE

2. Buat object sbb:

a. Label1, Caption = Nilai
b. Label2, Caption = Komen
c. Textbox1, Name = txt_nilai
d. Textbox2, Name = txt_komen
e. Command Button1, Name = cmd_proses; Caption = Proses
f. Command Button2, Name = cmd_exit; Caption = Exit

3. Deklarasi variabel dengan coding sbb:

Dim nilai As Integer
Dim komen As String

4. Membuat coding cmd_proses

Private Sub cmd_proses_Click()
nilai = txt_nilai.Text
komen = txt_komen.Text
If nilai <= 3 Then
komen = "mati aj loh"
ElseIf nilai > 3 And nilai <= 6 Then
komen = "bodoh skali dikau"
ElseIf nilai > 6 And nilai <= 8 Then
komen = "biasa az" Else
komen = "sedikit pinter"
End If
txt_komen = komen
End Sub

5. Membuat coding

Private Sub cmd_exit_Click()
End
End Sub

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 20 Maret 2009
Semester II STIKOM CKI Wiajaya Kusuma

Selengkapnya...

Menggabungkan Nama Depan dan Belakang

SOURCE CODE: Project dan Form

1. Buka VB6 pilih Standard EXE

2. Buat object sbb:
a. Label1, Caption = Nama Depan
b. Label2, Caption = Nama Belakang
c. Label3, Caption = Nama Lengkap

d. Textbox1, Name = txt_nama_dpn
e. Textbox2, Name = txt_nama_blkg
f. Textbox3, Name = txt_nama_lgkp
g. Command Button1, Name = cmd_proses; Caption = Proses
h. Command Button2, Name = cmd_keluar; Caption = Keluar

3. Deklarasi data dengan coding sbb:

Dim nama_depan As String
Dim nama_belakang As String
Dim nama_lengkap As String

4. Membuat coding cmd_proses

Private Sub cmd_proses_Click()
nama_depan = txt_nama_dpn.Text
nama_belakang = txt_nama_blkg.Text
nama_lengkap = nama_depan + " " + nama_belakang
txt_nama_lgkp = nama_lengkap
End Sub

5. Membuat coding cmd_close

Private Sub cmd_keluar_Click()
End
End Sub

6. Jalankan program.




Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 20 Maret 2009
Semester II STIKOM CKI Wiajaya Kusuma

Selengkapnya...

Menghitung Luas Segitiga

SOURCE CODE: Project dan Form

1. Buka VB6 pilih Standard EXE

2. Buat object sbb:
a. Label1, Caption = Alas
b. Label2, Caption = Tinggi
c. Label3, Caption = Luas

d. Textbox1, Name = txt_alas
e. Textbox2, Name = txt_tinggi
f. Textbox3, Name = txt_luas
g. Command Button1, Name = cmd_proses; Caption = Proses
h. Command Button2, Name = cmd_close; Caption = Close

3. Deklarasi data dengan coding sbb:

Dim alas As Double 'tipe data variabel alas adalah double
Dim tinggi As Double 'tipe data variabel tinggi adalah double
Dim luas As Double 'tipe data variabel luas adalah double

4. Membuat coding cmd_proses

Private Sub cmd_proses_Click()
alas = txt_alas.Text 'variabel alas mengambil nilai dari textbox alas
tinggi = txt_tinggi.Text 'variabel tinggi mengambil nilai dari textbox tinggi
luas = 0.5 * alas * tinggi 'rumus luas segitiga
txt_luas.Text = luas 'memasukkan textbox luas ke dalam nilai luas
End Sub

5. Membuat coding cmd_close

Private Sub cmd_close_Click()
End
End Sub

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 20 Maret 2009
Semester II STIKOM CKI Wiajaya Kusuma

Selengkapnya...

Fungsi Perulangan

adalah sebuah kondisi dimana satu atau beberapa kode program dieksekusi secara berulang-ulang.
Macam-macam struktur perulangan:

1. FOR ... NEXT : banyaknya perulangan ditentukan sejak awal

1. For [var] = N awal To N akhir [step(stp)]
   [statement1]
   [statement2]
   Next

2. Keterangan: var = variabel yang berubah dari N awal s/d N akhir
   N awal = nilai awal
   N akhir = nilai akhir
   Stp = besar perubahan nilai

2. WHILE ... WEND : menguji perulangan terlebih dahulu jika kondisi terpenuhi, maka kode program akan diulang terus-menerus.
   

   While [uji kondisi]
   [statement1]
   [statement2]
   Wend

3. DO ... LOOP : jika kondisi belum terpenuhi, maka program akan diulang terus-menerus.

Do Until [uji kondisi]
[statement1]
[statement2]
Loop

Contoh program
>> Form

>> Code

Private Sub Command1_Click()
Dim v3 As Integer
v3 = Text1.Text
For i = 1 To v3
MsgBox i
Next
End Sub

Private Sub Command2_Click()
Dim v3 As Integer
Dim i As Integer
v3 = Text1.Text
i = 1
While i <= v3
MsgBox i i = i + 1
Wend
End Sub

Private Sub Command3_Click()
Dim v3 As Integer
Dim i As Integer
v3 = Text1.Text i = 1
Do Until i > v3
MsgBox i
i = i + 1
Loop
End Sub

Selengkapnya...

Fungsi Pemilihan

Pemilihan adalah sebuah kondisi dimana satu atau lebih baris program akan dieksekusi jika memenuhi kondisi tertentu. Jika kondisi tidak terpenuhi, maka program akan mengeksekusi baris program berikutnya.

Macam-macam struktur pemilihan:

1. IF ... THEN
• If (kondisi) Then (statemen1)
• If (kondisi) Then
  (statemen1)
  (statemen2)
  End If
• If (kondisi) Then
  (statemen1)
  Else
  (statemen2)
  End If
• If (kondisi1) Then
  (statemen1)
  Else If (kondisi2) Then
  (statemen2)
  Else
  (statemen3)
  End If
2. SELECT ... CASE : digunakan bila terjadi banyak kondisi. Merupakan penyederhanaan dari If Then Else.
   

Select Case (kondisi yang dites)
Case (memenuhi kondisi1)
(statemen1)
Case (memenuhi kondisi2)
(statemen2)
Case Else
(statemen3)
End Select

Contoh Program
>> Form

>> Code

Private Sub Command1_Click()
Dim Nilai As Single
Dim NilaiHuruf As String
Nilai = Text1.Text
If Nilai < 6 Then
NilaiHuruf = "D"
ElseIf Nilai >= 6 And Nilai < 7 Then
NilaiHuruf = "C"
ElseIf Nilai >= 7 And Nilai < 8 Then
NilaiHuruf = "B"
Else
NilaiHuruf = "A"
End If
Text2.Text = NilaiHuruf
End Sub

Private Sub Command2_Click()
Dim Nilai As Single
Dim NilaiHuruf As String
Nilai = Text1.Text
Select Case Nilai
Case Is < 6
NilaiHuruf = "D"
Case Is < 7
NilaiHuruf = "C"
Case Is < 8
NilaiHuruf = "B"
Case Else
NilaiHuruf = "A"
End Select
Text2.Text = NilaiHuruf
End Sub

Selengkapnya...

Variabel, Konstanta Dan Operator

:: VARIABEL ::
Variabel yaitu lokasi di memori tempat menyimpan informasi sementara.
Cara penulisan : Dim [nama_variabel] As [type_data]
Aturan variabel :

1. Maksimal 40 karakter,
2. Tidak boleh menggunakan spasi,
3. Tidak boleh menggunakan karakter khusus (seperti : +, -, *, /, <, >),
4. Karakter pertama harus huruf,
5. Tidak boleh menggunakan kata kunci, obyek, properti dan metode VB 6.
   

Tipe data untuk variabel pada VB 6 :

• Boolean : true atau false
• Integer : angka bulat -32768 s/d 32767
• Long (Integer) : -2147483648 s/d 2147483648
• Single : angka pecahan
• Double : angka
• Currency : mata uang
• Date : tanggal dan jam
• Obyek : referensi obyek
• String : karakter
• Variant : semua jenis data
  

Contoh variabel :

Dim Nilai As Double
Dim Nama As String
Dim Tgl As Date

Lingkup/Prosedur Variabel :

1. Level prosedur : untuk lingkup hanya pada prosedur.
2. Level form/modul : bisa dipanggil pada semua prosedur dalam form/modul
3. Level global : bisa dipanggil pada semua prosedur, menggunakan kata kunci public atau global.
   

:: KOSNTANTA ::
adalah variable yang nilainya tidak berubah.
Cara penulisan : Const [nama_kontanta] As [type_data] = [nilai_data]
Contoh :

Const phi = 3.14
Const tgl_gajian As Date = #25/09/2003#

:: OPERATOR ::
adalah fungsi untuk melakukan operasi.
Macam-macam operator :

1. Operator Penugasan, contoh Nilai = 2000
2. Operator Aritmatika digunakan untuk operasi matematis terhadap nilai data. Simbol-simbol yang digunakan :
• ^ pemangkatan 5 ^ 2 hasilnya 25
• * perkalian 5 * 2 hasilnya 10
• / pembagian (hasil pecahan) 5 / 2 hasilnya 2,5
• \ Pembagian (hasil bulat) 5 \ 2 hasilnya 2
• Mod sisa pembagian 5 Mod 2 hasilnya 1
• + penjumlahan 5 + 2 hasilnya 7
• - pengurangan 5 - 2 hasilnya 3
• & penggabungan string 5 & 2 hasilnya 52
3. Operator Perbandingan digunakan untuk operasi yang membandingkan nilai data. Simbol-simbol yang digunakan :
• <>
• > lebih besar; 5 > 2 hasilnya TRUE
• <= lebih kecil atau sama dengan; 5 <= 2 hasilnya FALSE
• >= lebih besar atau sama dengan; 5 >= 2 hasilnya TRUE
• = sama dengan; 5 = 2 hasilnya FALSE
• <> tidak sama dengan; 5 <> 2 hasilnya TRUE
4. Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan. Simbol-simbol yang digunakan :
• Or; atau; Benar, jika salah satu ekspresi benar; (5 <> 2) hasilnya TRUE
• And; dan; Benar, jika kedua ekspresi benar; (5 <> 2) hasilnya FALSE
• Not; Tidak Not; Menghasilkan nilai kebalikan (5 <>

Contoh Program
>> Form
>> Code

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub Option1_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 + var2
Label3.Caption = hasil
End Sub

Private Sub Option10_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 >= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option11_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option12_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
hasil = Not (var1)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option13_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 Or var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option14_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 And var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option2_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 - var2
Label3.Caption = hasil
End Sub

Private Sub Option3_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 * var2
Label3.Caption = hasil
End Sub

Private Sub Option4_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 / var2
Label3.Caption = hasil
End Sub

Private Sub Option5_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 & var2
Label3.Caption = hasil
End Sub

Private Sub Option6_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 > var2)
'Label3.Caption = hasil
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option7_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 < var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option8_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 = var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option9_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <> var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Selengkapnya...

Fungsi Dir List Box & Common Dialog

Drive List Box : untuk menampilkan Drive
Directory List Box : untuk menampilkan Directory
File List Box : untuk menampilkan File Name

Lihat code dibawah:
Object Properties Nilai
FileListBox Pattern *.jpg;*.gif;*.bmp;*.ico
Image Strecth True
Form Caption Browser Gambar

Fungsi Common Dialog : untuk menampilkan penggunaan dialog open, save, font, print, color dan lain-lain.
Filter : “All files (*.*) | *.* | jpg files (*.jpg) | *.jpg | “ & gif files (*.gif) | *.gif”

Contoh Program
>> Form DirListBox
>> Code

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
filegambar = File1.Path + "/" + File1.FileName
Image1.Picture = LoadPicture(filegambar)
Form1.Caption = filegambar
End Sub

>> Form Common Dialog
>> Code

Private Sub Command1_Click()
CommonDialog1.Filter = "All files (*.*)|*.*|JPG Files(.*jpg)|*.jpg|& GIF Files(*.gif)|*.gif"
CommonDialog1.DialogTitle = "Buka File"
CommonDialog1.ShowOpen
filegambar = CommonDialog1.FileName
Image1.Picture = LoadPicture(filegambar)
Form1.Caption = filegambar
End Sub

Selengkapnya...

Fungsi MsgBox & InputBox

Kotak pesan (Message Box) : untuk menampilkan pesan yang dapat digunakan sebaai input/output aplikasi.

Sintax : msgbox(prompt,parameter,judul)
Contoh: msgbox(Hai,vbokOnly,test)


Fungsi MsgBox ini bisa dipakai menggunakan 2 parameter sekaligus.
Macam-macam parameter dalam vb:
1. vbokOnly (0)
2. vbokCancel (1)
3. vbYesNoCancel (3)
4. vbCritical (16)
5. vbExclamation (48)
6. vbInformation (64)
7. vbQuestion dan lain-lain

Kotak input (Input Box) : untuk menampilkan kotak masukan dan menyimpan text.
Sintax : inputbox (promt,judul,xpos,ypos)
Contoh : inputbox (“masukkan nama Anda:”,”input”,3000,2000)

Contoh Program
>> Form MsgBox
>> Code

Private Sub Command1_Click()
Pesan = MsgBox("Bukalah Pintu Hatimu Untukku??", vbYesNo, "Konfirmasi Cinta?")
If Pesan = vbYes Then
Label1.Caption = "Hidup ini memang indah"
Else
Label1.Caption = "Bunuh diri aja lhoooch"
End If
End Sub

>> Form InputBox

>> Code

Private Sub Command1_Click()
'buat input box dengan variabel coba
coba = InputBox("Masukkan Nama Anda:", "Masukkan Nama")
'maka text1 akan menampilkan pesan input box
Text1.Text = "Hallo " + coba
'buat message box
MsgBox "Hallo " + coba, vbOKOnly, "Pesan Terakhir:"
End Sub

Selengkapnya...

Tentang Visual Basic

Visual Basic (VB) merupakan bahasa pemrograman komputer dari Microsoft (1991) yang berbasis Object Oriented Programming (OOP) yakni bahasa pemrograman yang mendukung obyek. Tampilan kerja VB disebut IDE (Integrated Development Environtment). Dalam pemrograman OOP ada istilah:

1. Object : komponen di dalam sebuah program
2. Property : karakteristik yang dimiliki sebuah obyek
3. Method : aksi yang dapat dilakukan sebuah obyek
4. Event : kejadian yang dapat dialami sebuah obyek

VB bersifat event driven programming, artinya kita dapat menyisipkan kode program pada event yang dimiliki object.

VB dapat digunakan untuk:
- database
- aplikasi
- kalender
- game
- membuat virus




Contoh Program:
>> Form

>> Code

Private Sub Command1_Click()
Label2.Caption = Text1.Text
Form1.Caption = "Anda Berhasil"
End Sub

Private Sub Command2_Click()
End
End Sub

>> Form

>> Code

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Selengkapnya...