Hallo,
ich wollte gerade eben mal mein erstes Programm f?r den Wiz schreiben.
Auf Windows lief noch alles aber als ich ?ber Compiler -> Erstellen Multiplatform eine gpe Datei erzeugte blieb der Bildschirm beim Wiz nach Programmstart schwarz.
(Habe auch unter Projekt -> Optionen gp2xWiz eingestellt aber wenn ich auf erstellen gehe erzeugt er mir immer eine .exe)
Dann habe ich mal dieses kleine Programm ausgef?hrt.
DRAWRECT 0,0,320,240,RGB(255,0,0)
PRINT "Hello World", 100, 100
SHOWSCREEN
KEYWAIT
END
Bei dem Code beendet er das Programm und ich lande wieder im Menu.
Was mache ich verkehrt?
Mfg Martin
Edit: Das Progr?mmchen von oben l?uft. Lag irgendwie an der SD Karte vom Nand gehts.
Aber mein anderes Programm geht immer noch nicht. Da bleibt der Bildschirm schwarz.
Hier mal der code.
//
GLOBAL SPEED% = 1
GLOBAL SPEED_BALL% = 3
GLOBAL I%
//
DIM SINUS#[91]
DIM COSINUS#[91]
FOR I% = 0 TO 90
SINUS[I] = SIN(I)
COSINUS[I] = COS(I)
NEXT
// TASTEN
GLOBAL KEY_OBEN = 200
GLOBAL KEY_UNTEN = 208
GLOBAL KEY_ESC% = 01
// 1 = CLASSIC
GLOBAL MODE% = 1
//Schl?ger 50*10
GLOBAL SCHLAEGER1IMG% = 1
GLOBAL SCHLAEGER1X% = 5
GLOBAL SCHLAEGER1Y% = 95
GLOBAL SCHLAEGER2IMG% = 2
GLOBAL SCHLAEGER2X% = 305
GLOBAL SCHLAEGER2Y% = 95
//Ball 10*10
GLOBAL BALLIMG% = 3
GLOBAL BALLX# = 155
GLOBAL BALLY# = 115
GLOBAL BALLRICHTUNGX% = RND(1) // 0 = rechts, 1 = links
GLOBAL BALLRICHTUNGY% = RND(1) // 0 = hoch, 1 = runter
GLOBAL BALLWINKEL% = RND(45)
// Alles Laden
LOADBMP "CLASSIC/back.PNG"
LOADSPRITE "CLASSIC/schlaeger.png", SCHLAEGER1IMG%
LOADSPRITE "CLASSIC/schlaeger.png", SCHLAEGER2IMG%
LOADSPRITE "CLASSIC/ball.png", BALLIMG%
WHILE KEY(KEY_ESC%) = FALSE
BEWEGEN()
KI()
ZEICHNEN()
SHOWSCREEN
WEND
END
FUNCTION KI%:
IF BALLY + 5 < SCHLAEGER2Y% + 25
IF SCHLAEGER2Y% > 0
SCHLAEGER2Y% = SCHLAEGER2Y% - SPEED
ENDIF
ELSEIF BALLY + 5 > SCHLAEGER2Y% + 25
IF SCHLAEGER2Y% < 190
SCHLAEGER2Y% = SCHLAEGER2Y% + SPEED
ENDIF
ENDIF
ENDFUNCTION
FUNCTION BEWEGEN%:
// SPIELER
IF KEY(KEY_OBEN) = 1 AND SCHLAEGER1Y% > 0
SCHLAEGER1Y% = SCHLAEGER1Y% - SPEED
ELSEIF KEY(KEY_UNTEN) = 1 AND SCHLAEGER1Y% < 190
SCHLAEGER1Y% = SCHLAEGER1Y% + SPEED
ENDIF
// BALL
IF BALLRICHTUNGX% = 0
BALLX = BALLX + (SPEED_BALL * COSINUS[BALLWINKEL])
ELSEIF BALLRICHTUNGX% = 1
BALLX = BALLX - (SPEED_BALL * COSINUS[BALLWINKEL])
ENDIF
IF BALLRICHTUNGY% = 0
BALLY = BALLY - (SPEED_BALL * SINUS[BALLWINKEL])
ELSEIF BALLRICHTUNGY% = 1
BALLY = BALLY + (SPEED_BALL * SINUS[BALLWINKEL])
ENDIF
ENDFUNCTION
FUNCTION ZEICHNEN%:
DRAWSPRITE SCHLAEGER1IMG%, SCHLAEGER1X%, SCHLAEGER1Y%
DRAWSPRITE SCHLAEGER2IMG%, SCHLAEGER2X%, SCHLAEGER2Y%
DRAWSPRITE BALLIMG%, BALLX, BALLY
ENDFUNCTION
GLOBAL ID_GLOBAL% = 0
FUNCTION GETID%:
INC ID_GLOBAL%, 1
RETURN ID_GLOBAL%
ENDFUNCTION
Lade mir doch mal das Projekt irgendwo rauf und schick mir den Link in einer PM( Message ).
Ich schau mir dann mal dein Projekt an und sag dir dann gegebenfalls wo der Fehler ist ;)
Geht's unter Win32?
Hat mir leider noch nix geschickt!