Problem mit ASCII-Codes

Übersicht

BlitzBasic

Allgemein

	bear1 Betreff: Problem mit ASCII-Codes	Sa, Okt 01, 2005 9:43 Antworten mit Zitat
Hallo, ich bin gerade dabei, so ein kleines Konsolensystem zu basteln, mit simpler QBasic-Ein- und Ausgabe. Die Ausgabe funktioniert prima, die Eingabe auch, aber etwas stört mich: Ich benutze ASCII-Codes, um das gedrückte Zeichen rauszubekommen (GetKey()). Nun kann ich ja aber mit ASCII-Codes nicht rausbekommen, wenn die Rücktaste gedrückt wurde, also ist ein komfortables Editieren des Textes nicht möglich. Kann mir jemand eine andere Möglichkeit nennen? Hier mal die Funktion io_input$(xpos,ypos): BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function io_input$(posx%,posy%) ;Standard input system (type x And y position) retstr$=\"\" ;String to return at end of function std_current_line=std_current_line+1 ;Set higher the current line posy%=posy%*17 While Not KeyHit(28) ;Scancode 28 = Return key=GetKey() If key>0 Then retstr$=retstr$+Chr$(key) Text posx%,posy%,retstr$ Flip EndIf Wend Return retstr$ End Function Danke im Voraus, bear1
Ja, ne... Zum virtuellen Staat Eranien: http://www.eranien.de Zu meinem Blog: http://www.erixpage.de

bear1

Betreff: Problem mit ASCII-Codes

Sa, Okt 01, 2005 9:43
Antworten mit Zitat

Hallo,

ich bin gerade dabei, so ein kleines Konsolensystem zu basteln, mit simpler QBasic-Ein- und Ausgabe. Die Ausgabe funktioniert prima, die Eingabe auch, aber etwas stört mich:
Ich benutze ASCII-Codes, um das gedrückte Zeichen rauszubekommen (GetKey()). Nun kann ich ja aber mit ASCII-Codes nicht rausbekommen, wenn die Rücktaste gedrückt wurde, also ist ein komfortables Editieren des Textes nicht möglich. Kann mir jemand eine andere Möglichkeit nennen?
Hier mal die Funktion io_input$(xpos,ypos):
BlitzBasic: [AUSKLAPPEN]

Function io_input$(posx%,posy%) ;Standard input system (type x And y position)
	retstr$=\"\" ;String to return at end of function
	std_current_line=std_current_line+1 ;Set higher the current line
	posy%=posy%*17
	While Not KeyHit(28) ;Scancode 28 = Return
		key=GetKey()
		If key>0 Then
			retstr$=retstr$+Chr$(key)
			Text posx%,posy%,retstr$
			Flip
		EndIf
	Wend
	Return retstr$
End Function

Danke im Voraus,
bear1

Ja, ne...

Zum virtuellen Staat Eranien:
http://www.eranien.de
Zu meinem Blog:
http://www.erixpage.de

	Artemis	Sa, Okt 01, 2005 10:15 Antworten mit Zitat
http://www.blitzbase.de/tabellen/asciicodes.htm siehe Ascii-Code 8 (Rückwärtsschritt)

Artemis

Sa, Okt 01, 2005 10:15
Antworten mit Zitat

http://www.blitzbase.de/tabellen/asciicodes.htm

siehe Ascii-Code 8 (Rückwärtsschritt)

	David	Sa, Okt 01, 2005 12:16 Antworten mit Zitat
Hi! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function io_input$(posx%,posy%) ;Standard input system (type x And y position) retstr$=\"\" ;String to return at end of function std_current_line=std_current_line+1 ;Set higher the current line posy%=posy%*17 While Not KeyHit(28) ;Scancode 28 = Return key=GetKey() If key = 8 Then retstr = Mid( retstr, 1, Len( retstr ) - 1 ) Else If key>0 Then retstr$=retstr$+Chr$(key) EndIf Text posx%,posy%,retstr$ Flip Cls Wend Return retstr$ End Function So in etwa? grüße

David

Sa, Okt 01, 2005 12:16
Antworten mit Zitat

Hi!

BlitzBasic: [AUSKLAPPEN]


Function io_input$(posx%,posy%) ;Standard input system (type x And y position)
        retstr$=\"\" ;String to return at end of function
        std_current_line=std_current_line+1 ;Set higher the current line
        posy%=posy%*17
        While Not KeyHit(28) ;Scancode 28 = Return
                key=GetKey()
		If key = 8 Then
			retstr = Mid( retstr, 1, Len( retstr ) - 1 )
                Else If key>0 Then
                        retstr$=retstr$+Chr$(key)
                EndIf

		Text posx%,posy%,retstr$
		Flip
		Cls
        Wend
        Return retstr$
End Function

So in etwa?

grüße

	bear1	Sa, Okt 01, 2005 21:32 Antworten mit Zitat
Komisch, da stürzt der Compiler ab, wenn ich das starten will.
Ja, ne... Zum virtuellen Staat Eranien: http://www.eranien.de Zu meinem Blog: http://www.erixpage.de

bear1

Sa, Okt 01, 2005 21:32
Antworten mit Zitat

Komisch, da stürzt der Compiler ab, wenn ich das starten will.

Ja, ne...

Zum virtuellen Staat Eranien:
http://www.eranien.de
Zu meinem Blog:
http://www.erixpage.de

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Problem mit ASCII-Codes

bear1

Betreff: Problem mit ASCII-Codes

Artemis

David

bear1