Att göra en enkel spel i MS VisualBasic 6 (3 / 5 steg)

Steg 3: Viktigaste kodning



som du gissade det, släppa animation behöver en timer också. men först måste du deklarera variabler som behövs.

-Öppna din kod Editor och gå till General - deklarationsavsnittet och skriv följande kod:

Dim CBLOCK som Byte, BAlive(255) som Boolean, LastLand som Byte, Lastone som Boolean
Dim TWrong som Byte, TCorrect som Byte, TBlocks som Byte, TRemain som Byte, mål som Byte

"//Note att ett Byte typ variabel kan bara inneha 0 till 255.

CBLOCK: Håller det nuvarande block indexnummer.
BAlive(255): Matris för dead(missed) block. eftersom högsta värdet för CBLOCK är 255 anges spänna av matrisen 255.
LastLand: Innehåller indexet på sista blocket landade korrekt. (Fortlever)
LaStone: kan du inte släppa fler block om sant.
T(Wrong/correct/Blocks/Remain): Klart synligt vad de används för. 'T "står för"Totalt".
Mål: hur många block att släppa.

-nu måste vi skapa en Sub för att underlätta släppa och undvika fel.
-Återigen gå till General - deklarationsavsnittet och skriv detta:

Sub DropBlock()
"om ett block fortfarande släppa, sluta förfarandet
Om BlockLever.Enabled = True eller Lastone = True Then Exit Sub

Om TRemain - 1 = 0 då
"stop crane
CCMove.Enabled = False

"Dölj mor block
Block(0). Synliga = False

LaStone = sant
Kalla Annoy(3)
Slut om
"ladda en ny
CBLOCK = CBLOCK + 1
Ladda Block(CBLOCK) "last block
Block(CBLOCK). ZOrder
Block(CBLOCK). Synliga = sant

BlockLever.Enabled = sant

"varje 2 rätt block, skärmen går upp
' Om CBLOCK Mod 2 = 0 sedan ScreenAnim.Enabled = sant

' ange totala
TBlocks = CBLOCK
lbTotal.Caption = TBlocks

"Visa återstående
TRemain = mål - TBlocks
lbRemain.Caption = TRemain

End Sub

Jag har kommenterat av raderna efter den.
Notera på 'Block(CBLOCK). ZOrder': i kontroll matriser, med hjälp av ZOrder tar kontrollen till front (ovanpå de andra).

-Fortfarande en sak kvar. Irritera systemet!. Detta är så enkel cuz det visar bara några budskap.
-Skapa en etikett och namn den "PLand_T" - ingen aning för namnet! -använda ett stort teckensnitt för det och ange justeringen på Center för bättre gränssnitt.

-Skapa en Timer och namnge det "PLand" - aktiverad: False - intervall: 1200
Dubbelklicka på den och skriv följande torsken för det:

PLand_T.Visible = False
PLand.Enabled = False

** Ja! det bara försvinner meddelandet efter 1,2 sekunder

Okej. för att styra detta lägger vi till en Sub kallas irritera med ett argument som anger meddelande-ID. Detta kommer att underlätta processen och tar mindre plats att kalla. eftersom du skrev huvudsakliga koden innan och kalla det när du vill.

-i kod Editor, allmänna - deklarationsavsnittet lägga till denna kod:

Välj ärende mitten av
Fallet 0
PLand_T.ForeColor = vbBlack
PLand_T.Caption = "Hämta redo!"
Fall 1
PLand_T.ForeColor = vbBlue
PLand_T.Caption = "Perfekt landning!"
Fall 2
PLand_T.ForeColor = vbRed
PLand_T.Caption = "Missat!"
Fall 3
PLand_T.ForeColor = vbBlack
PLand_T.Caption = "Det var den sista en!"
cmdU.Visible = sant
cmdD.Visible = sant
End Select
PLand_T.Visible = sant
PLand.Enabled = sant

så meddelandesystemet är bra att gå!

-Nu komma tillbaka på din Form och sätt in en Timer. Namn den "BlockLever" - aktiverad: False - intervall: 25
Denna timer kommer inte bara flytta blocket, främst går det reglerna för spelet. så det är den kritiska delen.

Dubbelklicka på den och skriv in följande kod: (åtgärder kommenterade) måste du ange rätt adresser i de angivna platserna

