[S] Suche Dienstleistung für PIC18F45K22

[Detlef M. (dau)]

Moin Zusammen,

ich möchte einen vorhandenen C-Quellcode auf einen PIC18F45K22IP 
bekommen.

Als Interessierter, aber leider noch nicht Wissender, erscheint mir eine 
Umsetzung in Eigenleistung gerade zuviele Unbekannte zu haben.

Der Code wurde für die Nutzung mit einem PIC18F45K22, in Verbindung mit 
dem CC18-Compiler, erstellt und aktuell ist wohl der XC18-Compiler. Dann 
las ich noch von einer Migration von C18 auf XC18, alles Dinge die sich 
dem Neuling nicht spontan erschließen.

Da es um ein privates Photovoltaik-Projekt geht (und die Saison geht 
bald wieder los) möchte ich eine zeitaufwendige Selbstschulung gerade 
gerne umgehen.

Daher suche ich jemand Kundigen, der mir den Code, unter 
Berücksichtigung etwaiger Migrationsanpassungen, compiliert oder noch 
besser einen funktionieren PIC liefert. Bezahlung nach Vereinbarung.

Ich würde mich freuen wenn sich hier jemand findet...

Bis dahin, alles Gute und bleibt gesund.

[Tobias C. (tobich)]

Poste doch mal deinen Quellcode, dann kann man das ganze besser 
abschätzen.

[Detlef M. (dau)]

Tobias C. schrieb:
> Poste doch mal deinen Quellcode, dann kann man das ganze besser
> abschätzen.

 /*********************************************************************************
*        File: 6_Panel.C
*        Controller: PIC18F45K22
*        Compiler: CC18
*        Date: 25.5.2020
*        Author: 
*        Description: Solarstation groß
************************************************************************************
         Header files
************************************************************************************/
#include <p18f45k22.h>               
#include <stdlib.h>
/***********************************************************************************
         Configuration Bits
************************************************************************************/

#pragma  config FOSC=INTIO67, PWRTEN=ON, BOREN=ON, PLLCFG = ON, MCLRE=INTMCLR, WDTEN=ON, WDTPS = 256, LVP=OFF, PBADEN=OFF //, P2BMX = PORTD2, T3CMX = PORTB5
/***********************************************************************************
         Konstanten
************************************************************************************/
#define  REL1     LATAbits.LATA4
#define  REL2     LATEbits.LATE1
#define  REL3     LATBbits.LATB4
#define  REL4     LATBbits.LATB1
#define  REL5     LATDbits.LATD6
#define  REL6     LATCbits.LATC5
#define  ENABLE   PORTBbits.RB5
#define  LCD_OFF  LATCbits.LATC4
#define  CREN     RC1STAbits.CREN
#define  RCIF     PIR1bits.RC1IF 
#define  OERR     RC1STAbits.OERR
#define  SPEN     RCSTA1bits.SPEN
#define  FERR     RCSTA1bits.FERR
#define  RELAIS2  LATEbits.LATE2
#define  NETZ     PORTCbits.RC0
#define  UP       PORTAbits.RA7
#define  DOWN     PORTAbits.RA6

/**********************************************************************************
         Variablen
***********************************************************************************/
unsigned char DATA, MWERT, TEMP1, INSEL, ANZ, INV_FLAG, TAST_FLAG;
unsigned int DATA1, TEMP2, U1, U2, U3, U4, U5, U6, I1, I2, I3, I4, I5, I6, P_IN, I_REIN, P_OUT, P_MAX;
unsigned int U_INV, U_BAT, I_INV, O_V, U_V, U_MAX, U_MIN, ANZ_FLAG;
long LCD_TIMER;

