Announcement

Collapse
No announcement yet.

NumLock setting

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Lubos Svoboda
    replied
    Thanks Lance !
    I add a INKEY$ and now it is OK.


    '*********
    DEF SEG = 0
    M = PEEK( &H417 ) 'get keyboard toggles

    BIT SET M%, 5 'turn on num lock

    POKE &H417, M% 'set keyboard toggles
    DEF SEG
    Kl$ = INKEY$
    system
    '********************
    Lubos

    ------------------

    Leave a comment:


  • Lance Edmonds
    replied
    The code is almost precisely what I use too, but there are at least a couple of proviso's:

    1. some keyboards only toggle the lights if an actual keypress is detected, not as a result of the port state being changed

    2. this method only works under non-NT versions of Windows.


    ------------------
    Lance
    PowerBASIC Support
    mailto:[email protected][email protected]</A>

    Leave a comment:


  • Lubos Svoboda
    started a topic NumLock setting

    NumLock setting

    I work under W98SE and I use next segment of code for turn on NumLock.


    '************************************
    DEF SEG = 0
    M = PEEK( &H417 ) 'get keyboard toggles

    BIT SET M%, 5 'turn on num lock

    POKE &H417, M% 'set keyboard toggles
    DEF SEG
    ' ************************************


    It works pretty good if this segment is a part of a large program.
    After compiling into "LARGEPRO.EXE" NumLock is on and stay on
    when program finished.

    Stand alone segment works good in IDE.

    After compiling stand alone segment
    into "NUMLOCK.EXE" it does not work.

    Why ?

    Thanks for help.
    Lubos

    ------------------
Working...
X