Flest kontroller i Visual Basic har en tillhörande " klick " -funktion , som Button1_Click för en knapp eller PictureBox1_Click för en PictureBox . Genom att skriva kod i dessa klickfunktionerna , kan ditt spel svara på ett klickande händelse av spelaren . Exempel klicka spel inkluderar flervalsfrågor frågesporter , kortspel och pussel . Du kan lägga till vissa andra delar i ditt spel för att ge ytterligare utmaningar såsom en poäng och en timer . Detta kommer att hålla dina spelare att spela om och om igen . Instruktioner
1
Öppna Visual Basic och starta ett nytt projekt . Dubbelklicka på " PictureBox " kontroll tre gånger för att lägga tre knapparna till formen , som kallas " PictureBox1 , " " PictureBox2 " och " PictureBox3 . " Klicka och dra var och en att anpassa dem horisontellt i mitten av formuläret. Ändra var och ens BackColor egenskap till " red . "
2
Dubbelklicka på " Label " två gånger för att lägga till " Label1 " och " Label2 " till formuläret . Dra varje så de är uppradade vertikalt under de tre bild lådor . Den övre Etiketten kommer att visa spelarens poäng . Den undre etiketten kommer att visa återstående tid i spelet .
3
Dubbelklicka på " Timer " kontroll för att lägga till " Timer1 " till formuläret . När timern själva kontrollen inte dyker upp när spelet körs , behöver du inte att ordna det visuellt . Ändra kontrollens egenskapen enabled till " true ". Ändra intervallet egenskapen till " 100 . " Detta gör det så timern dekrementera återstående tid i spelet varje 10: e sekund.
4
Dubbelklicka på ett tomt område på formuläret för att öppna upp koden fönstret för " Form1_Load " funktionen . Skriv följande kod :
Slumpa ( ) Label1.Text = " Betyg : " & scoreLabel2.Text = " Tid kvar : " & timegetNewColor ( ) katalog
första linje, kallas " Slumpa " -funktionen , garanterar du skapar ett slumptal varje gång du behöver en. De andra och tredje linjerna ändra texten för båda etiketterna. Den fjärde raden anropar en funktion du kommer att skapa för att ändra färgen på rutan när användaren får en poäng .
5
Sätt markören nedanför klassdeklarationen . Skriv följande för att deklarera och initiera följande variabler :
Dim poäng As Integer = 0Dim tid Som Decimal = 10,0
Den första variabeln håller reda på poängen med ett heltal , som bara tillåter hela nummer. Den andra raden skapar en decimal variabel för att spåra återstående tid i spelet . Decimal värden möjliggör fraktioner. Du kan ändra datatyp för att passa dina behov eller också ändra initieringar för att skapa en längre eller kortare spel .
6
Sätt markören på den sista raden efter den befintliga koden . Skriv följande :
Private Sub getNewColor ( ) Dim num Som Integernum = CInt ( Int ( ( 3 * Rnd ( ) ) + 1 ) ) Om num = 1 ThenPictureBox1.BackColor = Color.GreenElseIf num = 2 ThenPictureBox2 . BackColor = Color.GreenElseIf num = 3 ThenPictureBox3.BackColor = Color.GreenEnd IfEnd Sub
Denna funktion anropar Rnd -funktionen för att slumpvis ändra en av de tre bild lådor från rött till grönt . I detta exempel kan samma låda upprepa teoretiskt som den gröna rutan mer än en gång i rad . Detta kommer att hålla spelarna gissa .
7
Öppna " PictureBox1_Click " funktionen . Skriv följande kod :
p Om PictureBox1.BackColor = Color.Green Thenscore + = 1Label1.Text = " Betyg : " & scorePictureBox1.BackColor = Color.RedgetNewBox ( ) End If
den första raden kontrollerar att användaren har klickat PictureBox1 när det är grönt . Om så är spelets steg spelarens poäng efter en, uppdaterar poängen etiketten följaktligen återställer PictureBox1 till rött , sedan kallar " getNewBox " -funktion för att ändra en av de tre rutorna från rött till grönt .
8
Öppna " PictureBox2_Click " funktionen . Skriv följande kod :
p Om PictureBox2.BackColor = Color.Green Thenscore + = 1Label1.Text = " Betyg : " & scorePictureBox2.BackColor = Color.RedgetNewBox ( ) End If
9
Öppna " PictureBox3_Click " funktionen . Skriv följande kod :
p Om PictureBox3.BackColor = Color.Green Thenscore + = 1Label1.Text = " Betyg : " & scorePictureBox3.BackColor = Color.RedgetNewBox ( ) End If
10
Öppna " Timer1_Tick " funktionen . Skriv följande kod :
p Om inte tid = 0,0 Thentime - = 0.1Label2.Text = " Tid kvar : " & timeElseTimer1.Enabled = FalsePictureBox1.BackColor = Color.RedPictureBox2.BackColor = Color.RedPictureBox3 . BackColor = Color.RedLabel1.Text = " Din slutpoäng är : " & scoreEnd Om
första raden kontrollerar om spelets tiden har gått ut . Om inte , Minskar det värdet med 0,1 och uppdaterar tiden etiketten . Om tiden har gått ut , stängs spelet av timern , förändringar hela PictureBox kontrollerar till rött och visar spelarens slutresultatet .
11
Klicka på " run " -knappen eller tryck " F5 " för att börja spela spelet . Timern börjar räkna ned från 10 omedelbart och en av de tre PictureBox kontrollerna är grön . Klicka på den gröna rutan för att få poäng tills tiden går ut .
