Visual Basic 2005/Funktsioonid

Kontseptsioon

muuda

Funktsioon algab käsureaga Function funktsiooni_nimi(parameetrid) ja lõppeb käsureaga End Function. Nende kahe käsurea vahel tuleb funktsioonile omistada väärtus. Nt:

   Function
ring_c(ByVal
r as Long

)

       ring_c = 2 * r * Math.PI
   End Function


Kasutusviis

muuda

Funktsioone kutsutakse välja nende nime järgi ja nad võivad kutsuda välja teisi funktsioone, iseennast ja alamprogramme. Näide:

   Sub
Main()
       Console.WriteLine("Sisesta ringjoone raadius."

)

       Console.WriteLine("Ringjoone pikkus on "
& ring_c(val(Console.ReadLine)) & "."

)

       Console.ReadLine()
   End Sub


   Function
ring_c(ByVal
r as Long

)

       ring_c = 2 * r * Math.PI
   End Function


Esimese reaga kuvatakse konsooli lause "Sisesta ringjoone raadius.". Siis oodatakse kuni kasutaja sisestab väärtuse, sest Console.WriteLine vajab mida kuvada, ning enne tuleb leida Console.ReadLine kasutaja sisestus. Aga enne kui kuvatakse vastus, võetakse kasutaja sisestus ja kutsutakse funktsioon mis tagab sisestusest arvväärtuse val(Console.ReadLine) ja saadetakse see arvväärtus funktsiooni ring_c mis tagastab ümberringjoone. Nüüd on Console.WriteLine jaoks tagastatud vajalik ja konsooli kuvatakse vastus. Viimane rida Console.ReadLine() ootab kasutajalt programmi sulgemist.