Evo bi mi dosadno pa da napisem jedan mali tutorial, kako napraviti igru sretna sedmica u Visual Basic-u 2008 ovo su neke osnove programiranja i znam da ce naprednijim programerima biti smijesne, ali od necega se mora pocetni.
Za ovaj program prvo napravite 4 Labele, 2 Button-a i 1 Picture Box koje spadaju u Common Controls te se nalaze sa lijeve strane vaseg prozora. Prvom Button-u promijenite svojstvo text u propertis prozoru u Vrti, a drugom u kraj. Labelama 1,2 i 3 stavite svojstvo Border Style na Fixed Single (ova opcija se nalazi u propertise prozoru u donjem desnom uglu), zatim promjenite im svojstvo text u 0, te odaberite font Times New Roman velicine 24. Labeli 4 promijenite svojstvo Text u Sretna sedmica i Fonta Arial, Bold, 18. Kada ste ovo uradili odaberite PictureBox, zatim u propertise prozoru pronadjite opciju Image te odaberete sliku koju zelite da se prikazuje ukoliko se prikaze broj 7 u nekoj labeli.
Kada ste sve to uradili postavite sve elemente kao na slici 1.
SLIKA 1
Kada ste sve elemente postavili kao na slici postavite slijedeci kod u Button1_click tako sto ce te napraviti dvostruku klik na Button1 te kopirati kod.
PictureBox1.Visible = False 'Sakrij sliku
Label1.Text = CStr(Int(Rnd() * 10)) 'Odaberi broj
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
'Ako neka labela sadrzi broj 7 onda prikazi sliku i
'pusti zvuk
If (Label1.Text = "7" ) Or (Label2.Text = "7" ) _
Or (Label3.Text = "7" ) Then
PictureBox1.Visible = True
Beep()
End If
Kada ste to uradili vratite se nazad na formu i napravite dvostruki klik na Button1 te ukucajte End (ovo sluzi da bi se prekinuo program).
Cestitam upravo ste zavrsili program. Ali kada god pokrenete ovaj program on ce konstatno da "vrti" iste brojeve, da bi ste ovo sprijecili potrebno je napraviti dvostruki klik na prazan dio forme te ukucati randomize, tako ce prilikom svakog pokretanja VB da generise nove brojeve pomocu sistemskog sata.
Za kraj bi samo da pojasnim funkciju Rnd. Ova funkcija generise neki slucajan broj izmedju 0 i 1 zato smo mi u ovom slucaju pomnozili taj broj sa 10, to jest ako smo dobili 0,234 i zatim pomnozili sa 10 dobijemo 2,34 da bi dobili cjeli broj uzimamo njegovu zaokruzenu vrijednost pomocu funkicije Int i tako dobijamo slucajan broj u Visual Basicu.
Znam da nije tutorial nesto posebno nadam se da ce nekom pomoc ukoliko ne zao mi je. Kritike su dobrodosle, ukoliko postoje stamparske greske izvinjavam se tutorial je napravljen nabrzinu
.
Za ovaj program prvo napravite 4 Labele, 2 Button-a i 1 Picture Box koje spadaju u Common Controls te se nalaze sa lijeve strane vaseg prozora. Prvom Button-u promijenite svojstvo text u propertis prozoru u Vrti, a drugom u kraj. Labelama 1,2 i 3 stavite svojstvo Border Style na Fixed Single (ova opcija se nalazi u propertise prozoru u donjem desnom uglu), zatim promjenite im svojstvo text u 0, te odaberite font Times New Roman velicine 24. Labeli 4 promijenite svojstvo Text u Sretna sedmica i Fonta Arial, Bold, 18. Kada ste ovo uradili odaberite PictureBox, zatim u propertise prozoru pronadjite opciju Image te odaberete sliku koju zelite da se prikazuje ukoliko se prikaze broj 7 u nekoj labeli.
Kada ste sve to uradili postavite sve elemente kao na slici 1.
SLIKA 1
Kada ste sve elemente postavili kao na slici postavite slijedeci kod u Button1_click tako sto ce te napraviti dvostruku klik na Button1 te kopirati kod.
PictureBox1.Visible = False 'Sakrij sliku
Label1.Text = CStr(Int(Rnd() * 10)) 'Odaberi broj
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
'Ako neka labela sadrzi broj 7 onda prikazi sliku i
'pusti zvuk
If (Label1.Text = "7" ) Or (Label2.Text = "7" ) _
Or (Label3.Text = "7" ) Then
PictureBox1.Visible = True
Beep()
End If
Kada ste to uradili vratite se nazad na formu i napravite dvostruki klik na Button1 te ukucajte End (ovo sluzi da bi se prekinuo program).
Cestitam upravo ste zavrsili program. Ali kada god pokrenete ovaj program on ce konstatno da "vrti" iste brojeve, da bi ste ovo sprijecili potrebno je napraviti dvostruki klik na prazan dio forme te ukucati randomize, tako ce prilikom svakog pokretanja VB da generise nove brojeve pomocu sistemskog sata.
Za kraj bi samo da pojasnim funkciju Rnd. Ova funkcija generise neki slucajan broj izmedju 0 i 1 zato smo mi u ovom slucaju pomnozili taj broj sa 10, to jest ako smo dobili 0,234 i zatim pomnozili sa 10 dobijemo 2,34 da bi dobili cjeli broj uzimamo njegovu zaokruzenu vrijednost pomocu funkicije Int i tako dobijamo slucajan broj u Visual Basicu.
Znam da nije tutorial nesto posebno nadam se da ce nekom pomoc ukoliko ne zao mi je. Kritike su dobrodosle, ukoliko postoje stamparske greske izvinjavam se tutorial je napravljen nabrzinu
.
.
datuma 24.08.09 u 17:22