Mein Code oder Blitz+

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

kog

Betreff: Mein Code oder Blitz+

BeitragSo, Feb 26, 2006 17:54
Antworten mit Zitat
Benutzer-Profile anzeigen
Guten Tag, ich bin es wieder einmal Wink
Ich weiss nicht ob der titel passt und wenn nicht einfach ändern

so nun zu meinem Problem:
Ich arbeite momentan mit BlitzPlus weil das einbisschen schneller läuft, aber nach einiger zeit verschwindet die Schrift einfach (Hier die Screens):
Vorher
user posted image

Nachher
user posted image

Ich benutze BlitzPlus im 2D style, ich hoffe jemand kann mir Helfen...

mfg k.o.g.

simi

BeitragSo, Feb 26, 2006 18:04
Antworten mit Zitat
Benutzer-Profile anzeigen
benutzt du print? => wenn ja, dann musst du ql:text nehemn. Print gibt bei B+ den Text in der Konsole aus.

Wenn das nicht zutrifft, wäre vielleicht code mal nicht schlecht Wink

cu simi

kog

BeitragSo, Feb 26, 2006 18:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Nein ich benutze nicht print, sondern alles mit Text

Hmm das wegen dem Code, naja das wird der Dedicated Server für CS2Dn.
Ich werde nochmal nachschauen und wenn es wirklich nicht mehr geht schreibe ich den Code...

p.s.: @simi, eh chome ou us der schwiz Wink wie aut besch?

kog

BeitragDi, Feb 28, 2006 13:25
Antworten mit Zitat
Benutzer-Profile anzeigen
Wer hätte es gedacht..
habe schonwieder ein Problem Very Happy

Ich möchte eine Lade anzeige machen, wenn man z.b. den Starten Button drück, kommt ein fenster, da drin steht: Please Wait
aber jetzt will ich auch noch mach, das punkte kommen, z.b. so:
.
..
...

Ich weiss ich habe immer mühe mit erklären, aber hier mal den Code den ich bis jetzt hab
Code: [AUSKLAPPEN]
Function load()
   Local ok=0
   ;SetBuffer BackBuffer()
   Cls
   Repeat
      Color 0,0,0
      Rect 150,150,300,200,1
      Color 255,255,255
      Rect 150,150,300,200,0
      Color 0,0,255
      Text 265,165,"Loading"
      Color 255,255,255
      Line 150,190,449,190
      Text 320-StringWidth("Please Wait")/2-25,250,"Please Wait"
      Text 320-StringWidth("Please Wait")/2+45,250,String(".",h)
      Text 640-StringWidth("Dedicated Server v"+version$)-10,460,"Dedicated Server v"+version$
      h=h+1
      If h>3 Then h=1
      ok=1
      Flip False
   Until ok=1
End Function


der Buffer wird aus dem Menü schon geladen...
und die Var. h wird im Global geladen¨!

mfg k.o.g.

simi

BeitragMi, März 01, 2006 21:05
Antworten mit Zitat
Benutzer-Profile anzeigen
und was ist nicht gut an dem code ??

wenn du sowas basteln willst, brauchst ud sicher mal einen timer, oder so was ein ähnliches.... Dafür kannst du ql:Millisecs() verwenden. wie das genau geht findest du in hunderten von threads in diesem forum. Und jedesmal, wenn eine gewisse Zeit vergangen ist, kannst du einen punkt hinzufügen. dann hast du deinen schönen ladeeffekt

kog

BeitragMi, März 01, 2006 22:03
Antworten mit Zitat
Benutzer-Profile anzeigen
Jop das war mir klar das ich noch etwas einbauen muss, aber jetzt geht er:
Code: [AUSKLAPPEN]
Function load()
   Local ok=0
   SetBuffer FrontBuffer()
   Cls
   Repeat
      Color 0,0,0
      Rect 150,150,300,200,1
      Color 255,255,255
      Rect 150,150,300,200,0
      Color 0,255,0
      Text 265,165,"Loading"
      Color 255,255,255
      Line 150,190,449,190
      Text 320-StringWidth("Please Wait")/2-25,250,"Please Wait"
      Text 320-StringWidth("Please Wait")/2+43,250,String(".",h)
      Text 640-StringWidth("Dedicated Server v"+version$)-10,460,"Dedicated Server v"+version$
      If MilliSecs()-loadtime>499 Then
         loadtime=MilliSecs()
         h=h+1
      End If
      If h>4 Then h=1
      ok=1
      Flip False
   Until ok=1
End Function

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group