PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV Mobile (earlier versions) → envoi d'une valeur angulaire sur bluetooth
envoi d'une valeur angulaire sur bluetooth
Started by Bruno SANTI, Apr., 02 2019 4:39 PM - No answer
#1
Registered member
8 messages
Posted on April, 02 2019 - 4:39 PM
Bonjour,
Je souhaite envoyer une valeur angulaire par bluetooth pour piloter un servomoteur. par exemple 90
Avec le code ci-dessous, j'envoie

90
0
0
0

Comment faire pour n'envoyer que 90 sans les trois 0 qui suivent ?

//info(ZR_Périphériques.ATT_MAC)
ligneencours est un entier = ZR_Périphériques..Occurrence
SI SocketConnecteBluetooth("pgb","SerialPortServiceClass_UUID",ZR_Périphériques.ATT_MAC) ALORS
ZR_Périphériques[ligneencours]..CouleurFond = RGB(219,229,241)
Info("Socket créée"+RC+"Périph. N° "+ZR_Périphériques.ATT_ID+RC+"Nom : "+ZR_Périphériques.ATT_Nom+RC+"Adr. MAC : "+ZR_Périphériques.ATT_MAC)
SINON
Info("Echec création Socket"+ErreurInfo())
FIN
SI PAS SocketChangeModeTransmission("pgb", SocketSansMarqueurFin) = Vrai ALORS
Info("Mode de transmission non modifié")
FIN

//code du bouton
nMoteur est un entier sur 4 octets
nMoteur=90
SI SocketEcrit("pgb",nMoteur) = Vrai ALORS
//Info("message envoyé")
FIN
→ Go back to WINDEV Mobile (earlier versions)