Qui sait programmer un port paralelle en pascal???
Fermé
MacaDaMs
Messages postés
6
Date d'inscription
mardi 15 août 2000
Statut
Membre
Dernière intervention
5 février 2001
-
5 févr. 2001 à 22:39
tcornu - 19 févr. 2001 à 15:21
tcornu - 19 févr. 2001 à 15:21
oui je dois faire un programme en turbopascal pour controler le port paralelle, mais je n'ai rien trouvé qui puisse m'aider, si vous savez faire ou si vous avez des informations, je suis preneur!
Merci de vos réponses.
MacaDaMs
Merci de vos réponses.
MacaDaMs
A voir également:
- Qui sait programmer un port paralelle en pascal???
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Programmer un sms - Guide
- Programmer un mail gmail - Guide
2 réponses
J'ai oublié le turboi pascal depuis le temps, mais je crois me souvenir d'une instruction "port", sans parler des interruptions DOS.
Bon courage
Bon courage
Le port imprimante se contrôle via l'interruption $17. Par exemple qq fonctions :
interface
function PrtReady:boolean;
function imprim(chaine:string):byte;
implementation
uses Dos,printer;
function PrtReady:boolean;
var reg : registers;
(* la fonction renvoie dans AH les information suivantes :
bit signification
--- -----------------------
0 timeout 1
1,2 pas utilis‚s 2,4
3 erreur 8
4 imprimante s‚lectionn‚e 16
5 plus de papier 32
6 128
7 imprimante prˆte *)
begin
reg.ax:=$0200;
reg.dx:=0;
intr($17,reg);
PrtReady := ( reg.ah = 144 ) or ( reg.ah = 16 );
end;
Les fonctions de l'interruption sont :
00 Envoi d'un car
01 Init
02 lecture de l'état (prête...) Utilisée dans l'ex ci-dessus
Pour attaquer directement l'imprimante sans passer par le BIOS, il faut effectivement passer par l'instruction Port ou PortW
interface
function PrtReady:boolean;
function imprim(chaine:string):byte;
implementation
uses Dos,printer;
function PrtReady:boolean;
var reg : registers;
(* la fonction renvoie dans AH les information suivantes :
bit signification
--- -----------------------
0 timeout 1
1,2 pas utilis‚s 2,4
3 erreur 8
4 imprimante s‚lectionn‚e 16
5 plus de papier 32
6 128
7 imprimante prˆte *)
begin
reg.ax:=$0200;
reg.dx:=0;
intr($17,reg);
PrtReady := ( reg.ah = 144 ) or ( reg.ah = 16 );
end;
Les fonctions de l'interruption sont :
00 Envoi d'un car
01 Init
02 lecture de l'état (prête...) Utilisée dans l'ex ci-dessus
Pour attaquer directement l'imprimante sans passer par le BIOS, il faut effectivement passer par l'instruction Port ou PortW