Visual Basic Game Tutorial

Visual Basic nie je široko známy ako vývojovú platformu pre hry . Ale jednoduchosť jej základného jazyka , základné , je vhodný pre mnoho typov hier , vrátane tradičnej tipovacej hry . Čo sa môžete dozvedieť z kódovania takú hru , pomôže vám k naprogramovanie zložitejších hier . Násobenie Game

Poznať podstatu a prietok surového hry je nevyhnutné predtým , ako čokoľvek kódovanie . Ak vám chýba tie , zvážte jednoduchý matematický hru . Program kladie otázku , ako " Čo je 15 krát štyri ? " Hráč tvrdí , jej odpoveď , ktorý kontroluje matematickej správnosti programu .
Input /Output formulár

Navrhnite formulár pre vstup užívateľa , s použitím špecifikácia hru práve dal . Formulár bude musieť výstup textových správ z týchto typov : " Koľko je tri krát päť " Matematická otázka , ako napr Reakcie zobrazuje odpoveď prehrávača ako " správny " alebo " nesprávne " ; najlepšie , priebežný prehľad skóre hráčov , tj " Výhry : 3 ; Straty : 1 , Podiel na víťazstvo : .. 75,00 percent "

samostatné ovládacie prvky štítok môže byť použitý pre tieto správy . Program potrebuje vstupné kontroly , taky . Pomocou textové pole , v ktorom hráč vstúpi jej odpoveď a tlačidlo odoslať odpoveď .
Kód k zahájeniu hry

kód začať hra môže byť volaný z podprogramu zaťaženie vo formulári , ktorý je spustený pri importe formulára priniesol do pamäte pri spustení programu .
Vzorky kód

kód na výber dve čísla náhodne je potreba . Z podprogramu Form1_Load , môžete volať funkciu , ktorá zdvihne tieto čísla a vynásobí ich získať správnu odpoveď k porovnání odpoveď prehrávača . Váš kód môže vyzerať napríklad takto :

Private Sub Form1_Load ( ... * ) Náhodne ( )

ShowMathQuestion ( ) End Sub

Public Sub ShowMathQuestion ( )

Dim hľadanie Ako StringDim x , y As Integer

x = Int ( Rnd ( ) * 20 ) + 1y = Int ( Rnd ( ) * 20 ) + 1

hľadania = x & " krát " a ycorrectAnswer = x * y

Label1.Text = quest ' zobrazíte otázku

End Sub

----------- ------------------------------------------------- * funkčné argumenty sú pre prehľadnosť vynechané . Visual Basic vyplní ich do , nemusíte ich písať

Budete potrebovať kód ku kontrole odpoveď prehrávače , keď zadá ju do textového poľa textBox1 a stlačí tlačidlo Button1

.. Private Sub Button1_Click ( ... ) " skontrolovať odpoveď užívateľa

CheckUsersAnswer ( )

End Sub

Public Sub CheckUsersAnswer ( ) Dim Ako IntegerDim s As StringDim pctWin As Single

a = Int ( TextBox1.Text ) Ak je ( < > correctAnswer ) ThenLabel2.Text = " Nesprávne " nIncorrect + = 1bLastAnswerWasCorrect = False

ElseLabel2.Text = " správne " bLastAnswerWasCorrect = TruenCorrect + = 1

End If

" správa scorepctWin = ( nCorrect /( nCorrect + nIncorrect ) ) * 100s = " Počet víťazstvo : " & nCorrect a " Straty : . " & nIncorrect & " .. PCT Výhry : " & FormatNumber ( pctWin , 2 ) & " % "

Label3.Text = s

ShowMathQuestion ( )

End Sub

Looping hru

oznámenia , že podprogram CheckUsersAnswer reštartuje hru s výzvou na ShowMathQuestion . Toto účinne reštartuje hru , ktorú hráč môže skončiť kedykoľvek zatvorením Form1 .

• Predchádzajúca strana: Ako používať Visual Basic Panel nástrojov 
• Ďalšia strana: Microsoft Visual Basic Tutorial