Discussion :

[gedonet]

Bonjour
je travaille sur un projet personnel de datalogger pour avion RC. Je vous présente un peut le principe, j'ai un accelerometre 3 directions de Freescale que je lis avec un microcontrôleur PIC 16F676 et je stocke les valeurs lues dans une EEprom 24LC512. Les valeurs sont sur 8 bits et je stocke au maximum 65536 octets dans la mémoire. Pour la partie PIC accelerometre EEprom tout fonctionne correctement.
Maintenant je dois traiter ces valeurs sur un PC avec VB6, le problème c'est que je n'ai plus fait de VB depuis pas mal de temps, donc en premier je dois lire les valeurs dans l'EEprom (65536 octets) par le port RS232, j'envoie un 'a' au pic qui me renvoie tous les octets à la suite, cette partie sur le pic a été testé avec un Hyperterminal et cela fonctionne. Mon problème est de faire cela en VB je pense y arrivé, mais comment je dois stocker les valeurs dans un fichier, les octets à la suite, séparés par un espace, un point virgule ou un saut à la ligne.
Et ensuite comment les lire octet après octet dans ce fichier pour les traiter.
Ma question ne porte pas sur la création du fichier, mais sur la meilleure méthode pour écrire tous ces octets pour pouvoir les relire simplement.
J'ai fait quelques essais mais lorsque je veux lire la premiere valeur, le programme me lis toutes les valeurs comme une seule.
Je vous remercie d'avance pour votre aide.
Gilles

[Delbeke]

Je pense que le mieux serait d'utiliser un fichier binaire et le lire/ecrire en une fois.
Quelque chose du genre

'Ecriture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EcritFichier(FileName As String, Buffer As String)
 Dim hFich As Integer
 hFich = FreeFile
 Open FileName For Binary As #hFich
 Put #hFich, , Buffer
 Close #hFich
End Sub

'Lecture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function LitFichier(FileName As String) As String
 Dim hFich As Integer
 Dim Buffer As String
 hFich = FreeFile
 Open FileName For Binary As #hFich
 Buffer = String(LOF(hFich), 0)
 Get #hFich, , Buffer
 Close #hFich
 LitFichier = Buffer
End Function

Le reste n'est plus qu'un problème de traitement d'une chaîne de caractères

[iclic]

Bonjour,

Je crois que tu dois t'orienter dans la FAQ comment lire ou écrire les fichiers binaires avec lesquelles tu peux faire ce que tu veux.
Ou toi tu décides ce que tu écris ou ce que tu lis:octet par octet
(c'était l'ancienne méthode mais ou tu restes maître de la façon dont tu as fait ton code.)

A+

[gedonet]

Bonjour
Merci pour vos reponses, en particulier à Delbeke dont j'ai utilisé la fonction pour lire dans un fichier et qui fonctionne parfaitement bien.
Encore merci pour votre aide car je ne savais pas trop comment je devais appréhender mon probleme.
Gilles