Solar-Online

Source-Code

• C++ Programm zum Auslesen der Leistungsdaten der Solaranlage
  
  leistung.c:

   #include <sys/types.h>
   #include <sys/stat.h>
   #include <fcntl.h>
   #include <termios.h>
   #include <stdlib.h>
   #include <stdio.h>
   #define BAUDRATE B300
   #define MODEMDEVICE "/dev/ttyS0"
   #define _POSIX_SOURCE 1 /* POSIX compliant source */
   #define FALSE 0
   #define TRUE 1
  
   volatile int STOP=FALSE;
   main()
   {
      int fd,c, res,i;
      struct termios oldtio,newtio;
      char buf[255];
      char url[255];
      fd = open(MODEMDEVICE, O_RDWR | O_NOCTTY );
      if (fd <0) {perror(MODEMDEVICE); exit(-1); }
      bzero(&newtio, sizeof(newtio)); /* clear struct for new port settings */
      newtio.c_cflag = BAUDRATE | CRTSCTS | CS8 | CLOCAL | CREAD;
      newtio.c_iflag = IGNPAR | ICRNL;
      newtio.c_oflag = 0;
      newtio.c_lflag = ICANON;
      newtio.c_cc[VINTR]    = 0;     /* Ctrl-c */
      newtio.c_cc[VQUIT]    = 0;     /* Ctrl-\ */
      newtio.c_cc[VERASE]   = 0;     /* del */
      newtio.c_cc[VKILL]    = 0;     /* @ */
      newtio.c_cc[VEOF]     = 4;     /* Ctrl-d */
      newtio.c_cc[VTIME]    = 0;     /* inter-character timer unused */
      newtio.c_cc[VMIN]     = 1;     /* blocking read until 1 character arrives */
      newtio.c_cc[VSWTC]    = 0;     /* '\0' */
      newtio.c_cc[VSTART]   = 0;     /* Ctrl-q */
      newtio.c_cc[VSTOP]    = 0;     /* Ctrl-s */
      newtio.c_cc[VSUSP]    = 0;     /* Ctrl-z */
      newtio.c_cc[VEOL]     = 0;     /* '\0' */
      newtio.c_cc[VREPRINT] = 0;     /* Ctrl-r */
      newtio.c_cc[VDISCARD] = 0;     /* Ctrl-u */
      newtio.c_cc[VWERASE]  = 0;     /* Ctrl-w */
      newtio.c_cc[VLNEXT]   = 0;     /* Ctrl-v */
      newtio.c_cc[VEOL2]    = 0;     /* '\0' */
      tcflush(fd, TCIFLUSH);
      tcsetattr(fd,TCSANOW,&newtio);
  
      while (STOP==FALSE) {
          res = read(fd, buf, 255);
          buf[res]=0;
          if (buf[0]=='B') STOP=TRUE;
      }
      STOP=FALSE;
  
      i=0;
  
      while (STOP==FALSE) {     /* loop urminating condition */
        i++;
        res = read(fd,buf,255);
        buf[res]=0;             /* set end of string, so we can pntf */
        if (i!=1) strcat(url,"x");
        strncat(url,buf,(strlen(buf)-1));
        if (buf[0]=='B') STOP=TRUE;
      }
      printf("%s\n",url);
   }
  

  
  
• C++ Programm zum Auslesen der Helligkeit (A/D-Wanlder)
  Der TLC1549 muss folgendermaßen angeschlossen werden:

  Pin1 (REF+)       <-  Pin 5 (DATA3)      = Versorgungs- & Referenzspannung
  Pin2 (ANALOG IN)   -                     = Plus Messleitung
  Pin3 (REF-)        -  Pin18-19 (GND)     = Masse & Minus Referenzspannug
  Pin4 (GND)         -  Pin18-19 (GND)     = Masse & Minus Referenzspannug
  Pin5 (CS)         <-  Pin14 (AUTO FEED)  = Chip-Select
  Pin6 (DATA OUT)   ->  Pin15 (ERROR)      = Wandlerdaten
  Pin7 (I/O CLOCK)  <-  Pin16 (INIT/RESET) = Taktleitung
  Pin8 (VCC)        <-  Pin 5 (DATA3)      = Versorgungs- & Referenzspannung
  

  Zwischen "Versorgungsspannung", "Plus Messleitung" und "Minus Messleitung"
  wird der Spannungsteiler mit dem Fototransistor aufgebaut. Die Werte einfach
  ausprobieren. Bei mir tats ein 10k Poti.
  
  tlc1549.c:
  

   #include <sys/io.h>
   #include <unistd.h>
   #include <stdio.h>
   #include <stdlib.h>
   #include <math.h>
   /**
   Programmierung: Hanno Rein 2002
   http://solar.kvfg.de
  
   Aufruf:    ./tlc1549 (Basisadresse des Druckerports) (Anzahl der Abfragen, für Mittelwert)
   Beispiel:  ./tlc1549 888 10
   **/
  
  
   main(int argc, char* argv[]){
    int base=atoi(argv[1]);
    int i,u;
    int erg,all=0,overall=0,times=atoi(argv[2]);
    /**Port Zugriff freischalten**/
    ioperm(base,3,1);
    /**Stromversorgung für AD-Wandler anschalten**/
    outb(8,base);
    for (u=0;u<times+1;u++){
     /**Initialisierung des Wandlers**/
     outb(0,base+2);
     usleep(1000);
     outb(2,base+2);
     /**die 10 Bit einlesen*/
     for (i=9;i>=0;i--)
     {
      /**Diese Zahl (119) kann von System zu System variieren.
         Einfach inb(base+1) ausgeben und nachgucken          **/
       if(inb(base+1)!=119){
      /**Bits Aufsummieren**/
         all=all+(int)(pow(2,i));
       }
      /**Clock Hoch**/
      outb(6,base+2);
      /**Clock runter**/
      outb(2,base+2);
     }
     usleep(1000);
     /**die verschiedenen Abfragen aufsummieren (--> Mittelwert)**/
     if(u!=0){overall=overall+all;}
     all=0;
    }
    /**Mittelwert berechnen**/
    erg=(int)(overall)/times;
    /**Stromversorgung aus und Rechte abtreten**/
    outb(0,base);
    ioperm(base,3,0);
    /**Mittelwert ausgeben**/
    printf("%i\n",erg);
   };
  

  
  
• Shell-Skript (wird durch Cron alle 5 Minuten gestartet)
  

   rm /root/temptemp.txt
   rm /root/templeistung.txt
   rm /root/tempbright.txt
  
   /root/digitemp -o"%.2C" -s/dev/ttyS1 -l/root/temptemp.txt -n1 -a -r1000 > /dev/null
   /root/leistung > /root/templeistung.txt
   /root/tlc1549 888 10 > /root/tempbright.txt
  
   export TEST1=$(cat /root/templeistung.txt)
   export TEST2=$(cat /root/temptemp.txt)
   export TEST3=$(cat /root/tempbright.txt)
  
   wget "http://username:passwort@solar.kvfg.de/solarupload/solar.php?
     leistung=$TEST1%26temperatur=$TEST2%26brightness=$TEST3" --delete-after --quiet
  

  
  
• Digitemp
  Dieses Programm wird benötigt um die die 1-Wire
  Temperatursensoren auszulesen. Näheres auf der
  Homepage von Brian Lane