Prozessanzeige in Konsole

Übersicht

BlitzMax, BlitzMax NG

Allgemein

	jeykey Betreff: Prozessanzeige in Konsole	Mi, Jan 06, 2010 2:53 Antworten mit Zitat
hi, Ich möchte in der Konsole eine kleine Statusanzeige meines Programms realisieren. Mit BlitzMax und Print() kann man allerdings immer nur eine neue Zeile (Zeilenumbruch) in die Konsole schreiben. Das ganze sieht dann etwa so aus: 1% 2% 3% ... 97% 98% 99% Mittlerweile habe ich herausgefunden wie man den Zeilenumbruch wegbekommt: Code: [AUSKLAPPEN] [EINKLAPPEN] StandardIOStream.WriteString("test1") StandardIOStream.Flush() StandardIOStream.WriteString("test2") StandardIOStream.Flush() Allerdings möchte ich, dass die Ausgabe immer in derselben Zeile erscheint, so dass die alte Zeile überschrieben wird. mfg jeykey

jeykey

Betreff: Prozessanzeige in Konsole

Mi, Jan 06, 2010 2:53
Antworten mit Zitat

hi,

Ich möchte in der Konsole eine kleine Statusanzeige meines Programms realisieren.
Mit BlitzMax und Print() kann man allerdings immer nur eine neue Zeile (Zeilenumbruch) in die Konsole schreiben. Das ganze sieht dann etwa so aus:

1%
2%
3%
...
97%
98%
99%

Mittlerweile habe ich herausgefunden wie man den Zeilenumbruch wegbekommt:

Code: [AUSKLAPPEN]

StandardIOStream.WriteString("test1")
StandardIOStream.Flush()
StandardIOStream.WriteString("test2")
StandardIOStream.Flush()

Allerdings möchte ich, dass die Ausgabe immer in derselben Zeile erscheint, so dass die alte Zeile überschrieben wird.

mfg
jeykey

	BladeRunner Moderator	Mi, Jan 06, 2010 9:17 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Local progstring:String Local proglen:Int = 0 Local clearstring:String For Local i:Int = 0 To 100 While proglen > 0 proglen:- 1 clearstring:+ Chr(8) Wend StandardIOStream.WriteString(clearstring) StandardIOStream.Flush() clearstring="" progstring:String = String(i) + "%" proglen = progstring.length StandardIOStream.WriteString(progstring) StandardIOStream.Flush() Delay(150) Next WaitKey() Nur als Ansatz, sicher ausbaubar. Der Schlüssel ist chr(8) - der ASCII-Code für einen Rückschritt.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mi, Jan 06, 2010 9:17
Antworten mit Zitat

Code: [AUSKLAPPEN]

Local progstring:String
Local proglen:Int = 0
Local clearstring:String
For Local i:Int = 0 To 100
While proglen > 0
proglen:- 1
clearstring:+ Chr(8)
Wend
StandardIOStream.WriteString(clearstring)
StandardIOStream.Flush()
clearstring=""
progstring:String = String(i) + "%"
proglen = progstring.length
StandardIOStream.WriteString(progstring)
StandardIOStream.Flush()
Delay(150)
Next
WaitKey()

Nur als Ansatz, sicher ausbaubar. Der Schlüssel ist chr(8) - der ASCII-Code für einen Rückschritt.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Silver_Knee	Mi, Jan 06, 2010 12:20 Antworten mit Zitat
Funktioniert übrigens auch mit BlitzPlus (B+,Blitz+) mit Write Chr(8)

Silver_Knee

Mi, Jan 06, 2010 12:20
Antworten mit Zitat

Funktioniert übrigens auch mit BlitzPlus (B+,Blitz+) mit Write Chr(8)

	BtbN	Mi, Jan 06, 2010 15:51 Antworten mit Zitat
Hier eine kleine funktion, die die zuletzt auf der konsole ausgegebene Zeile löscht und mit der neuen Überschreibt: BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] Function OverwriteOldLine(line:String) Local h:String = Chr(27) WriteStdout(h+"[s"+h+"[1A"+h+"[K"+line+h+"[u") EndFunction

BtbN

Mi, Jan 06, 2010 15:51
Antworten mit Zitat

Hier eine kleine funktion, die die zuletzt auf der konsole ausgegebene Zeile löscht und mit der neuen Überschreibt:

BlitzMax: [AUSKLAPPEN]

Function OverwriteOldLine(line:String)
	Local h:String = Chr(27)
	WriteStdout(h+"[s"+h+"[1A"+h+"[K"+line+h+"[u")
EndFunction