Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man gör en tidsinställd spel om Visual Basic

    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 .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur du ändrar Tillämpning Titel i Visual Basic 6
    ·Hur man upptäcka Null i Visual Basic
    ·Hur får Window Names i Visual Basic
    ·Hur kan jag ändra tecken från en sträng i VBScript
    ·Ta reda på sidantal för Print Dialog i VB.NET
    ·Hur man skapar en ny VB PictureBox
    ·Hur du ändrar en markör med VBA
    ·Hur överföra data från en tabell till en annan genom…
    ·Så ringer en T - SQL funktion i VB 2008
    ·Hur man skriver ett Equal -kod för Standard Calculator…
    Utvalda artiklarna
    ·Hur man gör en timer i Game Maker
    ·Hur du använder dreglar Med Groovy
    ·Information om Oracle Migration till MySQL
    ·Vad är PrintStream i Java
    ·Typer av Manets Protokoll
    ·Hur djärva ord i C + + Med Xcode
    ·Hur man tolka CSV i Perl
    ·Hur att skapa en ruta Drive List i Visual Basic
    ·Installationen av Java Web att Starta ActiveX Control
    ·Hur man använder Modal formulär i VB6
    Copyright © Dator Kunskap http://www.dator.xyz