Ako si vyrobiť kliknutím hru s jazykom Visual Basic

Väčšina ovládacích prvkov v jazyku Visual Basic majú priradený funkciu " click " , ako je napríklad button1_Click pre ovládanie tlačidla alebo PictureBox1_Click pre PictureBox . Tým , písanie kódu v týchto kliknutie funkcií , vaša hra môže reagovať na udalosti Kliknutím myšou zo strany hráčov . Príklady kliknutím hry sú úlohy s výberom kvízy , kartové hry a hádanky . Môžete pridať niektoré ďalšie prvky do hry , aby ďalšie výzvy , ako je skóre a časovač . To bude mať svojich hráčov hrať znova a znova . Pokyny dovolená 1

Otvorte Visual Basic a spustiť nový projekt . Double - kliknite na " PictureBox " Riadenie trikrát pridať tri tlačidlá do formulára , tzv " pictureBox1 , " " PictureBox2 " a " PictureBox3 . " Kliknite a presuňte každý , kto je zladiť vodorovne uprostred formulár . Zmeňte každého niečí BackColor vlastnosť " červený . "
2

Dvakrát kliknite dvakrát na ovládací prvok " Label " pridať " Label1 " a " Label2 " do formulára . Pretiahnite každý , takže sú obložené zvisle pod tri obrazových polí . Horný štítok sa zobrazí skóre prehrávača . Spodný štítok sa zobrazí čas zostávajúci do hry .
3

Dvakrát kliknite na ovládací prvok " Timer " pridať " Timer1 " do formulára . Ako riadiaci časovač sám neukáže , keď hra beží , nemusíte ho zariadiť vizuálne . Zmeňte vlastnosť enabled ovládacieho prvku na hodnotu " true " . Zmeňte vlastnosť Interval na " 100 " . To robí to tak časovač decrement čas zostávajúci do hry každý desiaty sekundy .
4

Dvakrát kliknite na prázdnu oblasť na formulári otvorte okno kód pre funkciu " Form1_Load " . Zadajte nasledujúci kód :

Randomizovat ( ) Label1.Text = " Score : " & scoreLabel2.Text = " Zostávajúci čas : " & timegetNewColor ( )

prvý linka , tzv funkciu " Randomize " , zaistí si vytvoriť náhodné číslo zakaždým , keď budete potrebovať . Druhý a tretí riadok zmeňte text pre obe značky . Štvrtý riadok volá funkciu , ktorú vytvoria zmeniť farbu poľa , keď používateľ dostane bod .
5

Vložte kurzor pod deklaráciu triedy . Zadajte nasledujúce deklarovať a inicializovať nasledujúce premenné :

Dim skóre As Integer = 0Dim čas ako desatinné = 10,0

Prvá premenná udržiava skóre pomocou celé číslo , ktoré umožňuje len celé čísla . Druhý riadok vytvorí premennú desatinnou sledovať zostávajúci čas do hry . Desatinné hodnoty umožňujú frakcií . Môžete zmeniť typ dát , aby vyhovoval vašim potrebám , alebo tiež zmeniť inicializácia vytvoriť dlhšie alebo kratšie hru .
6

Vložte kurzor na poslednom riadku po existujúceho kódu . Zadajte nasledujúci príkaz :

Private Sub getNewColor ( ) Dim num Ako Integernum = CInt ( Int ( ( 3 * Rnd ( ) ) + 1 ) ) Ak num = 1 ThenPictureBox1.BackColor = Color.GreenElseIf num = 2 ThenPictureBox2 . BackColor = Color.GreenElseIf num = 3 ThenPictureBox3.BackColor = Color.GreenEnd IfEnd Sub

Táto funkcia volá funkciu Rnd náhodne zmeniť jeden z troch obrazových krabice z červenej na zelenú . V tomto príklade , rovnako box môže teoreticky opakovať ako zelená poľa viac ako raz v rade . To bude mať hráčov hádať .
7

Otvorte funkciu " PictureBox1_Click " . Zadajte nasledujúci kód :

Ak PictureBox1.BackColor = Color.Green Thenscore + = 1Label1.Text = " Score " a scorePictureBox1.BackColor = Color.RedgetNewBox ( ) End If

Prvý riadok skontroluje , či používateľ klikol pictureBox1 , keď je zelený . Ak áno , hra zvýši skóre prehrávače jedným , aktualizuje podľa skóre štítok , obnoví pictureBox1 na červenú , potom zavolá funkciu " getNewBox " zmeniť jeden z troch krabíc z červenej na zelenú .
8

Otvorte funkciu " PictureBox2_Click " . Zadajte nasledujúci kód :

Ak PictureBox2.BackColor = Color.Green Thenscore + = 1Label1.Text = " Score " a scorePictureBox2.BackColor = Color.RedgetNewBox ( ) End If

9

Otvorte funkciu " PictureBox3_Click " . Zadajte nasledujúci kód :

Ak PictureBox3.BackColor = Color.Green Thenscore + = 1Label1.Text = " Score " a scorePictureBox3.BackColor = Color.RedgetNewBox ( ) End If

10

Otvorte funkciu " Timer1_Tick " . Zadajte nasledujúci kód :

Ak nie je čas = 0,0 Thentime - = 0.1Label2.Text = " Zostávajúci čas : " & timeElseTimer1.Enabled = FalsePictureBox1.BackColor = Color.RedPictureBox2.BackColor = Color.RedPictureBox3 . BackColor = Color.RedLabel1.Text = " Vaše konečné skóre : " & scoreEnd Ak

Prvý riadok kontroluje , či uplynula hra je čas . Ak nie , je to zníži hodnotu 0,1 a aktualizuje časové označenie . Ak vypršala doba , hra sa vypne časovač , zmení všetky PictureBox ovládacie prvky červenej a ukazuje konečného skóre hráča .
11.

Kliknite na tlačidlo " Spustiť " alebo stlačte " F5 " začať hrať hru . Časovač začne odpočítavať od 10 okamžite a jeden z troch ovládacích prvkov PictureBox je zelená . Kliknutím na zelené pole na body až vyprší čas .

• Predchádzajúca strana: Ako importovať XML pomocou jazyka VBA 
• Ďalšia strana: Ako importovať Mapa súbory na XNA