Commander le port parallele sous winxp,2000,nt

Soyez le premier à donner votre avis sur cette source.

Vue 25 916 fois - Téléchargée 5 812 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!!!

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

Ajouter un commentaire Commentaires
cs_WarriorProg Messages postés 4 Date d'inscription lundi 14 juin 2004 Statut Membre Dernière intervention 5 mars 2010
5 mars 2010 à 08:40
en effet, il suffit de complier le projet et le tour est jouer. je reste dispo pour toute autre info merci a vous !!!
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
18 févr. 2010 à 08:43
C'est un executable, et par mesure de sécurité, les executables sont toujours enlevés des sources présentes sur le site.

Pour obtenir PTest.exe, il doit falloir recompiler le projet avec VB6
panachalex Messages postés 1 Date d'inscription jeudi 18 février 2010 Statut Membre Dernière intervention 18 février 2010
18 févr. 2010 à 08:12
Bonjour,
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
cs_khereddine Messages postés 1 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 10 juin 2009
10 juin 2009 à 11:19
Salut tt le monde
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
jimy neutron Messages postés 491 Date d'inscription mercredi 1 février 2006 Statut Membre Dernière intervention 18 novembre 2016 1
18 févr. 2008 à 22:22
Salut WarriorProg

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.