Topics

Was ist mit der 6.005 Version ?

Lässt sich nicht runterladen.

SETSCREEN 800, 600, 0
GLOBAL i, Menge, Level = 1
FOR i = 1 TO 20
   INC Level, 0.1
   IF Level = 2 THEN Menge = 10
   PRINT "Level = " + Level + "  Menge = " + Menge, 10, i*15
NEXT
SHOWSCREEN
MOUSEWAIT

Warum wird Menge nicht 10 ?

Wie man liest ist OpenGL 3.0 raus und hat die meisten Anwender wohl sehr enttäuscht.
Es gäbe keine neuen Funktionen und die groß Angekündigte Api Säuberrung blieb wohl auch aus.

Viele wollen wechseln und ärgern sich das OpenGL es DirectX so einfach macht und
zum Zahnlosen Rivalen verkommt.

Ich habe nicht das OpenGL-DirectX Wissen um einen Vergleich anzustellen, sind halt
nur Sachen die ich in diversen Foren gelesen habe.

Hat OpenGL mit 3.0 ein Eigentor geschossen ?

Hat sich bei SETSHOEBOX irgendwas geändert ?

Seit der letzten oder vorletzten Version bekomme ich beim Programmstart immer das OpenGL Emulation Fenster angezeigt.


Ich benutze die Schuhschachtel so:

Schuhschachtel mit Unterverzeichnissen im Editor Menü erstellen ("Daten.sbx")

Dann lass ich eine Batchdatei laufen um alles in eine Exe zu packen:
copy /B Programm.exe + /B Daten.sbx Programm.exe

Im Programm code steht: SETSHOEBOX "Programm.exe", "Programm.exe"


Dies funktionierte vorher anstandslos. Siehe mein Programm Balloner im Showroom.

Ist der Alphamode feiner Aufzulösen ?

Ein Sprite mit Alphamode  -0.06 ist noch gut zu sehen, -0.05 dagegen gar nicht mehr.
Warum ?

Wäre GlBasic DirectX fähig zu machen sehr Umständlich oder Komplizierter ?

Frage deshalb, weil in meinem Bekanntenkreis eigentlich mehr Rechner DirectX installiert haben wie OpenGl.
Da kommt meist immer diese MessageBox "neuster Treiber BlaBla und kann nur im Fenstermodus ausgeführt werden", was dann so ca. 2 Frames schnell ist.

Die Leute sind halt nicht so Freaks wie wir, suchen und Installieren wie Blöde.
Die sagen immer "Mach blos nix kaputt, die Kiste läuft grad einwandfrei"

Mit dem Fontcreater kann man die Fonts ja mit Qutput Png speichern.

Das klappt soweit auch ganz gut, zumal die Fontdatei nur noch 3% der größe eines Bmp Fonts hat.
Leider ist aber der Png Font nicht Transparent, haben immer einen Schwarzen Hintergrund.

Ist das so oder kann man das ändern ?

GLBasic IDE, Version: 5.150
Im Debugger funktioniert bei mir nur Einzellschritt.
Nächste Zeile oder Herrausspringen gehen auch nur mit Einzelschritt. (ist dann sehr Zeitraubend)

Seit dem letztem Udate schmieren alle meine GLB Programme nach dem Starten ab und zu ab.
z.B 10 mal Starten 5x abstürzen.

Wie gesagt nicht eins sonder alle die davor einwandfrei liefen .

Möchte gerne einen Risiko Klon machen.

Nun überlege ich schon eine Zeit lang wie ich die einzelnen Länder grafisch einbringe, mit schneller Erkennung, Anwahl und Einfärbung ?

Hat irgendwer damit Erfahrung, Tips oder Vorschäge ?

Endlich werden nur die geänderten Dateien neu compiliert. SUPER.
Damit ist jetzt flüssigeres Arbeiten möglich.

Weiter so.

Was genau ist bei Mausunterstützung und GetTimer verbessert worden ?

SETTRANSPARENCY RGB(200,200,200)
FILLRECT 0, 0, 100, 100, RGB(200,200,200)

GRABSPRITE 0, 0,0,100,100

WHILE TRUE
   SPRITE 0, 50,50
   SHOWSCREEN
WEND

Normal sollte da nichts zu sehen sein, bei mir ist aber ein weißer Strich zu sehen.
(seit dem vorletzten oder letzten Update habe ich das)

Sieht aus als wenn Grabsprite bei dem ersten X Parameter nicht Transparent macht.

Im FAQ
Kann ich eine alleinstehende .exe erstellen?

funktioniert der Link mit der Schuschachtel nicht.

Schuschachtel-Alleinstehend

Gut, hört sich dramatisch an und ich will nichts schlecht reden.

Dieser simple Sortiercode Code:

DIM A[10000]
FOR I = 0 TO 10000-1
   A = 10000 - I
NEXT

      T = GETTIMERALL()
      FOR I = 0 TO 10000 - 1
         FOR J = I TO 10000-1
            IF A > A[J]
               A[0] = A ; A = A[J] ; A[J] = A[0]
            ENDIF
         NEXT
      NEXT
     
PRINT (GETTIMERALL()- T)/1000, 10,50
SHOWSCREEN    
KEYWAIT

Dauert bei mir knapp 6 Sek., der gleiche Code mit Double Variablen in VBNet 0, 22 Sek.
Warum ist der Unterschied so gewaltig ?
Habe ich was übersehen oder wird bei so was in VB Assembler Code benutzt ?

Brauche bei momentan ca. 1300 Codezeilen  3.9 sek. bist Programmstart ?
Habe auf 4 Dateien ausgelagert und mein Rechner ist nicht grad der langsamste.

