kein blid im menü
Übersicht
BlitzBasic Allgemein
blitzBetreff: kein blid im menü |
 Mi, Aug 25, 2004 16:43Antworten mit Zitat 
|
|
|---|---|---|
|
hab ein spiel programmiert und das menü streikt
habe 3 buttons (rect und print) eingebaut, sie funktionieren aber wenn ich ein bild als hintergrund setzen möchte, bleibt der bildschirm orange (habs auf die farbe eingestellt) und die maus macht einen einmaligen abbdsruck an ihrem startpunkt bitte um hilfe mfg blitz |
||
|
Hubsi |
Mi, Aug 25, 2004 16:47 Antworten mit Zitat
|
|---|---|---|
Vermutlich ein Fehler in der Befehlsabfolge. Poste den entsprechenden Fetzen Code, sonst hol ich meine Glaskugel raus 
|
||
| Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn... | ||
|
DivineDominion |
Mi, Aug 25, 2004 16:47 Antworten mit Zitat
|
|---|---|---|
|
Ohne Code geht's schlecht...
Das Orange klingt so als würdest du ClsColor und CLS nehmen... RECT und PRINT als Kombination recht auch nicht so fein... Print ist eigentlich sowas wie die Ausgabe in DOS 
Nimm Rect für den Rand und nochmal für den Hintergrund (kann man nämlich füllen), Text für die Beschriftung (auch wenn Bilder hier schöner wären) und so
Und zeig mal Code. |
||
|
christian.tietze@gmail.com - https://christiantietze.de
macOS |
||
blitzBetreff: code |
Do, Aug 26, 2004 15:41 Antworten mit Zitat
|
|
|---|---|---|
|
hier ist der code:
Print "Tut mir leid!" demo=OpenFile("C:\BB2D\Fragen\Demo") zeit=ReadLine(demo) If zeit=0 Then RuntimeError "Demo ist abgelaufen!" zeit=zeit-1 CloseFile demo DeleteFile "C:\BB2D\Fragen\demo" demo=WriteFile("C:\BB2D\Fragen\demo") WriteLine(demo), zeit CloseFile demo ;Titel AppTitle "Chrisi's Quiz" Fragenanzahl=120 ;Vollbildschirm mit 32 Graphics 640, 480, 32, 1 ;Comic Sans MS laden startfont = LoadFont("Comic Sans MS", 100, 1, 0, 0) ;Sicherheitsfrage für startfont If startfont = 0 Then RuntimeError "Font 'Comic Sans MS' konnte nicht gefunden werden! Das Spiel wird beendet!" ;Weiterleitung per Tastendruck Print "Bitte Enter drücken" ;Comic Sans MS setzten SetFont startfont ;Stelle setzten Locate 100, 50 ;Chrisi Games auf den Bildschirm schreiben Print "Chrisi Games" ;Font freigeben FreeFont startfont ;Auf Tastendruck warten WaitKey ;\|/ Menü ;Bildschirm löschen und Farbe setzten Cls ClsColor 255, 100, 20 Cls ;Font laden und setzten und Frage menüfont = LoadFont("Comic Sans MS", 50, 1, 0, 0) If menüfont=0 Then RuntimeError "Cmic Sans MS konnte nicht gefunden werden" SetFont menüfont ;Buffer setzten SetBuffer BackBuffer() ;Maus laden und Frage maus=LoadImage("C:\BB2D\pointer.bmp") If maus = 0 Then RuntimeError "Pointer.bmp konnte nicht gefunden werden!" copyrightfont=LoadFont("Comic Sans MS", 20, 1, 0, 0) If copyrightfont=0 Then RuntimeError "Comic Sans MS konnte nicht gefunden werden!" ;Abfrageschleife Repeat X= MouseX() Y= MouseY() DrawImage maus, X, Y Locate 60, 55 Print "Start" Locate 208, 195 Print "Ende" Locate 295, 60 Print "Optionen" DrawImage maus, X, Y Rect 60, 60, 100, 50, 0 SetFont copyrightfont Locate 10, 350 Print "Diese Demo lässt sich noch " + zeit + "-mal öffnen!" Locate 50, 460 Print "Chrisi's Quiz V1.0/Copyright by Christopher Lehner/Fragendatum August 2004" SetFont menüfont Rect 200, 200, 100, 50, 0 Rect 295, 60, 160, 50, 0 DrawImage maus, X, Y ;Spielen If ImageRectOverlap(maus, X, Y, 60, 60, 100, 500) And MouseDown(1) Then Gosub spiel EndIf ;Ende If ImageRectOverlap(maus, X, Y, 200, 200, 100, 50) And MouseDown(1) Then End EndIf ;Optionen If ImageRectOverlap(maus, X, Y, 295, 60, 160, 50) And MouseDown(1) Then Gosub optionen EndIf DrawImage maus, X, Y Flip Cls Forever ;Optionen .optionen Cls ClsColor 255, 100, 20 Cls Flip Const A=0 SetBuffer BackBuffer() Repeat X=MouseX() Y=MouseY() DrawImage maus, X, Y If ImageRectOverlap(maus, X, Y, 10, 10, 50, 50) And MouseDown(1) Then Delay 150 Return EndIf If ImageRectOverlap(maus, X, Y, 25, 100, 250, 50) And MouseDown(1) Then Gosub computerinfos SetFont menüfont EndIf Rect 10, 10, 50, 50, 0 Locate 10, 10 Print "<-" Locate 28, 100 Print "Computerinfos" Rect 25, 103, 250, 50, 0 DrawImage maus, X, Y Flip Cls Until A=1 ;Computerinfos .computerinfos computerinfos=LoadFont("Comic Sans MS", 30, 1, 0, 0) If computerinfos=0 Then RuntimeError "Comic Sans MS wurde nicht gefunden!" SetFont computerinfos Cls ClsColor 255, 100, 20 Flip Cls SetBuffer BackBuffer() Repeat Locate 0, 100 X=MouseX() Y=MouseY() DrawImage maus, X, Y Locate 10, 10 Print "<-" Locate 0, 100 Print "Betriebssystem " + SystemProperty("OS") Locate 0, 200 Print "Windows Ordner " + SystemProperty("WINDOWSDIR") Locate 0, 300 Print "Systemordner " + SystemProperty("Systemdir") Rect 10, 10, 50, 50, 0 If ImageRectOverlap(maus, X, Y, 10, 10, 50, 50) And MouseDown(1) Then Delay 100 Return EndIf Flip Cls Forever ;Spiel .spiel spielfont=LoadFont("Comic Sans MS", 25, 1, 0, 0) If spielfont=0 Then RuntimeError "Fehler! Comic Sans MS wurde nicht geunden!" SetFont spielfont Cls Flip Locate 0, 0 SeedRnd MilliSecs() Zufall = Rand(0, 100) Auslesen = ReadFile("C:\BB2D\Fragen\" + Zufall) Ausgelesen$=ReadLine(Auslesen) Frage$=Left$(Ausgelesen, 100) Fragev$=Trim$(Frage$) Antwort$=Right(Ausgelesen, 100) Antwortv$=Trim$(Antwort$) Antwortv2$=Lower$(Antwortv$) Cls Flip Print Fragev$ bekomme$=Input("") bekomme2$=Lower$(bekomme$) Fragenanzahl=Fragenanzahl+1 If Fragenanzahl=220 Then Print "Bravo, du hast 100 Fragen richtig beantwortet!" Return EndIf If bekomme2$=Antwortv2$ Then Glück= Rnd(1, 7) If Glück=1 Then Print "Toll" If Glück=2 Then Print "Super" If Glück=3 Then Print "Spitze" If Glück=4 Then Print "Gut!" If Glück=5 Then Print "Bravo" If Glück=6 Then Print "Sehr Gut!" If Glück=7 Then Print "Toll gemacht!" Delay 1000 Goto spiel EndIf If bekomme$="Chrisi ist der BESTE" Then Print Antwortv$ Delay 3000 Goto spiel EndIf Print "Leider Falsch! Die richtige Antwort wäre " + Antwortv$ + " gewesen!" Print "Drücke Enter um ins Menü zurückzukehren!" WaitKey SetFont menüfont |
||
blitzBetreff: code |
Do, Aug 26, 2004 15:42 Antworten mit Zitat
|
|
|---|---|---|
|
hier ist der code:
Print "Tut mir leid!" demo=OpenFile("C:\BB2D\Fragen\Demo") zeit=ReadLine(demo) If zeit=0 Then RuntimeError "Demo ist abgelaufen!" zeit=zeit-1 CloseFile demo DeleteFile "C:\BB2D\Fragen\demo" demo=WriteFile("C:\BB2D\Fragen\demo") WriteLine(demo), zeit CloseFile demo ;Titel AppTitle "Chrisi's Quiz" Fragenanzahl=120 ;Vollbildschirm mit 32 Graphics 640, 480, 32, 1 ;Comic Sans MS laden startfont = LoadFont("Comic Sans MS", 100, 1, 0, 0) ;Sicherheitsfrage für startfont If startfont = 0 Then RuntimeError "Font 'Comic Sans MS' konnte nicht gefunden werden! Das Spiel wird beendet!" ;Weiterleitung per Tastendruck Print "Bitte Enter drücken" ;Comic Sans MS setzten SetFont startfont ;Stelle setzten Locate 100, 50 ;Chrisi Games auf den Bildschirm schreiben Print "Chrisi Games" ;Font freigeben FreeFont startfont ;Auf Tastendruck warten WaitKey ;\|/ Menü ;Bildschirm löschen und Farbe setzten Cls ClsColor 255, 100, 20 Cls ;Font laden und setzten und Frage menüfont = LoadFont("Comic Sans MS", 50, 1, 0, 0) If menüfont=0 Then RuntimeError "Cmic Sans MS konnte nicht gefunden werden" SetFont menüfont ;Buffer setzten SetBuffer BackBuffer() ;Maus laden und Frage maus=LoadImage("C:\BB2D\pointer.bmp") If maus = 0 Then RuntimeError "Pointer.bmp konnte nicht gefunden werden!" copyrightfont=LoadFont("Comic Sans MS", 20, 1, 0, 0) If copyrightfont=0 Then RuntimeError "Comic Sans MS konnte nicht gefunden werden!" ;Abfrageschleife Repeat X= MouseX() Y= MouseY() DrawImage maus, X, Y Locate 60, 55 Print "Start" Locate 208, 195 Print "Ende" Locate 295, 60 Print "Optionen" DrawImage maus, X, Y Rect 60, 60, 100, 50, 0 SetFont copyrightfont Locate 10, 350 Print "Diese Demo lässt sich noch " + zeit + "-mal öffnen!" Locate 50, 460 Print "Chrisi's Quiz V1.0/Copyright by \|//Fragendatum August 2004" SetFont menüfont Rect 200, 200, 100, 50, 0 Rect 295, 60, 160, 50, 0 DrawImage maus, X, Y ;Spielen If ImageRectOverlap(maus, X, Y, 60, 60, 100, 500) And MouseDown(1) Then Gosub spiel EndIf ;Ende If ImageRectOverlap(maus, X, Y, 200, 200, 100, 50) And MouseDown(1) Then End EndIf ;Optionen If ImageRectOverlap(maus, X, Y, 295, 60, 160, 50) And MouseDown(1) Then Gosub optionen EndIf DrawImage maus, X, Y Flip Cls Forever ;Optionen .optionen Cls ClsColor 255, 100, 20 Cls Flip Const A=0 SetBuffer BackBuffer() Repeat X=MouseX() Y=MouseY() DrawImage maus, X, Y If ImageRectOverlap(maus, X, Y, 10, 10, 50, 50) And MouseDown(1) Then Delay 150 Return EndIf If ImageRectOverlap(maus, X, Y, 25, 100, 250, 50) And MouseDown(1) Then Gosub computerinfos SetFont menüfont EndIf Rect 10, 10, 50, 50, 0 Locate 10, 10 Print "<-" Locate 28, 100 Print "Computerinfos" Rect 25, 103, 250, 50, 0 DrawImage maus, X, Y Flip Cls Until A=1 ;Computerinfos .computerinfos computerinfos=LoadFont("Comic Sans MS", 30, 1, 0, 0) If computerinfos=0 Then RuntimeError "Comic Sans MS wurde nicht gefunden!" SetFont computerinfos Cls ClsColor 255, 100, 20 Flip Cls SetBuffer BackBuffer() Repeat Locate 0, 100 X=MouseX() Y=MouseY() DrawImage maus, X, Y Locate 10, 10 Print "<-" Locate 0, 100 Print "Betriebssystem " + SystemProperty("OS") Locate 0, 200 Print "Windows Ordner " + SystemProperty("WINDOWSDIR") Locate 0, 300 Print "Systemordner " + SystemProperty("Systemdir") Rect 10, 10, 50, 50, 0 If ImageRectOverlap(maus, X, Y, 10, 10, 50, 50) And MouseDown(1) Then Delay 100 Return EndIf Flip Cls Forever ;Spiel .spiel spielfont=LoadFont("Comic Sans MS", 25, 1, 0, 0) If spielfont=0 Then RuntimeError "Fehler! Comic Sans MS wurde nicht geunden!" SetFont spielfont Cls Flip Locate 0, 0 SeedRnd MilliSecs() Zufall = Rand(0, 100) Auslesen = ReadFile("C:\BB2D\Fragen\" + Zufall) Ausgelesen$=ReadLine(Auslesen) Frage$=Left$(Ausgelesen, 100) Fragev$=Trim$(Frage$) Antwort$=Right(Ausgelesen, 100) Antwortv$=Trim$(Antwort$) Antwortv2$=Lower$(Antwortv$) Cls Flip Print Fragev$ bekomme$=Input("") bekomme2$=Lower$(bekomme$) Fragenanzahl=Fragenanzahl+1 If Fragenanzahl=220 Then Print "Bravo, du hast 100 Fragen richtig beantwortet!" Return EndIf If bekomme2$=Antwortv2$ Then Glück= Rnd(1, 7) If Glück=1 Then Print "Toll" If Glück=2 Then Print "Super" If Glück=3 Then Print "Spitze" If Glück=4 Then Print "Gut!" If Glück=5 Then Print "Bravo" If Glück=6 Then Print "Sehr Gut!" If Glück=7 Then Print "Toll gemacht!" Delay 1000 Goto spiel EndIf If bekomme$="Chrisi ist der BESTE" Then Print Antwortv$ Delay 3000 Goto spiel EndIf Print "Leider Falsch! Die richtige Antwort wäre " + Antwortv$ + " gewesen!" Print "Drücke Enter um ins Menü zurückzukehren!" WaitKey SetFont menüfont |
||
|
RallimenSieger des 30-EUR-Wettbewerbs |
Do, Aug 26, 2004 16:15 Antworten mit Zitat
|
|---|---|---|
|
Ein Problem liegt daran das du print benutzt!
Print schreibt immer in den Frontbuffer nie in den eingestellten Buffer! hier Backbuffer() im Fenstermodus könnte das sogar funktioniern, aber garantiert nicht im Vollbild Modus, es sei denn du setzt alle Prints nach Flip! Ändere mal die Prints in Text um, den text schreibt in den eingestellten Buffer und ist ausserdem viel schneller! Beispiel Code: [AUSKLAPPEN] Locate 10,100
Print "was weiß ich" in Code: [AUSKLAPPEN] Text 10,100,"was weiß ich"
dann ist schon mal das Problem gelöst! Und benutzte Code Tag´s !!! dann sieht das so aus wie bei mir jetzt! und cls gehört normal immer hinter dem Flip es ei denn du möchtest für längere Zeit einen einfarbigen Bildschirm haben |
||
|
[BB2D | BB3D | BB+]
|
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group