Programmeren in TI-Basic/Snake: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
Geen bewerkingssamenvatting |
Geen bewerkingssamenvatting |
||
Regel 1:
Hier het TI-Basic programma voor het spel Snake. Eerst het programma zelf, dat kun je overtypen op je GR, daarna nogmaals het programma,
Let op!<br>
Op een net nieuw gekocht TI 84 Plus (Silver Edition) vertoont het programma soms kuren, de nieuwe software van de GR voert het programma namelijk net iets anders uit!
Besturing:<br>
Met de pijltjes bestuur je de 'snake', met ENTER las je een pauze in, en met dezelfde knop beëindig je de pauze, met 2ND stop je het programma tijdens het spelen, en je op ENTER drukt wanneer de score wordt getoond, stopt het programma.
<pre>
Regel 116 ⟶ 119:
Hieronder nogmaals het programma, ditmaal is met spaties gewerkt en staat overal uitleg bij.
<pre>
ClrDraw
Axesoff
FnOff
ZStandard
0→Xmin
94→Xmax
0→Ymin
62→Ymax
Line(6,49,89,49
Line(89,49,89,2
Line(89,2,6,2
Line(6,2,6,49
Text(4,38,"SNAKE
5→L
5→P
{1,2,3,4,5}→L1
{5,5,5,5,5}→L2
1→X
0→Y
8→U
3→V
0→S
Text(24,43,"*
While 1
P-L+1→T
T+85(T<=0)→T
Text(L2(T)*5+9,L1(T)*5+3," ← ← Let op! Vier spaties!
Text(4,8,S
If pxl-Test(L2(P)*5+11,L1(P)*5+6)=1
Goto 0
Text(L2(P)*5+9,L1(P)*5+3,"°
getKey→G
If G=21
Goto 2
If G=105
Pause
If G=24 and Y<>0
Then
-1→X
0→Y
End
If G=26 and Y<>0
Then
1→X
0→Y
End
If G=25 and X<>0
Then
0→X
-1→Y
End
If G=34 and X<>0
Then
0→X
1→Y
End
If L1(P)=U and L2(P)=V
Then
L+1→L
S+5→S
If L=85
Goto 1
Lbl A
randInt(1,16→U
randInt(1,9→V
If pxl-Test(5*V+10,5*U+5)=1
Goto A
Text(V*5+9,U*5+3,"*
If pxl-Test(V*5+10,U*5+10)=1
Text(V*5+9,U*5+8,"°
End
P+1→P
If P=86
Then
1→P
L1(85)+X→L1(P)
L2(85)+Y→L2(P)
Else
L1(P-1)+X→L1(P)
L2(P-1)+Y→L2(P)
End
If L1(P)=0
16→L1(P)
If L1(P)=17
1→L1(P)
If L2(P)=0
9→L2(P)
If L2(P)=10
1→L2(P)
End
Lbl 0
Text(27,30," GAME OVER!
Goto 2
Lbl 1
Text(27,28," YOU'VE WON!
Lbl 2
Text(33,30," SCORE:
Text(33,53,S
Pause
ClrDraw
ClrHome
ClrList L1,L2
ZStandard
AxesOn
FnOn
Disp
</pre>
| |||