un programme avec Domoticom
en émission et réception
appui sur le bouton Arduino envoi une requête
qui retourne le nombre de millisecondes du temps écoulé de la carte depuis le début de
l'exécution du programme

code Domoticom


error_french
top 0,100:left 0,900:width 0,270:height 0,200
dim car$,lcar
label reception,fin,sp_com_1
if SERIAL_PORT_EXISTS(8)=1
   serial 2: serial_port 2,8
   serial_baudrate 2,115200: serial_databits 2,8
   serial_stopbits 2,1: serial_parity 2,0
else
   message "pas de port com "
   terminate
end_if
alpha 1:top 1,30:left 1,100
alpha 4:top 4,30:left 4,50:caption 4,"millis()"
button 9:top 9,60:left 9,150:caption 9,"fin"
button 10:top 10,60:left 10,30:caption 10,"Arduino"
timer 3:timer_off 3:timer_interval 3,200
on_click 9, fin:on_click 10, sp_com_1
on_close 0,fin:on_timer 3,reception
' ============
end
' ============
sp_com_1:
  serial_open 2:serial_write 2,"?"
  timer_on 3
return
' ============
fin:
   timer_off_all:SERIAL_CLOSE 2
   pause 20:terminate
return
' ============
reception:
   timer_off 3
   car$="":car$=serial_read$(2)
   car$=trim$(car$):lcar=len(car$)
   if lcar >0
      caption 1,car$
   end_if
   SERIAL_CLOSE 2
return


code Arduino





 //============================
'  void setup() {
      Serial.begin(115200);
  }
  //============================
 void loop(){
     if (Serial.available()!=0){
        module_reception();}
  }
 //============================
  void module_reception(){
       while (Serial.available()) {
            char readChar = (char)Serial.read();
           if (readChar == '?'){emission();}
      }
  }
  //============================
 void emission(){
    Serial.println(millis(),DEC);
    delay(10);
}
 //============================



Tous les sujets sur ce blog sont à dispositions Tel Quel sans garantie.
les programmes fonctionnes sous W7 pros et l' on peut les copier les modifier