Commander le port parallele sous winxp,2000,nt
Soyez le premier à donner votre avis sur cette source.
Vue 25 494 fois - Téléchargée 5 765 fois
Description
Petit code utilise la librairie inpout32.dll.Il est destiné au novice car extremement commenté et détaillé. l interface represente les broches du Sub-D25.
Voila Bonne Prog à Tous!!!
il n y a qu a le lancer, par defaut, l adresse est H378 qui c elle retrouvé dans la plupart des PC mais verifiez quand meme. Il ne faudrait pas que votre machine se mette à fumer.(surtout pour vous: tabagisme passif).lol
Voila Bonne Prog à Tous!!!
Conclusion :
il n y a qu a le lancer, par defaut, l adresse est H378 qui c elle retrouvé dans la plupart des PC mais verifiez quand meme. Il ne faudrait pas que votre machine se mette à fumer.(surtout pour vous: tabagisme passif).lol
Codes Sources
A voir également
- Vb 2000
- 2000nt - Meilleures réponses
- Net commander - Meilleures réponses
- Ecriture sur port parallèle sous winxp - Codes sources - Visual Basic / VB.NET (Périphériques)
- Port parallele sous win xp - Codes sources - C / C++ / C++.NET (Périphériques)
- C / C++ / C++.NET : Commande du port parallele & moteur pas a pas - CodeS SourceS - Guide
- Classe .net listant les adresses mac d'une machine - compatible xp/2000/nt - Codes sources - ASP / ASP.NET (Réseau & Internet)
- Delphi / Pascal : Communiquer avec le port parallele(nt /2000/xp/2003) - CodeS SourceS - Guide
- Messages postés
-
7741
- Date d'inscription
- mercredi 1 septembre 2004
- Statut
- Membre
- Dernière intervention
- 24 septembre 2014
37Pour obtenir PTest.exe, il doit falloir recompiler le projet avec VB6
J'ai télécharger le gros fichier zip (car je ne suis pas membre club) mais dedans, il y a tous les fichiers, sauf celui-ci : PTest.exe
Ya un problème a mon avis...
Où puis-je le trouver?
Merci vbrance
Très bon code Idée et Travail,
Je poste pour une bonne nouvelle et une mauvaise
1/ une amélioration de la fonction 'GetEtat'
Public Function GetEtat(ByVal Adr As Long) As Boolean
Dim i As Integer
Value = Inp32(Adr)
Text5.Text = Value
For i = 7 To 0 Step -1
If Value >= 2 ^ i Then
ChEtat(i).Value = 1
Value = Value - (2 ^ i)
Else
ChEtat(i).Value = 0
End If
Next i
End Function
2/ Si jamais un PC brule c'est parce que l'interface commande les mauvais bits
Registre d'état:
bit 7 - 6 - 5 - 4 - 3 - 2 - 1 - 0
Broche 11 10 12 13 15
Registre de controle:
bit 7 - 6 - 5 - 4 - 3 - 2 - 1 - 0
Broche 17 16 14 1
Merci
- Messages postés
-
491
- Date d'inscription
- mercredi 1 février 2006
- Statut
- Membre
- Dernière intervention
- 18 novembre 2016
1Tout d'abord merci pour ton code, bien commenté et soigné..
Je poste pour ta fonction 'GetEtat', telle que je la vois, elle ne peut pas retranscrire en binaire (chaque checkbox etant un bit)la valeur inp32(AdresseEtat). Pour cela il ne faudrais pas commencer par comparer le bit de poids faible, mais par celui de poids fort, soit 2^7, puis 2^6, etc...
donc:
Public Function GetEtat(ByVal Adr As String) As Boolean
Dim i As Integer
Value = Inp32(Adr)
Text5.Text = Value
For i = 0 To 7
If Value >= 2 ^ (7 - i) Then
Form1.ChEtat(7 - i).Value = 1
Value = Value - (2 ^ (7 - i))
Else
Form1.ChEtat(7 - i).Value = 0
End If
Next i
End Function
Ou est-ce une question de logique inversée?
J'ai du mal à saisir, merci de ton aide...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.