Calling sub procedure and function procedures

Bagaimana cara memanggil suatu sub procedure dari sub procedure yang lain?

Untuk memanggil suatu Sub procedure dari Sub procedure yang lain, ketik nama dari procedure yang kamu inginkan untuk dipanggil dan ikut sertakan argument-argumen yang dibutuhkan Sub procedure yang akan dipanggil itu.

Panggil namanya, sertakan argumen-argumen yang dibutuhkannya

Kamu bisa menggunakan Sub procedure untuk mengatur prosedur-prosedur yang lain supaya mudah dimengerti dan di-debug

Contoh dibawah ini, sub procedure Main memanggil sub procedure Multibeep, serta menyertakan value 56 sebagai argumennya. Setelah sub procedure Multibeep berjalan sampai selesai, pengendalian dikembalikan ke sub procedure Main, dan yang dilakukan sub procedure Main selanjutnya adalah memanggil Sub procedure Message, sub procedure Message bertugas menampilkan sebuah kotak pesan; ketika user menekan OK, pengendalian dikembalikan ke Main, dan Main selesai.

Sub Main()
    Multibeep 56
    Message
End sub

Sub Multibeep(numbeeps)
    For counter = 1 to numbeeps
        Beep
    Next counter
End sub

Sub Message()
    Msgbox "Time to take a break!"
End sub

Memanggil sub precedure yang memiliki lebih dari satu argumen

Pada dasarnya untuk memanggil sub procedure terdapat dua cara:
1. Menggunakan keyword Call
2. Tidak menggunakan keyword Call

Dengan menggunakan keyword call butuh parentheses atau tanda kurung.
Tidak menggunakan keyword call, tidak membutuhkan parentheses atau tanda kurung.

Sementara, untuk memasukkan lebih dari satu argument tambahkan tanda koma (argumen1 koma argumen2).

Dibawah ini adalah contoh bagaimana sub procedure housecalc dipanggil dari dalam sub procedure main.

Statement housecalc 99800, 43100 menyertakan 2 buah argumen dan tidak menggunakan keyword Call.

Statement  Call housecalc(380950, 49500) menyertakan 2 buah argumen dan menggunakan keyword Call dan mengapit kedua argumen itu didalam tanda kurung.


Sub main()
    housecalc 99800, 43100
    Call housecalc(380950, 49500)
End Sub

Sub housecalc(price As Single, wage As Single)
    If 2.5 * wage <= 0.8 * price Then
        MsgBox "You cannot afford this house"
    Else
        MsgBox "This house is affordable."
    End If
End Sub

Memanggil Prosedur Function

Dari tadi kita hanya membahas cara memanggil sub procedure. Dengan menggunakan keyword Call atau dengan tidak menggunakan keyword Call.

Bagaimana dengan cara memanggil prosedur function?

Untuk memanggil function dan memanfaatkan hasil return nya, assign function itu sebuah variabel, bungkus argumennya dengan tanda kurung.
Contoh statement:
Answer3 = MsgBox("Are you happy with your salary?", 4, "Question 3")

 

Untuk memanggil function dan tidak memanfaatkan hasil return nya, tidak perlu assign function itu ke sebuah variabel dan tidak perlu bungkus argumennya dengan tanda kurung.
Contoh statement:
MsgBox "Task Completed!", 0, "Task Box"

Melepas named argument

Komponen Named argument terdiri dari: {nama argumen, tanda ( =: )dan nilai yang diberi}

Urutan named-named argument bebas siapa yang duluan. Pada Contoh 1 dan 2 dibawah ini named argumen Title yang lebih dulu dari named argumen Prompt.

Contoh 1:
msgbox Title=:"Task Box", Prompt :="Task completed!"

Contoh 2:

answer3 = msgbox(title :="Question3", _

prompt:="Are you happy with your salary?", buttons:=4)

Msgbox arguments