Del 7 - Styra ett X
SCP

Nu ska vi ta och styra ett X. Vi ska lära oss lite om GetKey funktionen och senare göra
ett X styrnings program.

Getkey
SCP

Denna funktion hittas i I/O menyn. För att få fram GetKey tryck: [SHIFT] [VARS] [F6] [F4] [F2]

Denna funktion visar vad man trycker på för knapp. Eller rättare sagt det nummer som knappen
har. För det är nämligen så att varje knapp har ett eget nummer. T.ex. så har EXE knappen nr
31.

Vi ska till att börja med skriva ett program som visar vad vi trycker ner för tangent. Detta
program kan vara bra som hjälp när man ska skriva andra program senare.
Getkey Ex.
While 1=1
ClrText
Locate 1,1,Getkey
WhileEnd
Slut På Kod


Svårare än så va det faktiskt inte. Så testa nu och kör programmet.

Nu ska vi styra ett X över skärmen. Detta gör vi lämpligast med piltangenterna. Så vi kan ju med hjälp
av vår föregånde program ta reda på vad piltangenterna har för nummer:

Upp:28
Ner:37
Vänster:38
Höger:27

Vi bör ju kanske använda locate för att placera ut X:et. Och två variabler som vet var vi är på skärmen.
Dessa variablar får namnet X och Y. Det är ju bara att höja / sänka dessa variablar när man sedan vill
flytta på X:et.

Flytta ett X
10->X
3->Y
While 1=1
ClrText
Locate X,Y,"X"
If Getkey= 28
Then Y-1->Y
IfEnd
If GetKey=37
Then Y+1->Y
IfEnd
IF GetKey=38
Then X+1->X
IFEnd
If GetKey=27
Then X-1->X
IfEnd
WhileEnd
Slut På Kod


hoppas ni förstår vad som händer. Annars så är det bara att plugga på de övriga delarna i skolan lite =)