Keskustelu: Koodit: Näppäimistökäsittelijä (QB)

Tämä tekee täsmälleen saman kuin samanniminen ohjelma Visual Basic -osastolla - eli lukee useita, jopa kymmentä, näppäintä yhtäaikaa ja tästä on hyötyä esim. peleissä.

DIM nappaimet(1 TO 128) AS INTEGER

DO
  DO
  n% = INP(&H60)
  LOOP UNTIL n% <> vn%
  IF n% <> 224 THEN   '224 on monien näppäinpainallusten ensimmäinen osa,
                      'joten sitä ei lasketa mukaan
    IF n% > 128 THEN  'jos n% on yli 128, näppäin n%-128 on nostettu
      nappaimet(n% - 128) = 0
    ELSE              'muuten näppäin n% on painettu
      nappaimet(n%) = 1
    END IF
  END IF
  CLS
  FOR i = 1 TO 128
    IF nappaimet(i) = 1 THEN PRINT i;
  NEXT
  vn% = n%
LOOP UNTIL n% = 1

kuka urpo tota ei tiiä?

Sähän sen sanoit! En tiiä yhtään Urpo -nimistä henkilöä, joka ton tietäs! Heh... Mut se, et ketä kiinnostaa... :)

Toi on vähä epä selkee mulle.
Pystyiskö tollasta 10 näppäimen hommaa tekeen KEY komennolla

paulus,miksu ja jaakko: ootte runkkareita koko porukka

Tossa on huonoa vaan se että se saattaa missata näppäimen painalluksia / vapautuksia.

no voi kettu mä en tajuu tosta mitää... D:

Tulee luultavasti tarpeeseen.

Ton tietää Urpo Turhapuroki.

Ei toimi kunnolla! Tai sitten en osaa käyttää...

edit: se oliki vaan nuolinäppäimet ku ei toimi..
niin kun jokin nuolinäppäin vapautuu niin n% = 170 ainakin minulla :)