Pre nego što počnemo obradićemo neke osnovne tipove podataka koje ćemo koristiti u ovom kursu.

• Integer, Long (celi brojevi)
• Single, Double (realni brojevi)
• String (slova, brojevi i specijalni karakteri)
• Boolean (ima dva stanja - TRUE i FALSE)

VB.Net ima mogućnost kreiranja virtuelnih objekata koji imaju za clij privremeno smeštanje podataka u memoriji. Virtuelni objekti se kreiraju kodom:

Dim ceoBroj as Integer

Dim drugiBroj as Double

Dim nekaRec as String

Dim onOff as Boolean

Matematičke operacije koje koristimo u VB.Net-u su:

• Promena tipa podataka (Cast)
• Izračunavanje izraza u zagradama (izraz)
• Stepenovanje (^)
• Množenje i deljenje (*, /)
• Celobrojno deljenje (\)
• Ostatak pri deljenju (mod)
• Sabiranje i oduzimanje

Prioritet u izvršavanju operacija postavljen kao što je i predstavljen iznad.

Zadatak: Kreirati dugme i labelu, dugmetu dodeliti naziv btnPrimer1, labeli naziv lblResenje, a u kodu dugmeta kreirati dva virtuelna objekta tipa Integer sa nazivima Broj1 i Broj2, dodeliti im vrednosti, sabrati ih i ispisati u lblResenje.

Rešenje:

Private Sub btnPrimer1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimer1.Click
Dim Broj1 As Integer
Dim Broj2 As Integer
Broj1 = 17
Broj2 = 25
lblResenje.Text = Broj1 + Broj2
End Sub

Zadatak: Kreirati dugme (svojstvo Name - btnIzracunaj, svojstvo Text - Izracunaj zbir), labelu (svojstvo Name - lblResenje, svojstvo Text - Resenje) i dva TextBoxa (Prvi TextBox / svojstvo Name - txtBroj1, Drugi TextBox / svojstvo Name - txtBroj2) i napisati kod kojim ćemo klikom na dugme izračunati zbir dva broja unešena u txtBroj1 i txtBroj2 a rešenje ispisati u lblResenje.

Rešenje:

Private Sub btnIzracunaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIzracunaj.Click
lblResenje.Text = Val(txtBroj1.Text) + Val(txtBroj2.Text)
End Sub

Objašnjenje: u kodu je korisćena kodna reč Val koja daje brojnu vrednost unešenog broja uTextBox jer je svojstvo Text tipa String a da smo u kodu ostavili liniju koja bi glasila:

lblResenje.Text = txtBroj1.Text + txtBroj2.Text

rešenje ukucana dva broja npr. 12 i 12 bilo bi 1212. U primeru sa virtuelnim objektima dobili smo željeno rešenje bez ubacivanja reči Val jer su nam objekti bili tipa Integer.

Zadatak: Kreirati formu sa objektima kao na slici. Ubaciti dugme (svojstvo Name - btnIzracunaj, svojstvo Text - Izracunaj), dva TextBox-a (Prvi TextBox / svojstvo Name - txtBroj1, Drugi TextBox / svojstvo Name - txtBroj2), labele redom (Prva labela / svojstvo Name - lblResenja, svojstvo Text - Rešenja), (Druga labela / svojstvo Name - lblRezSabiranja, svojstvo Text - Rezultat sabiranja), (Treća labela / svojstvo Name - lblRezOduzimanja, svojstvo Text - Rezultat oduzimanja), (Četvrta labela / svojstvo Name - lblRezMnozenja, svojstvo Text - Rezultat množenja), (Peta labela / svojstvo Name - lblRezDeljenja, svojstvo Text - Rezultat Deljenja) i napisati kod kojim ćemo klikom na dugme sabrati, oduzeti, pomnožiti, izdeliti dva broja unešena u txtBroj1 i txtBroj2 a rešenja ispisati u labele tako što će za svaku operaciju ispred rešenja biti ubačen odgovarajući tekst "Rezultat sabiranja je:",  "Rezultat oduzimanja je:", "Rezultat množenja je:", "Rezultat deljenja je:".

Rešenje:

Private Sub btnIzracunaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIzracunaj.Click
lblRezSabiranja.Text = "Rezultat sabiranja je: " & Val(txtBroj1.Text) + Val(txtBroj2.Text)
lblRezOduzimanja.Text = "Rezultat oduzimanja je: " & Val(txtBroj1.Text) - Val(txtBroj2.Text)
lblRezMnozenja.Text = "Rezultat mnozenja je: " & Val(txtBroj1.Text) * Val(txtBroj2.Text)
lblRezDeljenja.Text = "Rezultat deljenja je: " & Val(txtBroj1.Text) / Val(txtBroj2.Text)
End Sub

Nakon klika na dugme rešenje treba da izgleda ovako:

Zadatak: Kreirati formu i na nju ubaciti labelu (svojstvo Name - lblNaslov, svojstvo Text - Naslov), i TextBox (svojstvo Name - txtUnosTeksta) i napisati kod kojim će se automatski pri unosu teksta u TextBox taj isti tekst ispisivati u labeli.

Rešenje:

Ovaj zadatak uradićemo tako što ćemo u događajima za objekat txtUnosTeksta izabrati događaj TextChanged i uneti sledeći kod za njega:

Private Sub txtUnosTeksta_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUnosTeksta.TextChanged
lblNaslov.Text = txtUnosTeksta.Text
End Sub

Ovim kodom unošenjem teksta u TextBox identičan text automatski će se ispisivati u labelu.

Zadatak: Kreirati formu i na nju ubaciti 2 labele (Prva labela / svojstvo Name - lblNaslov, svojstvo Text - Naslov), (Druga labela / svojstvo Name - lblPredji, svojstvo Text - Predji Misem) i dugme (svojstvo Name - btnReset, svojstvo Text - Reset) i napisati kod kojim će se prevlačenjem miša preko labele lblPrevuci u labeli lblNaslov ispisati "Događaj MOUSE MOVE...Stisni dugme Reset." a klikom na dugme će se u labeli lblNaslov ispisati "Naslov".

Rešenje:

Ovaj zadatak uradićemo tako što ćemo u događajima za objekat lblPredji izabrati događaj MouseMove i uneti sledeći kod za njega:

Private Sub lblPredji_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblPredji.MouseMove
lblNaslov.Text = "Događaj MOUSE MOVE...Stisni dugme Reset."
End Sub

a za dugme uneti sledeći kod:

Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
lblNaslov.Text = "Naslov"
End Sub

Radi lakšeg razumevanja i vežbe ostale događaje isprobajte sami.

Zadatak: Na formu dodati 2 objekta Timer (Prvi Timer / svojstvo Name - timTajmer, svojstvo Interval - 1000), (Drugi Timer / svojstvo Name - timVreme, svojstvo Interval - 1000, svojstvo Enabled - True),2 dugmeta (Prvo dugme / svojstvo Name - btnStart, svojstvo Text - Start), (Drugo dugme / svojstvo Name - btnStop, svojstvo Text - Stop) i 2 labele (Prva labela / svojstvo Name - lblNaslov, svojstvo Text - 0), (Druga labela / svojstvo Name - lblVreme, svojstvo Text - Vreme) i napisati kod kojim će se pritiskom na dugme Start pokrenuti brojač koji će svake sekunde broj u labeli povećavati za 1 a pritiskom na dugme Stop zaustaviti brojač a u labeli će se prikazivati vreme.

Rešenje:

za prvi deo zadatka:

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
timTajmer.Enabled = True
End Sub

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
timTajmer.Enabled = False
End Sub

Private Sub timTajmer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timTajmer.Tick
lblNaslov.Text = Val(lblNaslov.Text) + 1
End Sub

za drugi deo zadatka (vreme):

Private Sub timVreme_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timVreme.Tick
lblVreme.Text = TimeOfDay
End Sub

Objašnjenje: Svojstvo Enabled (True - uključen Timer, False - isključen Timer). Svojstvo Interval (vrednost 1000 označava 1 sekundu)

Napomena: skraćenice lbl, btn, txt, tim...po nekim pravilima koriste se radi lakšeg snalaženja u kodu aplikacije i prepoznavanju objekata.