Fehler im Vollbild aus geben
Übersicht
BlitzBasic Allgemein
FlorianBetreff: Fehler im Vollbild aus geben |
 Mi, Mai 25, 2005 20:35Antworten mit Zitat 
|
|
|---|---|---|
|
Hallo Leute
[syntax="bb"] Function RuntimeError(S$) SetBuffer BackBuffer() Replace$ S$,Chr$(10)," " Color 0,139,255 Rect 0,0,GraphicsWidth(),GraphicsHeight() Color 255,0,0 abziehen=GraphicsHeight()/6 Rect abziehen,abziehen,GraphicsWidth()-(abziehen*2),GraphicsHeight()-(abziehen*2) ErrorFont=LoadFont("LSANS.TTF",(GraphicsHeight()-(abziehen*2))/5,False,False,True) SetFont ErrorFont Color 0,0,$FF9933 Rect abziehen,abziehen,GraphicsWidth()-(abziehen*2),StringHeight("RuntimeError")+20 Color 255,255,0 Text abziehen+10+(GraphicsWidth()-abziehen*2-20-StringWidth("RuntimeError"))/2,abziehen+10 ,"RuntimeError" FehlerTextHoch=abziehen+20+StringHeight("RuntimeError") FreeFont ErrorFont FehlerFont=LoadFont("LSANS.TTF",50) SetFont FehlerFont TextBreite=StringWidth(S$)/Len(S$) AusgabenBreite=GraphicsWidth()-abziehen*2-20 ZeichenInDerZeile=AusgabenBreite/TextBreite+1 Breit#=(GraphicsWidth()-abziehen*2-20)*50 Breit1#=Breit#/StringWidth(S$) SuperText2 S$,ZeichenInDerZeile,abziehen+10,FehlerTextHoch Flip WaitKey End End Function Function SuperText2(Text$,UmBruch,X,Y) Text$=Text$+String(" ",UmBruch*20) LenText=Len(Text$) Mal=Ceil#(LenText/Umbruch)+1 For xMal=1 To Mal bis=InStr2(Text$," ",Umbruch) If String(" ",Bis-1)<>Mid$(Text$,1,Bis-1) Then Text x,y,Mid$(Text$,1,Bis-1) Y=y+ FontHeight () End If If InStr3(Text$," ",Umbruch)=-1 Then Text$=Mid$(Text$,Bis+1) Else Text$=Mid$(Text$,Bis) End If Next End Function |
||
- Zuletzt bearbeitet von Florian am Mi, Mai 25, 2005 21:50, insgesamt einmal bearbeitet
|
Henry |
Mi, Mai 25, 2005 21:09 Antworten mit Zitat
|
|---|---|---|
| Hallo | ||
|
Aiya Eärendil Elenion Ancalima!
All you have to decide is what to do with the time that is given to you. • Robsite.de ist eine Anlaufstelle für Tutorials und Tools, die Noobs das Leben leichter machen! • Forensuche ist nicht nur als Lückenfüller in den oberen Links gedacht! |
||
|
Chester |
Mi, Mai 25, 2005 21:29 Antworten mit Zitat
|
|---|---|---|
| Könntest du vllt. dein Problem etwas genauer berschreiben? | ||
|
Alfadur |
Mi, Mai 25, 2005 21:36 Antworten mit Zitat
|
|---|---|---|
|
hallo florian...
egal was es ist, es gefällt mir nicht. |
||
| A Cray is the only computer that runs an endless loop in less than four hours. | ||
Florian |
Mi, Mai 25, 2005 21:40 Antworten mit Zitat
|
|
|---|---|---|
| Also wenn man den BlitzBasic Befehl "RUNTIMEERROR" verwendet und das Programm Im Vollbild läuft, dann wird der Text nicht im Vollbildmodus ausgegeben. Meine Function gibt den Text am Vollbildmodus ausgeben. | ||
Dreamora |
Mi, Mai 25, 2005 21:51 Antworten mit Zitat
|
|
|---|---|---|
|
Das ist der Sinn der Funktion. Das im Falle eines kritischen Errors das Programm geschlossen und der Fehler ausgegeben wird. Denn mit deiner Methode crasht das Programm und der Benutzer bekommt den Fehler nie zu Gesicht.
Für etwas anderes braucht man den Befehl eigentlich nicht (wenn man ihn überhaupt braucht. Ich bevorzuge Debuglog, denn die Ausgaben bleiben erhalten und verschwinden mit einem non-debug compile automatisch) ~GESCHLOSSEN~ Weder eine Frage noch ein Problem und es leider auch nicht wert ins Codearchiv verschoben zu werden Dreamora |
||
| Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen. | ||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group