Création d'une CheckBox utilisant la gestion de clavier avancée.En accord avec la table ASCII de l'article précédent (tout à fait classique, sauf les 3 derniers caractères, je vais créer une fonte avecphotoshop et l'exporter, ainsi qu'un petit curseur. La première version de la checkBox va être ultra simple, déjà parce qu'on va en mettreune seule à l'écran.
Ensuite, on va afficher la coche (valide, invalide) avec l'état du champ (actif ou non) ainsi que le libellé de la checkBox. On va partir sur une structure assez simple (on ne se servira pas de tous les champs au début). struct s_checkbox
routine_gestion defw ; routine que doit appeler la GUI
selectionnee defb ; checkbox active ou non
adresse_ecran defw ; position écran
valeur defb ; cochée ou pas cochée
libelle defs 20
suivant defw ; champ suivant
precedent defw ; champ precedent
endstructVoici mes images de travail et le source correspondant.
Petite subtilité avec cette fonte, elle dispose d'un index. On évite alors de faire la multiplication habituelle pour trouver les données et commeon a notre annuaire d'adresses, j'en ai profité pour optimiser le stockage. Ainsi, aucun caractère ne stocke de ligne vide.
Pour que le source s'assemble, il faudra les binaires de la fonte, de la coche ainsi que la quasi totalité du source précédent concernant la gestion clavier.Téléchargez les fichiers [ checkboxSprites ][ Fonte.dat ][ Fonte.idx ][ Gestion de clavier ASM ]
La gestion de la checkBox se résume (pour le moment) à permuter le champ 'valeur' et afficher le champ buildsna : bankset 0
org #38 : ei : ret
org #100 : run #100 : ld sp,#100 : eiMACRO expandNextLineDE
ld a,d : add 8 : ld d,a : and #38 : jr nz,@termine
ld a,80 : add e : ld e,a : ld a,#C0 : adc d : ld d,a : res 3,d
@termine
MEND struct s_checkbox
routine_gestion defw ; routine que doit appeler la GUI
selectionnee defb ; checkbox active ou non
adresse_ecran defw ; position écran
valeur defb ; cochée ou pas cochée
libelle defs 20
suivant defw ; champ suivant
precedent defw ; champ precedent
endstruct ld bc,#7F10 : out (c),c : ld a,#54 : out (c),a
ld bc,#7F00 : out (c),c : ld a,#54 : out (c),a
ld bc,#7F01 : out (c),c : ld a,#44 : out (c),a
ld bc,#7F02 : out (c),c : ld a,#5B : out (c),a
ld bc,#7F03 : out (c),c : ld a,#4B : out (c),a ld ix,uneCheck : call GUICheckBoxAffiche laBoucle
halt 6 : call gererClavier cp CODE_MORT : jr z,laBoucle ; pas de touche spéciale ni de caractère renvoyé, on ne fait rien ld ix,uneCheck
cp ' ' : call z,GUICheckBoxFlip ; on a une entrée clavier et c'est Espace, alors on permute la coche
jr laBoucle ;------------------------------------------------------------------------------------------
; gestion de la checkBox
;------------------------------------------------------------------------------------------
GUICheckBoxFlip push af : ld a,(ix+s_checkbox.valeur) : inc a : and 1 : ld (ix+s_checkbox.valeur),a : call GUICheckBoxAffiche : pop af : ret GUICheckBoxAffiche ld a,(ix+s_checkbox.selectionnee) : add a : add (ix+s_checkbox.valeur) ; numéro de sprite de 0 à 3
add a : add a : ld e,a : add a : add a : add a : add e ; x36 qui est la taille du sprite
ld hl,checkBoxSprites : add l : ld l,a : ld a,h : adc 0 : ld h,a ; adresse du sprite
ld de,(ix+s_checkbox.adresse_ecran) : ld b,4 : .centrage expandNextLineDE (void) : djnz .centrage
ld bc,(12<<8)|#FF
.displayCheck push de : ldi 3 : pop de
expandNextLineDE (void)
djnz .displayCheck
push ix : pop hl : ld a,s_checkbox.libelle : add l : ld l,a : ld a,h : adc 0 : ld h,a : exx
ld hl,(ix+s_checkbox.adresse_ecran) : ld a,4 : add l : ld l,a : ex hl,de
jp GUIDisplayString
checkBoxSprites incbin 'GUICheckboxSprites.bin' ;------------------------------------------------------------------------------------------
; affichage des chaines de caractères
;------------------------------------------------------------------------------------------ ; HL' libelle
; DE destination écran
GUIDisplayString
exx : ld a,(hl) : or a : ret z : inc hl : exx ; A=caractère pseudo-ASCII
ld hl,fonte_idx>>2 : sub 32 : add l : ld l,a : add hl,hl : add hl,hl ; pointe dans l'index sur le descripteur de la lettre
push de
ld a,(hl) ; nombre de lignes à 'sauter'
push hl
or a : jr z,.displaySprite
ld b,a : xor a
.razLine
push de : ld (de),a : inc de : ld (de),a : pop de : exa : expandNextLineDE (void) : exa
djnz .razLine
.displaySprite
inc l : ld a,(hl) : or a : jr z,.skipChar ; espace...
ld b,a : inc l : ld a,(hl) : inc l : ld h,(hl) : ld l,a ; B=hauteur
add lo(referenceSprite) : ld l,a : ld a,h : adc hi(referenceSprite) : ld h,a ; HL=sprite du caractère
.spriteLine
push de : ld a,(hl) : ld (de),a : inc l : inc de : ld a,(hl) : inc hl : ld (de),a : pop de : expandNextLineDE (void)
djnz .spriteLine
.skipChar
; compléter le bas si besoin
pop hl : ld a,(hl) : inc l : add (hl) : ld b,a : ld a,21 : sub b : jr z,.dejaComplet
ld b,a : xor a
.razLine2
push de : ld (de),a : inc de : ld (de),a : pop de : exa : expandNextLineDE (void) : exa
djnz .razLine2
.dejaComplet
pop de : inc de : inc de
jp GUIDisplayString align 2
fonte_data incbin 'FONTE21.DAT'
align 4
fonte_idx incbin 'FONTE21.IDX' ; encodée avec des lettres en #4000 (optimisée pour de la RAM à banker) referenceSprite=fonte_data-#4000 struct s_checkbox uneCheck,1,#0000,1,#C000,0,'Pour test!' include 'GUIkeyboard.asm'
Notre exemple semble fonctionnel, maintenant on va se servir de tous les champs de la structure et ajouter 2 autres checkBox pourvoir comment gérer le passage de l'une à l'autre, si le sprite change bien, et on va voir ça dans [ l'article suivant! ] Roudoudou CPCrulez[Content Management System] v8.732-desktop
Page créée en 190 millisecondes et consultée 30 foisL'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko. |
|
