Amstrad Plus Forum Index

Amstrad Plus
Découverte de la gamme Old et Plus des Cpc d'Amstrad.

 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

*****Gestion Clavier (sans répétition)

 
Post new topic   Reply to topic    Amstrad Plus Forum Index -> Programmation Cpc -> PPi
Previous topic :: Next topic  
Author Message
Ast
Administrateur

Offline

Joined: 05 Sep 2014
Posts: 2,977
Masculin
Point(s): 390
Moyenne de points: 0.13

PostPosted: Fri 12 Dec - 14:22 (2014)    Post subject: *****Gestion Clavier (sans répétition) Reply with quote

Étant en train de développer un petit utilitaire pour Cpc/Cpc Plus, j'avais besoin d'une routine clavier qui puisse gérer la non-répétition des touches. Grâce à l'aide précieuse du Cpc Wiki j'ai pu terminer ma routine. Voilà ce que ça donne. Sait-on jamais. Ça pourrait peut être aider quelqu'un.
----------
Developping a new Cpc/Cpc Plus tool, i need a new keyboard routin which can do non-repetition Keys. I finished my routin with the precious help of Cpc Wiki. Here is the result. Maybe it could help someone lost in the dark.


Code:
main     ld b,#f5
         in a,(c)
       rra
         jr nc,main+2
;
         ld hl,oldstate
        ld de,currentstate
        ld bc,10                ; if you use all the keyboard lines
          ldir
;
Right
        ld d,0                   ; which line? d=Line 0
       call keyb               ; d=line / a=State (0=Nokey/1=KeyPressed)
         ld (oldstate+0),a    ; save OldState in line 0
         ld c,a                   ; save OldState in c
       ld a,(currentstate+0) 
      xor c
       jr z,Left                 ; if a=0 then left Key
;
        ld a,c                    ; take old state
        bit 1,a                   ; Bit 1=Right Key
        jr nz,Left                ; if key isn't pressed go to the next keyboard test
;
       call Code_Right        ;  Execute Code_Right
;
Left     
         ld d,1                     ; line 1
         call keyb
        ld (oldstate+1),a      ; save oldstate in line 1
...etc...













_________________
Ast/iMP4CT

"Par le pouvoir du crâne ancestral...."


Last edited by Ast on Sun 19 Jul - 07:17 (2015); edited 2 times in total
Back to top
Publicité






PostPosted: Fri 12 Dec - 14:22 (2014)    Post subject: Publicité

PublicitéSupprimer les publicités ?
Back to top
Ast
Administrateur

Offline

Joined: 05 Sep 2014
Posts: 2,977
Masculin
Point(s): 390
Moyenne de points: 0.13

PostPosted: Sat 13 Dec - 03:07 (2014)    Post subject: *****Gestion Clavier (sans répétition) Reply with quote

Voici la matrice clavier, numéro de ligne, et numéro de bit à tester. Ca faisait longtemps que j'aurais du le faire.



Merci à QuasarNet pour le schèma.
_________________
Ast/iMP4CT

"Par le pouvoir du crâne ancestral...."


Back to top
Display posts from previous:   
Post new topic   Reply to topic    Amstrad Plus Forum Index -> Programmation Cpc -> PPi All times are GMT + 2 Hours
Page 1 of 1

 
Jump to:  

Index | Administration Panel | Create a forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group