GLBasic forum

Other languages => GLBasic - de => Topic started by: D2O on 2012-May-13

Title: Wie funktioniert ASSERT()
Post by: D2O on 2012-May-13
Hallo alle,

das ich gerade dabei bin die Originale Hilfe zu ergänzen und dann neu zu Compilieren,
Arbeite ich nun Seite für Seite ab.

Aber ich komme hier mit dem ASSERT() nicht ganz klar.
Folgender Code geht nicht.
Code (glbasic) Select
SETCURRENTDIR("Media") // go to media files


// Animations Grafik erzeugen, Kästenchen aus drei farben
DRAWRECT 0,0,32,32,RGB(0xff, 0x00, 0x00)
DRAWRECT 32,0,32,32,RGB(0xff, 0xff, 0x00)
DRAWRECT 64,0,32,32,RGB(0x00, 0xff, 0x00)
// Als Sprite kopieren
GRABSPRITE 1,0,0,96,32
// Denn Backbuffer wieder leeren
BLACKSCREEN
// Sprite als bmp speichern
SAVESPRITE "animation.bmp",1

// Ab hier kommt der Relevante Code
LOADANIM "animation.bmp",1,32,32
LOADANIM "animation.bmp",2,32,32

// Variablen für die Animation
LOCAL frame1%,frame2%
frame2 = 2
// Variablen für die Maus
LOCAL b1%,b2%,mx%,my%


LOCAL OK%
OK% = 0
ASSERT(OK%)   //<<<--------------

WHILE TRUE
MOUSESTATE mx%,my%,b1%,b2%





DRAWANIM 1,frame1%,mx,my
DRAWANIM 2,frame2%,50,50
// b1 = linker mauseknopf
IF b1%
frame1% = 1
ELSE
frame1% = 0
ENDIF
// Kollision nur mit bild 1 wenn bild 2 das frame 1 gezeichnet wird
IF ANIMCOLL(1,2,50,50,2,frame1%,mx,my) = TRUE AND frame1% = 1
PRINT "Collision",100,100
ELSE
PRINT "Keine Collision",100,100
ENDIF



SHOWSCREEN
WEND


Fehlermeldung:

Quote*** Configuration: WIN32 ***
precompiling:
GPC - GLBasic Precompiler V.11.005 SN:107e42d5 - 3D, NET
"ABS.gbas"(17) warning : command deprecated : Use CLEARSCREEN
"ABS.gbas"(34) error : call to undefined function : ASSERT(OK%)



Title: Wie funktioniert ASSERT()
Post by: Kitty Hello on 2012-May-13
Ohne Klammern?
Title: Re: Wie funktioniert ASSERT()
Post by: Schranz0r on 2012-May-13
Hilfe auszug:

ASSERT()

ASSERT(ok%)
Im Debug Modus wird hier ein Haltepunkt ausgeführt, wenn ok%=0 ist.

Im Release Modus wird es ignoriert.
Title: Re: Wie funktioniert ASSERT()
Post by: D2O on 2012-May-14
Quote from: Kitty Hello on 2012-May-13
Ohne Klammern?

QuoteDauer: 71.8 sek. Zeit: 06:43
Erstellen: 1 erfolgreich.

Start debug session.
_______________________________________
Injection started

Assertion: Value = 0
"E:\Basic\GLBasic\Project\GLBasic\ABS\ABS.gbas"(34) error : Behauptung ist falsch