Wie funktioniert ASSERT()

Previous topic - Next topic

D2O

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%)



I7 2600K; 8 GB RAM ; Win10 Pro x64 | NVidia GTX 750 TI 2048MB ; Realtec OnBoard Sound;
Lenovo ThinkPad T400: XP Pro
GLB Premium-immer Aktuell

Kitty Hello


Schranz0r

Hilfe auszug:

ASSERT()

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

Im Release Modus wird es ignoriert.
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

D2O

#3
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
I7 2600K; 8 GB RAM ; Win10 Pro x64 | NVidia GTX 750 TI 2048MB ; Realtec OnBoard Sound;
Lenovo ThinkPad T400: XP Pro
GLB Premium-immer Aktuell