HELLO GUYS,
kali ini saya akan membahas
tentang Function dan Procedure dalam visual basic 6.0
sebelum kita masuk ke dalam
programnya, kita harus mengetahui apa itu Function dan apa itu Procedure
1. Procedure
Procedure adalah
blok kode program yang berisi perintah-perintah untuk mengerjakan tugas
tertentu. Bila di dalam kode program yang kita buat ada perintah-perintah
untuk melakukan tugas yang sama di beberapa tempat, maka akan lebih baik
perintah-perintah tersebut dibuat dalam sebuah procedure. Kemudian,
procedure itu bisa di-‘panggil’ bila diperlukan.
Penggunaan procedure sangat menghemat penulisan kode program, karena kode-kode program yang sama dibeberapa tempat cukup dibuat pada satu bagian saja. Selain itu, procedure akan memudahkan perbaikan kode program bila terjadi perubahan atau kesalahan, karena perbaikan cukup dilakukan pada satu bagian saja
Penggunaan procedure sangat menghemat penulisan kode program, karena kode-kode program yang sama dibeberapa tempat cukup dibuat pada satu bagian saja. Selain itu, procedure akan memudahkan perbaikan kode program bila terjadi perubahan atau kesalahan, karena perbaikan cukup dilakukan pada satu bagian saja
disini saya membuat program mesin
pencari KPK, sebelum memasuki mesin kpk, kita harus login terlebih dahulu
menggunakan username dan password.
pertama-tama kita harus membuat Form login seperti di atas. kemudian tulislah coding seperti ini.
pada codingan login di atas, yang dilingkari warna merah itu adalah Procedure. Procedure digunakan untuk memanggil atau 'Call'
Message box "Login Success!" itu dipanggil jika username dan password kita benar, jika salah maka akan keluar tulisan "Sorry..!! Login Failed. Please try again"
maksud dari yang di lingkari merah yang pertama dengan tulisan 'Call msgbox1' dia memanggil procedure yang bawah dan mengeluarkan Message box "Login Success!"
lingkaran merah yang kedua dengan tulisan 'Call msgbox2' dia memanggil procedure yang bawah dan mengeluarkan tulisan Message Box "Sorry..!! Login Failed. Please try again"
- pada codingan Call msgbox1, dia akan memanggil procedure :
MsgBox "Login Success!"
End Sub
- pada codingan Call msgbox2, dia akan memanggil procedure
MsgBox "Sorry..!! Login Failed. Please try again"
End Sub
- lalu berikutnya Codingan untuk Cancel/Exit
Unload Me
End Sub
jika password dan username berhasil, maka masuk ke Form selanjutnya, yaitu Form KPK.
disini saya membuat mesin pencari KPK, design nya seperti ini
ini adalah codingan untuk mesin pencari KPK :
Dim i As Integer
Dim Bil1 As Double
Dim Bil2 As Double
Dim B1, B2, FPB As Long
Dim Bagi As Long
Dim SisaBagi As Integer
Function hitung_bil1()
Bagi = Fix(B1 / Bil2)
SisaBagi = B1 - (Bagi * Bil2)
B1 = Bil2
Bil2 = SisaBagi
End Function
Function hitung_bil2()
Bagi = Fix(B2 / Bil1)
SisaBagi = B2 - (Bagi * Bil1)
B2 = Bil1
Bil1 = SisaBagi
End Function
Private Sub cmd_kpk_Click()
Bil1 = Me.txt_bil1.Text
Bil2 = Me.txt_bil2.Text
If (Bil1 Mod 2 = 0 And Bil2 Mod 2 <> 0) Or (Bil1 Mod 2 <> 0 And Bil2 Mod 2 = 0) Then
Me.lbl_kpk.Caption = Bil1 * Bil2
ElseIf Bil1 Mod 2 = 0 And Bil2 Mod 2 = 0 Then
If Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 <> 0 Then
If ((Bil1 * Bil2) Mod 2 = 0) And Bil1 > Bil2 Then
B1 = Bil1
For i = 1 To 10
If Bil2 <> 0 Then
Call hitung_bil1
ElseIf Bil2 = 0 Then
FPB = B1
End If
Next
Me.lbl_kpk.Caption = (Me.txt_bil1.Text * Me.txt_bil2.Text) / FPB
ElseIf ((Bil1 * Bil2) Mod 2 = 0) And Bil1 < Bil2 Then
B2 = Bil2
For i = 1 To 10
If Bil1 <> 0 Then
Call hitung_bil2
ElseIf Bil1 = 0 Then
FPB = B2
End If
Next
Me.lbl_kpk.Caption = (Me.txt_bil1.Text * Me.txt_bil2.Text) / FPB
Else
Me.lbl_kpk.Caption = Bil1 * Bil2
End If
ElseIf Bil1 Mod Bil2 = 0 And Bil2 Mod Bil1 <> 0 Then
Me.lbl_kpk.Caption = Bil1
ElseIf Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 = 0 Then
Me.lbl_kpk.Caption = Bil2
End If
ElseIf Bil1 Mod 2 <> 0 And Bil2 Mod 2 <> 0 Then
If Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 <> 0 Then
Me.lbl_kpk.Caption = Bil1 * Bil2
ElseIf Bil1 Mod Bil2 = 0 And Bil2 Mod Bil1 <> 0 Then
Me.lbl_kpk.Caption = Bil1
ElseIf Bil1 Mod Bil2 <> 0 And Bil2 Mod Bil1 = 0 Then
Me.lbl_kpk.Caption = Bil2
End If
End If
End Sub
Private Sub Form_Load()
Me.txt_bil2.Enabled = False
Me.cmd_kpk.Enabled = False
End Sub
Private Sub cmd_keluar_Click()
End
End Sub
Private Sub Timer1_Timer()
Label4.Caption = Time
End Sub
Private Sub Timer2_Timer()
Label6.Caption = Format(Now, "dddd, dd mm yyyy")
End Sub
Private Sub txt_bil1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txt_bil2.Enabled = True
Me.txt_bil2.SetFocus
End If
End Sub
Private Sub txt_bil2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.cmd_kpk.Enabled = True
Me.cmd_kpk.SetFocus
End If
End Sub
Pada codingan KPK, saya menggunakan Function untuk memanggil.
tulisan yang di cetak tebal di atas itu berfungsi untuk memanggil hitung_bil1 dan hitung_bil2, fungsinya memanggil bilangan pertama dan bilangan kedua.
- function bilangan pertama :
Bagi = Fix(B1 / Bil2)
SisaBagi = B1 - (Bagi * Bil2)
B1 = Bil2
Bil2 = SisaBagi
- funtion bilangan kedua
Bagi = Fix(B2 / Bil1)
SisaBagi = B2 - (Bagi * Bil1)
B2 = Bil1
Bil1 = SisaBagi
- ini adalah codingan keluar
End
End Sub
- ini adalah codingan Jam
Label4.Caption = Time
End Sub
- ini adalah codingan Hari,Tanggal,Tahun
Label6.Caption = Format(Now, "dddd, dd mm yyyy")
End Sub
Cukup sekian dari saya, semoga bermanfaat bagi kalian semua yang ingin mempelajari Function dan Procedure, terimakasih ^^