BELAJAR VISUAL BASIC (FUNGSI DAN PROSEDUR)

Cobalah dengan Visual Basic yang ada di Microsoft Office atau softwere lain,
Bangunlah sebuah program seperti dibawah ini, yaitu program penghitung volume bangun ruang

Prosedur
Private Sub cmdKalkulasi_Click()
Dim panjang As Double, lebar As Double, tinggi As Double

panjang = txtPanjang.Text
lebar = txtLebar.Text
tinggi = txtTinggi.Text
Call kalkulasi(panjang, lebar, tinggi)
End Sub
--------------------
Private Sub kalkulasi(a As Double, b As Double, c As Double)
Dim kalkulasi As Double
kalkulasi = a * b * c
lblHasil.Caption = "Hasil kalkulasi adalah, " & kalkulasi
End Sub








Fungsi
Private Sub cmdKalkulasi_Click()
Dim panjang As Double, lebar As Double, tinggi As Double

panjang = txtPanjang.Text
lebar = txtLebar.Text
tinggi = txtTinggi.Text

lblHasil.Caption = "Hasil perhitungan volume adalah, " & kalkulasi(panjang, lebar, tinggi)

End Sub
--------------------
Private Function kalkulasi(a As Double, b As Double, c As Double) As Double
kalkulasi = (a * b * c)
End Function

Pembahasan
Jika Fungsi dan Prosedur dibandingkan, perbedaan keduanya yaitu,
Prosedur menggunakan privat sub 2 sedangkan fungsi menggunakan privat function
Prosedur melakukan call hasil kalkulasi,namun pengisian hasil dilakukan di privat sub 1
Fungsi tidak melakukan call hasil, dan hasil dilakukan di privat sub
Penggunaan kurung pada kalkulasi tidak berpengaruh atau sama saja
Pada Fungsi, privat function dideklarasi variable kalkulasi secara langsung

Pada prosedur, deklarasi dilakukan setelah deklarasi variable panjang, lebar, tinggi di privat sub ke 2