Showing posts with label Belajar VB6. Show all posts
Showing posts with label Belajar VB6. Show all posts

Friday, June 17, 2016

VB6 : Laporan Dengan Data Report

Laporan Dengan Data Report

Salah satu fasilitas Visual Basic ialah menyediakan Data Report untuk membuat Laporan. seperti halnya kontrol data yang digunakan sebagai penghubung dengan database, Data Report pula membutuhkan Data Environment yang berfungsi sebagai penghubung antara database yang ada dengan Data Report.

1.Buat Data Evironment
  • Klik Project pada MenuBar, Klik Data Add Environment
  • Akun tampil jendela Data Environment, klik kanan pada connection1,pilih properties
  • Akan tampil jendela Data Link Properties (untuk menghubungkan dengan database)
  • Pilih Microsoft Jet 4.0 OLE DB PROVIDER, klik next
  • Muncul tab Connection keudian pada select or enter a database name pilih nama database klik tombol cari penyimpanan database yang akan di hubungkan latihanDBVb.mdb
  • Klik Test Connection, jik koneksi berhasil (database telah terkoneksi), klik ok
  •  Untuk mewakili tabel, tambahkan command pada Connection1 dengan cara klik kanan pada command1, pilih add command
  • Klik kanan pada Command1 lalu pilih Properties akan tampil jendela Command1 Properties
  • Untuk bagian Command name ketikan dtbrg kemudian pada connection, pilih connection1
  • pada bagian Database Object pilih Table, langkah selanjutnya Object Name pilih nama tabel barang.

  • Klik Ok

Buat Data Report

  • Klik Project pada MenuBar, klik data Add Report, lalu akan tampil jendela Data Report dengan tampilan seperti di bawah ini.

Penjelasan

  • Desaign RptLabel di Report Header, Ubah Property : Caption Menjadi "Laporan Data Barang" dan property : Alignment menjadi rptjustcenter. Kemudian atur tampilannya sesuai dengan yang anda inginkan gunakan Fungsi Font pada Properties untuk merubah
  • klik Data Report
  •  Letakan jendela Data Environnment di atas Jendela Data Report
  • Drag & Drop field-field pada jendela Data Environment ke jendela Data Report di bagian Detail
  • Pindahkan bagian yang diakhiri tanda ":" ke bagian page header
  • Desaign akhir Data Report adalah sebagai berikut :
  •  Simpan dengan nama lapbarang
  • Latihanlah sendiri membuat laporan untuk table yang lain


Untuk mendownload filenya silakan download DISINI . password : fajaryusuf.com




Jangan lupa Share, dan Likenya
Jika ada pertanyaan silakan berkomentar
hormat saya fajaryusuf.com



MATERI VB6

Jika anda baru Belajar VB 6 silakan belajar dari materi pertama :


Reviewer: FajarYusuf.Com
ItemReviewed: VB6 : Laporan Dengan Data Report

VB : Transaksi One To One (Lanjutan Post Sebelumnya)

Transaksi One To One 

Setelah latihan membuat Form Barang dan Form Kasir, Selanjutnya adalah membuat Form Transaksi. Ada 2 Jenis transaksi yang pertama adalah transaksi One To One dan Transaksi One To Many. Untuk latihan form transaksi yang kita buat sekarang adalah One To One.

Struktur Tabel Transaksi
Buatlah sebuah form baru dengan format sebagai berikut
Name     : FTransaksi
Caption  : Form Transaksi

Properties koneksi
Untuk menambahkan objek yang digunakan untuk membuat Data Combo, caranya adalah :
1.ctrl+t
2.Ceklist->Microsoft DataList Control 6.0 (OLEDB) -> Klik OK

Listing programnya :

Sub nomor()
Dim Urutan As String
Dim Hitung As Integer
adotrans.Refresh
With adotrans.Recordset
If .RecordCount = 0 Then
Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & "001"
txtnotrans.Text = Urutan
Else
.MoveLast
Hitung = Val(Right(!notrans, 3)) + 1
Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & Right("000" & Hitung, 3)
txtnotrans.Text = Urutan
End If
End With
End Sub

Private Sub cmdadd_Click()
Call nomor
DBkdkasir.Enabled = True
DBkdbarang.Enabled = True
txtjumbel.Enabled = True
txtubay.Enabled = True
cmdadd.Enabled = False
cmdcancel.Enabled = True
cmdsave.Enabled = True
cmdexit.Enabled = False
End Sub
Sub aktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 1
End If
Next x
DBkdkasir.Enabled = True
DBkdbarang.Enabled = True
End Sub
Sub nonaktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 0
End If
Next x
DBkdkasir.Enabled = False
DBkdbarang.Enabled = False
End Sub

