Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Kertoo kaikki erikoisnäppäimet toisin kuin tuo https://www.ohjelmointiputka.net/koodivinkit/23503-qb-erikoisnäppäimet
Eli insert, insert painettuna, num lock, num lock painettuna, caps lock, caps lock painettuna, scroll lock, scroll lock painettuna, vasen shift, oikea shift, vasen ctrl, oikea ctrl, vasen alt, oikea alt. Siinä ne nyt oli :D eli nuo saa selville milloin vaan kun kutsut vaan ko. functiota ja niitä voi siis (ylläri!) painaa kaikkia samaan aikaan :P
toimii siten että hakee tietyistä muistiosoitteista nappulan tilan.
'huhhuh mikä declarointisekamelska
DECLARE FUNCTION Ins! ()
DECLARE FUNCTION InsAktiivi! ()
DECLARE FUNCTION ScrollLock! ()
DECLARE FUNCTION ScrollLockAktiivi! ()
DECLARE FUNCTION CapsLock! ()
DECLARE FUNCTION CapsLockAktiivi! ()
DECLARE FUNCTION NumLock! ()
DECLARE FUNCTION NumLockAktiivi! ()
DECLARE FUNCTION VasenAlt! ()
DECLARE FUNCTION OikeaAlt! ()
DECLARE FUNCTION VasenCtrl! ()
DECLARE FUNCTION OikeaCtrl! ()
DECLARE FUNCTION VasenShift! ()
DECLARE FUNCTION OikeaShift! ()
SCREEN , , 1, 0 'ettei printit vilkkuisi
DO
CLS 'edelliset tekstit pois
PRINT "Insert: "; InsAktiivi
PRINT "Insert painettuna: "; Ins
PRINT "Num Lock: "; NumLockAktiivi
PRINT "Num Lock painettuna: "; NumLock
PRINT "Caps Lock: "; CapsLockAktiivi
PRINT "Caps Lock painettuna: "; CapsLock
PRINT "Scroll Lock: "; ScrollLockAktiivi
PRINT "Scroll Lock painettuna: "; ScrollLock
PRINT "Vasen Shift painettuna: "; VasenShift
PRINT "Oikea Shift painettuna: "; OikeaShift
PRINT "Vasen Ctrl painettuna: "; VasenCtrl
PRINT "Oikea Ctrl painettuna: "; OikeaCtrl
PRINT "Vasen Alt painettuna: "; VasenAlt
PRINT "Oikea Alt painettuna: "; OikeaAlt
PCOPY 1, 0 'kopioidaan tekstit näytölle
LOOP UNTIL INKEY$ = "�" vasen � nuoli on CHR$(27) eli ESC :P
FUNCTION CapsLock
DEF SEG = &H40
P = PEEK(&H18)
IF (P AND 64) = 64 THEN CapsLock = -1
DEF SEG
END FUNCTION
FUNCTION CapsLockAktiivi
DEF SEG = &H40
P = PEEK(&H17)
IF (P AND 64) = 64 THEN CapsLockAktiivi = -1
DEF SEG
END FUNCTION
FUNCTION Ins
DEF SEG = &H40
P = PEEK(&H18)
IF (P AND 128) = 128 THEN Ins = -1
DEF SEG
END FUNCTION
FUNCTION InsAktiivi
DEF SEG = &H40
P = PEEK(&H17)
IF (P AND 128) = 128 THEN InsAktiivi = -1
DEF SEG
END FUNCTION
FUNCTION NumLock
DEF SEG = &H40
P = PEEK(&H18)
IF (P AND 32) = 32 THEN NumLock = -1
DEF SEG
END FUNCTION
FUNCTION NumLockAktiivi
DEF SEG = &H40
P = PEEK(&H17)
IF (P AND 32) = 32 THEN NumLockAktiivi = -1
DEF SEG
END FUNCTION
FUNCTION OikeaAlt
DEF SEG = &H40
P = PEEK(&H96)
IF (P AND 8) = 8 THEN OikeaAlt = -1
DEF SEG
END FUNCTION
FUNCTION OikeaCtrl
DEF SEG = &H40
P = PEEK(&H96)
IF (P AND 4) = 4 THEN OikeaCtrl = -1
DEF SEG
END FUNCTION
FUNCTION OikeaShift
DEF SEG = &H40
P = PEEK(&H17)
IF (P AND 1) = 1 THEN OikeaShift = -1
DEF SEG
END FUNCTION
FUNCTION ScrollLock
DEF SEG = &H40
P = PEEK(&H18)
IF (P AND 16) = 16 THEN ScrollLock = -1
DEF SEG
END FUNCTION
FUNCTION ScrollLockAktiivi
DEF SEG = &H40
P = PEEK(&H17)
IF (P AND 16) = 16 THEN ScrollLockAktiivi = -1
DEF SEG
END FUNCTION
FUNCTION VasenAlt
DEF SEG = &H40
P = PEEK(&H18)
IF (P AND 2) = 2 THEN VasenAlt = -1
DEF SEG
END FUNCTION
FUNCTION VasenCtrl
DEF SEG = &H40
P = PEEK(&H18)
IF (P AND 1) = 1 THEN VasenCtrl = -1
DEF SEG
END FUNCTION
FUNCTION VasenShift
DEF SEG = &H40
P = PEEK(&H17)
IF (P AND 2) = 2 THEN VasenShift = -1
DEF SEG
END FUNCTIONkommentteja...
En testannut, mutta jos se toimii, se on ihan hyödellinen (ellei sitä voi tehdä paremmin).
kauheasti välkkyy. Ihan hyvä.
välkkyy? hö? ei sen pitäisi? aja koko näytössä.
sooda on über-nero
Ei yhtään vaikeammin onnistunut? :)
Aihe on jo aika vanha, joten et voi enää vastata siihen.