Block(CBLOCK). Toppen = Block(CBLOCK). Topp + 150
Om CBLOCK = 1 då "först blockera undantag
Om Block(CBLOCK). Topp + Block(CBLOCK). Höjd > = BaseBlock.Top sedan
BlockLever.Enabled = False
BAlive(CBLOCK) = sant
LastLand = 1 "Tja, ännu en idiot kan landa här
"irritera rätt
TCorrect = TCorrect + 1
lbCorrect.Caption = TCorrect
Slut om
Annat
Om Block(CBLOCK). Topp + Block(CBLOCK). Höjd > = Block(LastLand). Topp - 150 och Block(CBLOCK). Vänster > Block(LastLand). Vänster - (Block(CBLOCK). Bredd \ 2) och Block(CBLOCK). Vänster < Block(LastLand). Vänster + Block(LastLand). Bredd - (Block(CBLOCK). Bredd \ 2) då
BlockLever.Enabled = False
BAlive(CBLOCK) = True ' ange detta index som Alive (korrekt landat)
"dock att korrigera y-position
Block(CBLOCK). Toppen = Block(LastLand). Topp - Block(CBLOCK). Höjd
"dock att korrigera x position på låga differece
Om Block(CBLOCK). Vänster > Block(LastLand). Vänster - 200 och Block(CBLOCK). Vänster < Block(LastLand). Vänster + 200 sedan
Block(CBLOCK). Vänster = Block(LastLand). Vänster
"Perfekt mark!
Kalla Annoy(1)
Slut om

LastLand = CBLOCK

"lägga rätt
TCorrect = TCorrect + 1
lbCorrect.Caption = TCorrect

"varje 2 rätt block, skärmen går upp
Om TCorrect Mod 2 = 0 sedan ScreenAnim.Enabled = sant
"senast blockera
Om TRemain = 1 då
Block(0). Bild = LoadPicture ("< The TOP Block adress här >") "Ange bilden
Slut om

Slut om
Slut om

"om gick ur form
Om Block(CBLOCK). Toppen > Me.Height då
BlockLever.Enabled = False ' stoppa spaken
BAlive(CBLOCK) = False ' detta block är död
TWrong = TWrong + 1 ' öka oförrätter
lbWrong.Caption = TWrong ' Visa den

"senast blockera
Om TRemain = 1 då
Block(0). Bild = LoadPicture ("< The TOP Block adress här >") "Ange bilden
Slut om
Kalla Annoy(2) "Visa missade meddelandet
Slut om

Se Steg
Relaterade Ämnen

Hur att rengöra din GameBoy spel patroner

så småningom du kommer att gå ner till källaren och titta igenom alla de lådor full av gamla elektroniska prylar och gizmos. Och så småningom hittar du din gamla, tegel GameBoy. Gosse, var att sak roligt att spela! Döda tid i väntan på i linje för ta...

Hur man gör en enkel spel i Unity 3D

Unity 3D är en spel-making motor som är kraftfull, enkel att använda, och viktigast, gratis att Ladda ner! (Det finns en mer kraftfull version, men du kan göra mycket med den fria versionen.)Trots sitt namn, kan enhet användas för både 2D och 3D-spel...

Hur att skapa eller redigera ett spel

