Bonjour a tous! C'est mon premier message sur ce forum qui est pour moi une mine d'information.
Je suis actuellement en période de stage et j'ai comme projet de lister des cartes électroniques sur lesquelles seront implanté des Ds2401.
Je programme un CB220 (http://www.lextronic.fr/~lextronic_doc/CUBLOC.pdf) en VB par l’intermédiaire de Cubloc.
Le Ha7e (http://www.homechip.com/catalog/docu...rsman-ha7s.pdf) permet la conversion des codes envoyer par le Cubloc en Ascii et les envoies au DS2401 (http://datasheets.maxim-ic.com/en/ds/DS2401.pdf) qui est sensé renvoyer son numéro de série via le one wire.
Mais actuellement il ne renvoie pas grand chose... Il renvoi 13, ou D en hexa...
Voici mon schéma de câblage ainsi que mon code VB sous Cubloc.
De l'aide serai la bien venu, notamment sur le protocole d'initialisation du DS2401.
Schema de montage:
Code VB implanté dans le CB220:
Const Device=CB220
Dim R As Byte
R = &H52 'Commande Reset Wire (Protocole)
Dim G As Byte
G = &H47 'Commande Read Page (Protocole)
Dim Z As Byte
Z = &H5A 'Commande Write Zero Bit (Protocole)
Dim O As Byte
O = &H4F 'Commande Write One Bit (Protocole)
Dim S As Byte
S = &H53 'Commande Search Rom pour cherche le numero de serie
Dim Id_Carte As String
Dim Id As Byte
Opencom 1,9600,3,30,20
Delay 100
'Envoi du Protocole:
Putstr 1,Dec R, Cr
Delay 100 'Il faut mettre un delay pour que l'info soit bien prise en compte
Putstr 1,Dec G, Cr
Delay 100
Putstr 1,Dec Z, Cr
Delay 100
Putstr 1,Dec O, Cr
Delay 100
Putstr 1,Dec S, Cr
Delay 100
'Lecture du numero de serie:
Do
Id_Carte = Getstr(1,64)
Debug Dec Id_Carte, Cr
Pause 100
Loop
Par avance merci.
I Axe
-----