Hi, ich will ein Musikprogramm coden. Jetzt hab ich die Grundfunktionen auch alle erfolgreich programmiert. Aber nur im Vollbildmodus. Jetzt will ich das ganze in ein kleineres Fenster verlegen. dann passen aber nicht mehr alle Musikstücke ins Fenster.
Mein Code:
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN]

Graphics 650,500,16,2
SetBuffer BackBuffer()
Global Y = 0
Dim musik$(50)
Auslesedatei = ReadFile(\"user/playlist.txt\")
While Not Eof(Auslesedatei)
For I = 1 To 50 
musik$(I) = ReadLine$(Auslesedatei)
Next 
Wend 

Repeat 
For I = 1 To 50
Text 0,Y, I + \".)\" + musik$(I)
Y = Y + 15
Flip 
Next 
Until KeyHit(1)

Wie kann man jetzt den Text in der For-Next-Schleife scrollen? Mit "Print" geht der Code automatisch nach oben, weil "Print" den Text nach oben schiebt, und mit Text bleibt man bei den ersten Einträgen, sieht aber die letzten nicht. Ich will ein manuelles Scrollen, kein automatisches. Das hab ich probiert, aber da ist der Text entweder zu schnell und wenn man nen Timer reinbaut, dann kann man die Musikabfrage vergessen, weil alles zu langsam läuft.
Wie scrolle ich meinem Code manuell mit "Text"?
MfG

Graphics 650,500,16,2
SetBuffer BackBuffer()
Global Y = 0
Dim musik$(50)
Auslesedatei = ReadFile(\"user/playlist.txt\")
While Not Eof(Auslesedatei)
For I = 1 To 50 
musik$(I) = ReadLine$(Auslesedatei)
Next 
Wend 

J=15:J1=0 

Repeat 
For I = 1 To 50
Text J1,Y, I + \".)\" + musik$(I)
Y = Y + 15
J=J-1
If J=0 
J1=J1+100
Y=0
J=15
EndIf

Next 
Flip 

Until KeyHit(1)