kennen van de aard en de doorstroming van het ruwe spel is essentieel voor iets codering . Als je ontbreekt deze , overweeg dan een eenvoudige wiskunde spel . Het programma stelt een vraag als "Wat is 15 keer vier ? " De speler legt haar antwoord, dat het programma controleert op wiskundige juistheid .
De Input /Output Vorm

Ontwerp
het formulier voor de invoer van de gebruiker , met behulp van het spel specificatie zojuist gegeven . Het formulier moet tekstberichten van deze types uitgang : de wiskundige vraag , zoals " Wat is drie keer vijf ? " De respons geeft antwoord van de speler als "Correct" of " Onjuist , " bij voorkeur , een doorlopend overzicht van de score van de speler , dat wil zeggen , " Gewonnen : 3 ; Verliezen : 1 ; Pct Wins : . . 75,00 procent "

afzonderlijke labelbesturingselementen kan worden gebruikt voor deze berichten . Het programma moet invoeren controles , ook. Gebruik een tekstvak waarin de speler gaat haar antwoord en een knop om het antwoord in te dienen .
Code te beginnen het spel

De code om het initiëren spel kan worden opgeroepen uit de vorm van de lading subroutine , die wordt uitgevoerd wanneer de invoer formulier in het geheugen wordt gebracht bij het opstarten van het programma .
Sample Code

Code
om twee nummers te kiezen willekeurig nodig . Uit de Form1_Load subroutine , kunt u een functie die deze nummers plukt en vermenigvuldigt ze naar het juiste antwoord te krijgen om mee te vergelijken antwoord van de speler noemen . Je code zou er als volgt uitzien :

Private Sub Form1_Load ( ... * ) Willekeurig ( )

ShowMathQuestion ( ) op Twitter End Sub

Public Sub ShowMathQuestion ( )

Dim zoektocht Zoals StringDim x , y As Integer

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

zoektocht
= x & " tijden " & ycorrectAnswer = x * y

Label1.Text = quest ' weer te geven op de vraag

End Sub

----------- ------------------------------------------------- * de functie argumenten worden weggelaten voor de duidelijkheid . Visual Basic vult deze in , je hoeft ze niet te typen

U code nodig om het antwoord van de speler controleren wanneer ze binnengaat in het TextBox1 tekstvak en drukt op de knop Button1

. . private Sub Button1_Click ( ... ) 'check de gebruiker antwoord

CheckUsersAnswer
( )

End Sub

Public Sub CheckUsersAnswer (
) Dim a Zoals IntegerDim s Zoals StringDim pctWin als Single

a = Int ( TextBox1.Text ) Als ( a < > correctAnswer ) ThenLabel2.Text = " Onjuist " nIncorrect + = = False

ElseLabel2.Text 1bLastAnswerWasCorrect = " correct" bLastAnswerWasCorrect = TruenCorrect + = 1

Eind
Als

' rapport scorepctWin = ( nCorrect /( nCorrect + nIncorrect ) ) * 100s = " Overwinningen : " & nCorrect & " . Verliezen : " & nIncorrect & " Pct Win : . . " & FormatNumber ( pctWin , 2 ) & " % "

Label3.Text = s

ShowMathQuestion
( )

End Sub

Looping de Game

Notice
dat de CheckUsersAnswer subroutine start het spel met een oproep tot ShowMathQuestion . Dit effectief herstart het spel , waarin de speler kan op elk moment beëindigen door het sluiten van Form1 .