Function dan Procedure Visual Basic 6.0

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

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 :

Sub msgbox1()

MsgBox "Login Success!"

End Sub

• pada codingan Call msgbox2, dia akan memanggil procedure

Sub msgbox2()

MsgBox "Sorry..!! Login Failed. Please try again"

End Sub

• lalu berikutnya Codingan untuk Cancel/Exit

Private Sub Command2_Click()

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 :

Function hitung_bil1()

Bagi = Fix(B1 / Bil2)

                    SisaBagi = B1 - (Bagi * Bil2)

                    B1 = Bil2

                    Bil2 = SisaBagi

• funtion bilangan kedua

Function hitung_bil2()

Bagi = Fix(B2 / Bil1)

                    SisaBagi = B2 - (Bagi * Bil1)

                    B2 = Bil1

                    Bil1 = SisaBagi

• ini adalah codingan keluar

Private Sub cmd_keluar_Click()

End

End Sub

• ini adalah codingan Jam

Private Sub Timer1_Timer()

Label4.Caption = Time

End Sub

• ini adalah codingan Hari,Tanggal,Tahun

Private Sub Timer2_Timer()

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 ^^