Sechaud
Messages postés288Date d'inscriptionjeudi 28 octobre 2004StatutMembreDernière intervention 3 janvier 2017
-
5 oct. 2006 à 16:10
cs_WarriorProg
Messages postés4Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 mars 2010
-
5 mars 2010 à 08:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_WarriorProg
Messages postés4Date d'inscriptionlundi 14 juin 2004StatutMembreDerniè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és7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 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és1Date d'inscriptionjeudi 18 février 2010StatutMembreDernière intervention18 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és1Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention10 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és491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 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...
boutaina17
Messages postés1Date d'inscriptionlundi 22 octobre 2007StatutMembreDernière intervention21 novembre 2007 21 nov. 2007 à 22:46
bonjour
svp j arrive pas à trouevr le code pour controler chercher lpt figurant sur l interface
merci
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 19 juin 2007 à 16:55
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.
vanhelsi
Messages postés2Date d'inscriptionjeudi 31 mai 2007StatutMembreDernière intervention19 juin 2007 19 juin 2007 à 16:09
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.
plm77
Messages postés2Date d'inscriptiondimanche 14 novembre 2004StatutMembreDernière intervention11 mai 2007 11 mai 2007 à 22:34
tip top ... c'est impécable ,super bien commenté tout à fait ce que je cherchai ...continu
WariorProg
Messages postés18Date d'inscriptiondimanche 9 mai 2004StatutMembreDernière intervention15 décembre 2013 8 mars 2007 à 00:06
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.
Sechaud
Messages postés288Date d'inscriptionjeudi 28 octobre 2004StatutMembreDernière intervention 3 janvier 2017 12 oct. 2006 à 06:59
Merci pour l'info Casy.Effectivement, le problème est résolu.Je vais me souvenir de cette manip.
VBGenesis
Messages postés292Date d'inscriptionsamedi 25 février 2006StatutMembreDernière intervention22 février 2009 11 oct. 2006 à 07:29
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+
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 10 oct. 2006 à 19:35
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.
VBGenesis
Messages postés292Date d'inscriptionsamedi 25 février 2006StatutMembreDernière intervention22 février 2009 5 oct. 2006 à 19:06
En fait il manque la fonction Hex tu as oublié de la mettre WarriorProg
Sechaud
Messages postés288Date d'inscriptionjeudi 28 octobre 2004StatutMembreDernière intervention 3 janvier 2017 5 oct. 2006 à 16:10
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!
5 mars 2010 à 08:40
18 févr. 2010 à 08:43
Pour obtenir PTest.exe, il doit falloir recompiler le projet avec VB6
18 févr. 2010 à 08:12
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
10 juin 2009 à 11:19
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
18 févr. 2008 à 22:22
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...
21 nov. 2007 à 22:46
svp j arrive pas à trouevr le code pour controler chercher lpt figurant sur l interface
merci
19 juin 2007 à 16:55
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.
19 juin 2007 à 16:09
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.
11 mai 2007 à 22:34
8 mars 2007 à 00:06
12 oct. 2006 à 06:59
11 oct. 2006 à 07:29
A+
10 oct. 2006 à 19:35
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.
5 oct. 2006 à 19:06
5 oct. 2006 à 16:10
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!