/**********************************************************************************
         Deklaration der Funktionen, Unterprograme
***********************************************************************************/
#pragma  code
void init (void);                     // ...eben Initialisierung :-)
void Delaykurz (void);                // ...war zu faul, um eine Delayroutine mit
void Delaylang (void);                
void Delay (void);
void LCDAD (void);
void LCDAD1 (void);
void LCDBefehl(const rom char *buffer); // Text aus Buffer auf LCD
void LCDWrite (char TEMP);
void FFF (void);                      //wird nach jedem Befehl gesendet
void ADWert (void);                   // Spannungsmessungen
void Menue (void);
void Steuerung (void);
void Anzeige (void);
void Panel_Anz (void);
void Panel_Anz2 (void);
void EELese (void);
void EESchreibe (void);
/**********************************************************************************
         Main
***********************************************************************************/
void main (void)
{ 
  init ();
  REL2 = 0;
  FFF();
  Delay();
  ClrWdt();  
  SPEN = 0;
  SPEN = 1;
  CREN = 0;
  CREN = 1;
  LCD_OFF = 0;
  LCDBefehl("page 1");
  Delay();
  FFF();
  ANZ_FLAG = 0;
  ANZ = 0;
  CCPR1L = 0;
  LCD_TIMER = 0;
  TAST_FLAG = 0;
  while (CCPR1L < 140)
  {
    CCPR1L++;
    Delay();
  }
  if (INSEL == 0)
  CCPR1L = 140;                  // PWM, 192 => 100 % / 41,5 kHz
  if (INSEL == 1)
  CCPR1L = 192;
  LCD_TIMER = 0;
  INV_FLAG = 1;                  // 1 = Inverter an
  while (1)  
  { 
    ClrWdt();
    if (LCD_TIMER < 700000)      // Nach ca. 2 Minuten ausschalten
    LCD_TIMER++;
    if (LCD_TIMER > 699999)
    LCD_OFF = 1;
    if (ENABLE == 0)
    {
      LCD_TIMER = 0;
      SPEN = 0;
      LCD_OFF = 0;  // an
      SPEN = 1;
    }
    ADWert();
    Steuerung();
    ANZ_FLAG++;
    if (ANZ_FLAG == 1500)
    Panel_Anz();
    if (ANZ_FLAG == 3000)
    Panel_Anz2();
    if (ANZ_FLAG > 8000)
    Anzeige();
    if (RCIF == 1)
    {
      TEMP1 = RCREG;
      if (TEMP1 == 101)
      {
        LCDBefehl("page 2");
        Delay();
        FFF();
        Delaykurz();
        Menue();
      }
      SPEN = 0;
      SPEN = 1;
      CREN = 0;
      CREN = 1;
    }
  }
}

/***********************************************************************************
 Unterprogramme, wie Delays, LCD, Texte, Initialisierung und der Rest...
***********************************************************************************/

void Steuerung (void)
{

  if (ANZ_FLAG == 1500)
  {
    if (U_BAT > U_MAX)
    {
      if (ANZ < 7)
      ANZ++;
      if ((REL1 == 1) && (ANZ > 6)) // Wenn Akku voll
      REL1 = 0;                     // dann aus
      if ((REL2 == 1) && (ANZ > 5))
      REL2 = 0;
      if ((REL3 == 1) && (ANZ > 4))
      REL3 = 0;
      if ((REL4 == 1) && (ANZ > 3))
      REL4 = 0;
      if ((REL5 == 1) && (ANZ > 2))
      REL5 = 0;
      if ((REL6 == 1) && (ANZ > 1))
      REL6 = 0;
    }
    if (U_BAT < U_MAX)
    {
      if (ANZ > 0)
      ANZ--;
      if ((U1 > U_BAT+10) & (ANZ < 6))    // Wenn Panelspannung > Akkuspannung
      REL1 = 1;
      if ((U2 > U_BAT+10) & (ANZ < 5))   
      REL2 = 1;
      if ((U3 > U_BAT+10) & (ANZ < 4))    
      REL3 = 1;
      if ((U4 > U_BAT+10) & (ANZ < 3))    
      REL4 = 1;
      if ((U5 > U_BAT+10) & (ANZ < 2))    
      REL5 = 1;
      if ((U6 > U_BAT+10) & (ANZ < 1))   
      REL6 = 1;
    }
  }

  if (ANZ_FLAG == 2500)
  {
    if (I1 < 13)    // Wenn Strom < 0,1 Ampere, dann aus
    REL1 = 0;
    if (I2 < 13)
    REL2 = 0;
    if (I3 < 13)
    REL3 = 0;
    if (I4 < 13)
    REL4 = 0;
    if (I5 < 13)
    REL5 = 0;
    if (I6 < 13)
    REL6 = 0;
  }
    

  if ((U_BAT > U_MAX)&&(ANZ_FLAG == 1000))
  RELAIS2 = 1;

  if ((U_BAT < (U_MAX - 40))&&(ANZ_FLAG == 1000))
  RELAIS2 = 0;

  if ((U_BAT < U_MIN)&&(CCPR1L > 0)&&(INSEL == 0)&&(ANZ_FLAG == 200)&&(INV_FLAG == 1))
  CCPR1L--;

  if ((U_BAT < U_MIN-5)&&(CCPR1L > 0)&&(INSEL == 1)&&(ANZ_FLAG == 200)&&(INV_FLAG == 1))
  CCPR1L = 0;

  if ((P_OUT > P_MAX)&&(INSEL == 0)&&(U_BAT > U_MIN)&&(ANZ_FLAG == 500)&&(CCPR1L > 0)&&(INV_FLAG == 1))
  CCPR1L--;
  
  if ((P_OUT < P_MAX)&&(INSEL == 0)&&(U_BAT > U_MIN)&&(ANZ_FLAG == 500)&&(CCPR1L < 192)&&(INV_FLAG == 1))
  CCPR1L++;

  if (INV_FLAG == 0)
  CCPR1L = 0;           // Inverter aus

  if ((U_BAT > U_MIN)&&(INSEL == 0)&&(INV_FLAG == 1)&&(CCPR1L < 192)&&(UP == 0)&&(TAST_FLAG == 0))
  {  
    P_MAX++;
    TAST_FLAG = 1;
  }

  if ((U_BAT > U_MIN)&&(INSEL == 0)&&(INV_FLAG == 1)&&(CCPR1L > 0)&&(DOWN == 0)&&(TAST_FLAG == 0))
  {  
    P_MAX--;
    TAST_FLAG = 1;
  }

  if ((UP == 1)&&(DOWN == 1)&&(ANZ_FLAG == 100))
  TAST_FLAG = 0;
  

}


void Panel_Anz (void)
{
  if (REL1 == 0)
  {
     LCDBefehl("t9.txt=");                 
     LCDWrite(34);
     LCDBefehl("1");
     LCDWrite(34);
  }
  if (REL1 == 1)
  {
     LCDBefehl("t15.txt=");                 
     LCDWrite(34);
     LCDBefehl("1");
     LCDWrite(34);
  }
  FFF();
  Delay();

  if (REL2 == 0)
  {
     LCDBefehl("t10.txt=");                 
     LCDWrite(34);
     LCDBefehl("2");
     LCDWrite(34);
  }
  if (REL2 == 1)
  {
     LCDBefehl("t16.txt=");                 
     LCDWrite(34);
     LCDBefehl("2");
     LCDWrite(34);
  }
  FFF();
  Delay();

  if (REL3 == 0)
  {
     LCDBefehl("t11.txt=");                 
     LCDWrite(34);
     LCDBefehl("3");
     LCDWrite(34);
  }
  if (REL3 == 1)
  {
     LCDBefehl("t17.txt=");                 
     LCDWrite(34);
     LCDBefehl("3");
     LCDWrite(34);
  }
  FFF();
  Delay();
}


void Panel_Anz2 (void)
{
  if (REL4 == 0)
  {
     LCDBefehl("t12.txt=");                 
     LCDWrite(34);
     LCDBefehl("4");
     LCDWrite(34);
  }
  if (REL4 == 1)
  {
     LCDBefehl("t18.txt=");                 
     LCDWrite(34);
     LCDBefehl("4");
     LCDWrite(34);
  }
  FFF();
  Delay();

  if (REL5 == 0)
  {
     LCDBefehl("t13.txt=");                 
     LCDWrite(34);
     LCDBefehl("5");
     LCDWrite(34);
  }
  if (REL5 == 1)
  {
     LCDBefehl("t19.txt=");                 
     LCDWrite(34);
     LCDBefehl("5");
     LCDWrite(34);
  }
  FFF();
  Delay();

  if (REL6 == 0)
  {
     LCDBefehl("t14.txt=");                 
     LCDWrite(34);
     LCDBefehl("6");
     LCDWrite(34);
  }
  if (REL6 == 1)
  {
     LCDBefehl("t20.txt=");                 
     LCDWrite(34);
     LCDBefehl("6");
     LCDWrite(34);
  }
  FFF();
  Delay();
}


void Anzeige (void)
{   
  LCDBefehl("upan.txt=");                 
  LCDWrite(34);
  if (U1 > 10)
  DATA1 = U1;
  if (U2 > 10)
  DATA1 = U2;
  if (U3 > 10)
  DATA1 = U3;
  if (U4 > 10)
  DATA1 = U4;
  if (U5 > 10)
  DATA1 = U5;
  if (U6 > 10)
  DATA1 = U6;
  if ((U1 < 11)&&(U2 < 11)&&(U3 < 11)&&(U4 < 11)&&(U5 < 11)&&(U6 < 11))
  DATA1 = 0;
  LCDAD1();
  LCDWrite(34);
  FFF();
  Delay();
  LCDBefehl("ubat.txt=");                 
  LCDWrite(34);
  DATA1 = U_BAT;
  LCDAD1();
  LCDWrite(34);
  FFF();
  LCDBefehl("pin.txt=");                 
  LCDWrite(34);
  I_REIN = I1 + I2 + I3 + I4 + I5 + I6;
  P_IN = (((U_BAT/5) * (I_REIN/5))/60);
  if (P_IN < 4)
  P_IN = 0;
  DATA1 = P_IN;
  LCDAD();
  LCDWrite(34);
  FFF();
  Delay();
  LCDBefehl("pout.txt=");                 
  LCDWrite(34);
  P_OUT = ((U_BAT/4) * (I_INV/4))/65;
  if (P_OUT < 4)
  P_OUT = 0;
  DATA1 = P_OUT;
  LCDAD();
  LCDWrite(34);
  FFF();
  Delay();
  ANZ_FLAG = 0;
}


void Menue (void)
{
  TEMP1 = RCREG;
  TEMP1 = 100;
  LCD_TIMER = 0; 
  LCDBefehl("umin.txt=");                 
  LCDWrite(34);
  DATA1 = U_MIN;
  LCDAD1();
  LCDWrite(34);
  FFF();
  Delay();
  CREN = 0;
  CREN = 1;
  LCDBefehl("umax.txt=");                 
  LCDWrite(34);
  DATA1 = U_MAX;
  LCDAD1();
  LCDWrite(34);
  FFF();
  Delay();
  CREN = 0;
  CREN = 1;
  LCDBefehl("pmax.txt=");                 
  LCDWrite(34);
  DATA1 = P_MAX;
  LCDAD();
  LCDWrite(34);
  FFF();
  Delay();
  CREN = 0;
  CREN = 1;
  LCDBefehl("b7.txt=");                 
  LCDWrite(34);
  if (INSEL == 1)
  LCDBefehl("Island");
  if (INSEL == 0)
  LCDBefehl("Grid");
  LCDWrite(34);
  FFF();
  Delay();
  LCDBefehl("b5.txt=");                 
  LCDWrite(34);
  if (CCPR1L == 0)
  LCDBefehl("Inv.Off");
  if (CCPR1L > 0)
  LCDBefehl("Inv.On");
  LCDWrite(34);
  FFF();
  Delay();
  TEMP1 = RCREG;
  CREN = 0;
  CREN = 1;
  SPEN = 0;
  SPEN = 1;
  TEMP1 = 100;
  while ((TEMP1 < 15)||(TEMP1 > 15))
  {
    if (ENABLE == 0)
    {
      LCD_OFF = 0;
      LCD_TIMER = 0;
      Reset();
    }
    if ((TEMP1 == 100)||((TEMP1 < 15)&&(TEMP1 > 2))||(TEMP1 == 255))
    ClrWdt();
    if (RCIF == 1)
    TEMP1 = RCREG;
 
    if (TEMP1 == 7)
    {
      if ((U_MIN < 1024)&&(U_MIN < U_MAX-50))
      U_MIN = (U_MIN + 2);
      LCDBefehl("umin.txt=");
      LCDWrite(34);
      DATA1 = U_MIN;
      LCDAD1();
      LCDWrite(34);
      FFF();
      DATA1 = U_MIN;
      CREN = 0;
      CREN = 1;
      EEDATA = DATA1 & 0b0000000011111111;
      EEADR = 2;
      EESchreibe();
      EEDATA = DATA1 >> 8 & 0b0000000011111111;
      EEADR = 1;
      EESchreibe();
      TEMP1 = 100;
    }

    if (TEMP1 == 8)
    {
      if (U_MIN > 0)
      U_MIN = (U_MIN - 2);
      LCDBefehl("umin.txt=");
      LCDWrite(34);
      DATA1 = U_MIN;
      LCDAD1();
      LCDWrite(34);
      FFF();
      DATA1 = U_MIN;
      CREN = 0;
      CREN = 1;
      EEDATA = DATA1 & 0b0000000011111111;
      EEADR = 2;
      EESchreibe();
      EEDATA = DATA1 >> 8 & 0b0000000011111111;
      EEADR = 1;
      EESchreibe();
      TEMP1 = 100;
    }

    if (TEMP1 == 9)
    {
      if (U_MAX < 1024)
      U_MAX = (U_MAX + 2);
      LCDBefehl("umax.txt=");
      LCDWrite(34);
      DATA1 = U_MAX;
      LCDAD1();
      LCDWrite(34);
      FFF();
      DATA1 = U_MAX;
      CREN = 0;
      CREN = 1;
      EEDATA = DATA1 & 0b0000000011111111;
      EEADR = 4;
      EESchreibe();
      EEDATA = DATA1 >> 8 & 0b0000000011111111;
      EEADR = 3;
      EESchreibe();
      TEMP1 = 100;
    }

    if (TEMP1 == 10)
    {
      if ((U_MAX > 100)&&(U_MAX > U_MIN+50))
      U_MAX = (U_MAX -2);;
      LCDBefehl("umax.txt=");
      LCDWrite(34);
      DATA1 = U_MAX;
      LCDAD1();
      LCDWrite(34);
      FFF();
      DATA1 = U_MAX;
      CREN = 0;
      CREN = 1;
      EEDATA = DATA1 & 0b0000000011111111;
      EEADR = 4;
      EESchreibe();
      EEDATA = DATA1 >> 8 & 0b0000000011111111;
      EEADR = 3;
      EESchreibe();
      TEMP1 = 100;
    }

    if (TEMP1 == 11)
    {
      if (P_MAX < 200)
      P_MAX++;
      LCDBefehl("pmax.txt=");
      LCDWrite(34);
      DATA1 = P_MAX;
      LCDAD();
      LCDWrite(34);
      FFF();
      DATA1 = P_MAX;
      CREN = 0;
      CREN = 1;
      EEDATA = DATA1 & 0b0000000011111111;
      EEADR = 6;
      EESchreibe();
      EEDATA = DATA1 >> 8 & 0b0000000011111111;
      EEADR = 5;
      EESchreibe();
      TEMP1 = 100;
    }

    if (TEMP1 == 12)
    {
      if (P_MAX > 10)
      P_MAX--;
      LCDBefehl("pmax.txt=");
      LCDWrite(34);
      DATA1 = P_MAX;
      LCDAD();
      LCDWrite(34);
      FFF();
      DATA1 = P_MAX;
      CREN = 0;
      CREN = 1;
      EEDATA = DATA1 & 0b0000000011111111;
      EEADR = 6;
      EESchreibe();
      EEDATA = DATA1 >> 8 & 0b0000000011111111;
      EEADR = 5;
      EESchreibe();
      TEMP1 = 100;
    }

    if (TEMP1 == 13)
    {
      LCDBefehl("b5.txt=");
      LCDWrite(34);
      if (CCPR1L > 0)
      {
        LCDBefehl("Inv.Off");
        INV_FLAG = 0;
        CCPR1L = 0;
      }
      else
      {
        LCDBefehl("Inv.On");
        INV_FLAG = 1;
        if (INSEL == 1)
        {
          while (CCPR1L < 192)
          {
            CCPR1L++;
            Delay();
          }
        }
        if (INSEL == 0)
        {
          while (CCPR1L < 140)
          {
            CCPR1L++;
            Delay();
          }
        }
      }

      LCDWrite(34);
      FFF();
      Delay();
      CREN = 0;
      CREN = 1;
      TEMP1 = 100;
    } 

    if (TEMP1 == 14)
    {
      LCDBefehl("b7.txt=");
      LCDWrite(34);
      if (INSEL == 0)
      {
        LCDBefehl("Island");
        INSEL = 1;
      }
      else
      {
        LCDBefehl("Grid");
        INSEL = 0;
      }
      LCDWrite(34);
      FFF();
      CREN = 0;
      CREN = 1;
      EEDATA = INSEL;
      EEADR = 7;
      EESchreibe();
      TEMP1 = 100;
    }

  }
  TEMP1 = RCREG;
  LCDBefehl("page 1");
  Delay();
  FFF();
  Delaykurz();
  CREN = 0;
  CREN = 1;
  SPEN = 0;
  SPEN = 1;
}