Wie geht das compilen ?
Ganzes Project ?
Nur geänderte Projectdateien ?
Nur geänderter Code ?
Was dauert am längsten ?

Wie kriegt ich es schneller ? (ohne neuen Rechner)

Gibt ja ein GlBUpdate,sorgar scon mit dem versprochenen ElseIf Befehl.

Da sag ich Danke Gernot.

Kann man nur 0-15 Bitmap Fonts nutzen ?

Ab nur 16 kriege ich den Font nicht mehr angezeigt.

FILLRECT 0, 0, 100, 100, RGB(255,0,128)
Circle(50, 50, 50, cYellow)  // Function die einen Kreis zeichnet
GRABSPRITE 1, 0, 0, 100, 100

Das Sprite ist nicht Transparent, pinkes Quadrat mit einem gelben Kreis.

Will verschiedene Kreise im Programm erzeugen und nicht einladen.

Muß doch Funktionieren, oder ?

TYPE tPoint
  X; Y
ENDTYPE
TYPE tM
  A; B
  St[1] AS tPoint
ENDTYPE
GLOBAL M AS tM

LOCAL Z, Q
FOREACH Z IN M.St[]
  Q = Z.X             // GEHT NICHT
  Q = M.St

• .X   // Geht

NEXT

Warum geht das eine und das andere nicht ?

Hiermit kann jeder schnell und einfach Buttons für sein Programm verwenden.
Zusätzlich sind noch Funktionen für 3D Boxen und Mittiger TExt dabei.
Enfach kopieren und ausprobieren.

SYSTEMPOINTER TRUE
ED=1
WHILE TRUE
   MOUSESTATE mx, my, mb1, mb2
   IF Menu1=0 AND Butt("Hauptmenue", 200, 100, 200, 50, RGB(50,150,200))
     Menu1 = 1
   ELSE
     IF Menu1=0 AND Butt("ENDE", 200, 200, 100, 50, RGB(50,150,200))
        END
     ENDIF  
   ENDIF
   IF Menu1
     IF Butt("Menue Schliessen", 250, 300, 250, 40, RGB(50,150,200))
       Menu1 = 0; qw=0
     ELSE
       IF Butt("Editor " + ED, 250, 150, 150, 30, RGB(50,150,200))
         ED = -ED
       ELSE
         IF Butt("Spielerei", 250+qw, 200, 190, 30, RGB(50,150,200))
           INC qw, 10
         ENDIF
       ENDIF
     ENDIF
   ENDIF

SHOWSCREEN
WEND
//
//
// ------------------------------------------------------------- //
// -=#  BOX  #=-
// ------------------------------------------------------------- //
FUNCTION Box: X, Y, W, H, Col, Press
  LOCAL Fa, Dunkel = RGB(22,22,22), Hell = RGB(244,244,244)
  INC W, X; INC H, Y
  IF Press = 1
    Fa=Dunkel; Dunkel= Hell; Hell=Fa
  ENDIF
  FILLRECT X, Y, W, H, Col
  DRAWLINE X, Y, W, Y, Hell   // oben
  DRAWLINE W, Y, W, H, Dunkel // rechts
  DRAWLINE X, H, W, H, Dunkel // unten
  DRAWLINE X, Y+1, X, H, Hell // links
ENDFUNCTION // BOX
// ------------------------------------------------------------- //
// -=#  BUTT  #=-
// ------------------------------------------------------------- //
FUNCTION Butt: Tex$, X, Y, W, H, Col
   //Butt wird immer Mittig angezeigt
   //PRINT mb1+" , "+ButtKlick+ " BX: "+ ButtMausX  + " BX: "+ ButtMausX ,0,30
   DEC X, W/2; DEC Y, H/2
   Box(X, Y, W, H, Col, 0) ; Text(Tex$, X+W/2, Y+H/2) // Normal
    IF istdrin(X, Y, W, H)  
       IF mb1=0 AND ButtKlick = 0
         ALPHAMODE 0.15 ; Box(X, Y, W, H, Col, 0)  // Hoverefekt
       ELSE  // gedrückt
          ALPHAMODE 0 ; Box(X, Y, W, H, Col, 1) ; Text(Tex$, X+W/2, Y+H/2) // Normal
          ALPHAMODE 0.15 ; Box(X, Y, W, H, Col, 0)  // Hoverefekt
          ButtKlick = 1 ; Press = 1
          ButtMausX = mx; ButtMausY = my
          IF mb1 = 0  //Maus losgelassen
             ButtKlick = 0; ButtMausX = -1 ; ButtMausY = -1
             PLAYSOUND (Sound, 0, .95)
             RETURN 1
          ENDIF
       ENDIF
    ENDIF
    ALPHAMODE 0
    IF mb1 = 0 AND ButtKlick = 1 AND ButtMausX <> mx AND ButtMausY <> my
       ButtKlick = 0; ButtMausX = -1 ; ButtMausY = -1
    ENDIF
ENDFUNCTION // BUTT
// ------------------------------------------------------------- //
// -=#  ISTDRIN  #=-
// ------------------------------------------------------------- //
FUNCTION istdrin: X, Y, W, H
   IF (mx >= X AND mx <= X + W) AND (my >= Y  AND my <= Y + H) THEN RETURN 1
ENDFUNCTION // ISTDRIN
// ------------------------------------------------------------- //
// -=#  TEXT  #=-  Mittiger Text
// ------------------------------------------------------------- //
FUNCTION Text: Text$, X, Y
  GETFONTSIZE W, H
  W = W * LEN(Text$)
  PRINT Text$, X - W / 2 , Y - H / 2   
ENDFUNCTION // TEXT