Pertemuan 05 Procedure dan Parameter

1. Pertemuan 05Procedure dan Parameter Matakuliah : T0063/Pemrograman Visual Tahun : 2005 Versi : 1/0

2. Learning Outcomes Pada akhir pertemuan ini, diharapkan mahasiswa akan mampu : • Mendemonstrasikan penggunaan parameter di dalam procedure (C3)

3. Outline Materi Procedure dan Parameter • Procedure • Parameter • On Error

4. Procedure • Ada 2 jenis Procedure : • Sub • Function • Scope Procedure bisa berupa Public, Private atau Friend Private Sub Form_Load() txtTotal.Text = "" End Sub Semua event procedure adalah Private Function GetTotal() As Currency GetTotal = CCur(txtTotal.Text) End Function Public Function

5. Procedure

6. Parameter • Sub dan Function dapat menerima sekelompok nilai argument dari pemanggil dan diterima ke dalam sekelompok parameter • Passing Argument : • By Value • By Reference

7. Parameter • By Value • Argument dikirimkan sebagai konstanta bagi procedure penerima • Keyword ByVal • By Reference (default) • Argument dikirimkan sebagai variable bagi prosedure penerima. Nilai variable tersebut akan terupdate secara otomatis ke modul atau procedure pemanggil • Keyword ByRef Sub HitungGrade(ByVal NilaiAkhir As Long, ByRef Grade As String) If NilaiAKhir>85 then Grade=“A” Elseif . . . End Sub

8. Parameter • Optional keyword • Jika parameter bersifat optional maka argument untuk parameter ini tidak harus dikirim Function HitungGrade(ByVal NilaiAkhir As Byte,Optional NilaiPraktikum as Byte) as String Dim Grade as String Dim NilaiGabung as Byte If IsMissing(NilaiPraktikum) Then NilaiGabung = NilaiAkhir Else NilaiGabung = (NilaiAKhir + NilaiPratikum)/2 End If If NilaiGabung>85 then Grade=“A” Elseif . . . HitungGrade = Grade End Function

9. Parameter • ParamArray • Parameter dengan tipe ini menerima argument berupa array. Function Sum(ParamArray args() As Variant) As Double Dim i As Integer For i = 0 To UBound(args) Sum = Sum + args(i) Next End Function

10. On Error • Perintah ini dipakai untuk melakukan error trapping(penjebakan error) • Tanpa adanya error trapping maka ketika aplikasi mengalami kegagalan (pencarian data atau division by zero) maka secara otomatis aplikasi akan kembali ke windows • Namun pemakaian error trapping kadang kala menyulitkan pada saat melakukan error tracing(pencarian kesalahan) • On Error biasa digunakan bersama GoTo (Label) dan Exit Sub

11. On Error Function HitungGrade(ByVal NilaiAkhir As Byte,Optional NilaiPraktikum as Byte) as String On Error GoTo errHitungGrade Dim Grade as String Dim NilaiGabung as Byte If IsMissing(NilaiPraktikum) Then NilaiGabung = NilaiAkhir Else NilaiGabung = (NilaiAKhir + NilaiPratikum)/2 End If If NilaiGabung>85 then Grade=“A” Elseif . . . HitungGrade = Grade Exit Function errHitungGrade : Msgbox “Error bleh” + Err.Description End Function