Visual Basic tutorijali

Varijable


Tipovi varijabla
Evo vecine tipova varijabla u Visual Basicu 6:

Byte --> od 0 do 255
Integer --> od -32,768 do 32,767
Long --> od -2,147,483,648 do 2,147,483,648
Single -->
-3.402823E+38 to -1.401298E-45 za negativne vrijednosti
1.401298E-45 to 3.402823E+38 za pozitivne vrijednosti
Double -->
-1.79769313486232e+308 to -4.94065645841247E-324 za negativne vrijednosti
4.94065645841247E-324 to 1.79769313486232e+308 for positive values.
Currency --> od -922,337,203,685,477.5808 do 922,337,203,685,477.5807
Decimal --> +/- 7.9228162514264337593543950335
String --> od 0 to 2 milijarde znakova
Date --> January 1, 100 to December 31, 9999
Boolean --> True or False
Variant broj kao Duble ili text kao String, ali ce zauzimati vise memorije


Deklariranje varijabla

U Visual Basic-u varijable se obicno deklariraju s "Dim" naredbom u sljedecem formatu:
Dim imeVarijable as tipVarijable

primjeri:

Dim a as Integer
Dim b, c as Integer
Dim ime as String

Ako varijabla nije deklarirana, vb ce ju automatski postaviti kao Variant.


Dodjeljivanje podataka varijablama

primjer:

Dim a, b, c as Integer
a = 10
b = 20
c = a + b

U ovom primjeru smo deklarirali varijable a, b, i c kao integer, varijabli a smo dodijelili vrijednost 0, a vaarijabli b 20. Na kraju je c postao a + b t. 10 + 20 tj 30.

primjer 2:

Dim a, b, c as String
a = "comp-portal"
b = "com"
c = a + "." + b

Na kraju ce vrijednost varijable c biti comp-portal.com. Da smo a i b stavili u navodnike kao tocku, varijabla c bi bila "a.b".

Zbrajanje


Tezina:za totalne pocetnike


Otvorite novi projekt -> Standard EXE.
Napravite 2 Label kontrole(tekst), 2 TextBox-a i jednu tipku te ih rasporedite kao na slici.



Kao "Caption" forme postavite Zbrajanje.
Sada jednom kliknite na Label1 i u Properties prozoru postavite sljedece parametre
Name: lblPrviBroj
Caption: Prvi broj
Isto napravite i sa Label2, samo umjesto rijeci prvi stavite drugi

Kliknite na Text1 i postvite ovakve parametre:
Name: txtPrviBroj
Text: (ovo treba biti prazno)
Isto to napravite i s Text2, samo umjesto prvi stavite... drugi

Kliknite na Command1 i...
Name: cmdZbroji
Default: True
Caption: Zbroji
Mjenjanjem Default-a iz false u true smo ostvarili da umjesto da stisnemo na tipku zbroji, mozemo samo pritisnuti enter na tastaturi.



Sada dva puta kliknite na tipku Zbroji i dodajte sljedeci kod-



MsgBox Val(txtPrviBroj) + Val(txtDrugiBroj)


Evo kako bi to trebalo izgledati:



Kod koji smo dodali je vrlo jednostavan -
"MsgBox" -> skraceno od message box, valjda znate toliko engleski
val(txt...) -> val sluzi za "prevod" texta u broj, ako bi kod bio samo MsgBox txtPrviBroj + txtDrugiBroj, rezultat od 10 + 30 bi bio 1030... razumljivo kompjuter bi prvom textu dodao (+) drugi text.

Vidjeli ste da je kod vrlo jednostavan i da smo se u ovom tutorialu vise posvetili nekim drugim stvarima nego programiranju. U sljedecim tutorialioma ce biti vise o programiranju.

Provjera vrijednosti (Select Case)

U prošlom tutorijalu smo pričali o provjerama, točnije o if...then blokovima.
U ovom tutorijalu ćemo pričati također o provjerama, ali sa Select Case
naredbom.

Provjera pomoću Select Case naredbe se vrši na slijedeći način:


Dim Vrijednost As Boolean

Select Case Vrijednost
Case False
MsgBox("False")
Case True
MsgBox("True")
End Select



Kao što vidimo, u prvoj liniji naredbe definiramo vrijednost koju želimo provjeriti.
Select Case Vrijednost


