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!!!
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
5 mars 2010 à 08:40
18 févr. 2010 à 08:43
Pour obtenir PTest.exe, il doit falloir recompiler le projet avec VB6
18 févr. 2010 à 08:12
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
10 juin 2009 à 11:19
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
18 févr. 2008 à 22:22
Tout 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.