reg-ios.spin & input

[PIC18F2550]

Fragt mann zweimal hintereinander die Routine auf, und gibt man beim zweitenmal nur Enter ein so bekommt man das erste zeichen von der vorhergehenden abfrage.

[zille9]

steckt das letzte Zeichen noch im INPUT-Puffer,
Lösung:Puffer nach Abfrage löschen

[PIC18F2550]

Der Puffer muss vorher gelöscht werden.
Am besten gleich in der Input Funktion.

Bitte in neuer Revision einarbeiten.

Code: Alles auswählen

PUB input(stradr,anz) | curpos,i,n                      'key: stringeingabe
{{input(stradr,anz) - key: stringeingabe}}

  curpos := curgetx                                     'cursorposition merken
  i := 0
  byte[stradr][i] := 0                    '<<< REV.>>>
  repeat
    n := keywait                                        'auf taste warten
    if n == $0d
       quit
    if (n == CHAR_BS)&(i>0)                             'backspace
       printbs
       i--
       byte[stradr][i] := 0
    elseif i < anz                                      'normales zeichen
       printchar(n)
       byte[stradr][i] := n
       i++
       byte[stradr][i] := 0

[drohne235]

Notiert!

[drohne235]

Fehler ist für R58 korrigiert.

[PIC18F2550]

OK