void ADWert (void)
{  
  ADCON0 = 0b00001011;               // AD2 an
  while (ADCON0bits.GO_DONE);
  U1 = ADRESH;
  U1 = (U1<<8);
  U1 = (U1|ADRESL);

  ADCON0 = 0b00001111;               // AD3 an
  while (ADCON0bits.GO_DONE);
  I1 = ADRESH;
  I1 = (I1<<8);
  I1 = (I1|ADRESL);

  ADCON0 = 0b00010011;               // AD4 an
  while (ADCON0bits.GO_DONE);
  U2 = ADRESH;
  U2 = (U2<<8);
  U2 = (U2|ADRESL);

  ADCON0 = 0b00010111;               // AD5 an
  while (ADCON0bits.GO_DONE);
  I2 = ADRESH;
  I2 = (I2<<8);
  I2 = (I2|ADRESL);
 
  ADCON0 = 0b01010011;               // AD20 an
  while (ADCON0bits.GO_DONE);
  U_BAT = ADRESH;
  U_BAT = (U_BAT<<8);
  U_BAT = (U_BAT|ADRESL);
  
  ADCON0 = 0b01010111;               // AD21 an
  while (ADCON0bits.GO_DONE);
  I_INV = ADRESH;
  I_INV = (I_INV<<8);
  I_INV = (I_INV|ADRESL);

  ADCON0 = 0b00100111;               // AD9 an
  while (ADCON0bits.GO_DONE);
  I3 = ADRESH;
  I3 = (I3<<8);
  I3 = (I3|ADRESL);

  ADCON0 = 0b00110011;               // AD12 an
  while (ADCON0bits.GO_DONE);
  I4 = ADRESH;
  I4 = (I4<<8);
  I4 = (I4|ADRESL);

  ADCON0 = 0b00100011;               // AD8 an
  while (ADCON0bits.GO_DONE);
  U3 = ADRESH;
  U3 = (U3<<8);
  U3 = (U3|ADRESL);

  ADCON0 = 0b01101111;               // AD27 an
  while (ADCON0bits.GO_DONE);
  U4 = ADRESH;
  U4 = (U4<<8);
  U4 = (U4|ADRESL);

  ADCON0 = 0b01100111;               // AD25 an
  while (ADCON0bits.GO_DONE);
  I5 = ADRESH;
  I5 = (I5<<8);
  I5 = (I5|ADRESL);
  
  ADCON0 = 0b01100011;               // AD24 an
  while (ADCON0bits.GO_DONE);
  U5 = ADRESH;
  U5 = (U5<<8);
  U5 = (U5|ADRESL);

  ADCON0 = 0b01011111;               // AD23 an
  while (ADCON0bits.GO_DONE);
  I6 = ADRESH;
  I6 = (I6<<8);
  I6 = (I6|ADRESL);

  ADCON0 = 0b01011011;               // AD22 an
  while (ADCON0bits.GO_DONE);
  U6 = ADRESH;
  U6 = (U6<<8);
  U6 = (U6|ADRESL);
}


void init (void)
{ 
  PORTA = 0;
  PORTB = 0;
  PORTC = 0;
  PORTD = 0;
  LATA = 0;
  LATB = 0;
  LATC = 0;
  LATD = 0;
  ANSELA = 0b00101100;             
  ANSELB = 0b00001101;
  ANSELC = 0b00000000;
  ANSELD = 0b10111111;
  TRISA = 0b11101100;           
  TRISB = 0b11101101;    
  TRISC = 0b10001011;   
  TRISD = 0b10111111;
  TRISE = 0b00000000;
  ADCON0 = 0b00000001;             // AD0 an
  ADCON1 = 0b00001000;             // Interne Referenz
  ADCON2 = 0b10100001;             // Rechts justiert 
  VREFCON0 = 0b11110000;           // Interne Referenz 4,096 Volt an
  OSCCON = 0b01100100;             // Internen Oszillator 4 MHz + 4xPLL = 32 MHz
  OSCTUNE = 0b01000000;
  INTCON = 0b11100000;             // Interrupts erlauben
  INTCON2 = 0b00000000;
  Delaylang();
  RCSTA1 = 0b10010000;
  SPBRGH1 =3;
  SPBRG1 = 66;                     // 9600 Baud = 832
  TXSTA1= 0b10100100;
  BAUDCON1 = 0b00001000;
  WPUB = 0b00100000;               // Pull Up PortB5 an
  
  CCPR1L = 0;
  CCP1CON = 0b00001100;         // PWM Mode  
  PR2 = 0b10111111;
  PIR2 = 0b00000000;
  T2CON = 0b00000100;         // Timer2 ON, kein Pre- kein Post-counter

  EEADR = 1;
  EELese();
  U_MIN = EEDATA;
  U_MIN = U_MIN<<8;
  EEADR = 2;
  EELese();
  U_MIN = (U_MIN | EEDATA);
  if (U_MIN > 1024)
  U_MIN = 350;

  EEADR = 3;
  EELese();
  U_MAX = EEDATA;
  U_MAX = U_MAX<<8;
  EEADR = 4;
  EELese();
  U_MAX = (U_MAX | EEDATA);
  if (U_MAX > 1024)
  U_MAX = 450;

  EEADR = 5;
  EELese();
  P_MAX = EEDATA;
  P_MAX = P_MAX<<8;
  EEADR = 6;
  EELese();
  P_MAX = (P_MAX | EEDATA);
  if (P_MAX > 1024)
  P_MAX = 100;

  EEADR = 7;
  EELese();
  INSEL = EEDATA;
  if (INSEL > 1)
  INSEL = 1;

} 


void LCDAD (void)               // konvertiert DATA1 nach TEMP2 und sendet auf LCD
{
  TEMP2 = DATA1;
  if (TEMP2 > 9999)   // größer 999, Tausender Stellen
  {
    
    TEMP2 = (TEMP2 / 10000);
    TEMP2 = (TEMP2 + 48);
    LCDWrite(TEMP2);
  }
  TEMP2 = DATA1;
  while (TEMP2 >= 10000)
  TEMP2 = (TEMP2 - 10000);      

  if (TEMP2 > 999)   // größer 999, Tausender Stellen
  {
    
    TEMP2 = (TEMP2 / 1000);
    TEMP2 = (TEMP2 + 48);
    LCDWrite(TEMP2);
  }
//  else LCDBefehl("0");
  TEMP2 = DATA1;
  while (TEMP2 >= 1000)
  TEMP2 = (TEMP2 - 1000); 
     
  if (TEMP2 > 99)   // größer 99, Hunderter Stellen
  {
    
    TEMP2 = (TEMP2 / 100);
    TEMP2 = (TEMP2 + 48);
    LCDWrite(TEMP2);
  }
//  else LCDBefehl("0"); 

  TEMP2 = DATA1;
  while (TEMP2 >= 100)
  TEMP2 = (TEMP2 - 100);

  if (TEMP2 > 9)   // Größer 9, Zehner Stellen
  {
    TEMP2 = (TEMP2 / 10);
    TEMP2 = (TEMP2 + 48);
    LCDWrite(TEMP2);
  }  
  else LCDBefehl("0");

  TEMP2 = DATA1;
  while (TEMP2 >= 100)
  TEMP2 = (TEMP2 -100);
  while (TEMP2 >= 10)
  TEMP2 = (TEMP2 -10);
  TEMP2 = (TEMP2 + 48);
  LCDWrite (TEMP2);
}


void LCDAD1 (void)               // konvertiert DATA1 nach TEMP2 und sendet auf LCD mit Komma
{
  DATA1 = (DATA1 * 0.645);
  TEMP2 = DATA1;
  while (TEMP2 >= 1000)
  TEMP2 = (TEMP2 - 1000); 
     
  if (TEMP2 > 99)   // größer 99, Hunderter Stellen
  {
    
    TEMP2 = (TEMP2 / 100);
    TEMP2 = (TEMP2 + 48);
    LCDWrite(TEMP2);
  }
  else LCDBefehl("0"); 
  TEMP2 = DATA1;
  while (TEMP2 >= 100)
  TEMP2 = (TEMP2 - 100);

  if (TEMP2 > 9)   // Größer 9, Zehner Stellen
  {
    TEMP2 = (TEMP2 / 10);
    TEMP2 = (TEMP2 + 48);
    LCDWrite(TEMP2);
  }  
  else LCDBefehl("0");
  LCDBefehl(",");
  TEMP2 = DATA1;
  while (TEMP2 >= 100)
  TEMP2 = (TEMP2 -100);
  while (TEMP2 >= 10)
  TEMP2 = (TEMP2 -10);
  TEMP2 = (TEMP2 + 48);
  LCDWrite (TEMP2);
}


void EELese (void)
{
  EECON1bits.EEPGD = 0;
  EECON1bits.CFGS = 0;
  EECON1bits.RD = 1;               // EEDATA = eingelesener Wert
}


void EESchreibe (void)
{
  EECON1bits.EEPGD = 0;
  EECON1bits.CFGS = 0;
  EECON1bits.WREN = 1;
  INTCONbits.GIE = 0; 
  EECON2 = 0b01010101;
  EECON2 = 0b10101010;
  EECON1bits.WR = 1;
  while (EECON1bits.WR == 1);      // Warten, bis Schreiben fertig
  INTCONbits.GIE = 1; 
  EECON1bits.WREN = 0;
}


void LCDWrite (char TEMP)
{
  TXREG = TEMP;             //Wert in TXREG rein und raus
  Delay();
}


void LCDBefehl (const rom char *buffer)
{
  while (*buffer)
  {
    LCDWrite(*buffer);
    *buffer++;
  } 
}


void FFF (void)
{
  Delay();
  TXREG = 255;
  Delay();
  TXREG = 255;
  Delay();
  TXREG = 255;
  Delay();
}


void Delaykurz (void)
{
  unsigned int i;
  for (i = 0; i < 12000; i++);
}


void Delaylang (void)
{
  unsigned int i,a;
  for (i = 0; i < 48000; i++)
  ClrWdt();
  for (a = 0; a < 10; a++);
}


void Delay(void)
{
  int i;
  {
    for(i=0;i<425;i++)
    {
      Nop();
    }
  } 
  return;
}

[Meister E. (edson)]

Hallo Detlef,

man kann die Datei im XC8 kompilieren, wenn man:

* in Zeile 49 das #pragma code
* im Prototyp und in der Deklaration von LCDBefehl das 'rom' vom 'const 
rom char' weglässt

BTDT

[Meister E. (edson)]

Bevor einer schreit: im XC8-Compiler wird ein CONST automatisch im Flash 
abgelegt

[Meister E. (edson)]

Achja, hier das hex-File.

[Detlef M. (dau)]

Meister E. schrieb:
> Achja, hier das hex-File.

WOW - Danke - ...ich bin gerade ein bisschen sprachlos.

Schade, dass meine Platine noch nicht bestückt ist und die Panels noch 
auf das Dach müssen, erst dann kann ich testen. Jedenfalls bin ich sehr 
beeindruckt von der Unterstützung hier und werde in den nächsten Tagen 
mal Eure Foren durchstöbern und schauen, ob ich mich auch einbringen 
kann.

[Route_66 H. (route_66)]

Detlef M. schrieb:
> und werde in den nächsten Tagen
> mal Eure Foren durchstöbern und schauen, ob ich mich auch einbringen
> kann.

Dann wirst Du hoffentlich den Hinweis bei den wichtigen Regeln zur 
Nutzung des Forums entdecken:

"Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang"

[Meister E. (edson)]

Route_66 H. schrieb:
> Detlef M. schrieb:
>> und werde in den nächsten Tagen
>> mal Eure Foren durchstöbern und schauen, ob ich mich auch einbringen
>> kann.
>
> Dann wirst Du hoffentlich den Hinweis bei den wichtigen Regeln zur
> Nutzung des Forums entdecken:
>
> "Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang"

War das jetzt nötig? Für die überflüssigen Leerzeilen kann er nichts und 
ich finde es positiv, dass er der Aufforderung  schnell gefolgt ist.