Anlernprogramm ds1820

[grundschüler (Gast)]

ich habe diverse uC mit diversen ds1820-Sensoren im Einsatz. Beim 
Wechseln von Teilen der Hardware stellt sich immer wieder das Problem, 
dass die Adresse des Sensors ausgelesen und in das Programm eingegeben 
werden muss.

Ich will das ganze automatisieren. Beim Programmstart sollen die 
vorhandenen Sensoren ausgelesen und mit gespeicherten Werten abgeglichen 
werden. Kommt ein neuer Sensor hinzu, soll die gespeicherte Liste 
aktualisiert werden. Sind mehrere gespeicherte Sensoren nicht vorhanden, 
soll die gespeicherte Liste neu eingelesen und die Reihenfolge der 
Sensoren vom user abgefragt werden.

Gibts dafür schon ein fertiges Programm ?

[W.A. (Gast)]

grundschüler schrieb:
> Gibts dafür schon ein fertiges Programm ?

Programme zur Verwaltung von Listen gehören zu den Grundübungen des 
Programmierens. Das wird dir gut tun.

[Alex W. (Gast)]

Falls du noch Pins frei hast, könntest du per i2c-EEPROM die Werte 
wegschreiben und bei der neuen Leiterplatte wieder einlesen lassen.

[grundschüler (Gast)]

Hier mal ein erster Versuch. IDs von Sensoren werden auf Tastendruck im 
Eprom gelöscht oder hizugeügt. Was noch fehlt, ist ein Verschieben der 
IDs im Eprom.

u8 zl,zlx,x;
u16 y;
y=0x4567;
u8 zl_sensors_eep;
u32 neu_sensors_eep=0;
u8 zl_sensors_hw;
u8 zl_sensors_hw_found;
u32 neu_sensors_hw=0;

#define eep_ds1820_adr 20

//eeprom_update_word(26,0xffff);

//A. eeprom in array einlesen
zl_sensors_eep=0;
for(zl=0;zl<ds1820_max_sensors;zl++){
  feld_eep[zl] = eeprom_read_word(eep_ds1820_adr+zl*2);
    lg(zl%max_zl_y+1,12);lcd_hex16(feld_eep[zl]);
      if(feld_eep[zl]!=0 && feld_eep[zl]!=0xffff){
        zl_sensors_eep++;  
      }else{
        break;}
  }
lgi(2,18,zl_sensors_eep);



//B. sensor-ids in array einlesen

  zl_sensors_hw=0;
  ds1820_start_meas();
  wait;wait;wait;
  read_measkk();


  while(ds1820_idkk[zl_sensors_hw]){
//  for(zl=0;zl<4;zl++){
    lg(zl_sensors_hw%max_zl_y+1,1);lcd_hex16(ds1820_idkk[zl_sensors_hw]);lw(":");li(ds1820_valkk[zl_sensors_hw]);
//    eeprom_update_word((u16*)(eep_ds1820_adr+zl*2),ds1820_idkk[zl]);
x=eep_ds1820_adr;
x+=zl*2;
lgi(4,1,x);
//if(ds1820_idkk[zl]>0)eeprom_update_word(x,ds1820_idkk[zl]);
    wait;
    
    zl_sensors_hw++;
  }
  lgi(1,18,zl_sensors_hw);
  zlx++;
  
  

//C.feststellen, ob neue Sensoren vorhanden sind
u32 neu=0;

zl_sensors_hw_found=0;
for(i=0;i<zl_sensors_hw;i++){//zl=>anz gefundene Sensoren
sbi(neu,i);
/**/for(x=0;x<ds1820_max_sensors;x++){
//lgi(1,1,ds1820_idkk[i]);lw(" ");
//lgi(2,1,feld_eep[x]);lw(" ");
//wait;
    if(ds1820_idkk[i]==feld_eep[x]){
      cbi(neu,i);
      zl_sensors_hw_found++;
      sbi(neu_sensors_eep,x);
      continue;
    }
  }//for x

}//for i

lgw(4,1,"n.s.:");li(neu);lw("!");
li(zl_sensors_hw_found);lw("!");
li(zl_sensors_eep);lw("!");
li(neu_sensors_eep);lw("!");


//D. Auswerten eep
zl=0;
if(zl_sensors_eep-zl_sensors_hw_found){
    for(i=0;i<zl_sensors_eep;i++) {
      if(!gbi(neu_sensors_eep,i)){
//      lg(1+zl%max_zl_y,1);lcd_hex16(feld_eep[i]);lw(" delete in eep?");wait;
      lg(1,5);lcd_hex16(feld_eep[i]);lw("del eep?");
          x=eep_ds1820_adr+i*2;li(x);
        timeoutx=500;
        while(timeoutx){
          if(tast1){
            eeprom_update_word((u16*)(x),0xffff);
            lgw(1,1,"done delete");
          }
        }      
      zl++;
      }
    }
}



//E. Auswerten hw
zl=0;
if(zl_sensors_hw-zl_sensors_hw_found){
    for(i=0;i<zl_sensors_hw;i++) {
      if(gbi(neu,i)){
//      lg(1+zl%max_zl_y,1);lcd_hex16(feld_eep[i]);lw(" delete in eep?");wait;
          x=eep_ds1820_adr+(zl_sensors_eep+i)*2;
      lg(2,4);lcd_hex16(ds1820_idkk[i]);lw("stor hw?");li(x);
        timeoutx=500;
        while(timeoutx){
          if(tast1){
            eeprom_update_word(x,ds1820_idkk[i]);
            lgw(1,1,"done store");

          }
        }      
      zl++;
      }
    }
}
lgw(1,4,"end");

[Wolfgang (Gast)]

grundschüler schrieb:
> Was noch fehlt, ist ein Verschieben der IDs im Eprom.

Warum willst du die verschieben. Ein passend sortierter Index wäre eine 
Alternative.

[grundschüler (Gast)]

Wolfgang schrieb:
> Warum willst du die verschieben.

      if(feld_eep[zl]!=0 && feld_eep[zl]!=0xffff){
...

Wenn ein Feld gelöscht ist, hört das Einlesen an dieser Stelle auf. 
Deswegen müssen die Felder dahinter einen Index nach vorne.

Man könnte aber auch den eep-Bereich auf dem eprom auf 100Felder 
vergrößern und deiesen Bereich immer auslesen und nur die beschriebenen 
Felder ins Programm übernehmen. Vielleicht hast du recht. Danke für den 
Hinweis.

[grundschüler (Gast)]

die Sensorwerte werden jetzt entsprechend der eprom-Reihenfolge 
ausgelesen:

  for(i=0;i<zl_sensors_eep;i++) {
  if(ds1820_idkk[kk_ct]==ds1820_eep[i]){ds1820_valkk[i]=CelsiusTemp;}
  }

kk_ct++;

Damit werden die IDs der Sensoren verzichtbar. Die Weiterverarbeitung 
erfolgt entsprechend der Position im eprom:
#define tr_ww ds1820_valkk[1]
Einzelne Sensoren können ausgetauscht werden, ohne dass man vorher die 
ID ermitteln muss.