Om een getimede spel te maken in Visual Basic , een eenvoudige quiz die een "Timer " control stelt na elke vraag wordt gesteld . Vertel de speler ze niet aan de uitdaging als de timer is verstreken voldoen . U kunt de programmering uitspraken van dit project gebruiken om een verscheidenheid van quizzen , waaronder quizzen voor wiskunde , geschiedenis of aardrijkskunde te creëren . Instructies
1 Klik op het menu "Bestand " . Selecteer " New ", klik vervolgens op de "Form Windows " item uit de lijst die verschijnt . Dit geeft aan dat u wilt een nieuwe toepassing die een formulier voor gegevensinvoer gebruikt te maken . Kopen van 2 Sleep de " Button " controle van het deelvenster Gereedschappen op het formulier . Deze knop laat de gebruiker het spel te beginnen . Sleep een andere knop op het formulier om de gebruiker te voorzien van een middel om een reactie in te dienen .
Place 3 een " Text Box" controle op het formulier om de gebruiker een invoerveld te geven aan typ het antwoord .
4 Sleep een " Timer " controle van het deelvenster Gereedschappen op het formulier , typ " 10000 " voor de eigenschap Interval . Deze actie zet countdown interval van de timer op 10 seconden .
5 Dubbelklik op de tweede knop om de programmering venster in te voeren . Plak de volgende verklaringen in het venster : Public Class Form1Dim q
( 0 To 2 ) Als StringDim een ( 0 To 2 ) Zoals StringDim iCurQ als Integer = - 1Private Sub Button1_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button1.Click ' start het spel q
( 0 ) = " Welke nationale monument toont vier Amerikaanse presidenten in steen ? " q ( 1 ) = " Wie heeft het licht bol ? ' q ( 2 ) = " Uit welke wetenschapper heeft de relativiteitstheorie te komen? " a ( 0 ) = " Mount Rushmore " a ( 1 ) = " Edison " a ( 2 ) = " Einstein " , gotoTeacher ( ) End Sub Sub gotoTeacher
( ) iCurQ = iCurQ + 1Als ( iCurQ > 2 ) dan EndMsgBox ( q ( iCurQ ) ) Timer1.Enabled = TrueEnd Sub
Private Sub Button2_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button2.Click ' student heeft gereageerd . stop timerTimer1.Enabled = FalseevaluateAnswer ( ) gotoTeacher ( ) Timer1.Enabled = TrueEnd Sub
Sub evaluateAnswer ( ) Als ( TextBox1.Text = a ( iCurQ ) ) ThenMsgBox ( " Correct" ) ElseMsgBox ( " Onjuiste . het juiste antwoord is " & a ( iCurQ ) ) End IfEnd SubEnd Class
Deze hiervoor de " Button1 "sub - routine instrueren Visual Basic om variabelen voor vragen en antwoorden van het spel te maken . De " Button1 " sub - routine stelt de bovengenoemde variabelen met de werkelijke quiz vragen en antwoorden . De " gotoTeacher " sub - routine vraagt de speler met een vraag . De " Button2 " en " evalueren Antwoord " sub - routines evalueert antwoord van de speler .
6 Plak onder de " End Sub " verklaring van de volgende programmering uitspraken de " Evalueer Answer " sub - routine :
Private Sub Timer1_Tick ( ByVal afzender als Voorwerp , ByVal e als System.EventArgs ) Handles Timer1.Tick 'Student niet reageren in de tijd . Dat wordt beschouwd als een verkeerde answer.Timer1.Enabled = FalseMsgBox ( " Onjuist . Het juiste antwoord is " & a ( iCurQ ) ) gotoTeacher ( ) End Sub " Timer1 "
wordt uitgevoerd wanneer de eigenschap Interval van de timer
nul bereikt .
Druk op F5 7 om het spel te draaien . |
