Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Problem mit bild ( verschwindet )

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Sippo



Anmeldungsdatum: 17.04.2008
Beiträge: 125
BeitragVerfasst am: 20.04.2008, 18:51    Titel: Problem mit bild ( verschwindet ) Antworten mit Zitat
Hebe ein Problem mit edem Quellcode unten ich habe Bilder eingefügt. Bei ausführen funktioniert es noch aber sobald ich compiliere sind die Bilder weg. Kopf schütteln Kopf schütteln
außerdem hat mir wer nen tipp wie ich bewegte Bilder auch noch anderst hinbekomme als immer ein neues Bild mit einer kleinen veränderung einzufügen?

Hier der Quellcode:
Code:
dim as integer x, y, a
dim b as integer

screen 21, 32
bload "Data\menue\1.bmp"

maus:

do
    getmouse (x,y, ,a)
    locate 1,1
    print using "####:####"; x,y
    IF a AND 1 AND x >= 421 AND x <= 834 AND y >= 246 AND y <= 318 THEN goto start
    IF a AND 1 AND x >= 421 AND x <= 834 AND y >= 423 AND y <= 495 THEN goto optionen
    IF a AND 1 AND x >= 421 AND x <= 834 AND y >= 601 AND y <= 674 THEN end
    IF a AND 1 AND x >= 421 AND x <= 834 AND y >= 601 AND y <= 674 THEN end
    IF a AND 1 AND x >= 469 AND x <= 560 AND y >= 348 AND y <= 359  and b = 1 THEN goto neu
    IF a AND 1 AND x >= 708 AND x <= 797 AND y >= 348 AND y <= 359  and b = 1 THEN goto laden
    IF a AND 1 AND x >= 469 AND x <= 561 AND y >= 527 AND y <= 552  and b = 2 THEN goto info
    IF a AND 1 AND x >= 710 AND x <= 800 AND y >= 529 AND y <= 551  and b = 2 THEN goto intro
loop

start:
bload "Data\menue\2.bmp"
sleep 200
bload "Data\menue\3.bmp"
sleep 200
bload "Data\menue\4.bmp"
sleep 200
bload "Data\menue\5.bmp"
sleep 200
bload "Data\menue\6.bmp"
b = 1
goto maus

optionen:
bload "Data\menue\8.bmp"
sleep 200
bload "Data\menue\9.bmp"
sleep 200
bload "Data\menue\10.bmp"
sleep 200
bload "Data\menue\11.bmp"
sleep 200
bload "Data\menue\12.bmp"
b = 2
goto maus

neu:
cls
print "neu"
sleep
end

laden:
cls
print"laden"
sleep
end

info:
cls
print "info"
sleep
end

intro:
cls
print "intro"
sleep
end


und noch eine frage: wiso muss ich meine maus erst aus dem Bereich den ich anklicken will heraus tun und dann wieder drauf, dass es funktioniert?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
BeitragVerfasst am: 20.04.2008, 20:16    Titel: Antworten mit Zitat
Hi,
ich vermute die Bilder werden nicht gefunden?
Am besten man hat erstmal die Bilder im gleichen Verzeichnis in dem man auch die EXE compiliert (dann braucht man keine Pfadangabe).

Ein Tip zum Programmaufbau, benutz lieber Unterprogramme statt der Springerei. verwundert
Code:
Dim Shared As Integer x, y, a, b

Sub Start
BLoad "DATA\menue\2.bmp"
Sleep 200
BLoad "DATA\menue\3.bmp"
Sleep 200
BLoad "DATA\menue\4.bmp"
Sleep 200
BLoad "DATA\menue\5.bmp"
Sleep 200
BLoad "DATA\menue\6.bmp"
b = 1
End Sub

Sub optionen
BLoad "DATA\menue\8.bmp"
Sleep 200
BLoad "DATA\menue\9.bmp"
Sleep 200
BLoad "DATA\menue\10.bmp"
Sleep 200
BLoad "DATA\menue\11.bmp"
Sleep 200
BLoad "DATA\menue\12.bmp"
b = 2
End Sub

Sub neu
  Cls
  Print "neu"
  Sleep
End Sub

Sub laden
  Cls
  Print"laden"
  Sleep
End Sub

Sub info
  Cls
  Print "info"
  Sleep
End Sub

Sub intro
  Cls
  Print "intro"
  Sleep
End Sub

Screen 21, 32
BLoad "DATA\menue\1.bmp"

Do
  GetMouse (x,y, ,a)
  Locate 1,1
  Print Using "####:####"; x,y
  If a And 1 And x >= 421 And x <= 834 And y >= 246 And y <= 318 Then  Start
  If a And 1 And x >= 421 And x <= 834 And y >= 423 And y <= 495 Then  optionen
  If a And 1 And x >= 421 And x <= 834 And y >= 601 And y <= 674 Then End
  If a And 1 And x >= 421 And x <= 834 And y >= 601 And y <= 674 Then End
  If a And 1 And x >= 469 And x <= 560 And y >= 348 And y <= 359  And b = 1 Then  neu
  If a And 1 And x >= 708 And x <= 797 And y >= 348 And y <= 359  And b = 1 Then  laden
  If a And 1 And x >= 469 And x <= 561 And y >= 527 And y <= 552  And b = 2 Then  info
  If a And 1 And x >= 710 And x <= 800 And y >= 529 And y <= 551  And b = 2 Then  intro
Loop
Dein Listing etwas umgebaut, keine Garantie auf Funktion verlegen
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Sippo



Anmeldungsdatum: 17.04.2008
Beiträge: 125
BeitragVerfasst am: 20.04.2008, 21:13    Titel: Antworten mit Zitat
thx
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz