Accueil > > > DÉPLACEMENT D'UN RÉCTANGLE ROUGE A L'AIDE DE LA SOURIS
DÉPLACEMENT D'UN RÉCTANGLE ROUGE A L'AIDE DE LA SOURIS
Information sur la source
Description
Affichage d'un réctangle rouge et déplacement de ce rectangle rouge avec la souris peut être une base d'un system de fenetrage mode vidéo n°12 : AH=0, AL=12, INT 10h affichage d'un pixel : AH=0Ch, AL=couleur, CX=X,DX=Y, INT 10h. pour compiler : @echo off tasmx /ml /m2 /q CareRouge tlink /x /3 CareRouge del CareRouge.obj pause Amenez le curseur au coté gauche du rectangle puis appuyez sur le bouton gauche et bougez Aidez moi a l'améliorer TODO : sortie avec touche ESCAPE enlever les scintillements lors du déplacement pouvoir limiter le déplacement a la limite de l'écran notamment la largeur (x) pouvoir le faire fonctioner dans petit os comme par exemple sur le petit system cos2000 envoie de contenu d'un fichier a l'intérieur du rectangle , du texe par exemple :) enfin vous voyez ce que je veut dire :) Ne faire bouger que par le haut du rectangle... email: kimi1632@hotmail.com j'attend vos commentaire et critiques .
Source
- ;
- ; Affichage d'un réctangle rouge
- ; déplacement d'un réctangle rouge a l'aide de la souris
- ; peut être une base d'un système de fenêtrage
- ;
- ; mode vidéo n°12 : AH=0, AL=12, INT 10h
- ; affichage d'un pixel : AH=0Ch, AL=couleur,CX=X,DX=Y, INT 10h
- ;
- ; Amenez le curseur au coté gauche du rectangle puis appuyez sur le
- ; bouton gauche et bougez
- ;
- ;***************************************************************************************
- .MODEL SMALL
- .STACK 200H
- .586
-
- .data
- tmpCx DD ? ; position X du réctangle
- tmpDx DD ? ; position Y du réctangle
- wcote DD 250
- hcote DD 145
- ends
- .CODE
-
- begin: jmp MAIN
-
-
- ShowCur proc near ; afficher le curseur souris
- push eax
- mov eax ,0001h
- int 33h
- pop eax
- ret
- endp
- HideCur proc near ; cacher le curseur souris
- push eax
- mov eax , 0002h
- int 33h
- pop eax
- ret
- endp
- MoveCur proc near ; déplacer le curseur souris
- push eax
- push ecx
- push edx
- mov ecx,tmpCx
- mov edx,tmpDx
- inc ecx
- dec edx
- mov eax, 0004h
- int 33h
- pop edx
- pop ecx
- pop eax
- ret
- endp
- Readkey proc near ; attendre une clé au clavier
- mov ah , 00h
- int 16h
- ret ; remarque : pas de pop ni de push ax !
- endp
- waitEscap proc near ; attendre ECHAPE
- .Wait: call Readkey ; attendre une clé
- cmp byte ptr eax, 11Bh ; c'est ESCAPE ?
- je .end
- CMP EBX,1
- je position
- ret
- endP
- clrscr proc near ; effacer l'écran
- push eax
- push ebx
- push ecx
- push edx
- mov bh , 0 ; couleur (attribut) pour les lignes vides ici noir
- mov ecx ,0
- mov dh , 48 ; dh = coin inférieur droit ,donc dh = 25 : 0..24 nbr de lignes
- mov dl , 179 ; et dl = 80 : 0..79 nbr de colonnes
- mov al , 00h ; veut dire "effacer la fenêtre - au lieu de décaler c'est lignes -"
- mov ah , 06h
- int 10h
- pop edx
- pop ecx
- pop ebx
- pop eax
- ret
- endp
- VGA proc near
- MOV AL,12h ; VGA
- SUB AH,AH ;= 0
- INT 10h
- ret
- endp
- refresh proc near ; rafraichir le dessin du réctangle
-
- MOV AL,12 ; rouge
- MOV AH,0ch ; écrire pixel
- MOV BH,0 ; page 0
- MOV BL,250
- r1:
- INC ECX
- INT 10h ; vers la droite
- DEC BL
- JNZ r1
- MOV BL,145
- r2:
- INC EDX
- INT 10h ; vers la bas
- DEC BL
- JNZ r2
- MOV BL,250
-
- r3: DEC ECX
- INT 10h ; vers le gauche
- DEC BL
- JNZ r3
- MOV BL,145
-
- r4: DEC EDX
- INT 10h ; vers le haut
- DEC BL
- JNZ r4
- ret
- endp
-
- draw0 proc near ; draw initial dessin d'un réctangle
- MOV AL,12 ; rouge
- MOV AH,0ch ; écrire pixel
- MOV BH,0 ; page 0
- MOV tmpCx, 250
- MOV tmpDx, 250
- MOV ECX, tmpCx
- MOV EDX, tmpDx
- MOV BL,250
-
- @1: INC ECX
- INT 10h ; vers la droite
- DEC BL
- JNZ @1
- MOV BL,145
-
- @2: INC EDX
- INT 10h ; vers la bas
- DEC BL
- JNZ @2
- MOV BL,250
-
- @3: DEC ECX
- INT 10h ; vers le gauche
- DEC BL
- JNZ @3
- MOV BL,145
-
- @4: DEC EDX
- INT 10h ; vers le haut
- DEC BL
- JNZ @4
- ret
- endp
- drawx proc near ; draw dynamique dessine un réctangle a la
- ; position des nouvelles coordonnés curseur.
- MOV AL,12 ; rouge
- MOV AH,0ch ; écrire pixel
- MOV BH,0 ; page 0
- MOV BL,250 ; coté
- @@1:
- INC ECX
- INT 10h ; vers la droite
- DEC BL
- JNZ @@1
- MOV BL,145
-
- @@2: INC EDX
- INT 10h ; vers la bas
- DEC BL
- JNZ @@2
- MOV BL,250
-
- @@3: DEC ECX
- INT 10h ; vers le gauche
- DEC BL
- JNZ @@3
- MOV BL,145
-
- @@4: DEC EDX
- INT 10h ; vers le haut
- DEC BL
- JNZ @@4
- ret
- endp
-
- position proc near ; la position de la souris
-
- isClick:
- mov EAX , 0003h ; si un bouton est appuyé
- int 33h
- CMP EBX, 1 ; si oui,est ce que c'est le bouton gauche ;de la souris qui est appuyé ?
- JNE isClick ; non,alors répéter
-
- .width: MOV EAX,tmpCx
- CMP ECX,EAX
- JNLE isClick ; répéter si-non.
-
- howMeny: ; récupérer la positon du curseur CX,DX
- CMP ECX,tmpCx ; si on a bouger on rafraichie l'écran
- ;CMP EDX,tmpDx
- JE .in
- call clrscr ; effacer avec rafraichissement permanent
- call refresh
- .in: mov EAX , 0003h
- int 33h
- CMP EBX, 1 ; si oui , le bouton gauche de la souris est il appuyé ?
- JE howMeny ; si oui alors répéter
- call clrscr ; si non , bouton gauche relâché alors ,efacer avec tracage du caré
- call drawx ; et redessiner.
- call HideCur
- call refresh
- call ShowCur
- call refresh
- call refresh ; et un autre pour bien finir le dessin(enlever ça pour voir)
- JMP isClick ; répéter
-
- .out: ret
- endp
-
- MAIN:
- call VGA ; mode vidéo vga AH= 12h
- call clrscr ; effacer
- call draw0 ; dessiner un réctangle à la position ;(tempCX , tempDX).
- call ShowCur ; montrer le curseur de la souris
-
- deplace:
- call position ; CX=tempCX , DX=tempDX
- ;call waitEscap ; attendre une ESCAPE pour sortir , mai ca ;boucle sur position donc Alt + Tab pour sortir
-
- .end: mov Eax, 4c00h ; fin
- int 21h
- ends
- end begin
;
; Affichage d'un réctangle rouge
; déplacement d'un réctangle rouge a l'aide de la souris
; peut être une base d'un système de fenêtrage
;
; mode vidéo n°12 : AH=0, AL=12, INT 10h
; affichage d'un pixel : AH=0Ch, AL=couleur,CX=X,DX=Y, INT 10h
;
; Amenez le curseur au coté gauche du rectangle puis appuyez sur le
; bouton gauche et bougez
;
;***************************************************************************************
.MODEL SMALL
.STACK 200H
.586
.data
tmpCx DD ? ; position X du réctangle
tmpDx DD ? ; position Y du réctangle
wcote DD 250
hcote DD 145
ends
.CODE
begin: jmp MAIN
ShowCur proc near ; afficher le curseur souris
push eax
mov eax ,0001h
int 33h
pop eax
ret
endp
HideCur proc near ; cacher le curseur souris
push eax
mov eax , 0002h
int 33h
pop eax
ret
endp
MoveCur proc near ; déplacer le curseur souris
push eax
push ecx
push edx
mov ecx,tmpCx
mov edx,tmpDx
inc ecx
dec edx
mov eax, 0004h
int 33h
pop edx
pop ecx
pop eax
ret
endp
Readkey proc near ; attendre une clé au clavier
mov ah , 00h
int 16h
ret ; remarque : pas de pop ni de push ax !
endp
waitEscap proc near ; attendre ECHAPE
.Wait: call Readkey ; attendre une clé
cmp byte ptr eax, 11Bh ; c'est ESCAPE ?
je .end
CMP EBX,1
je position
ret
endP
clrscr proc near ; effacer l'écran
push eax
push ebx
push ecx
push edx
mov bh , 0 ; couleur (attribut) pour les lignes vides ici noir
mov ecx ,0
mov dh , 48 ; dh = coin inférieur droit ,donc dh = 25 : 0..24 nbr de lignes
mov dl , 179 ; et dl = 80 : 0..79 nbr de colonnes
mov al , 00h ; veut dire "effacer la fenêtre - au lieu de décaler c'est lignes -"
mov ah , 06h
int 10h
pop edx
pop ecx
pop ebx
pop eax
ret
endp
VGA proc near
MOV AL,12h ; VGA
SUB AH,AH ;= 0
INT 10h
ret
endp
refresh proc near ; rafraichir le dessin du réctangle
MOV AL,12 ; rouge
MOV AH,0ch ; écrire pixel
MOV BH,0 ; page 0
MOV BL,250
r1:
INC ECX
INT 10h ; vers la droite
DEC BL
JNZ r1
MOV BL,145
r2:
INC EDX
INT 10h ; vers la bas
DEC BL
JNZ r2
MOV BL,250
r3: DEC ECX
INT 10h ; vers le gauche
DEC BL
JNZ r3
MOV BL,145
r4: DEC EDX
INT 10h ; vers le haut
DEC BL
JNZ r4
ret
endp
draw0 proc near ; draw initial dessin d'un réctangle
MOV AL,12 ; rouge
MOV AH,0ch ; écrire pixel
MOV BH,0 ; page 0
MOV tmpCx, 250
MOV tmpDx, 250
MOV ECX, tmpCx
MOV EDX, tmpDx
MOV BL,250
@1: INC ECX
INT 10h ; vers la droite
DEC BL
JNZ @1
MOV BL,145
@2: INC EDX
INT 10h ; vers la bas
DEC BL
JNZ @2
MOV BL,250
@3: DEC ECX
INT 10h ; vers le gauche
DEC BL
JNZ @3
MOV BL,145
@4: DEC EDX
INT 10h ; vers le haut
DEC BL
JNZ @4
ret
endp
drawx proc near ; draw dynamique dessine un réctangle a la
; position des nouvelles coordonnés curseur.
MOV AL,12 ; rouge
MOV AH,0ch ; écrire pixel
MOV BH,0 ; page 0
MOV BL,250 ; coté
@@1:
INC ECX
INT 10h ; vers la droite
DEC BL
JNZ @@1
MOV BL,145
@@2: INC EDX
INT 10h ; vers la bas
DEC BL
JNZ @@2
MOV BL,250
@@3: DEC ECX
INT 10h ; vers le gauche
DEC BL
JNZ @@3
MOV BL,145
@@4: DEC EDX
INT 10h ; vers le haut
DEC BL
JNZ @@4
ret
endp
position proc near ; la position de la souris
isClick:
mov EAX , 0003h ; si un bouton est appuyé
int 33h
CMP EBX, 1 ; si oui,est ce que c'est le bouton gauche ;de la souris qui est appuyé ?
JNE isClick ; non,alors répéter
.width: MOV EAX,tmpCx
CMP ECX,EAX
JNLE isClick ; répéter si-non.
howMeny: ; récupérer la positon du curseur CX,DX
CMP ECX,tmpCx ; si on a bouger on rafraichie l'écran
;CMP EDX,tmpDx
JE .in
call clrscr ; effacer avec rafraichissement permanent
call refresh
.in: mov EAX , 0003h
int 33h
CMP EBX, 1 ; si oui , le bouton gauche de la souris est il appuyé ?
JE howMeny ; si oui alors répéter
call clrscr ; si non , bouton gauche relâché alors ,efacer avec tracage du caré
call drawx ; et redessiner.
call HideCur
call refresh
call ShowCur
call refresh
call refresh ; et un autre pour bien finir le dessin(enlever ça pour voir)
JMP isClick ; répéter
.out: ret
endp
MAIN:
call VGA ; mode vidéo vga AH= 12h
call clrscr ; effacer
call draw0 ; dessiner un réctangle à la position ;(tempCX , tempDX).
call ShowCur ; montrer le curseur de la souris
deplace:
call position ; CX=tempCX , DX=tempDX
;call waitEscap ; attendre une ESCAPE pour sortir , mai ca ;boucle sur position donc Alt + Tab pour sortir
.end: mov Eax, 4c00h ; fin
int 21h
ends
end begin
Conclusion
Il est claire que ce n'est pas suffisant pour un système de base GUI car on n'exploite pas toutes les possibilité de la carte graphique et la rame mai c'est un début .
Historique
- 16 août 2009 13:41:56 :
- mise a jour
- 16 août 2009 13:47:44 :
- mise a jour.
- 16 mai 2010 08:08:14 :
- mise à jour
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Et linux dans tout ça ?!!! [ par progfou ]
Lu tt le monde !Il y a 2 choses que je trouve dommage :- vous ne parlez (quasiment) pas de linux et de la programmation système sous ce système d'expl
ou se trouve le système MS-DOS dans la RAM? [ par ibroman ]
Bonjour,j'ai remarquer que pour un fichier .com, les adresses debutent avec un décalage de 100h.Ensuite que les adresses interruptions se trouve au de
gestionnaire d'écran pour système d'exploitation [ par kiceron ]
salut je dois créer un gestionnaire d'écran en Assembleur pour un système d'exploitation que nous faisons à l'école en tant q
Créer un Système de fichiers ? [ par Wiplah75 ]
Bonjour,J'ai un peu de temps et je souhaiterais développer en asm et en c un OS sans utiliser aucune source externe. Bref de A à ZConcernant
Eviter l'ouverture de la console [ par Taron31 ]
Bonjour, je fais une GUI avec Win32 en ASM en compilant avec MASM32, le petit inconvénient est que lors du lancement de l'.exe la GUI s'affiche mais a
message système [ par Guilou34 ]
Bonjour à tous. <p class="MsoNormal"
Assembleur 8086 [ par CINTELJ ]
BonjourJe suis nouveau sur le forum et j'aurai besoin d'aide pour un transfert de la compilation de programmes d'un système HP64000 vers PC windows XP
GUI avec TASM [ par BXBlue ]
Salut tous [^^happy17]; Je suis à la recherche d'une documentation, code source, site web ... [^^sad2] qui traitent les interfaces graphiques GUI en m
Copier un disque dure vers un autre [ par tmsarts ]
Salut tous le monde; Je veut copier un disque dure vers un autre disque dure mais ça bloque au niveau des fichiers systèmes; NB : Le disque dure de d
|
Derniers Blogs
WP7 5K BELGIUM CHALLENGEWP7 5K BELGIUM CHALLENGE par junarnoalg
Microsoft Belgique a le plaisir de vous annoncer le lancement du
Challenge Windows Phone 7
. Celui-ci se déroule du 12 juillet au 30 novembre 2010 et vous donne l'opportunit...
Cliquez pour lire la suite de l'article par junarnoalg LES MONADES POUR LES NULSLES MONADES POUR LES NULS par mdufourneaudravel
Avec l'annonce de F#, je me suis intéressé de plus en plus à la programmation fonctionnelle, je suis donc rapidement tombé sur les " monades ", mais malgré la lecture de plusieurs articles, j'étais resté perméable à leur concept. C'est désormais fini, grâ...
Cliquez pour lire la suite de l'article par mdufourneaudravel [WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7 par Audrey
L'émulateur Windows Phone 7, fourni avec la version Beta des outils développeurs n'inclut aucune image dans sa bibliothèque. Pas très pratique de tester son application lorsque l'on souhaite que l'utilisateur puisse choisir une image présente dans le télé...
Cliquez pour lire la suite de l'article par Audrey VIVE LES MOCKS ET LES POCOSVIVE LES MOCKS ET LES POCOS par vLabz
J'observe régulièrement autour de moi de la confusion à propos de ces deux termes et j'aimerais juste rappeler ce qu'ils signifient. Je ne suis bien sûr pas le mieux placé pour faire une leçon mais je vais faire de mon mieux pour mettre en valeur ce q...
Cliquez pour lire la suite de l'article par vLabz [WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5)[WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5) par JeremyJeanson
Vendredi dernier Microsoft a publié le quatrième épisode des bonnes pratiques pour coder ses activités custom dans WF4 : endpoint.tv - Workflow and Custom Activities - Best Practices (Part 4) . Tout comme pour les précédents épisodes, j'ai pris le temps d...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
Crystal Report (11)CRYSTAL REPORT (11)Crystal Reports est un outil de reporting souple et puissant, vous pouvez très facilement consult... Cliquez pour télécharger Crystal Report Academy System (12.0.2.0)ACADEMY SYSTEM (12.0.2.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft iPod Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPOD VIDéO CONVERTISSEUR 6 (6.0.3.0419)Xilisoft iPod Vidéo Convertisseur est un outil puissant de conversion d'iPod, facile à utiliser. ... Cliquez pour télécharger Xilisoft iPod Vidéo Convertisseur 6 Xilisoft iPhone Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPHONE VIDéO CONVERTISSEUR 6 (6.0.3.0419)Xilisoft iPhone Vidéo Convertisseur est le meilleur logiciel de conversion iPhone qui peut facile... Cliquez pour télécharger Xilisoft iPhone Vidéo Convertisseur 6 Xilisoft iPad Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPAD VIDéO CONVERTISSEUR 6 (6.0.3.0419)Il s'agit d'un logiciel polyvalent pour convertir les formats vidéo/audio populaires en formats p... Cliquez pour télécharger Xilisoft iPad Vidéo Convertisseur 6
|