COMMANDER LE PORT PARALLELE SOUS WINXP,2000,NT

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!

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.

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.

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

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.

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