[Tut]Visual Basic 2008-Select Case i If

U ovom tutoriajlu pokusat cu vam pojasniti koristenje Select Case i If uslovnih grananja. Iako se u biti posebno nerazlikuju u nekim situacijama je pogodnije koristenje If uslova, a u nekim Select Case uslova. Slijedeci program cemo napraviti pomocu Select Case, a zatim cu dati primjer kako bi taj kod izgledao da smo koristili If uslovno grananje.
Uslovno grananje u biti ispituje neke opcije sve dok nedodje do one koja je ispunjena kao sto cemo vidjet u nastavku.

Za ovaj program je potrebno:

Kontrola ||| Svojstva (Propertise)

Labela ||| Font: Times New Roman, 12pt,
||| Style=Bold; Name: lblNaziv
||| Text="Pozdravljanje na vise
||| jezika"

Labela ||| Name=lblText; Text="Odaberite
||| zemlju"

Labela ||| Name=lblZemlja; Text=""

Labela ||| Name=lblPozdrav; Text="";
||| BorderStyle=Fixed3D

Button ||| Name=btnIzlaz; Text="Izlaz"

ListBox ||| Name=lstZemlja

Kada ste ovo obavili postavite sve elemente kao sto sam ja na slici.



Slijedi najbitniji dio ovog tutoriala a to je kodiranje.
Prvo cemo da dodamo elemente nasem ListBox-u, a to cemo uraditi tako sto cemo dva puta kliknuti na prazno polje na formi te kopirati ovaj kod:

lstZemlja.Items.Add("England" )
lstZemlja.Items.Add("Germany" )
lstZemlja.Items.Add("Mexico" )
lstZemlja.Items.Add("Italy" )
lstZemlja.Items.Add("Bosna i Hercegovina" )

Komanda Items.Add daje naredbu ListBox-u lstZemlja da doda elemenat na svoju list.
Kada smo ovo uradili potrebno je provjeriti na koju opciju je kliknuo korisnik. Ovo radimo pomocu slijedeceg koda:

lblZemlja.Text = lstZemlja.Text 'lblZemlja mijenja text u 'ime drzave
Select Case lstZemlja.SelectedIndex 'Pomocu select 'case provjeravamo vrijednost odabranog indexa
'jer u ListBox-u prvi elemenat ima vrijednost 0, drugi 1 itd
Case 0 'Sada program provjerava koju opciju je
'odabrao korisnik, ukoliko korisnik klikne na England
'index poprima vrijednost 0 i u lblPozdrav text se mijenja u
'Hello, programmer",a ako uslov nije ispunjen prelazi u 'slijedeci red programskog koda i ispituje slijedeci uvjet
lblPozdrav.Text = "Hello, programmer"
Case 1
lblPozdrav.Text = "Hallo, programmierer"
Case 2
lblPozdrav.Text = "Hola, programador"
Case 3
lblPozdrav.Text = "Ciao, programmatore"
Case 4
lblPozdrav.Text = "Pozdrav, programeru"
End Select

Za kraj potrebno je da na dugme btnIzlaz kliknete dva puta i ukucate End.

Sada mozete pokrenuti vas program i provjeriti kako funkcionise.

Nadam se da vam se svidjelo i da je tutorial pomogo . Do slijedeci pu sretno .

Izvinjavam se na greskama .

And btw nisam zadovoljan kako je ispalo al nemogu ponove sve pisat sry.




Koncentracija mi je 0 , ovo mi je 3 edit teme evo i kod sa if uslovnim grananjem:

lblZemlja.Text = lstZemlja.Text
If lstZemlja.SelectedIndex = 0 Then
lblPozdrav.Text = "Hello, programmer"
ElseIf lstZemlja.SelectedIndex = 1 Then
lblPozdrav.Text = "Hallo, programmierer"
ElseIf lstZemlja.SelectedIndex = 2 Then
lblPozdrav.Text = "Hola, programador"
ElseIf lstZemlja.SelectedIndex = 3 Then
lblPozdrav.Text = "Ciao, programmatore"
ElseIf lstZemlja.SelectedIndex = 4 Then
lblPozdrav.Text = "Pozdrav, programeru"
End If

Moram napisati da ovo ne kuzim ... ...I ovdije samar ...to znam ..admini me ne vole ... ....

ima dosta gresaka ali uredu...valjda ce nekako shvatiti btw. keep up the good work

Fin "tut" , svaka cast za trud .. 10ka..

Dobar tut treba momka nagraditi makar aplauzom za tut bravo decko 10

Hvala al nije nikako ispalo kako sam htio elemente nisam dobro objasnio koji trebaju sta treba dodat, to cu slijedeci put fino odradit u wordu pa ss stavit, al eto na greskama se uci btw hvala puno .

dobar tut. ko hoce da nesto nauci ima ovdje dosta stvari o programiranju tutoriali.org