Denso Power Net Terminal BHT-7500 Dokumentacja Strona 536

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 560
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 535
527
Appendices
fnbarkey$ = .kb$ Then, return the character.
exit def
endif
select .kb$
case chr$(13)
fnbarkey$ = .rt$
exit def
case chr$(8) BS key.
if len(.rt$) then
print chr$(8); Erase one character.
.rt$ = left$(.rt$, len(.rt$)-1)
endif
case chr$(24) Clear key.
while len(.rt$) Erase all characters entered.
print chr$(8);
.rt$ = left$(.rt$, len(.rt$)-1)
wend
case else
if len(.rt$)<max% then
Check if only numeric data should be
received.
print .kb$; Echo back.
.rt$ = .rt$ + .kb$
else
beep Exceeded number of characters error.
endif
end select
if .rt$="" then If input string is empty, go back to the
initial state.
.kb$ = ""
else
.kb$ = input$(1) Subsequent key entry.
end if
wend
endif
wend
end def
Przeglądanie stron 535
1 2 ... 531 532 533 534 535 536 537 538 539 540 541 ... 559 560

Komentarze do niniejszej Instrukcji

Brak uwag