échantillonage en macro

donc on se trouve avec une possiblité logique pour chaque échantillon de 4 5 ou 6 valeur retourné (forcément identique?)
problème :si 30 zéros se suivent comment savoir si j'ai 5*6 ou 6*5 ? là j'ai bien peur qu'il n'y ai pas de solution avec Excel
tu récupères les données par un port série? il doit bien y avoir
un bit pour le départ d'écriture
les données de communication la valeur et un bit de fin .Non?
Daranc

appliques ce que je t'ai envoyé
puis tu sélectionnes dans la colonnes de conversion la plage allant de la ligne4 à la ligne 150 et tu fait un graphique en nuage de point sans marque pour la donne et un trait fin pour la ligne (choisi le type de graphique deuxieme ligne à droite
Daranc
ceci est un extrait du fichier après le passage de la macro est la conversion en décimal
l'ascenseur permet de faire varié la position de lecture des données pour avoir un graphique lisible

en te relisant u échantillonnage de 4 implique que toutes les serie sont de 4 nombre?
si c'est le cas la récupération en une seule colonne est résolue
Daranc

bonjour,

pour ton premier post depuis hier soir, sache que l'on ne peut avoir au maximum que trois '1' ou '0' à la suite avec un échantillonnage de 5. On ne peut donc pas se tromper.

Pour ton deuxième post, je n'est pas compris le but

pour ton dernier post, avec un échantillonnage de 4, on peut avoir des suites de 3 ou 4 ou 5 à la suite vu qu'il peut se créer un décalage. Mais sur deux bits, on aura dans tout les cas une somme de 8 bits.
Par exemple pour :

2 '0' à la suite, on peut avoir : 000 00000 ou 0000 0000 ou 00000 000
pour un '1' et un '0' : 000 11111 ou 0000 1111 ou 111 0000

je souhaite utiliser le langage VBA pour y arriver, aurais-tu un cours en particulier à me conseiller. J'ai le livre 'VBA' de micro application et j'ai déjà regarder sur développez.net leurs cours. D'ailleurs, je n'arrive pas à y accèder aujours'hui !!!
:?

ce qui veut dire que le codage lu est forcement sur 8 bit pour deux valeurs
le problème c'est ce décalage (donc mon dernier post est à poubellisé)
heu! à propos tu as obligatoirement huit bits pour deux valeurs ?
a partir du premier bit de la première valeur?
Daranc

000
11111
111
00000
0000
0000
1111
0000
1010
0101
1100
0011es
la question est en rouge le système de lecture va juste répéter plusieurs fois la même écriture
ou il peut mélanger

en fait, non, je n'ai pas forcément 8 bits pour deux valeurs, cela dépend du logiciel pilote pour l'oscilloscope qui récupère un certain nombre de point en fonction d'un certains nombre de paramètres comme la fréquence du signal observée. je ne sais pas comment il le calcul et je ne peux le choisir moi même.

s'il récupère 2 millions de points
pour une fenêtre de 200ms et un signal de fréquence 1.5MHz
j'aurais un échantillonnage toutes les 100 ns. donc avec une période de
666ns, j'aurais donc 6.66 '0' et/ou '1' pour '00' ou '01' ou '10' ou 11 en réalité

Du coup, selon le nombre de points récupérés, je devrais changer à chaque fois la valeur du taux d'échantillonnage rentré dans le programme.

bon là je ne vois pas comment procéder le truc qui merde c'est bien la récupération des données
as tu regardé le graphique
il est la représentation des point calculé selon un codage régulier sur 7 bits ( 1 & 0) consécutif (diviseur de ton nombre de point)
les nombres binaires relevés ont été convertis en décimal et donnent la courbe représentée
si tu annules le trait de la série du graphique et tu gardes juste la valeur tu obtiens des traits parallèles à l'axe X
Daranc

bonjour,

après avoir écrit un programme en langage C, et l'avoir validé. Je me suis lancé dans la programmation en VBA. Mon problème cette fois est que dans les boucles 'for', je me sers de la variable locale incrémenté pour sélectionner une cellule. Ce qui n'est soit pas prévu, soit je l'écris mal. pourrais-tu éclairer mes lanternes ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Sub Concatener()   dim resolution as integer resolution= +4 dim i as integer i=4 dim j as integer dim k as integer dim l as integer l=4 dim m as integer   for j=4 to resolution+4 [B(j)] = [A(i)] i=i+1 next j   do if [B4]<>[B5]then for k=4 to k=resolution-1 [B(k)]=[B(k+1)] next k [B(resolution]=[A(i)] i=i+1 end if if [B4]Is[B5] and [B(resolution-1)]Is[B(resolution)] and [B4]<>[B(resolution)]then [C(l)]=[B4] l=l+1 [B4]=[B(resolution-1] [B5]=[B(resolution] for j=6 to resolution [B(j)]=[A(i)] i=i+1 next j end if if [B(resolution)]Is[B(resolution-1)] Or [B(resolution-1)]Is[B4]then [C(l)]=[B4] l=l+1 [B4]=[B(resolution)] for j=5 to j=resolution [B(j)]=[A(i)] i=i+1 next j end if loop while i<50000+resolution-4 end sub

---

si tu veux comprendre le programme entièrement, voici les commentaires :

Citation:

---

taille des colonnes :
colonne A = 50000 cellule à partir de la 4
colonne B = resolution+1 cellule à partir de la 4
colonne C = taille inconnue à partir de la 4

première boucle, je remplis la colonne B qui sera une colonne de test avec les valeurs de la colonne A, la première fois, elle est remplie avant la boucle do - while car par la suite, le remplissage sera différent.

dans la boucle do-while:

premier if, si la 1ere cellule a une valeur differente de la deuxieme dans la colonne B, je decale les cellules vers le haut et je met en derniere place la valeur suivante de la colonne A.

Deuxième if : détection de resolution-1
si les valeurs des deux premieres cellules de la colonne B sont différentes des deux dernieres cellules, alors je rempli la colonne C avec la valeur de la première cellule. puis je decale les deux dernieres cellules de la colonne B aux deux premières places et je rempli le reste à partir de la colonne A.

troisieme if : détection de résolution et résolution +1
si la valeur de la derniere cellule de la colonne B est la meme que la première ou que la valeur de l'avant derniere cellule est la meme que la premiere. alors je rempli la cellule suivante de la colonne C avec la valeur de la premiere cellule de la colonne B.

fin de la boucle

je retrouve ainsi en C ma trame reconstituée

---

tu obtiens un message d'erreur ? si oui lequel
daranc

voici l'erreur :

erreur d'éxécution '424'
Objet requis

et la ligne suivante est surligné quand je lance le debogueur :

Code:

---

[B(j)] = [A(i)]

---

l'erreur est dut probablement à l'ecriture "non VBA"
a quoi crresponds exatement
[B(j)] et [A(i)] pour j=4 & i=4 ?
Daranc

j'ai résolu le problème
je voulais sélectionner une cellule,
exemple : [B(j)] est en fait la cellule colonne B à la ligne j

mais en effet, ceci n'est pas la bonne syntaxe pour le VBA. En voici une :

[B4].offset(j,0)

la cellule B4 est sélectionner par défaut, puis on applique un décalage de j ligne et de 0 colonne.

Ok ton truc marche?
Daranc

ça y est, la macro fonctionne.

:D

Par contre, le taux d'échantillonnage varie plus que prévu. De mes premiers tests, et analyse à l'oeuil des valeurs, le taux d'échantillonnage varie de -2 à +2 par rapport à la valeur centrale.

:?

Je vais donc revoir le programme mais cela devrait être plus facile maintenant.

En pièce jointe, le classeur excel avec les valeurs récupérés et la macro si tu veux voir le résultat. la macro met un peu de temps à s'éxécuter. Sur mon PC : P4 2.8GHz, 512 RAM, elle doit mettre environ 30 secondes (ça parait pas énorme mais la première fois qu'on la lance, ça fait bizarre)

en entrée de macro

Code:

---

Application.ScreenUpdating=False

---

en fin de macro

Code:

---

Application.ScreenUpdating=True

---

ce qui va désactivé le rafraichissement de l'ecran et le réactive une fois la macro terminé .ça accélère un peu le calcul
Daranc