Topics

Irgendwie vermisse ich
If ..

else if ..

endif

Habe ich was übersehen oder gibts das nicht ?

So stehts in der Hilfe

LOCAL var#$, var#$[]
GLOBAL var#$, var#$[]
LOCAL var#=wert#, var#=wert(), ...

a#$ = LOCAL var#$
LOCAL a#$ = GLOBAL a#$
...


und wieso geht das nicht :

LOCAL W# = 1024, H# = 768
GLOBAL Width# = 1024, Height# = 768

SETSCREEN 640, 480, 1
LIMITFPS -1
 
LOCAL FPS, Frames
WHILE TRUE
    INC FPS, 1
    IF GETTIMERALL() - Time >= 1000
       Time = GETTIMERALL()
       Frames = FPS; FPS = 0
    ENDIF
    PRINT "FPS: " + Frames, 200,200
SHOWSCREEN
WEND

Bei mir immer nur 60 Fps, außer ich stell LIMITFPS auf einen Wert unter 60.

Warum ?

Ja, schon wieder ich, teste gerade viel.

Diese Kollisonsabfrage: Das Sprite ist ein 100x80 , 32 bit png

Code (glbasic) Select Expand

SETSCREEN 640, 480, FALSE
SYSTEMPOINTER TRUE
a=1; LOADSPRITE "c:/test.png", a

WHILE MOUSEAXIS(5) = FALSE
    SPRITE a, 300, 200
    SPRITE a, 360, 240
    coll=0
    Colzeit =GETTIMERALL()
   
    WHILE GETTIMERALL()- Colzeit < 1000
      IF SPRCOLL (a, 300, 200, a,  360, 240)
         coll=coll+1
       ENDIF
    WEND
   
    PRINT "Kollisionen\Sek.: " + coll, 0, 450
    SHOWSCREEN
    IF MOUSEAXIS(5) = TRUE THEN Stop=TRUE
WEND
ENDCheckt bei mir +- 407.000/Sek. in GlBasic

in BlitzMax:

Code (glbasic) Select Expand

Graphics 600,480,0

a:timage =LoadImage ("c:/test.png")

Repeat
  DrawImage a, 300,200
  DrawImage a, 360, 240
  coll=0
  Colzeit = MilliSecs()
 
  While MilliSecs() - Colzeit < 1000
    If ImagesCollide(a,300,200,0,a, 360, 240,0)
      coll=coll+1
    EndIf
  Wend
 
  DrawText "Kollisionen\Sek.: " + coll, 10,400  
  Flip; Cls
Until MouseHit(3)Checkt bei mir +- 5.600/Sek. in BlitzMax

Träum ich, oder ist GlBasic bei Kollisonsabfragen wirklich so schnell ?

Lässt man übrigends die Kollisionsabfrage raus, sieht es es andersrum aus.
coll hat dann:
GlBasic          940.000
BlistzBasic 61.000.000

Müsste doch der Gernot was zu wissen!

TYPE tWaffe
    png
 ENDTYPE
 GLOBAL Img AS tWaffe

 //
 FUNCTION InitGrafiken:
   Img.png = 1
   //LOADSPRITE PrgPfad$ + "Boden_Stein.png" , Img.png
ENDFUNCTION


Kommt dieser Fehler
error : wrong argument type : TYPE  is not declared

Aber Img ist docvh oben als Global deklarier ?t

Hallo,
bin nagelneuer  GlBasic User und warte noch gespannt auf meinen Freischaltcode.

Bin schon seit fast 20 Jahren Hobby und Spaß Prgrogrammierer, arbeite Hauptsächlich mit folgenden Sprachen (mal mehr mal weniger): VB.Net, Delphi, BlitzMax, PureBasic.
Trotz meiner "langen Erfahrung" habe ich mich nie mit Profisprachen wie z.B C auseinander gesetzt.

Nun habe ich Grundsätzlich einige Fragen:

1)
Muß man für jeden Font, jede Farbe und jede Größe
jeweils 1 Font Laden ?
Da Textausgaben relativ häufig vorkommen und der Bitmap Font auch nicht grade klein ist,
empfinde ich es schon als großen Nachteil.

2)
Es wird bei Variablen die Groß und -Kleinschreibung beachtet (wie bei C Würg), das ist nicht grade Hilfreich bei der Fehlersuche.
Auch zwingende Dekleration wäre empfehlendswert.

Das ist mir halt nach kurzer Einarbeitung aufgefallen.
Ich finde es gut das der Befehlssatz auf das "nötigste" (was auch wer darunter versteht)
reduziert ist, solange man es mit eigenen Funktionen ersetzten kann.

Die Geschwindigkeit von GlBasic habe ich noch nicht so getestet, bei den Grafikausgaben von OpenGl, wenn sie nicht umständlich Impentiert wurden, ist daher in jeder Sprache fast gleich.

Da ich  bisher keine Variablendekleration erkannt habe und weis  wie schwer sich andere Sprachen mit Types  und mehrdimensionalen Felder Laufzeitmäßig tun, denke ich das  GlBasic bei reinen Integerberechnungen wohl nicht die Nase von hat. Nur halt eine Vermutung !

So das wars fürs  erste.
Ich wünsche dem Entwickler(n) von GlBasic noch viele Jahre Inovative Ideen, Glück  und viele neue (zahlende) Kunden die die Motivation heben.
So denk ich mein Geld gut angelegt zu haben und nicht das das Produkt demnächst eingestampft wird.

Da Heute viele Sprachen Überprogrammiert und Lernaufwändig sind, ist GlBasic genau das richtige.
Aber zu klein darf es auch nicht sein.