PlanetSwitch Planet3DS PlanetVita PSP.de PlanetiPhone Classics Forum Handheld-Wiki

PGN-ID:[?] (Nicht eingeloggt)
Login
Registrieren
PlanetDS PlanetGameboy N-Page.de
portablegaming.de  

Zurück   portablegaming.de > Allgemeines Spielehandheldforum, GBA, N-Gage und Development > Development Abteilung


Development Abteilung Ihr wollt für euren Lieblingshandheld Spiele oder Tools entwickeln?
Bitte die Präfixe benutzen!

Antwort
 
LinkBack Themen-Optionen Thema durchsuchen
Alt 15.11.2004, 20:39   #1
 
Registriert seit: 15.07.2004
Alter: 34
Spielt gerade: Zelda TP

grub hat die Renommee-Anzeige deaktiviert

Standard pascal

jo ich hätte da ma wieder n kleines prob mit pascal:
Zitat:
REPEAT
readkey;taste:=readkey;
IF readkey ='d' THEN BEGIN {r.case}
x7:=x6; y7:=y6;
x6:=x5; y6:=y5;
x5:=x4; y5:=y4;
x4:=x3; y4:=y3;
x3:=x2; y3:=y2;
x2:=x1; y2:=y1;
x1:=x1+1; cleardevice; putpixel(x1,y1,red);
putpixel(x2,y2,red);
putpixel(x3,y3,red);
putpixel(x4,y4,red);
putpixel(x5,y5,red);
putpixel(x6,y6,red);
putpixel(x7,y7,red); END ;
IF taste = 'a' THEN BEGIN {l.case}
x7:=x6; y7:=y6;
x6:=x5; y6:=y5;
x5:=x4; y5:=y4;
x4:=x3; y4:=y3;
x3:=x2; y3:=y2;
x2:=x1; y2:=y1;
x1:=x1-1; cleardevice;putpixel(x1,y1,red);
putpixel(x2,y2,red);
putpixel(x3,y3,red);
putpixel(x4,y4,red);
putpixel(x5,y5,red);
putpixel(x6,y6,red);
putpixel(x7,y7,red); END;
IF taste = 'w' THEN BEGIN {u.case}
x7:=x6; y7:=y6;
x6:=x5; y6:=y5;
x5:=x4; y5:=y4;
x4:=x3; y4:=y3;
x3:=x2; y3:=y2;
x2:=x1; y2:=y1;
y1:=y1+1;cleardevice; putpixel(x1,y1,red);
putpixel(x2,y2,red);
putpixel(x3,y3,red);
putpixel(x4,y4,red);
putpixel(x5,y5,red);
putpixel(x6,y6,red);
putpixel(x7,y7,red); END;
IF taste = 's' THEN BEGIN {d.case}
x7:=x6; y7:=y6;
x6:=x5; y6:=y5;
x5:=x4; y5:=y4;
x4:=x3; y4:=y3;
x3:=x2; y3:=y2;
x2:=x1; y2:=y1;
y1:=y1-1; cleardevice;putpixel(x1,y1,red);
putpixel(x2,y2,red);
putpixel(x3,y3,red);
putpixel(x4,y4,red);
putpixel(x5,y5,red);
putpixel(x6,y6,red);
putpixel(x7,y7,red); END;
UNTIL taste = 'p';
CloseGraph;readln;
END.
könnt mir wer sagen was ich falsch mache ich wollte eigentlich über readkey
e inen buchstaben in die variable taste einlesen was das program aber nicht macht liegt das eventuell an den IF cases bzw. dann mit 2 mal repeat oder was?? hab schon alles mögliche probiert.
bitte um verständnis da ich noch so weit mit pascal bin .
grub ist offline   Mit Zitat antworten
Sponsored Links
Alt 15.11.2004, 20:59   #2
Gesperrt
 
Registriert seit: 19.10.2004

MasterK wird schon bald berühmt werden

Standard

puuuuuuuhhh....
also, die ersten beiden zeilen solltest du mal dahingehend abändern:

taste:=readkey;
IF taste ='d' THEN BEGIN {r.case}

dann versteh ich nicht ganz was das soll:
x7:=x6; y7:=y6;
x6:=x5; y6:=y5;
x5:=x4; y5:=y4;
x4:=x3; y4:=y3;
x3:=x2; y3:=y2;
x2:=x1; y2:=y1;

und wenn das ganze einen sinn hat, warum liegt es nicht in einer eigenen function? ebenso die putpixel-blöcke.
du solltest unbedingt versuchen den code besser zu gliedern, das vereinfacht das debugging ungemein.

ausserdem wärs gut wenn du sagst was das programm macht bzw wie sich der fehler äussert.
ach ja, das ganze wird übrigens ganz elend flimmern wenn es denn dann läuft.
MasterK ist offline   Mit Zitat antworten
Alt 15.11.2004, 21:12   #3
ehem. Teammitglied
 
Benutzerbild von Tharo
 
Registriert seit: 02.09.2002
Ort: フランクフルト
Spielt gerade: FF7 Remake

Tharo wird schon bald berühmt werdenTharo wird schon bald berühmt werden

Standard

In der Tat, es ist nicht klar ersichtlich was dieses gewusel von PlotPixel funktionen und dieses Matrixen ähnliche verschieben von Daten bewirken soll ...
__________________
Ney ney ney. So viel Sand und keine Förmchen

Code:
Hey DU! Join uns im PG Discord! https://discord.gg/SVqutfFpTc
Tharo ist offline   Mit Zitat antworten
Alt 15.11.2004, 21:15   #4
 
Registriert seit: 15.07.2004
Alter: 34
Spielt gerade: Zelda TP

grub hat die Renommee-Anzeige deaktiviert

Standard

Zitat:
uuuuuuuhhh....
also, die ersten beiden zeilen solltest du mal dahingehend abändern:

taste:=readkey;
IF taste ='d' THEN BEGIN {r.case}
hatte ich schon das war noch vom antesten
Zitat:
und wenn das ganze einen sinn hat, warum liegt es nicht in einer eigenen function?
wieso funktion ?wär da ne procedure nich ausreichend
hatte ich damit später vor
grub ist offline   Mit Zitat antworten
Alt 15.11.2004, 21:20   #5
Gesperrt
 
Registriert seit: 19.10.2004

MasterK wird schon bald berühmt werden

Standard

naja, function und procedure is eh nahezu das gleiche.
MasterK ist offline   Mit Zitat antworten
Alt 15.11.2004, 21:25   #6
 
Registriert seit: 15.07.2004
Alter: 34
Spielt gerade: Zelda TP

grub hat die Renommee-Anzeige deaktiviert

Standard

funktion erhält ein argument procedure nicht
[quotei]n der Tat, es ist nicht klar ersichtlich was dieses gewusel von PlotPixel funktionen und dieses Matrixen ähnliche verschieben von Daten bewirken soll ...[/quote]
in der tat etwas unübersichtlich kapier aber auch ncih warum das so scheiße gequotet wurde hab eigentlich nur den algoritmus kopiert und der war vorher gegliedert.

mich interressiert eigentlich nur warum readkey nicht in taste eingelesen wird
oder kann es noch einen anderen grund geben warum die if cases nicht erfüllt werden wenn ich eine der taste n verwende
grub ist offline   Mit Zitat antworten
Alt 15.11.2004, 22:02   #7
Gesperrt
 
Registriert seit: 19.10.2004

MasterK wird schon bald berühmt werden

Standard

eine funktion liefert einen rückgabewert zurück. ne procedure liefert einen leeren wert zurück. letztendlich brauch man nur function.

versuche mal diese variante (so in etwa, 100% garantier ich nich, hab lang nich mehr in pascal gearbeitet):

if keypressed then
begin
taste = readkey;
else
taste = 0;
end;
MasterK ist offline   Mit Zitat antworten
Antwort

  portablegaming.de > Allgemeines Spielehandheldforum, GBA, N-Gage und Development > Development Abteilung

Lesezeichen


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche

Forumregeln
Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
prob mit pascal compiler grub Development Abteilung 4 15.10.2004 14:29
Turbo Pascal frage Mr.lol Development Abteilung 1 15.09.2003 21:12


Alle Zeitangaben in WEZ +2. Es ist jetzt 13:16 Uhr.


Powered by vBulletin® Version 3.8.9 (Deutsch)
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
Template-Modifikationen durch TMS
PortableGaming.de © bk 2000 - 2010

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231