Copyright © 2009 Janusz Bonarowski 

1

VB_4.0_Podprogram_Sub 

Wykonać aplikację pozwalająca dodawać dwie liczby wpisywane do TextBox-ów.  
Operację dodawania wykonać oddzielną procedurą typu Sub. 

                

 

Rys.  1. Propozycja formularza 

Kod aplikacji 

 

 

 

 

 

 

 

 

 

 

 

Listing 1 

    

Private

 

Sub

 btnDodaj_Click(

ByVal

 sender 

As

 System.Object, _ 

                   

ByVal

 e 

As

 System.EventArgs) 

Handles

 btnDodaj.Click 

        

Dim

 L1, L2, W 

As

 

Single 

        L1 = 

CSng

(txtL1.Text) 

        L2 = 

CSng

(txtL2.Text) 

 
        

'  wywołanie procedury 

        

Call

 suma(L1, L2, W) 

        

'          1   2  3 kolejność argumentów. 

 
        lblW.Text = W.ToString 
    

End

 

Sub 

---------------------------------------------------------------- 
    

Private

 

Sub

 suma(

ByVal

 Liczba1, 

ByVal

 Liczba2, 

ByRef

 Wynik) 

        

'kolejność argumentów  1              2    ^^^^^    3 

        Wynik = Liczba1 + Liczba2 
    

End

 

Sub 

 

Podczas wywoływania procedury suma przekazywane są do niej dwie wartości 

zmiennych L1 i L2 znajdujących się na miejscu pierwszym i drugim listy argumentów, na 
trzecim miejscu znaduje się wynik działania procudry.  

Podczas pisania własnej procedury - środowisko automatycznie dopisuje przed 

nazwami argumentów słowa kluczowe ByVal określające tryb przekazywania argumentów. 
Taki tryb oznacza przekazanie argumentu przez wartość. Konsekwencją trybu ByVal jest to, 
ż

e żadna zmiana wartości argumentów wewnątrz procedury nie jest przekazywana na 

zewnątrz.  
 
Aby w programie nadrzędnym uzyskać wartość  argumentu obliczonego w procedurze - 
należy określić tryb przekazywania wartości tego argumentu na ByRef (przez referencje). 
Taką zmianę należy wykonać samodzielnie.