X

Zmaga.com | Zmagajmo z znanjem  
Programski jeziki Visual Basic  
  Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Igra z gumbom

 
  Delite vsebino na Twitterju   Delite vsebino na Facebooku
  V nekaj korakih vam bom pokazal, kako se v okolju Visual Basic naredi preprosta igra z gumbom.
 
 
1
 
 
  Odprite Visual Basic 2008.
 
 
2
 
 
  Ustvarite nov projekt in ga poljubno poimenujte.

Jaz sem ga poimenoval Igra z gumbom.
 
 
3
 
 
  Nastavite velikost okna na 400; 364.
 
 
4
 
 
  Dodajte gumb in ga poljubno poimenujte.

Dodajte StatusStrip, kliknite na simbol in kliknite StatusLabel.

V StatusStrip se bodo vpisovale točke.
 
 
 
5
 
 
  Spremenite napis od SatusStrip na 0.
 
 
6
 
 
  Dvokliknite še na Timer, da se bo dodal.

Timer-ja ni na oknu ampak je pod oknom
 
 
7
 
 
  Nastavitve Timer-ja naj bodo takšne kot na sliki.
 
 
8
 
 
  Dvokliknite na gumb in napišite:

If Timer1.Interval = 50 Then MsgBox("Zmagal si!") : End
MsgBox("Zdaj bo šlo hitreje!")
Timer1.Interval -= 50 : ToolStripStatusLabel1.Text += 50

 
 
9
 
 
  Dvokliknite še na Timer in napišite:

Dim rnd As New Random
Button1.Location = New Point(rnd.Next(1, 270),
rnd.Next(1, 270))

 
 
10
 
 
  Kliknite na Start Debugging.
 
 
11
 
 
  In že imate preprosto igro z gumbom!

Za vsa vprašanja pa seveda poznamo forum.
 
 
Komentiraj
 
 
 
 
 
13.3.2010, 8:14
Pri deveti sličici se je del skripte premaknil v tretjo vrstico. A naj vas to nič ne moti.

Če pa niste ravno expert za takšne igrice pa kliknite enkrat gumb potem pa samo klikajte enter.
 
 
 
 
14.3.2010, 11:59
A ste za da naredim tutorial še za eno igro?
 
 
 
 
14.3.2010, 12:24
No ja ... tole lekcijo bi lahko malo razširil, ali kaj. Še kaj dodal pa tako. 4/5.

Lahko še narediš veš da.
 
Prijava in registracija
 
 
 
 
 
 
  Zmaga.com | Zmagajmo z znanjem
 
  Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, nudi enkraten način spoznavanja z različnimi svetovnimi jeziki, vas s podrobno obrazloženimi recepti nauči kulinarike in vam prežene strahove pred domačimi opravili.