Télécharger le zip
Problème chez moi avec ces lignes dansPrivate 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 HexPourtant le code des lignes est correctMystère!
En fait il manque la fonction Hex tu as oublié de la mettre WarriorProg
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.
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+
Merci pour l'info Casy.Effectivement, le problème est résolu.Je vais me souvenir de cette manip.
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.
tip top ... c'est impécable ,super bien commenté tout à fait ce que je cherchai ...continu
bonjour g un problem avec visual basic6.0 car je suis un debutantj'ai cree une horloge avec les boucle if thenet j'ai cree des label dans les quelle il existe les orraireset 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.
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.
bonjoursvp j arrive pas à trouevr le code pour controler chercher lpt figurant sur l interfacemerci
Salut WarriorProgTout 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 BooleanDim i As IntegerValue = 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 iEnd FunctionOu est-ce une question de logique inversée?J'ai du mal à saisir, merci de ton aide...
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte