Ako si vyrobiť Timed Game v jazyku Visual Basic

Ak chcete časovanej hry v jazyku Visual Basic , vytvoriť jednoduchý kvíz , ktorý nastaví ovládací prvok " Timer " po každom otázka je položená . Povedzte prehrávač sa nepodarilo splniť úlohu , ak časovač uplynie . Môžete použiť programovacie príkazy tohto projektu je vytvoriť rad kvízov , vrátane kvízy pre matematiky , dejepisu alebo zemepisu . Pokyny dovolená 1

Kliknite na menu " Súbor " . Vyberte " Nový " a potom kliknite na " Windows Form " položku zo zoznamu , ktorý sa objaví . To znamená , že chcete , aby nové aplikácie , ktorá používa formulár pre zadávanie dát .
2

Presuňte ovládací prvok tlačidla " " z panela nástrojov do formulára . Toto tlačidlo vám umožní užívateľovi začať hru . Pretiahnite ďalšie tlačidlá do formulára poskytnúť používateľovi prostriedky na podanie odpovede .
3

Umiestnite ovládací prvok " Textové pole " , do formulára dať užívateľovi vstupné pole zadajte odpoveď .
4

Presuňte ovládací prvok " Timer " z panela nástrojov do formulára , zadajte " 10000 " pre vlastnosť Interval . Táto akcia nastaví interval odpočítavanie časovača je 10 sekúnd .
5

Dvakrát kliknite na druhé tlačidlo pre vstup do programovacieho okna . Vložte nasledujúce príkazy v okne :

Public Class Form1Dim q ( 0 To 2 ) Ako StringDim ( 0 To 2 ) Ako StringDim iCurQ As Integer = - 1Private Sub Button1_Click ( byval sender Ako System.Object , byval e ako System.EventArgs ) Kľuky Button1.Click " Spustiť hru na

q ( 0 ) = " Aké národná kultúrna pamiatka ukazuje štyri americké prezidentmi v kameň ? " q ( 1 ) = " Kto vynašiel svetlo žiarovka ? " q ( 2 ) = " Z toho vedci však teóriu relativity prišiel ? " ( 0 ) = " Mount Rushmore " ( 1 ) = " Edison " ( 2 ) = " Einstein " , gotoTeacher ( ) End Sub

Sub gotoTeacher ( ) iCurQ = iCurQ + 1Pokud ( iCurQ > 2 ) Potom EndMsgBox ( q ( iCurQ ) ) Timer1.Enabled = TrueEnd Sub

Private Sub Button2_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button2.Click ' študent odpovedal . zastaviť timerTimer1.Enabled = FalseevaluateAnswer ( ) gotoTeacher ( ) Timer1.Enabled = TrueEnd Sub

Sub evaluateAnswer ( ) If ( TextBox1.Text = a ( iCurQ ) ) ThenMsgBox ( " správne" ) ElseMsgBox ( " Incorrect . Správna odpoveď je " & ( iCurQ ) ) End IfEnd SubEnd Trieda

Vyššie uvedené údaje o " Button1 " sub - rutinné pokyn Visual Basic vytvoriť premenné pre otázky a odpovede hry . " Button1 " sub - rutinné sady vyššie uvedených premenných sa skutočnými kvízové ​​otázky a odpovede . " GotoTeacher " sub - rutina vyzve prehrávač s otázkou . " Button2 " a " vyhodnotenie odpovedí " sub - rutiny hodnotí odpoveď prehrávača .
6

Vložte nasledujúce programovacie príkazy pod " End Sub " vyhlásenie " Vyhodnotiť Answer " sub rutinné :

Private Sub Timer1_Tick ( byVal sender As Object , Bývalá e As System.EventArgs ) Kľuky Timer1.Tick " Študent neodpovedal načas . To je považované za zlé answer.Timer1.Enabled = FalseMsgBox ( " nesprávne . Správna odpoveď je " & ( iCurQ ) ) gotoTeacher ( ) End Sub

" Časovač 1 " sa uskutočňuje vždy , keď je vlastnosť Interval z časovač dosiahne nuly .
7

Stlačením klávesu F5 spustiť hru .

• Predchádzajúca strana: Ako si vyrobiť knižnicu vo VB Script 
• Ďalšia strana: Ako používať VB Lite