Panoramic Arduino

rem  ==============================================
rem  sous la forme d une chaîne de caractères ASCII
rem  avec dll port série de automate_PC
rem  sur Adaptateur RS232 <-> TTL  pour arduino
rem  ou  port série virtuel (via connexion USB)
rem  ou RS232 entre PC
rem  http://www.automatepc.fr/?page=IntroPortSerie
rem  IO_Acces_COM.dll  modifiée par Klaus le 9 Avr 2013
rem  http://panoramic.1fr1.net/t2936-panoramic-arduino
'  ==============================================================
 error_french
 label err
 on_error_goto err
 width 0,450:height 0,650
 top 0,(screen_y-height(0))/2
 left 0,(screen_x-width(0))/2
 dim r,rr,aa,t21$,c21%,l21,i
 dim donner$,memdonner$
 dim res%, dat%,Action_retour%,dllmarche%
  memdonner$=""

 container 700 :top 700,5:left 700,20 :hide 700
 width 700,400:height 700,600:  color 700,206,216,216
 label  sp_5 ,sp_15,sp_24,sp_25,db_15, sp_com
 label sp_33_suite
 dllmarche%=0
 container 704:top 704,240: left 704,125:color 704,206,216,216
spin 701:parent 701,704:max 701,20:min 701,0:position 701,8
top 701,30: left 701,5 :width 701,40
alpha 702: top 702,8: left 702,5:caption 702,"Port  N°=":parent 702,704
button 703: top 703,60: left 703,5:caption 703,"Conection":parent 703,704
 button 705: top 705,490: left 705,230:caption 705,"fin"
 alpha 706: top 706,60: left 706,50:color 706,150,150,150:parent 706,700
 alpha 707: top 707,60: left 707,250:color 707,150,150,150 :parent 707,700
 alpha 708: top 708,30: left 708,50:caption 708,"ComUsePort":parent 708,700
 alpha 709: top 709,30: left 709,250:caption 709,"ComConfig":parent 709,700
 timer 15:timer_interval 15,300: timer_on 15
 alpha 717: top 717,60: left 717,170:caption 717,"0":parent 717,700
 Edit 721 :top 721,100 :left 721,100:width 721,200:parent 721,700
 memo 722:top 722,165 :left 722,100:width 722,200:height 722,300
 bar_vertical 722:parent 722,700
 button 724:top 724,130 :left 724,150:caption 724,"Envoyer ":parent 724,700
 button 725:top 725,490 :left 725,100:caption 725,"Clear":parent 725,700
on_click 703,sp_com :on_click 705,sp_5 :on_close 0,sp_5
on_click 724,sp_24:on_click 725,sp_25


' =============
 end
' =============
sp_com:
if dllmarche%=0
 dll_on "C:\DLL_Panoramic\IO_Acces_COM.dll"
 dllmarche%=1
 end_if
rem  suivant configuration
 r= dll_call1("ComUsePort",position(701))
 '                          Debit : en Bauds. 110,300,1200,2400,4800,9600,14400,19200,38400,56000,57600,115200,256000
'                           !     WordLength : longueur des mots, de 5 à 8 bits.
'                           !     ! NbrStopBit : nombre de bit de stop, 1=un bit de stop, 2=2 bits de Stop.
'                           !     ! ! Parity : parité, 0=aucune, 1=Impaire, 2=Paire,3= Toujours 0, 4= Toujours 1.
'                           !     ! ! !
 rr= dll_call4("ComConfig",115200,8,1,0)
 pause 200
 if r=1
    color 706,0,255,0
 else
    color 706,150,150,150
 end_if
 if rr=1
    color 707,0,255,0
 else
    color 707,150,150,150
 end_if
 if r=1 and rr=1
  on_timer 15,sp_15:' Réception
  hide 704
  show 700
  parent 705,700
 else
 message "Defaut COM !  r ="+str$(r)+"  rr="+str$(rr)
 end_if
  return
'  =====FIN========
sp_5:
 timer_off 15:pause 40
 dll_off:pause 100
 terminate:return
' ====Réc=========
 sp_15:
 timer_off 15 : pause 2
 db_15:
 res% = dll_call1("ComGetDataIn",adr(dat%)):pause 10
 if res%>0
    donner$=donner$+chr$(dat%):goto db_15
 end_if
 if memdonner$ <> donner$
    item_add 722,donner$
 end_if
 aa=1-aa
 if aa=1
    caption 717,1
 else
    caption 717,0
 end_if
 donner$="":timer_on 15:return
 ' ====Emi=========
sp_24:
 t21$=text$(721)
 sp_33_suite:
 timer_off 15:pause 2
 if t21$="" then  timer_on 15: return

 t21$=text$(721):l21=len(t21$)
 for i=1 to l21
    c21%=asc(mid$(t21$,i,1))
    r= dll_call1("ComSetDataOut",c21%)
 next i
 text 721,"":timer_on 15:return
  ' =====CLS_Memo========
sp_25:
   timer_off 15:clear 722:timer_on 15:return

' ======Error=======
 err:
message "erreur "+str$(error_number)+" "+error_type$+" error_line  "+str$( error_line)
 terminate :return
 ' =============