Blok ove provjere se završava sa naredbom End Select.

Usporedbu vrijednosti vršimo preko naredbe Case [Vrijednost_Za_Usporedbu].
A ispod usporedbe pišemo kod koji će se izvršiti ako usporedba bude točna.


Slijedi još jedan primjer korištenja Select Case naredbe.


Dim Vrijednost As Integer

Select Case Vrijednost
Case 1
MsgBox("Los")
Case 2
MsgBox("Dovoljan")
Case 3
MsgBox("Dobar")
Case 4
MsgBox("Vrlodobar")
Case 5
MsgBox("Odlican")
Case Else
MsgBox("Neocjenjen")
End Select



U ovom primjeru ste vjerovatno primjetili liniju koda Case Else. Kod koji
se nalazi ispod ove linije koda biti ce izvršen samo ako nijedna prijašnja usporedba
nije bila točna.

Imenovanje varijabli

Kod deklariranja varijabli potrebno je smisliti dobra imena kako biste
poslije znali o kojem tipu varijable se radi. Lose imenovane varijable
se kasnije lahko "izgube" u kodu aplikacije. Imenovanje varijabli zna
biti poprilično mukotrpan posao kada ih je puno i za rješavanja nekih
problema vezanih uz deklariranje varijabli postoji kolekcija prefiksa
koji se mogu koristiti za različite tipove podataka.



Prefikse možete i vi sami definirati.

Uz prefikse koje možete ubaciti na početak imena varijable možete
koristiti i unaprijed određenu kolekciju znakova koji definiraju
određeni tip podatka.

Operatori

Operatori su znakovi ili rezervirane riječi pomoću kojih govorimo koja
će se operacija izvršiti na nekoj vrijednosti. Ako operator barata samo
s jednom vrijednošću onda se on naziva unarni operator. Ako operator
barata s dvije vrijednosti onda se takav operator naziva binarni
operator.


Osnovni aritmetički operatori

Visual Basic .NET ima sedam aritmetičkih operatora, a to su:



Primjer korištenja aritmetičkih operatora:



Dim a As Integer

a = 2 + 7




Vrijednosti kojima baratamo mogu biti ili čista vrijednost poput broja
5, ili druge varijable, povratne vrijednosti funkcija ili svojstava
objekata.



Dim a As Integer = 5
Dim b As Integer = 10
Dim c As Integer

c = 25 + a + b





Novi Visual Basic .NET operatori

Visual Basic .NET uz operatore koje ste do sada vidjeli, posjeduje još
nekoliko novih operatora, kojih nije bilo u prijašnjim verzijama Visual
Basica. Ti operatori izgledaju ovako:



Ovi operatori funkcioniraju na isti način kao i osnovna verzija
operatora, samo što omogućuju pisanje kraćeg koda. Osnovni operator za
spajanje String varijabli funkcionira ovako:



Dim strTekst as String = "Moj "
strTekst = strTekst & "tekst" 'rezultat će biti "Moj tekst"




Isti ovaj kod se može kraće napisati pomoću novih Visual Basic .NET operatora:



Dim strTekst as String = "Moj "
strTekst &= "tekst" 'rezultat će biti "Moj tekst"




Svi ostali operatori iz ove grupe funkcioniraju na isti način, umjesto


Ime_varijable = Ime_varijable + vrijednost



možemo napisati


Ime_Varijable += vrijednost

Option naredbe

Deklariranje, iako je poželjno ne mora se vršiti. Visual Basic može
automatski deklarirati nove varijable čim vi iskoristite neko ime
unutar izvornog koda:


MojBroj = 21



Kako bismo iskoristili ovu opciju moramo isklučiti opciju pod nazivom
Option Explicit. Option naredbe se uključuju/isključuju pisanjem koda
na samom vrhu kod, tj. prije bilo kakvog koda.


Option Explicit

Option Explicit naredba nam služi za definiranje rada sa varijablama u
Visual Basicu. Pomoću ove naredbe možemo zahtjevati deklaraciju svake
varijable prije njenog korištenja (eksplicitna deklaracija) ili možemo
omogućiti automatsko deklariranje varijabli (implicitna deklaracija).
Preporučeni način deklariranja je eksplicitna deklaracija.

Opcija Explicit se uključuje dodavanjem slijedećeg koda na sami vrh koda:


Option Explicit On



Da bi se naredba Option Explicit isključila moramo dodati slijedeći kod na sami vrh koda:


Option Explicit Off



Option Strict

Tijekom pridjeljivanja vrijednosti nekoj varijabli mogu se dogoditi dvije stvari, vrijednost se može proširiti ili suziti.

Slijedi primjer sužavanja vrijednosti:



Dim dblVrijednost As Double = 3.14
Dim NormalanBroj As Integer

NormalanBroj = dblVrijednost




Kada se varijabli NormalanBroj dodijeli vrijednost zapisana u varijabli
dblVrijednost onda će se dogoditi sužavanje vrijednosti zapisane u
varijabli dblVrijednost. Sužavanje se dogodi jer varijabla Integer tipa
nije u stanju "zapamtiti" decimale već samo broj ispred decimalne
tačke, u ovom slučaju, u varijablu NormalanBroj bit će zapisan samo
broj 3.

Sužavanje/proširivanje vrijednosti se može dogoditi samo kada je
naredba Option Strict ugašena. Da bi upalili naredbu Option Strict
dodajte slijedeći kod na sami vrh vašeg koda:


Option Strict On



Da bi ugasili naredbu Option Strict dodajte slijedeći kod na sami vrh vašeg koda:


Option Strict Off

Koristenje procedura i funkcija

Procedure kao i funkcije su samostalni dijelovi programa, skupovi
naredbi koje poznajemo pod jednim imenom i koji služe nekoj svrsi.
Procedura se u Visual Basicu naziva Sub, a funkcija Function.

Razlika između funkcije i procedure je u mogućnosti vraćanja
vrijednosti. Funkcije mogu imati povratnu vrijednost, a procedure ne
mogu

Procedure, funkcije kao i varijable mogu biti privatne i javne. Procedure deklariramo na slijedeći način.


'Privatna procedura
Private Sub Ime_Procedure
'skup naredbi/kod procedure
End Sub

'Javna procedura
Public Sub Ime_Procedure
'skup naredbi/kod procedure
End Sub




Funkcije deklariramo na slijedeći način.


'Privatna funkcija
Private Function Ime_Funkcije As Vrsta_Podatka_Povratne_Vrijednosti
'skup naredbi/kod funkcije
End Function

'Javna funkcija
Public Function Ime_Funkcije As Vrsta_Podatka_Povratne_Vrijednost
'skup naredbi/kod funkcije
End Function




Za proslijeđivanje podataka funkcijama i procedurama koristimo listu
argumenata. Listu argumenata odredujemo pri deklaraciji procedura i
funkcija.


Private Sub Ime_Procedure(byval PrviPodatak As Vrsta_Podatka,byval DrugiPodatak As Vrsta_Podatka)

End Sub



Svaki novi argument označavamo sa ByVal i razdvajamo sa zarezom. Ako
želimo naznačiti da neki argument nije neophodno unijeti onda koristimo
Optional rezerviranu riječ.


Private Sub Ime_Procedure(ByVal PrviPodatak As Vrsta_Podatka, Optional
DrugiPodataka As Vrsta_Podatka = Pretpostavljena_Vrijednost)

End Sub



Ako koristimo Optional argumente onda moramo definisati njihovu
pretpostavljenu vrijednost. Ako se ne proslijedi nikakva vrijednost u
ovaj argument, onda će Visual Basic kao vrijednost tog argumenta
postaviti pretpostavljenu vrijednost.


Korištenje funkcija i procedura
Navest ćemo dva jednostavna primjera korištenja procedura i funkcija.

1. Procedura


Private Sub Prikazi_Poruku(ByVal txtPoruka as String)
MsgBox(txtPoruka)
End Sub



Kada pozovemo ovu proceduru moramo proslijediti txtPoruka argument. Pozivanje se vrši, naravno, preko naziva procedure.


Prikazi_Poruku(„Pozdrav svima!“)




2. Funkcija


Private Function Saberi(ByVal PrviBroj As Integer, ByVal DrugiBroj As Integer) As Integer
Dim rez As Integer

rez = PrviBroj + DrugiBroj

Return rez
End Function



Kao što i možemo vidjeti iz ovog primjera Return vraća vrijednost. Pozivanje funkcije se vrši, naravno, preko njenog naziva.


