Qui sait programmer un port paralelle en pascal???
MacaDaMs
Messages postés
6
Statut
Membre
-
tcornu -
tcornu -
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
- Programmer un sms - Guide
- Dev pascal - Télécharger - Édition & Programmation
- 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
