Visual Basic inte är allmänt känd som en utvecklingsplattform för spel . Men , gör enkelheten i dess kärna språk , BASIC , den lämplig för många typer av spel, inklusive traditionella gissningslekar . Vad du lär dig från kodning sådant spel kommer att hjälpa dig att programmera mer komplexa spel . Multiplikation Game
känna naturen och flödet av den råa spelet är nödvändig innan kodning någonting . Om du saknar dessa , anser en enkel matematik spel . Programmet ställer en fråga som " Vad är 15 gånger fyra ? " Spelaren lämnar hennes svar , som kontrollerar programmet för matematisk korrekthet.
Bilder Input /Output Form
Design formuläret för inmatning , med hjälp av spelets specifikationen just gett . Formuläret kommer att behöva mata textmeddelanden av dessa typer : matten fråga, t.ex. " Vad är tre gånger fem ? " Svaret visar spelarens svar som " Rätt " eller " Fel , " hellre en kör sammanställning av spelarens poäng , dvs , " Vinster : 3 ; Förluster : 1 , Pct Vinster: . . 75.00 procent "
separat etikett kontroller kan användas för dessa meddelanden . Programmet behöver input kontroller också. Använd en textruta där spelaren går in i hennes svar och en knapp för att skicka svaret .
Kod för att starta spelet
kod för att initiera spelet kan anropas från formulärets last subrutin , som exekveras när importen formen bringas i minnet när programmet startas . välja två tal
Exempelkod
kod slumpmässigt behövs. Från Form1_Load subrutinen , kan du ringa en funktion som plockar dessa siffror och multiplicerar dem att få det rätta svaret att jämföra mot spelarens svar . Din kod kan se ut så här :
Private Sub Form1_Load ( ... * ) Slumpa ( ) katalog
ShowMathQuestion ( ) End Sub
Public Sub ShowMathQuestion ( ) katalog
Dim quest Som StringDim x , y As Integer
x = Int ( Rnd ( ) * 20 ) + 1år = Int ( Rnd ( ) * 20 ) + 1
quest = x & " tider " & ycorrectAnswer = x * y
Label1.Text = quest ' visa frågan
End Sub
----------- ------------------------------------------------- * funktionsargumenten är utelämnade för tydlighets skull . Visual Basic fyller dessa i , du behöver inte skriva in dem
Du behöver koden för att kontrollera spelarens svar när hon går in i det i TextBox1 textrutan och trycker på Button1 knappen
. . Private Sub Button1_Click ( ... ) " kontrollera användarens svar
CheckUsersAnswer ( ) katalog
End Sub
Public Sub CheckUsersAnswer ( ) Dim a Som IntegerDim s Som StringDim pctWin Som Single
a = Int ( TextBox1.Text ) Om ( a < > correctAnswer ) ThenLabel2.Text = " Felaktigt " nIncorrect + = 1bLastAnswerWasCorrect = False
ElseLabel2.Text = " korrekt " bLastAnswerWasCorrect = TruenCorrect + = 1
End If
' rapport scorepctWin = ( felakt g /( & ELAKTIGT + nIncorrect ) ) * 100s = " vinner: " & & ELAKTIGT & " . Förluster : " & nIncorrect & " Pct Win : . . " & FormatNumber ( pctWin , 2 ) & " % "
Label3.Text = s
ShowMathQuestion ( ) katalog
End Sub
Looping spelet
Observera
att CheckUsersAnswer subrutinen startar spelet med en uppmaning till ShowMathQuestion . Detta effektivt startar spelet, som spelaren kan sluta när som helst genom att stänga Form1 .
