1.
UVOD U VB / IT 2. ORGANIZACIJA PODATAKA, MULTIMEDIJI 7. GRAFIČKE TEHNIKE SA VISUAL BASIC-OM 8. HARDVERSKA PLATFORMA ZA INSTALACIJU VB
|
2. KREIRANJE VLASTITIH FUNKCIJA
|
Razbijanjem programa na manje logičke komponente sam proces programiranja se pojednostavljuje. Ove komponente se nazivaju procedurama. Procedure su korisne za obavljanje zadataka koji se često ponavljaju. Postoje dve vrste procedura u Visual Basic-u :
1. podprogrami (Sub);
2. funkcije (Function).
Podprogram predstavlja blok koda, koji se izvršava kao odgovor na događaj (Event). Razbijanje koda na ovakve podprograme olakšava unos izmena. Sintaksa za podprogram (Sub) je:
[Private|Public] Sub
ime_procedure (argumenti)
naredbe
End Sub
Pri svakom pozivu podprograma, izvršavaju se naredbe između ključnih reči Sub i End Sub. Sub procedure se mogu praviti u okviru standardnih modula, klasa i modula formi. One su , po default-u Public (javne) u svim modulima, što znači da mogu da budu pozvane iz svih delova aplikacije. Ako se definišu kao Private, mogu da se pozivaju samo iz modula u kom se nalaze.
Argumenti procedure su promenljive, a određuju vrednosti koje podprogramu prosleđuje procedura koja ga poziva.
Funkcija je procedura, koja može da uzima argumente, izvodi serije naredbi ili menja vrednost argumenata, kao i podprogram, a od njega se razlikuje jer može i da prosledi vrednosti proceduri iz koje je pozvana. Osnovne tri razlike između podprograma (Sub) i funkcije su :
Funkcija može da se pozove tako što se postavi sa desne strane znaka jednakosti u izrazu (povratna_vrednost = funkcija()) ;
U definiciji funkcije se deklarišu tipovi podataka (a ako se izostave deklaracije, default tip je Variant) ;
Vrednost se vraća u proceduru koja poziva funkciju tako što se ta vrednost dodeli samom nazivu funkcije.
Sintaksa funkcije je:
[Private|Public][Static]Function
ime_procedure (argumenti) [As tip]
naredbe
End Function
Visual Basic sadrži ugrađene funkcije, kao što su Sqr, Cos ili Chr, a mogu se pisati i vlastite funkcije.
KREIRANJE VLASTITIH PODPROGRAMA I FUNKCIJA
Procedure- Sub i Function- mogu se praviti u okviru standardnih modula, klasa i modula formi.
Sub Proracun (a, b, c, d)
m = ((a + b + c) ^ 2) ^ d
MsgBox m
End Sub
Poziv podprograma Proracun iz bilo koje procedure u programu:
Dim x, y, z, q As Integer
x = CInt(Text1.Text)
y = CInt(Text2.Text)
z = CInt(Text3.Text)
q = CInt(Text4.Text)
Podprogram x, y, z, q
Ovaj primer zračunava hipotenuzu pravouglog trougla:
Function Hipotenuza (A As Integer, B As Integer) As String
Hipotenuza = Sqr(A ^ 2 + B ^ 2)
End Function
Poziv funkcije Hipotenuza iz bilo koje procedure u programu:
Dim strX as Integer
Dim strY as Integer
strX=Cint (Text1.Text)
strY=Cint (Text2.Text)
strZ = Hipotenuza (strX, strY)
POČETAK PODPROGRAMI I FUNKCIJE