Warum geht das nicht.

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Lifetec

Betreff: Warum geht das nicht.

BeitragSa, Apr 29, 2006 16:03
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich habe das hier geproggt.

Code: [AUSKLAPPEN]

Graphics 640,480
SetBuffer BackBuffer()
item1 = LoadImage("c:\GFX\item1.bmp")

Repeat
 Cls
 P = P+2
 If P=480 Then FreeImage item1
 DrawImage item1, 0,P
Flip
Forever

Und ween ich es starte und das item dann am ende des Bildschirmes ist kommt dann dies Naricht.
Code: [AUSKLAPPEN]

Invalid Image handle

Was heißt das und was mach ich falsch ???

hectic

Sieger des IS Talentwettbewerb 2006

BeitragSa, Apr 29, 2006 16:17
Antworten mit Zitat
Benutzer-Profile anzeigen
?? Du löscht das Image 'item1' mit FreeImage wenn P=480 ist und gleich danach willst du es wieder einzeichnen, wo es doch garnicht mehr existiert...
 

HW

BeitragSa, Apr 29, 2006 17:06
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN]

Graphics 640,480
SetBuffer BackBuffer()
item1 = LoadImage("c:\GFX\item1.bmp")

Repeat
Cls
P = P+2
If P=480 Then FreeImage item1
If item1
DrawImage item1, 0,P
EndIf
Flip
Forever

Keine Ahnung, was dir das bringt oder was du damit willst. Aber so müsste es funktionieren. (nicht getestet)
Jedenfalls gibt das Programm so einen Fehler zurück, wenn du ein gelöschtes oder ungeladenes Bild zeichnen willst. Daher musst du vor dem Zeichnen prüfen, ob das Bild existiert, um Fehlermeldungen zu vermeiden.
 

FBI-blitz

BeitragSa, Apr 29, 2006 17:52
Antworten mit Zitat
Benutzer-Profile anzeigen
Du hast die Daten deines Spiels tatsächlich direkt auf c:\???

Kein Unterordner oder so?
Und ganz allgemein würd ich relative Pfade benutzen, sonst musst du das wenn du das game mal rausbringst alles wieder ändern.

Außerdem sollte dein Titel mal n bisl aussagekräftiger sein Wink
 

=!Skyhawk!=

Betreff: So gehts.....

BeitragSo, Apr 30, 2006 16:37
Antworten mit Zitat
Benutzer-Profile anzeigen
So alta geht dein,ais meinen augen sinnloses prog:
Code: [AUSKLAPPEN]


Graphics 640,480
SetBuffer BackBuffer()
item1 = LoadImage("c:\GFX\item1.bmp")

Repeat
 Cls
 P = P+2
 If P=480 Then FreeImage item1
 if item1<>0
 DrawImage item1, 0,P
 endif
Flip
Forever


Das programm wird dannach sich beenden!!
MFG Jan
 

=!Skyhawk!=

Betreff: ups...

BeitragSo, Apr 30, 2006 16:38
Antworten mit Zitat
Benutzer-Profile anzeigen
ups ich trottel so isch richtig:
Code: [AUSKLAPPEN]


Graphics 640,480
SetBuffer BackBuffer()
item1 = LoadImage("c:\GFX\item1.bmp")

Repeat
 Cls
 P = P+2
 If
P=480 Then FreeImage item1
runtimeerror("P=480, Prog zuende")
 if item1
 DrawImage item1, 0,P
 endif
Flip
Forever
 

=!Skyhawk!=

Betreff: drittr versuch...

BeitragSo, Apr 30, 2006 16:40
Antworten mit Zitat
Benutzer-Profile anzeigen
ich bin zu arg in hektik:

Code: [AUSKLAPPEN]


Graphics 640,480
SetBuffer BackBuffer()
item1 = LoadImage("c:\GFX\item1.bmp")

Repeat
 Cls
 P = P+2
 If P=480 Then
 FreeImage item1
 runtimerror("asdfksdgsa")
 endif
 if item1
 DrawImage item1, 0,P
 endif
Flip
Forever

garret

BeitragSo, Apr 30, 2006 16:54
Antworten mit Zitat
Benutzer-Profile anzeigen
Auch wenn du es eilig hast =!Skyhawk!=, denk doch vorher ein bisschen nach und schreibe dann. Das hilft ihm viel mehr. Im Übrigen gibt es unter "Antworten mit Zitat" rechts oben bei einem deiner Beiträge ein Symbol mit einem Schraubenschlüssel. Bedeutet: Beitrag editieren. Damit hättest du deine vorherigen Beiträge lediglich abändern müssen und es wäre übersichtlich(er) geblieben.

Ein Hinweis noch von mir zum Thema:

If item1=1 Then Drawimage item1 Else RuntimeError("Bild 1 existiert nicht!")
erledigt das Ganze in einem Abwasch.

MfG garret
>>nec aspera terrent<< (Auch Widerwärtigkeiten schrecken nicht)
 

=!Skyhawk!=

BeitragSo, Apr 30, 2006 17:46
Antworten mit Zitat
Benutzer-Profile anzeigen
ja hab nach ner edit func gesucht aber net gefunden.hatte auch von anfang an gewusste was ich schreiben wollt, war nur in hektik, sry!!

hectic

Sieger des IS Talentwettbewerb 2006

BeitragMo, Mai 01, 2006 3:01
Antworten mit Zitat
Benutzer-Profile anzeigen
Puhh, bin ich froh, meinen Nick in englicher Schreibweise gewählt zu haben. Shocked Ich wüsst jetzt denoch und auch gerne, was so ein Programm bringen soll?

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group