Att göra en tidsinställd spel i Visual Basic , skapa en enkel frågesport som sätter en " timer " kontroll efter varje fråga ställs . Berätta spelaren hon misslyckades med att möta utmaningen om timern löper ut . Du kan använda det här projektets programmering uttalanden för att skapa en mängd olika frågesporter , inklusive frågesporter för matematik , historia eller geografi . Instruktioner
1
Klicka på " Arkiv " -menyn . Välj " New ", klicka sedan på " Windows Form " objektet från listan som visas . Detta tyder på att du vill göra ett nytt program som använder ett formulär för inmatning av data .
2
Dra " Button " kontroll på verktygspanelen på formuläret . Denna knapp låter användaren börjar spelet . Dra en annan knapp på formuläret för att förse användaren med en möjlighet att lämna in ett svar . Addera 3
Placera en " Textruta " kontrollen på formuläret för att ge användaren en ingång rutan skriva svaret .
4
Dra en " timer " styrning från panelen Verktyg på formuläret , skriv sedan " 10000 " för Intervall egendom . Denna åtgärd ställer timerns nedräkning intervall till 10 sekunder .
5
Dubbelklicka på den andra knappen för att komma in i programmeringen fönstret . Klistra följande uttalanden i fönstret :
Public Class Form1Dim q ( 0 till 2 ) Som StringDim en ( 0 till 2 ) Som StringDim iCurQ As Integer = - 1Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click " starta spelet q
( 0 ) = " Vad nationalmonument visar fyra amerikanska presidenter i sten ? " q ( 1 ) = " Vem uppfann ljuset glödlampa ? " q ( 2 ) = " Från vilken vetenskapsman gjorde relativitetsteorin komma ? " a ( 0 ) = " Mount Rushmore " a ( 1 ) = " Edison " a ( 2 ) = " Einstein " , gotoTeacher ( ) End Sub
Sub gotoTeacher ( ) iCurQ = iCurQ + 1If ( iCurQ > 2 ) Sen EndMsgBox ( q ( iCurQ ) ) Timer1.Enabled = TrueEnd Sub
Private Sub Button2_Click ( ByVal avsändare Som System.Object , ByVal e Som System.EventArgs ) Handtag Button2.Click ' elev har svarat . sluta timerTimer1.Enabled = FalseevaluateAnswer ( ) gotoTeacher ( ) Timer1.Enabled = TrueEnd Sub
Sub evaluateAnswer ( ) Om ( TextBox1.Text = a ( iCurQ ) ) ThenMsgBox ( " Rätt " ) ElseMsgBox ( " Felaktig . rätt svar är " & a ( iCurQ ) ) End IfEnd SubEnd Class
uttalandena ovanför " Button1 " sub - rutin instruera Visual Basic för att skapa variabler för spelets frågor och svar . Den " Button1 " sub - rutinen sätter ovannämnda variablerna med de faktiska quiz frågor och svar . Den " gotoTeacher " sub - rutin uppmanar spelaren med en fråga . Den " Button2 " och " utvärdera Svara " sub - rutiner utvärderar spelarens svar .
6
klistra in följande programmering uttalanden under " End Sub " uttalande " Utvärdera Answer " sub - rutin :
Private Sub Timer1_Tick ( ByVal avsändare As Object , ByVal e Som System.EventArgs ) Handtag Timer1.Tick " Student svarade inte i tid . Det är anses vara ett fel answer.Timer1.Enabled = FalseMsgBox ( " Fel . Det rätta svaret är " & a ( iCurQ ) ) gotoTeacher ( ) End Sub
" Timer1 " körs när Interval egendom av timern når noll .
7 F5
Tryck för att köra spelet .
