Visual Basic 2005/Funktsioonid
Kontseptsioon
muudaFunktsioon 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
muudaFunktsioone 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.