[gelöst] Funktion funktioniert nicht.

Übersicht

BlitzBasic

Beginners-Corner

	Klip Betreff: [gelöst] Funktion funktioniert nicht.	Do, Sep 29, 2005 20:52 Antworten mit Zitat
Guten Tag. Ich probiere gerade, mein Projekt möglichst variabel zu gestalten, damit ein Spieler alles seinen Wünschen anpassen kann. Da ich dazu nicht alles manuell in der .exe laden kann, schrieb ich mir einige Funktionen. Bei folgender gibt es leider keine Text-Ausgabe. Ihr Sinn ist es, eine Zeile Text aus einer .txt-Datei auszulesen, sie in einer var$ zu speichern und dann auszugeben. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ; Die Funktion Function LoadText(filepath$,txt_line,txt_x,txt_y,txt_center,txt_center2) Local file = ReadFile(filepath$) For txt_for = 0 To (txt_line - 1) Local txt_buffer$ = ReadLine(file) ; überspringt die anderen Zeilen. Next Local txt_text$ = ReadLine(file) CloseFile file Text txt_x,txt_y,txt_text$,txt_center,txt_center2 End Function ; ------------------------------------ ; So wird sie aufgerufen. LoadText(\"text.txt\",1,gfx_width/2,gfx_height/2,True,True):Flip:WaitKey

Klip

Betreff: [gelöst] Funktion funktioniert nicht.

Do, Sep 29, 2005 20:52
Antworten mit Zitat

Guten Tag.

Ich probiere gerade, mein Projekt möglichst variabel zu gestalten, damit ein Spieler alles seinen Wünschen anpassen kann. Da ich dazu nicht alles manuell in der .exe laden kann, schrieb ich mir einige Funktionen.

Bei folgender gibt es leider keine Text-Ausgabe. Ihr Sinn ist es, eine Zeile Text aus einer .txt-Datei auszulesen, sie in einer var$ zu speichern und dann auszugeben.

BlitzBasic: [AUSKLAPPEN]


; Die Funktion
Function LoadText(filepath$,txt_line,txt_x,txt_y,txt_center,txt_center2)
	Local file = ReadFile(filepath$)
		For txt_for = 0 To (txt_line - 1)	
			Local txt_buffer$ = ReadLine(file) ; überspringt die anderen Zeilen.
		Next
			Local txt_text$ = ReadLine(file)
	CloseFile file
	
	Text txt_x,txt_y,txt_text$,txt_center,txt_center2	
	
End Function
; ------------------------------------
; So wird sie aufgerufen.

LoadText(\"text.txt\",1,gfx_width/2,gfx_height/2,True,True):Flip:WaitKey

Zuletzt bearbeitet von Klip am Do, Sep 29, 2005 21:31, insgesamt einmal bearbeitet

	Florian	Do, Sep 29, 2005 21:04 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function LoadText(filepath$,txt_line,txt_x,txt_y,txt_center,txt_center2) file = ReadFile(filepath$) For txt_for = 1 To (txt_line - 1) txt_buffer$ = ReadLine(file) ; überspringt die anderen Zeilen. Next txt_text$ = ReadLine(file) CloseFile file Text txt_x,txt_y,txt_text$,txt_center,txt_center2 End Function

Florian

Do, Sep 29, 2005 21:04
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]



Function LoadText(filepath$,txt_line,txt_x,txt_y,txt_center,txt_center2) 
 file = ReadFile(filepath$) 
 For txt_for = 1 To (txt_line - 1)        
  txt_buffer$ = ReadLine(file) ; überspringt die anderen Zeilen. 
 Next 
 txt_text$ = ReadLine(file) 
 CloseFile file         
 Text txt_x,txt_y,txt_text$,txt_center,txt_center2                
End Function

	darth Betreff: ..	Do, Sep 29, 2005 21:07 Antworten mit Zitat
der text wird in der funktion angezeigt, aber da ist kein flip drin... ich würde sagen du müsstest ausserhalb der funktion (nach dem aufrufen) irgendwo Text txt_x,txt_y,txt_text$,txt_center,txt_center2 schreiben, oder in der funktion ein flip machen... (aber ich hab nicht so erfahrung mit funktionen...)
Diese Signatur ist leer.

darth

Betreff: ..

Do, Sep 29, 2005 21:07
Antworten mit Zitat

der text wird in der funktion angezeigt, aber da ist kein flip drin...
ich würde sagen du müsstest ausserhalb der funktion (nach dem aufrufen) irgendwo

Text txt_x,txt_y,txt_text$,txt_center,txt_center2

schreiben, oder in der funktion ein flip machen...
(aber ich hab nicht so erfahrung mit funktionen...)

Diese Signatur ist leer.

	Klip	Do, Sep 29, 2005 21:30 Antworten mit Zitat
Florian hat es gelöst, dankesehr. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] For txt_for = 1 To (txt_line - 1) Das war der Fehler. txt_for = 0 war ein wenig dumm.

Klip

Do, Sep 29, 2005 21:30
Antworten mit Zitat

Florian hat es gelöst, dankesehr.

BlitzBasic: [AUSKLAPPEN]

 For txt_for = 1 To (txt_line - 1)

Das war der Fehler. txt_for = 0 war ein wenig dumm.

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

[gelöst] Funktion funktioniert nicht.

Klip

Betreff: [gelöst] Funktion funktioniert nicht.

Florian

darth

Betreff: ..

Klip