Salut,
Mon code Windev Mobile ne fait que de la récupération de données aucun envoi.
Le bouton de connexion BlueTooth :
ChaineTmp est une chaîne
ListePériphs est une chaîne
BTN_BlueTooth..Libellé=" Recherche en cours"
NomSocketBT="BT-HC05"
SI BTEtat() = btDésactivé ALORS
BTActive(Vrai)
FIN
// Recherche ARDUINO
ListePériphs = BTListePériphérique()
SI ListePériphs <> "" ALORS
POUR TOUTE CHAÎNE ChaineTmp DE ListePériphs SEPAREE PAR RC
// Récupération des valeurs
IdentifiantBT = ExtraitChaîne(ChaineTmp,1, TAB)
AdresseMACBT = ExtraitChaîne(ChaineTmp,2, TAB)
NomBT = ExtraitChaîne(ChaineTmp,3, TAB)
SI SansEspace(NomBT)="BT-HC05" ALORS
// Connexion ARDUINO
ToastAffiche("ID : "+IdentifiantBT+" MAC : "+ AdresseMACBT+" Nom : " + NomBT)
SI SocketConnecteBluetooth(NomSocketBT,"SerialPortServiceClass_UUID",AdresseMACBT) = Vrai ALORS
SocketChangeModeTransmission(NomSocketBT,SocketSansMarqueurFin)
ToastAffiche("Arduino connecté.")
BTN_BlueTooth..Libellé="BlueTooth Connecté"
SINON
Info("Connexion ARDUINO impossible",ErreurInfo(errComplet))
FIN
FIN
FIN
SINON
Info("Aucun périphérique disponible.")
BTN_BlueTooth..Libellé="Activation BlueTooth"
FIN
La récupération de données :
PROCEDURE Tour_Roue()
SI NomSocketBT<>"" ALORS
SI SocketExiste(NomSocketBT) = Vrai ALORS
Lecture_Tours_Roue = AnsiVersUnicode(SocketLit(NomSocketBT))
SI Lecture_Tours_Roue > Nb_Tour_Roue ALORS Nb_Tour_Roue=Lecture_Tours_Roue
SI ChampExiste("EXPRESS_TripMaster.NBTours") ALORS EXPRESS_TripMaster.NBTours=Nb_Tour_Roue
SI ChampExiste("EXPRESS_Etalonnage.NBTours") ALORS EXPRESS_Etalonnage.NBTours=Nb_Tour_Roue
SINON
Info("Connexion ARDUINO impossible",ErreurInfo(errComplet))
FinAutomatismeProcédure(Tour_Roue)
FIN
SINON
Info("Connexion ARDUINO impossible",ErreurInfo(errComplet))
FinAutomatismeProcédure(Tour_Roue)
FIN
A+
Yves D.