I detta Instructable kommer du inte att lära hur man gör ett spel från början, men detta leder dig till den slutliga processen för som. Detta Instructable kommer att lära dig hur du redigerar en grundläggande spel, som är det första steget (enligt mi...

Snake spel... lära sig att göra en orm spel i c ++.

Du kan ha spelat orm spel i nokia mobiles.in detta instructables, du kommer att lära dig hur man gör en orm spel i c ++ programmering språk.oroa dig inte, om du har ingen programmering kunskaper och du inte vet om c ++ .det är mycket enkel och lätt a...

Hur man gör en iso att säkerhetskopiera en wii spel utan en speciell DVD-enhet.

Saker du behöver1. en wii2. en USB-enhet större då ditt spel3. ett sd-kort för Home brew kanal/USB-laddare4. en datorSteg 1: Kanalen hem brygga Först ut måste du ha hem brygga kanal installeras om du inte gör detta är en bra guide...http://www.youtub...

Att göra ett medeltida spel (drag eller pjäser) på Laser gravörens

detta är som snabb och smutsig som de kommer, om du behöver mer information om hur du använder filer jag tillhandahålla gå titt på mitt inläggpå att göra 9 mans morris, det är effektivt identiska utom verkligen utskrift på laser gravör.Vara medveten...

Att göra en enkel Joule tjuv (som lätt)

dag jag visar dig hur man gör en mycket enkel joule tjuv. En joule tjuv har många tillämpningar, bästa gadget som jag gjort med var en "vatten drivs lampa", snart kommer jag att lägga på en guide om det men först måste jag bokföra denna guide. J...

Att göra en enkel Air Core induktor (induktionsspolar)

detta instructable kommer att berätta hur man gör en enkel liten air core induktor, speciellt för Niftymitter. Niftymitter är en öppen källkod FM-sändare baserad på Tetsuo Kogawa enklaste FM-sändare, en gratis rinnande oscillator krets, därav behovet...

Att göra en enkel låda

IntroI detta projekt, kommer jag att visa dig hur man gör en enkel men stark box, utformad för att lagra allt från verktyg till tunga material. En perfekt lösning för workshop lagring.Eftersom verkstaden var översvämmad i alla typer av skräp, materia...

Att göra en enkel Sterling Silver Ring

med rätt utrustning och dessa steg för steg instruktioner, alla kan göra en enkel sterling silver ring. Vissa förmågor som krävs för att göra en ring inkluderar användande en fackla och en såg. Detta projekt kräver mycket uppmärksamhet för att slutfö...

Att göra en enkel kopp från kan

Behöver inte något verktygBara en kan och handen kala :DVi kommer att visa dig det snabbaste sättet att göra en kopp från en burkHitta en konkret bakgrund (din gata)och en ölburk (eller något liknande kan)Steg 1: bearbetning Upp och ned kan (det är l...

Att göra ett medeltida spel (Alquerque) på Laser gravörens

Detta är så snabb och smutsiga som de kommer, om du behöver mer information om hur du använder filer jag tillhandahålla gå titt på mitt inläggpå att göra 9 mans morris, det är effektivt identiska utom verkligen utskrift på laser gravör.Om du vill se...

Att göra ett medeltida spel (Tablut) på Laser gravörens

detta är som snabb och smutsig som de kommer, om du behöver mer information om hur du använder filer jag tillhandahålla gå titt på mitt inläggpå att göra 9 mans morris, det är effektivt identiska utom verkligen utskrift på laser gravör.Om du vill se...

Att göra en enkel laserskurna låda med en stödjande botten

jag var trött på att arbeta med min röriga skrivbordslåda, så efter att ha arbetat med en laserskärare för ett par veckor bestämde jag mig att lösa problemet genom att göra en snygg förvaringslåda som skulle ge allt en plats. Det största problemet me...

Att göra ett TF2 spel

Hej alla, detta är min första instructable, ursprungligen gjorde jag detta för privat, men jag bestämde mig att publicera denna guideSteg 1: Steg 1: materialDe saker vi behöver är,1. tryckt rekvisita en TF2 klass bild2. en planka3. måla eller marköre...

Att göra en enkel laminat longbow

Detta är en kort guide om hur man gör en mycket enkel laminat långbåge. Om du har några frågor som inte besvaras i slutet av denna handledning, eller du vill ha mer detaljerade instruktioner om hur man gör en långbåge, kolla in www.makingtraditionalb...

Att göra en enkel robot med 3D-modellering

introduktionIdén till detta projekt startade när jag studerade och får ett uppdrag med korthet kallas med titeln "artikulation". Tanken var att skapa ett objekt som visat artikulation (rörelse och lederna) med hjälp av en 3D-skrivare. Jag väljer...

Att göra en enkel spybug.

Här en lätt instructable att göra en FM spybug från några gemensamma komponenter. Den svåraste delen i detta är att man gör PCB. Du kan bara använda perf-styrelsen dock om du perfer. Låt oss komma igång!Steg 1: Reservdelslista De följande componenets...

Enklaste sättet att göra en enkel enda rad vävstol armband :)

jag kommer att lära dig de mest enklaste möjliga sätt att göra en vävstol armbandFörst ta en massa vävstol band och en S-krok eller någon krokSteg 1:Steg 2: Första ta en vävstol bandSteg 3: Nästa göra en infinity registrera runt fingrarna med bandet...