Lire une valeur codée sur deux octets sur RS232
Résolu
aymen81
Messages postés
6
Date d'inscription
jeudi 27 octobre 2005
Statut
Membre
Dernière intervention
19 janvier 2006
-
16 déc. 2005 à 14:29
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 16 déc. 2005 à 15:51
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 16 déc. 2005 à 15:51
A voir également:
- Lire une valeur codée sur deux octets sur RS232
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Valeur absolue c ✓ - Forum C++ & C++ .NET
- Ephéméride entre deux dates ✓ - Forum PHP
- Éphéméride entre deux dates - Forum Delphi / Pascal
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
2 réponses
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
16 déc. 2005 à 15:19
16 déc. 2005 à 15:19
je ne comprends pas très bien ta question
il faut que tu es mis un composant dans ton projet (TComport ou autre)
ou une DLL et après ouverture du port tu le lis (par exemple
readstr(buffer,count))
S'il s'agit d'une chaine de caractères qui commence toujours par
une lettre il te suffit de copier la fin de la chaine et de la
convertir.
resultat:=copy(buffer,2,length(buuffer));
valeur:=strtoint(resultat);
Si ce n'est pas ce que tu cherche précise ta question
@+
jlen
il faut que tu es mis un composant dans ton projet (TComport ou autre)
ou une DLL et après ouverture du port tu le lis (par exemple
readstr(buffer,count))
S'il s'agit d'une chaine de caractères qui commence toujours par
une lettre il te suffit de copier la fin de la chaine et de la
convertir.
resultat:=copy(buffer,2,length(buuffer));
valeur:=strtoint(resultat);
Si ce n'est pas ce que tu cherche précise ta question
@+
jlen
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
16 déc. 2005 à 15:51
16 déc. 2005 à 15:51
un petite chose si tes données sont codées ainsi:
un caractère + une valeur binaire su 2 octets le plus simple est de
recevoir la totalité comme une chaine de caractères et ensuite de faire
un transtypage sur la valeur numérique
Dans ton exemple la chaine aura une longueur de 3 octets
si buffer contient la chaine:
var valeur:^smallint; (ou^word si jamais négatif);
valeur:=@buffer[2];// on pointe sur le début de la valeur;
ShowMessage('Ceci est la valeur' + inttistr(valeur^));
si tu veux plus d'exemple vas voir ma source
PILOTAGE 4 AXES POUR MOTEURS PAS A PAS + 4 SERVOS ...
en particulier dans le timer "scanner" ou on lit des données arriavnt
de façon aléatoire tu peux aussi regarder dans la fonction
"LectureCompteur"(actionlist:"utilitaire")
@+
jlen
un caractère + une valeur binaire su 2 octets le plus simple est de
recevoir la totalité comme une chaine de caractères et ensuite de faire
un transtypage sur la valeur numérique
Dans ton exemple la chaine aura une longueur de 3 octets
si buffer contient la chaine:
var valeur:^smallint; (ou^word si jamais négatif);
valeur:=@buffer[2];// on pointe sur le début de la valeur;
ShowMessage('Ceci est la valeur' + inttistr(valeur^));
si tu veux plus d'exemple vas voir ma source
PILOTAGE 4 AXES POUR MOTEURS PAS A PAS + 4 SERVOS ...
en particulier dans le timer "scanner" ou on lit des données arriavnt
de façon aléatoire tu peux aussi regarder dans la fonction
"LectureCompteur"(actionlist:"utilitaire")
@+
jlen