Sub bersih()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next x
DBkdkasir.Text = "Pilih Kode"
DBkdbarang.Text = "Pilih Kode"
End Sub
Sub kondisi_awal()
bersih
nonaktif
cmdadd.Enabled = True
cmdexit.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub cmdcancel_Click()
Call kondisi_awal
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdsave_Click()
With adotrans.Recordset
.AddNew
!notrans = txtnotrans.Text
!tgltrans = txttgl.Text
!kdbrg = DBkdbarang.Text
!kdkasir = DBkdkasir.Text
!total = txttobay.Text
!qty = txtjumbel.Text
.Update
End With
MsgBox "data tersimpan", vbInformation, "info"
kondisi_awal
End Sub

Private Sub DBkdbarang_Change()
adobarang.Recordset.Find "kdbrg='" & Me.DBkdbarang.Text & "'", , adSearchForward
If Not adobarang.Recordset.EOF Then
txtnmbrg.Text = adobarang.Recordset!nmbrg
txtharga.Text = adobarang.Recordset!harga
txtsatuan.Text = adobarang.Recordset!satuan
txtjumbel.SetFocus
End If
End Sub

Private Sub DBkdkasir_Change()
adokasir.Recordset.Find "kdkasir='" & Me.DBkdkasir.Text & "'", , adSearchForward
If Not adokasir.Recordset.EOF Then
txtnmkasir.Text = adokasir.Recordset!nmkasir
End If
End Sub

Private Sub Form_Load()
Call kondisi_awal
txttgl = Date
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttobay = txtjumbel.Text
txtharga.Text
txtubay.SetFocus
End If
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(txtubay.Text) < Val(txttobay.Text) Then
MsgBox "Uang Bayar Kurang", vbExclamation, "info"
txtubay.Text = ""
txtubay.SetFocus
Else
txtukem = txtubay.Text - txttobay.Text
txtubay.SetFocus
End If
End If
End Sub

Hasilnya akan seperti ini:












Jangan Lupa Like and Share...
Jika ada pertanyaan silakan berkomentar...
hormat saya FajarYusuf.com

Reviewer: FajarYusuf.Com
ItemReviewed: VB : Transaksi One To One (Lanjutan Post Sebelumnya)

Wednesday, June 15, 2016

VB6 : Database & Form Kasir (Lanjutan Form Barang)

Database & Form Kasir 

Buatlah sebuah Form Kasir dengan desain sepert dibawah ini

Form ini dibuat untuk mengelola data baik kasir atau petugas yang melayani transaksi penjualan barang. Namun Sebelum merancang form buka terlebih dahulu database penjualan yang pernah kita buat sebelumnya lalu tambahkan tabel kasir sebagai berikut :

Berikut adalah tampilan rancangan form data barang yang akan dibuat


Form Kasir diatas logika programnya hampir sama dengan Form Barang, bedanya pada Form Kasir Kode Kasirnya dapat tampil otomatis sesuai format tertentu.



Setting Properties Objeknya seperti berikut :





Listing programnya :

Sub nomor()
Dim urutan As String
Dim hitung As Integer
With adokasir.Recordset
If .RecordCount = 0 Then
urutan = "KSR01"
txtkdkasir.Text = urutan
Else
.MoveLast
hitung = Val(Right(!kdkasir, 2)) + 1
urutan = "KSR" & Right("00" & hitung, 2)
txtkdkasir.Text = urutan
End If
End With
End Sub

Sub tampil()
With adokasir.Recordset
txtkdkasir.Text = !kdkasir
txtnmksr.Text = !nmkasir
txttelp.Text = !telp
txtalamat.Text = !alamat
End With
End Sub

Sub bersih()
txtkdkasir.Text = ""
txtnmksr.Text = ""
txttelp.Text = ""
txtalamat.Text = ""
End Sub

Sub mati()
txtkdkasir.Enabled = False
txtnmksr.Enabled = False
txttelp.Enabled = False
txtalamat.Enabled = False
End Sub

Sub hidup()
txtkdkasir.Enabled = True
txtnmksr.Enabled = True
txttelp.Enabled = True
txtalamat.Enabled = True
End Sub