Dim Rezultat As Integer

Rezultat = Saberi(3,5)
'Rezultat će biti 8

'Prikazi rezultat
MsgBox(Rezultat)

Operatori usporedbe

Operatori usporedbe se koriste kada se u izrazu provjeravaju dvije
vrijednosti, tj. kada se provjerava istinitost usporedbe vrijednosti s
desne i lijeve strane operatora. Svaka usporedba vraća vrijednost tipa
Boolean, znači vraća vrijednost True ili False. Znači, ako je usporedba
neistinita onda će usporedba vratiti vrijednost False, a ako je
istinita vratit će True. Logički operatori u Visual Basicu .NET su: =,
<>, <, >, <=, >=.


=

Znak jednakosti se koristi za provjeravanje jednakosti izraza sa desne
i lijeve strane izraza. Ako je u varijabli A zapisana vrijednost 7 onda
će A=7 vratiti True, jer je 7=7. Ako promijenimo vrijednost u varijabli
A i opet usporedimo sa brojem 7, kao rezultat usporedbe dobit ćemo
False (neistinito).

<>

Ovaj operator provjerava da li su vrijednosti s desne i lijeve strane
različite. On će u svakom slučaju vratiti True, osim kada su
vrijednosti na desnoj i lijevoj strani identične.

<

Ovaj operator provjerava da li je vrijednost s desne strane izraza veća
od vrijednosti s lijeve strane, odnosno provjerava da li je vrijednost
s lijeve strane izraza manja od vrijednosti sa desne strane. Ako je u
varijabli A zapisana vrijednost 5, onda će usporedba A<2 vratiti
False jer je A>2.

>

Ovaj operator provjerava da li je vrijednost s desne strane izraza
manja od vrijednosti s lijeve strane, odnosno provjerava da li je
vrijednost s lijeve strane izraza veća od vrijednosti s desne strane.
Ako je u varijabli A zapisana vrijednost 5, onda će usporedba A>7
vratiti False jer je A<7.

<=

Ovaj operator provjerava da li je vrijednost s desne strane izraza veća
ili jednaka vrijednosti na lijevoj strani, odnosno provjerava da li je
vrijednost na lijevoj strani manja ili jednaka vrijednosti na desnoj
strani. Ako je u varijabli A zapisana vrijednost 5, onda će usporedba
A<=5 vratiti True, jer je A=5.

>=

Ovaj operator provjerava da li je vrijednost s desne strane izraza
manja ili jednaka vrijednosti na lijevoj strani, odnosno provjerava da
li je vrijednost na lijevoj strani veća ili jednaka vrijednosti na
desnoj strani. Ako je u varijabli A zapisana vrijednost 5, onda će
usporedba A>=5 vratiti True, jer je A=5.

Kada se koriste sami operatori usporedbe ne znače mnogo, beskorisni su.
Ali kada ih koristimo u kombinaciji sa rezerviranom riječi If oni
pokazuju svoju pravu funkcionalnosti. Da bi saznali više o provjerama
pogledajte slijedeći tutorijal.

Jednostavna provjera vrijednosti (If...Then)

U prethodnom tutorijalu smo pisali o operatorima usporedbe u ovom
tutorijalu ćemo vidjeti kako da praktično koristimo operatore
usporedbe.

Provjera se vrši na dva načina.

1. Ako se radi i vrlo jednostavnoj provjeri onda cijelu provjeru možemo napisati u jednoj liniji koda:

If Provjera_Vrijednosti Then Jedna_Visual_Basic_Naredba


U Visual Basic kodu, provjera u jednoj liniji koda bi izgledala ovako:


Dim I as Integer = 300
If I = 255 Then MsgBox("Broj u varijabli I je 255")



U gornjem primjeru smo koristili znak jednakosti da provjerimo da li je
u varijabli I zapisana vrijednost 255. Ako je u varijabli I zapisana
vrijednost 255 onda će se na ekranu pojaviti poruka "Broj u varijabli I
je 255". U gore navedenom primjeru to se neće dogoditi jer I=300.
Promijenite vrijednost u varijabli I tako da ona iznosi 255 i onda
pokrenite provjeru.

2. Ako je nakon provjere potrebno izvršiti više naredbi onda se koristi If...End If blok. Jedan takav blok izgleda ovako:


If Provjera_Vrijednosti Then
Ovdje je potrebno unijeti naredbe koje
će se izvršiti u slučaju da provjera
bude istinita
End If




Recimo da trebamo provjeriti da li je u varijabli I zapisan broj 20.
Ako provjera bude istinita onda treba prikazati poruku da je provjera
istinita i onda izaći iz aplikacije.


Dim I as Integer = 10

If I = 20 Then
MsgBox("U varijabli I je zapisan broj 20")
Me.Close
End If




Provjere također možete ugnjezditi (možete napisati provjeru u provjeri).


Dim Ime As String = „Isac Newton“

If Ime <> "" Then

If Ime = "Isac Newton" Then

MsgBox("Ime: Isac Newton")

End If

End If

For petlja

For petlja omogućuje da se dio algoritma, dio koda ponovi točno određeni
broj puta. Njegov opći oblik je:


For [Vrijednost] = [Vrijednost_OD] to [Vrijednost_DO]
'//Komande koje je potrebno izvrsiti
Next



Primjer korištenja For petlje:


Dim i As Integer

'//Prikazi na ekranu 10 poruka
For i = 0 To 9
MsgBox(i)
Next



Ako pokrenete gore napisani kod, na ekranu ce se početi prikazivati poruke
sa brojevima 0, 1, 2, 3, 4...

For petlje mozete ugnjezditi, tj. možete napisati petlju unutar petlje.

While petlja

Za razliku od for petlje, kod koje se kod ponovi točno određeni broj puta,
while petlja omogucava da se kod ponavlja sve dok je ispunjen zadati uvjet.
Kada zadati uvjet prestane važiti, prestaje i izvršenje while petlje.

Opći oblik while petlje izgleda ovako:


While Izraz
'//kod koji ce se ponoviti x puta
End While



Kao što vidimo blok while petlje se završava sa End While naredbom.


Primjer korištenja While petlje:


Dim i As Integer
i = 10

While i > 0
i = i - 1
End While

MsgBox("Zavrseno")



Linija koda:
i = i - 1

ce se izvršiti 10 puta, jer svaki put kada se ona izvrši vrijednost varijable i
se smanji za 1.
Nakon što se gore navedeni dio koda izvršio 10 puta, pojavit će se poruka sa tekstom
"Zavrseno", jer se while petlja završila i kod se nastavio izvršavati.

Provjera vrijednosti (Select Case)

U prošlom tutorijalu smo pričali o provjerama, točnije o if...then blokovima.
U ovom tutorijalu ćemo pričati također o provjerama, ali sa Select Case
naredbom.

Provjera pomoću Select Case naredbe se vrši na slijedeći način:


Dim Vrijednost As Boolean

Select Case Vrijednost
Case False
MsgBox("False")
Case True
MsgBox("True")
End Select



Kao što vidimo, u prvoj liniji naredbe definiramo vrijednost koju želimo provjeriti.
Select Case Vrijednost


Blok ove provjere se završava sa naredbom End Select.

Usporedbu vrijednosti vršimo preko naredbe Case [Vrijednost_Za_Usporedbu].
A ispod usporedbe pišemo kod koji će se izvršiti ako usporedba bude točna.


Slijedi još jedan primjer korištenja Select Case naredbe.


Dim Vrijednost As Integer

Select Case Vrijednost
Case 1
MsgBox("Los")
Case 2
MsgBox("Dovoljan")
Case 3
MsgBox("Dobar")
Case 4
MsgBox("Vrlodobar")
Case 5
MsgBox("Odlican")
Case Else
MsgBox("Neocjenjen")
End Select



U ovom primjeru ste vjerovatno primjetili liniju koda Case Else. Kod koji
se nalazi ispod ove linije koda biti ce izvršen samo ako nijedna prijašnja usporedba
nije bila točna.

kako u VB napisati proceduru koja za odredeni uvjet varijabli dodaje odredenu vrijednost pa tako u excel imamo naredbu
=LOOKUP (A1,(0,5,3,1),("A","B","C","D"))
ona radi sljedece. Procita polje A1 i ako je u njemu vrijednost 0 daje novu vrijednost A itd za 5 daje B...
mene zanima kako sada u VB napisati takvu proceduru ili mozda ima nekakva naredba, ili bilo sto?