Keskustelu: Koodit: QB: SendKeys

sooda [30.09.2003 17:33:28]

Settaa näppis bufferiin dataa jonka sitten toi inkey$ ystävämme osaa lukea merkki kerrallaan. Tosi käytännöllinen!

Tämän nimi kyllä pitäisi olla SetKeys koska se säätää bufferin eikä lisää sinne mitään mutta senhän voit itse vaihtaa.

DEFINT A-Z
DECLARE SUB SendKeys (Keys$)
DO 'tää looppi on eksamppeli ton käytöstä, ei siis tarvii varmaan kelasit :)
    a$ = ""
    WHILE a$ = ""
        a$ = INKEY$
    WEND
    IF a$ = CHR$(8) THEN SendKeys "Elä paina takas"
    PRINT a$;
LOOP UNTIL a$ = CHR$(27)

DEFINT A-Z
SUB SendKeys (Keys$)

    se$ = LEFT$(Keys$, 15) '15 merkkiä nappula bufferin maksimi koko...
    Pituus = LEN(se$)
    DEF SEG = 0     ' pomppu alimuistiin
    POKE &H41A, &H1E                  'bufferin alotusjutska
    POKE &H41C, &H1E + Pituus * &H2   'bufferin loppujutska
    FOR kohta = 1 TO Pituus           'POKEta merkit yks kerrallaan
        POKE &H41C + kohta * &H2, ASC(MID$(se$, kohta)) 'kiva osotteen lasku
    NEXT kohta
    DEF SEG

END SUB

Antti Laaksonen [30.09.2003 17:50:03]

Mainio vinkki! Ja ei tuo näppäimistöpuskurin lukeminen ole INKEY$:n yksinoikeus, seuraava ohjelma "kirjoittaa" INPUTtiin nimen käyttäjän puolesta (13 on Enter-näppäimen tunnus).

SendKeys "Antti" + CHR$(13)
INPUT "Kirjoita nimesi: ", nimi$
PRINT "Nimesi on siis " + nimi$

sooda [01.10.2003 08:41:52]

Jeps. Kyllä ton input käskyn tiedän toki mutta unohtui... :P

moptim [13.11.2006 20:31:56]

sooda on nero

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen