Windows Fehlermeldung bei eigenem Programm

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

ZorroZ.ch

Betreff: Windows Fehlermeldung bei eigenem Programm

 BeitragDo, Aug 11, 2005 21:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo zusammen,
ich muss gerade meinen ersten Beitrag in diesem Forum schreiben. Nach langer Zeit, in der ich fast nichts mehr mit BlitzPlus zu tun hatte, versuche ich es noch einmal. Ich bin wirklich ein Newbie im Codingbereich, wollte es aber trotzdem einmal nach einem Buch von René Meyer probieren. Nun lief eigentlech alles gut bisher, seit ich aber die Funktion, bei der der Level aus einer TXT-Datei ausgelesen werden soll integriert habe, funktioniert nichts mehr. Es erschein immer folgende Fehlermeldung von Windows:

user posted image

Der Programmiercode sieht jetzt folgendermassen aus:

BlitzBasic: [AUSKLAPPEN] 

;; Programmeinstellungen werden angegeben
;
Graphics 800, 600, 32, 2
;; Level wird gelesen
leveldatei = ReadFile(\"level01.txt\")

Dim Level$(20,60,3) ;; Level$(Zeile, Spalte, Wert(1=X, 2=Y, 3=Bild)

For Zeile=1 To 20
 gelesenezeile$ = ReadLine(leveldatei)
 For Spalte = 1 To 60
  gelesenespalte$ = Mid$(gelesenezeile$,Spalte,1)
   d = zeile -1
   c = spalte -1
   Level$(Zeile,Spalte,1) = c*40
   Level$(Zeile,Soalte,2) = d*30
  If gelesenespalte$ = \"1\" Then Level$(Zeile,Spalte,3) = 1
  If gelesenespalte$ = \".\" Then Level$(Zeile,Spalte,3) = 0
 Next
Next

;; Bilder werden geladen
bild1 = LoadImage(\"kachel.jpg\")


;; Programm wird gestartet
Repeat
 SetBuffer BackBuffer()
 Cls
 For Zeile= 0 To 19
  For Spalte= 0 To 59  
   If Level$(Zeile,Spalte,3) = 1 Then DrawImage bild, Level$(Zeile,Spalte,1), Level$(Zeile,Spalte,2)
   DrawImage bild1, I, J
  Next
 Next
 Flip
 Delay 10
x = 0
Until verlassen = 1
;; Programm wird gestartet


Kann mir jemand helfen?? Es erschein einfach immer diese Fehlermeldung und ich weiss nicht ob es am PC liegt oder wo auch immer.

Danke trotzdem schon jetzt...

Ninja

 BeitragDo, Aug 11, 2005 21:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Befinden sich in der level01.txt auch die dateien die du da rauslesen möchtest? Smile

TrunkZ

 BeitragDo, Aug 11, 2005 22:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi,

ja, überprüf auch mal, ob die Daten alle vorhanden sind und probier's dann mit dem Debugger.

BlitzBasic: [AUSKLAPPEN] 
 For Zeile= 0 To 19
  For Spalte= 0 To 59 
   If Level$(Zeile,Spalte,3) = 1 Then DrawImage bild, Level$(Zeile,Spalte,1), Level$(Zeile,Spalte,2)
   DrawImage bild1, I, J
  Next
 Next


Mach aus den I und J bei DrawImage mal I*kachelbreite, J*kachelhöhe, denn sonst zeichnet ers immer auf die gleiche stelle

mfg
User posted image User posted image
Auch so ein tolles Statusbild? Dark-Lightning Studios PBanner-Service
 

David

 BeitragFr, Aug 12, 2005 7:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi!

Das ist doch keine Fehlermeldung... Das ist viel mehr als nur das!
Das is ein ernsthaftes Problem! Razz

Äh... ok!
Da isn Fehler drinn und zwar genau hier:

BlitzBasic: [AUSKLAPPEN] 

Level$(Zeile,Soalte,2) = d*30


grüße
 

ZorroZ.ch

 BeitragFr, Aug 12, 2005 17:51
Antworten mit Zitat
Benutzer-Profile anzeigen
OK, danke für die schnellen Antworten, werde es einmal versuchen.

// edit

In diesem Forum hat es ja erstauenlich genaue Users. TNX, macht schon nach den ersten beiden Beiträgen einen guten Indruck. Very Happy

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group