Private Sub cmdadd_Click()
Call nomor
Call hidup
cmdsave.Enabled = True
cmdadd.Enabled = False
cmdundo.Enabled = True
txtkdkasir.Enabled = False
txtnmksr.SetFocus
End Sub

Private Sub cmddelete_Click()
a = MsgBox("Yakin Mau Dihapus???", vbYesNo + vbInformation, "Konfirmasi")
If a = vbYes Then
adokasir.Recordset.Delete
Call mati
Call bersih
End If
End Sub

Private Sub cmdedit_Click()
Call hidup
txtkdkasir.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdundo.Enabled = True
cmddelete = False
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdfind_Click()
adokasir.Recordset.Find "kdkasir='" & Me.txtcari.Text & "'", , adSearchForward
If Not adokasir.Recordset.EOF Then
Call tampil
Call mati
cmdadd.Enabled = False
cmdedit.Enabled = True
cmdsave.Enabled = False
txtkdkasir.Enabled = False
txtcari.Text = ""
Else
MsgBox "kode kasir tidak ada", vbInformation, "info"
txtcari.Text = ""
End If
End Sub

Private Sub cmdfirst_Click()
adokasir.Recordset.MoveFirst
tampil
End Sub

Private Sub cmdlast_Click()
adokasir.Recordset.MoveLast
tampil
End Sub

Private Sub cmdnext_Click()
adokasir.Recordset.MoveNext
If adokasir.Recordset.EOF Then
MsgBox "DATA SUDAH DIAKHIR RECORD", vbInformation, "INFO"
adokasir.Recordset.MoveLast
End If
Call tampil
End Sub

Private Sub cmdprevious_Click()
adokasir.Recordset.MovePrevious
If adokasir.Recordset.BOF Then
MsgBox "DATA SUDAH DIAWAL RECORD", vbInformation, "INFO"
adokasir.Recordset.MoveFirst
End If
Call tampil
End Sub

Private Sub cmdsave_Click()
With adokasir.Recordset
adokasir.Recordset.Find "kdkasir='" & Me.txtkdkasir.Text & "'", , adSearchForward
.AddNew
If adokasir.Recordset.EOF Then
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
Else
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
End If
End With
Call mati
Call bersih
cmdsave.Enabled = False
cmdadd.Enabled = True
cmddelete.Enabled = True
cmdundo.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdundo_Click()
Call bersih
Call mati
cmdundo.Enabled = False
cmdadd.Enabled = True
cmdsave.Enabled = False
cmddelete.Enabled = True
End Sub

Private Sub Form_Activate()
Call mati
cmdedit.Enabled = False
cmdsave.Enabled = False
cmdundo.Enabled = False
cmdedit.Enabled = True
jam.Caption = Time
tanggal.Caption = Date
End Sub


Private Sub txtkdkasir_Change()
txtkdkasir.MaxLength = 6
End Sub

Hasilnya akan seperti ini :


Untuk kalian yang gagal membuatnya silakan download filenya DISINI , dengan password rarnya fajaryusuf.com






Reviewer: FajarYusuf.Com
ItemReviewed: VB6 : Database & Form Kasir (Lanjutan Form Barang)

Saturday, June 11, 2016

VB6 : Database & Form Barang

Database

Pengertian Database dan Hirarki Database


Hirarki Database
  • Character Satuan Data Terkecil dalam database, dapat berupa karakter numerik (angka 0 s.d 9), huruf (A - Z, a - z) ataupun karakterkarakter khusus, seperti *, &. %, # dan lain-lain
  • Field Merupakan bagian dari record yang menunjukkan suatu item data yang sejenis
  • Record kumpulan data value dari attribute yang berkaitan sehingga dapat menjelaskan sebuah entity secara lengkap
  • File/Tabel File merupakan sesuatu yang dapat diidentifikasi dari suatu sistem database, bisa berupa objek, orang, tempat, kejadian atau konsep yang informasinya akan disimpan dalam database
  • Database Kumpulan dari tabel-tabel yang saling berelasi, disusun secara logis, sehingga menghasilkan informasi yang bernilai guna dalam proses pengambilan keputusan

Latihan Yuk!

Buatlah Tabel sesuai struktur dibawah ini dengan menggunakan Microsoft Access



Buka microsoft access kalian lalu pilih new blank database dan isi nama databasenya dengan nama latihanDbVB.


Ubah menu view lalu masukkan nama tabel dengan barang.

isi field table sesuai soal .
Selesai,..



Reviewer: FajarYusuf.Com
ItemReviewed: VB6 : Database & Form Barang

Tuesday, May 31, 2016

VB6 : Effect Form Dan Kontrol Komponen

Effect Form Dan Kontrol Komponen

Form membuka dari kiri ke kanan

Animasi ini untuk membuka form mulai dari kiri ke kanan ketika program dijalankan. Buatlah rancangan form dibawah ini :

Isi interval Timer1 dengan :1

masukkan listing program seperti berikut pada form :

Private Sub Timer1_Timer()
Me.Width = Me.Width + 20
If Me.Width >= 9000 Then
Timer1.Enabled = False
End If
End Sub

maka yang terjadi form akan perlahan terbuka dari kiri kekanan , kecepatannya tergantung +20 jika lebih besar angkanya kecepatannya pun makin cepat , dan lebar form 9000 .




 Text Muncul Berjalan

Pada form ini, kita akan membuat animasi text berjalan. Caranya kita rancang dulu form dibawah ini kemudian ikuti langkah-langkah selanjutnya :

 masukkan listing program seperti berikut pada form :

Dim Strl As String
Dim i


Private Sub Form_Load()
Strl = "SELAMAT DATANG DI FAJARYUSUF.COM"
i = 0
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 100
i = i + 1
Label1 = Left(Strl, i)
If i = Len(Strl) Then
i = 1
Timer1.Interval = 3000
End If
End Sub


Hasilnya akan ada text berjalan memunculkan satu kata perkata dari kiri karena kita memakai left dan len.




Sebenarnya untuk mempelajari Efek pada Visual Basic itu kita harus paham pada interval timer karena animasi kecepatan pada setiap efek di visual basil itu tergantung pada Timer.



Jika ada pertanyaan silakan berkomentar. Jangan Lupa like dan share. Belajar Pemrograman di fajaryusuf.com aja. :)



Reviewer: FajarYusuf.Com
ItemReviewed: VB6 : Effect Form Dan Kontrol Komponen

VB6 : Array

Array

Pengertian Koleksi Objek

Objek-objek yang digunakan dalam form biasanya berdiri sendiri. Dengan demikian jika anda ingin mengubah property ke semua objek tersebut, hal tersebut menyebabkan listing menjadi panjang. Untuk itu digunakan koleksi dan array yang dapatmenghemat penulisan listing program.
Koleksi adalah suatu kumpulan kompenen yang dapat berfungsi sejalan. Hal ini sangat berguna saat akun mendefinisikan sebuah proses yang menyangkut kontrol-kontrol yang ada pada form.

Cara Mengakses Koleksi Objek

  • Koleksi Sementara : Dapat dilakukan dengan mengklik kontrol-kontrol pada form yang akan dijadikan sebagai satu grup koleksi sambil menekan tombol Ctrl. Koleksi sementara biasanya digunakan untuk memindahkan objek secara bersamaan hanya pada saat tersebut.
  • Koleksi dengan Controls : Untuk mempermudah koleksi semua objek dalam satu form digunakan property controls. sintaknya : [objek].controls . Dimana [objek] lebih umum dinyatakan sebagai nama form yang kontrol-kontrolnya dijadikan koleksi proses.

 

Array Satu Dimensi

Array adalah variabel yang berisi beberapa data sejenis. Data-data tersebut disimpan dengan nomor urut tertentu yang disebut index. Jika X adlah variable array, maka digambarkan sebagai berikut :
Variabel X
Data-1 Elemen/index ke-1
Data-2 Elemen/index ke-2
Data-3 Elemen/index ke-3
Data-n Elemen/index ke-n

Array Multi Dimensi

Array berdimensi 2 terdiri dari baris dan kolom, contohnya pada tabel atau matrik. Pendefinisiannya adalah sebagai berikut :
Dim nama_variabel (n1,n2) As tipe_variabel (n1=baris, n2=kolom)


Pembuatan Program Array

Array Satu Dimensi

Buat tampilan form seperti dibawah ini :


Settinglah nama objek dan caption objek dengan Fomat di bawah ini:



masukkan listing program seperti berikut pada form :

Private Sub Form_Load()
Dim hari(6) As String
hari(0) = "Senin"
hari(1) = "Selasa"
hari(2) = "Rabu"
hari(3) = "Kamis"
hari(4) = "Jum'at"
hari(5) = "Sabtu"
hari(6) = "Minggu"

For i = 0 To 6
MsgBox "Hari " & hari(i), , "Nama Hari"
Next i
End Sub

Penjelasan Coding :
Dim hari(6) As String ; membuat variabel hari yang berindex array 6 isi dan bertipe data String
hari(0) = "Senin" ; karna index pertama array itu angka 0 mangka index pertama dari hari adalah senin
For i = 0 To 6 ; membuat pengulangan variabel i dari 0 sampai 6
Msgbox "Hari " & hari(i),,"Nama Hari" ; Memunculkan messagebox yang bertulisan hari dan diikuti dari isi index array yang tercantum dikodingan mulai dari index 0 sampai 6.




Array Multi Dimensi

Buat tampilan form seperti dibawah ini :

Settinglah nama objek dan caption objek dengan Fomat di bawah ini:


masukkan listing program seperti berikut pada form :

Dim nama(10) As String
Dim nilai(5, 5) As Byte
Dim r As Byte
Dim m As Byte
Dim w As Byte
Dim i As Byte


Private Sub cmdclear_Click()
Dim ctrl As Control
For Each ctrl In Me
If TypeName(ctrl) = "ListBox" Then
ctrl.Clear
End If
Next
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdmultidimensi_Click()
List1.Clear
w = InputBox("Masukkan Jumlah Baris", "Input Baris", 0)
i = InputBox("Masukkan Jumlah Kolom", "Input Baris", 0)
For r = 1 To w
For m = 1 To i
nilai(r, m) = InputBox("Nilai Pada(" + Str(r) + "," + Str(m) + ")", "Input Nilai Matrik", 0)
Next
Next
For r = 1 To w
For m = 1 To i
List1.AddItem "Nilai(" + Str(r) + "," + Str(m) + ")=" + Str(nilai(r, m))
Next
Next
End Sub

Private Sub cmdsatudimensi_Click()
List1.Clear
m = InputBox("Masukkan Jumlah Data Teman Anda", "Input Jumlah Data", 0)
For r = 1 To m
nama(r) = InputBox("Masukkan nama teman anda yang ke-" + Str(r), "Input Jumlah Data", "Nama")
Next
For r = 1 To m
List1.AddItem UCase(nama(r))
Next r
End Sub

Private Sub Timer1_Timer()
ltgl.Caption = Format(Date, "dddd,dd-mmmm-yyyy")
ltime.Caption = Time
End Sub

Private Sub Timer2_Timer()
If Label1.Caption = "Array Dimensi 1(Satu)" Then
Label1.Caption = "Array Multi Dimensi"
Label1.ForeColor = &HFF&
Else
Label1.Caption = "Array Dimensi 1(Satu)"
Label1.ForeColor = &HFF0000
End If
End Sub

Penjelasan Koding :
variabel w menampung untuk pembuatan baris dan bariabel i digunakan untuk membua kolom baru.
variabel r untuk menyimpan nilai pada baris dan m nilai pada kolom.

Unuk pertanyaan koding yang lain silakan melalui komentar :)

Lalu Klik Run - Start  atau tekan f5 :
* saat di run jika kita menekan input data array satu dimensi maka kita akan memasukkan jumlah data.a dan memasukkan isi dari data tersebut
* saat kiita menekan tombol input data array multi dimensi maka kita memasukkan jumlah kolom dan baris yang akan kita buat lalu kita memasukan data-datanya.










Reviewer: FajarYusuf.Com
ItemReviewed: VB6 : Array

Tuesday, May 24, 2016

Module : VB6.0

Module

Pengenalan Modul Standar

Visual Basic menyediakan module yang dapat digunakan untuk memuat fungsi, subrutin, konstanta, variabel dan type ciptaan yang akan disediakan bagi keseluruhan project. Untuk membuat dalam project anda dapat menggunakan perintah Project, Add Module.


Sesaat setelah anda menambahkan module, maka pada jendela Project Explorer akan nampak Module1

Untuk melakukan koding, anda dapat melakukan double klik pada Module tersebut.


Pengunaan Modul Standar

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :


  Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

textbox3 = txthasil
Ketentuan Program :
*Luas alas dan tinggi diinput, Button Hitung diklik tampil hasil pada txthasil didapat dari alas x tinggi/2, gunakan fungsi untuk menyelesaikan dan tempatkan pada module
*Button Bersih gunakan prosedur
*Button Keluar untuk keluar dari aplikasi dan tampil pesan

masukkan listing program seperti berikut pada form :

Public Sub bersih()
Dim x As Control
For Each x In Me
If TypeName(x) = "TextBox" Then x.Text = ""
If TypeName(x) = "ListBox" Then x.Clear
Next
End Sub
Private Sub cmdbersih_Click()
Call bersih
txtalas.Text = ""
End Sub

Private Sub cmdhitung_Click()
Dim alas, tinggi As Integer
alas = Val(txtalas.Text)
tinggi = Val(txttinggi.Text)
txthasil.Text = luassegitiga(alas, tinggi)
End Sub

Private Sub cmdkeluar_Click()
If MsgBox("Mau Keluar??", vbQuestion + vbOKCancel, "message") Then End
End Sub

masukkan juga listing program seperti berikut pada modul :

Public Function luassegitiga(alas, tinggi As Integer) As Double
luassegitiga = (alas * tinggi) / 2
End Function
Penjelasan coding :
Module digunakan untuk menampung variabel-variabel public yang bisa dipanggil dalam form-form dalam satu projek.

Jika ada pertanyaan lain silakan melalu komentar :)

Lalu Klik Run - Start  atau tekan f5 :









Reviewer: FajarYusuf.Com
ItemReviewed: Module : VB6.0

Thursday, May 12, 2016

Latihan08 (Procedure Dan Function)

Latihan08 (Procedure Dan Function) : VB6


Procedure
Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu.

Jenis-jenis Procedure
Pada VB6 ada 4 jenis procedure, yaitu :
  • Procedure Sub - Procedure yang tidak mengembalikan nilai setelah "tugas"-nya selesai
  • Procedure Function-Procedure yang mengembalikan nilai setelah "tugas"-nya selesai.
  • Procedure Event-procedure untuk suatu event pada sebuah object. Digunakan didalam class module.
  • Procedure Property-procedure untuk mengubah (let) atau mengambil(get) nilai property pada sebuah object. Digunakan di dalam class module. Bentuk penulisan(syntax) procedur sub :
[Public | Private] Sub <nama_sub>
([<argumen>])
....
<isi procedure>
...
End Sub

Sedangkan bentuk penulisan(syntax) procedure function :
[Public | Private] Function
<nama_function ([<argumen>]) As
<tipe_data>
...
<isi procedure>
...
End Function
Penjelasan :
Pernyataan [Public | Private] menentukan ruang lingkup (scope) procedure. Sebuah procedure dengan scope public bisa digunakan dalam lingkup project. Sedangkan procedure dengan scope private hanya bisa digunakan dalam lingkup form saja.
<nama_sub> atau <nama_function> dibuat sebagai pengenal procedure untuk mengerjakan 'tugas'-nya. Sebuah procedure bisa saja memakai argumen sama sekali.
Pernyataan As<tipe_data> pada procedure function menentukan tipe data nilai yang akan dikembalikan (return value) setelah 'tugas'-nya selesai. Untuk menggunakan sebuah procedure, maka procedure tersebut harus di-"panggil" pada bagian tertentu dari kode program. Procedure sub di-"panggil" dengan pernyataan : Call <nama_sub>([<argumen>])
Sedangkan procedure funcion bisa di-"panggil" langsung dengan menyisipkan di dalam kode program yang memanggilnya. Procedure boleh ditulis dimana saja dalam kode program, tetapi biasanya ditulis dibagian atas atau bawah agar mudah ditangani.

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :


 Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

Textbox 1 namenya : txthari

catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.


Ketentuaan Pengerjaan :
Pada saat program akan dijalankan pada txthari Ketikan tanggal yang akan dicari harinya dengan format dd/mm/yyyy, contoh : 11/04/2010

masukkan listing program seperti berikut :

Function Hari(tgl As Date) As String
hari_ke = Weekday(tgl, vbSunday)
Select Case hari_ke
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jum'at"
Case 7: Hari = "Sabtu"
End Select
End Function

Private Sub cmdproses_Click()
MsgBox "Pada Tanggal" & txthari.Text & " adalah hari " & Hari(txthari.Text), , "Hari"
txthari.SetFocus: SendKeys "{home}+{end}"
End Sub

Penjelasan Coding :
Yang Fungction intinya memanggil hari yang ada pada tanggal komputer dan diubah dalam format penulisan harinya. sunday = minggu (Case1)

MsgBoxnya menampilkan kata Pada tanggal lalu diikuti isinilai dari txthari Adalah har lalu variabel nama Hari komputer,, "Hari" adalah caption yang muncul ditextbox informasinya

Jika ada pertanyaan lain silakan melalu komentar :)

Lalu Klik Run - Start  atau tekan f5 :


















Reviewer: FajarYusuf.Com
ItemReviewed: Latihan08 (Procedure Dan Function)

TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.