Page 1 sur 1

Port //

Publié : jeu. 26/mars/2009 19:10
par Jagang
Bonjour
Je voudrais simplement savoir comment contrôlé le port //

Merci d'avance
Cordialement
Jagang

PS : PureBasic en version démo

Publié : jeu. 26/mars/2009 21:48
par Jagang
C'est bon j'ai trouver
Avec inpout32.dll

Code : Tout sélectionner

Procedure Inp32(Address.l)
  Protected Value.l
  Value = CallFunction(0, "Inp32", Address)
  ProcedureReturn Value
EndProcedure

Procedure Out32(Address.l, Value.l)
  CallFunction(0, "Out32", Address, Value)
EndProcedure


OpenConsole()
If OpenLibrary(0, "InpOut32.dll")=0
  End
EndIf

While 1
val=Val(Input())
Out32($0378, val)
Wend
CloseLibrary(0)
Ca ne fonctionnait pas car je n'avais pas la bonne adresse pour le port // (Sous XP panneau de configuration\Sustème\Materiel\Gestionnaire de périhériques\port imprimantes et ressources )

Cordialement
Jagang