begin process at 2008 07 18 20:10:43
1 212 564 membres
417 nouveaux aujourd'hui
14 164 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COMMANDER LE PORT PARALLELE SOUS WINXP,2000,NT


Information sur la source

Catégorie :Périphériques Classé sous : parallele, lpt, port, commander, piloter Niveau : Débutant Date de création : 04/10/2006 Date de mise à jour : 08/03/2007 00:17:07 Vu / téléchargé: 13 076 / 3 940

Note :
7,33 / 10 - par 3 personnes
7,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

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
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

04 octobre 2006 23:50:27 :
Correction d une ou deux fautes de syntaxe et ajout du fichier Word dans l expliquation. dsl
08 mars 2007 00:17:07 :
Si vous avez des problemes avec la fonction "Hex": Il suffit d'aller dans les references du projet(Menu "Projet" puis "Références..."), de décocher toutes les references s'y trouvant sauf les 3 ref visual basic de bases(en général, les 3 premieres).En effet, il se peut qu'un conflit apparaisse si plusieurs references contiennent le fonction "Hex". Bonnes Prog à tous.
  • signaler à un administrateur
    Commentaire de Sechaud le 05/10/2006 16:10:51

    Problème chez moi avec ces lignes dans

    Private Sub Format_Hexa()
    ........

    Text2.Text = "&H" & Hex((Text1.Text) + &H1)  
    Text3.Text = "&H" & Hex((Text1.Text) + &H2)

    Donne le compte rendu d'erreur:
    "Erreur de compilation ou bibliothèque introuvable" en se positionnant sur Hex
    Pourtant le code des lignes est correct
    Mystère!

  • signaler à un administrateur
    Commentaire de VBGenesis le 05/10/2006 19:06:46

    En fait il manque la fonction Hex tu as oublié de la mettre WarriorProg

  • signaler à un administrateur
    Commentaire de casy le 10/10/2006 19:35:04

    Pour faire fonctionner, ouvrir les références du projet et décocher toutes les références sauf les 3 Visual Basic ...
    Hex est une fonction de base de Visual Basic, mais certainement qu'une fonction homonyme existe dans une des références manquantes, d'où le message d'erreur de VB qui cherchait celle de la référence manquante.

    WarriorProg, un petit reflexe très important à avoir, avant de publier un programme, c'est de faire le ménage dans les références et le composants inutilisés, puis de recompiler (compilation finale) l'exe.

  • signaler à un administrateur
    Commentaire de VBGenesis le 11/10/2006 07:29:20

    Merci Casy c'est OK! Si la dll fait planter VB lorsque on utilise une de ses fonctions, je crois qu'il faut modifier les parametres du port parallele dans le bios de la carte mère, je suis en train d'essayer tous les réglages chez moi.
    A+

  • signaler à un administrateur
    Commentaire de Sechaud le 12/10/2006 06:59:22

    Merci pour l'info Casy.Effectivement, le problème est résolu.Je vais me souvenir de cette manip.

  • signaler à un administrateur
    Commentaire de WariorProg le 08/03/2007 00:06:00

    Merci pour toutes ces bonnes remarques, je promet de faire mieux une prochaine fois. Désolé pour les références du projet mais j'en est tellement en cours que j'ai merdé à ce niveaux. Enfin, j'espere que mon code à pu aider des Programmeurs débutants.Bonnes Prog à Tous.

  • signaler à un administrateur
    Commentaire de plm77 le 11/05/2007 22:34:59

    tip top ... c'est impécable ,super bien commenté tout à fait ce que je cherchai ...continu

  • signaler à un administrateur
    Commentaire de vanhelsi le 19/06/2007 16:09:55

    bonjour
    g un problem avec visual basic6.0 car je suis un debutant
    j'ai cree une horloge avec les boucle if then
    et j'ai cree des label dans les quelle il existe les orraires
    et je veux faire des conditions, si les valeurs dans les labelle sont egaux avec les valeurs dans l'horloge alors ecrire dans le port//
    aider moi s'il vous plais.

  • signaler à un administrateur
    Commentaire de jmfmarques le 19/06/2007 16:55:05

    Bonjour le débutant VANHELSI,

    Je vois qu'avant d'avoir un problème avec VB6, tu en as avec la compréhension du but de la présente section (en dehors de tes problèmes manifestes de clavier ....)
    Que viens-tu faire là, s'il te plait ?
    Je t'encourage à lire les règlements de ce forum, puis d'ouvrir ta PROPRE discussion dans la section appropriée, en surveillant ton orthographe, en évitant l'emploi du SMS, en étant très précis et en montrant le code que tu as commencé à écrire.
    Merci de ne pas répondre ici (tu as déjà assez "pollué" le présent sujet.

  • signaler à un administrateur
    Commentaire de boutaina17 le 21/11/2007 22:46:21

    bonjour
    svp j arrive pas à trouevr le code pour controler chercher lpt figurant sur l interface
    merci

  • signaler à un administrateur
    Commentaire de jimy neutron le 18/02/2008 22:22:41

    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...

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS