Commander le port parallele sous winxp,2000,nt

Soyez le premier à donner votre avis sur cette source.

Vue 25 430 fois - Téléchargée 5 739 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
Messages postés
4
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 mars 2010

en effet, il suffit de complier le projet et le tour est jouer. je reste dispo pour toute autre info merci a vous !!!
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
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
Messages postés
1
Date d'inscription
jeudi 18 février 2010
Statut
Membre
Dernière intervention
18 février 2010

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
Messages postés
1
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
10 juin 2009

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
Messages postés
491
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
18 novembre 2016
1
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...
Afficher les 15 commentaires

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.