Go Down

Topic: Projet avec produits arduino (Read 5413 times) previous topic - next topic

Guillaume85

Mon code en entier première partie :



Quote
#include "etherShield.h"


// please modify the following two lines. mac and ip have to be unique
// in your local area network. You can not have the same numbers in
// two devices:
static uint8_t mymac[6] = {0x54,0x55,0x58,0x10,0x00,0x24};
static uint8_t myip[4] = {192,168,1,15};
static char baseurl[]="http://192.168.1.15/";
static uint16_t mywwwport =80; // listen port for tcp/www (max range 1-254)



#define BUFFER_SIZE 1500
static uint8_t buf[BUFFER_SIZE+1];
#define STR_BUFFER_SIZE 200
static char strbuf[STR_BUFFER_SIZE+1];

EtherShield es=EtherShield();

// prepare the webpage by writing the data to the tcp send buffer
uint16_t print_webpage(uint8_t *buf, byte on_off1, byte on_off2, byte on_off3);
int8_t analyse_cmd(char *str);

// LED cathode connects the Pin4, anode to 5V through 1K resistor
#define LED_PIN4  4
#define LED_PIN5  5
#define LED_PIN6  6
    uint16_t plen, dat_p;
  int8_t cmd;
  byte on_off1 = 0;
  byte on_off2 = 0;
  byte on_off3 = 0;

void setup(){

   /*initialize enc28j60*/
   es.ES_enc28j60Init(mymac);
   es.ES_enc28j60clkout(2); // change clkout from 6.25MHz to 12.5MHz
   delay(10);
       
   /* Magjack leds configuration, see enc28j60 datasheet, page 11 */
   // LEDA=greed LEDB=yellow
   //
   // 0x880 is PHLCON LEDB=on, LEDA=on
   // enc28j60PhyWrite(PHLCON,0b0000 1000 1000 00 00);
   es.ES_enc28j60PhyWrite(PHLCON,0x880);
   delay(500);
   //
   // 0x990 is PHLCON LEDB=off, LEDA=off
   // enc28j60PhyWrite(PHLCON,0b0000 1001 1001 00 00);
   es.ES_enc28j60PhyWrite(PHLCON,0x990);
   delay(500);
   //
   // 0x880 is PHLCON LEDB=on, LEDA=on
   // enc28j60PhyWrite(PHLCON,0b0000 1000 1000 00 00);
   es.ES_enc28j60PhyWrite(PHLCON,0x880);
   delay(500);
   //
   // 0x990 is PHLCON LEDB=off, LEDA=off
   // enc28j60PhyWrite(PHLCON,0b0000 1001 1001 00 00);
   es.ES_enc28j60PhyWrite(PHLCON,0x990);
   delay(500);
   //
  // 0x476 is PHLCON LEDA=links status, LEDB=receive/transmit
  // enc28j60PhyWrite(PHLCON,0b0000 0100 0111 01 10);
  es.ES_enc28j60PhyWrite(PHLCON,0x476);
   delay(100);
       
  //init the ethernet/ip layer:
  es.ES_init_ip_arp_udp_tcp(mymac,myip,80);
 
   pinMode(LED_PIN4, OUTPUT);
   digitalWrite(LED_PIN4, HIGH);  // switch off LED
        pinMode(LED_PIN5, OUTPUT);
   digitalWrite(LED_PIN5, HIGH);  // switch off LED
        pinMode(LED_PIN6, OUTPUT);
   digitalWrite(LED_PIN6, HIGH);  // switch off LED
}

void loop(){


  plen = es.ES_enc28j60PacketReceive(BUFFER_SIZE, buf);

   /*plen will ne unequal to zero if there is a valid packet (without crc error) */
  if(plen!=0){
              
    // arp is broadcast if unknown but a host may also verify the mac address by sending it to a unicast address.
    if(es.ES_eth_type_is_arp_and_my_ip(buf,plen)){
      es.ES_make_arp_answer_from_request(buf);
      return;
    }

    // check if ip packets are for us:
    if(es.ES_eth_type_is_ip_and_my_ip(buf,plen)==0){
      return;
    }
   
    if(buf[IP_PROTO_P]==IP_PROTO_ICMP_V && buf[ICMP_TYPE_P]==ICMP_TYPE_ECHOREQUEST_V){
      es.ES_make_echo_reply_from_request(buf,plen);
      return;
    }
   
    // tcp port www start, compare only the lower byte
    if (buf[IP_PROTO_P]==IP_PROTO_TCP_V&&buf[TCP_DST_PORT_H_P]==0&&buf[TCP_DST_PORT_L_P]==mywwwport){
      if (buf[TCP_FLAGS_P] & TCP_FLAGS_SYN_V){
         es.ES_make_tcp_synack_from_syn(buf); // make_tcp_synack_from_syn does already send the syn,ack
         return;     
      }
      if (buf[TCP_FLAGS_P] & TCP_FLAGS_ACK_V){
        es.ES_init_len_info(buf); // init some data structures
        dat_p=es.ES_get_tcp_data_pointer();
        if (dat_p==0){ // we can possibly have no data, just ack:
          if (buf[TCP_FLAGS_P] & TCP_FLAGS_FIN_V){
            es.ES_make_tcp_ack_from_any(buf);
          }
          return;
        }
        if (strncmp("GET ",(char *)&(buf[dat_p]),4)!=0){

             // head, post and other methods for possible status codes see:
            // http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html
            plen=es.ES_fill_tcp_data_p(buf,0,PSTR("HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n<h1>200 OK</h1>"));
            goto SENDTCP;
        }
   if (strncmp("/ ",(char *)&(buf[dat_p+4]),2)==0){
                plen=print_webpage(buf, on_off1, on_off2, on_off3);
            goto SENDTCP;
         }
        cmd=analyse_cmd((char *)&(buf[dat_p+5]));
       
        if (cmd==2){
                on_off1=1;
           digitalWrite(LED_PIN4, LOW);  // switch on LED
        }
        else if (cmd==3){
                on_off1=0;
           digitalWrite(LED_PIN4, HIGH);  // switch off LED
        }
        else if (cmd==4){
                on_off2=1;
           digitalWrite(LED_PIN5, LOW);  // switch on LED
        }
        else if (cmd==5){
                on_off2=0;
           digitalWrite(LED_PIN5, HIGH);  // switch off LED
        }
       
        else if (cmd==6){
                on_off3=1;
           digitalWrite(LED_PIN6, LOW);  // switch on LED
        }
        else if (cmd==7){
                on_off3=0;
           digitalWrite(LED_PIN6, HIGH);  // switch off LED
        }

        plen=print_webpage(buf, on_off1, on_off2, on_off3);
           
              plen=print_webpage(buf, on_off1, on_off2, on_off3);
SENDTCP:  es.ES_make_tcp_ack_from_any(buf); // send ack for http get
           es.ES_make_tcp_ack_with_data(buf,plen); // send data       
      }
    }
  }
       
}
// The returned value is stored in the global var strbuf
uint8_t find_key_val(char *str,char *key)
{

Guillaume85

Partie 2 de mon code :

Code: [Select]

        uint8_t found=0;
        uint8_t i=0;
        char *kp;
        kp=key;
        while(*str &&  *str!=' ' && found==0){
                if (*str == *kp){
                        kp++;
                        if (*kp == '\0'){
                                str++;
                                kp=key;
                                if (*str == '='){
                                        found=1;
                                }
                        }
                }else{
                        kp=key;
                }
                str++;
        }
        if (found==1){
                // copy the value to a buffer and terminate it with '\0'
                while(*str &&  *str!=' ' && *str!='&' && i<STR_BUFFER_SIZE){
                        strbuf[i]=*str;
                        i++;
                        str++;
                }
                strbuf[i]='\0';
        }
        return(found);
}

int8_t analyse_cmd(char *str)
{
        int8_t r=-1;
     
        if (find_key_val(str,"cmd")){
                if (*strbuf < 0x3a && *strbuf > 0x2f){
                        // is a ASCII number, return it
                        r=(*strbuf-0x30);
                }
        }
        return r;
}


uint16_t print_webpage(uint8_t *buf, byte on_off1, byte on_off2, byte  on_off3)
{

       int i=0;
   
       
        uint16_t plen;
       

       
        plen=es.ES_fill_tcp_data_p(buf,0,PSTR("HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n"));
    plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<left><img src=\"http://i915.photobucket.com/albums/ac357/mistermpss/beaucetelecomlogo.png\"  ></LEFT> "));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<body bgcolor=\"#000000\"> "));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<font color=\"#FFFFFF\"><FONT FACE=\"arial\"><RIGHT><I><FONT SIZE=1>BTCAD.<U> V1.0 beta</U></h1></FONT></FONT></I> </RIGHT> "));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<FONT SIZE=3> <font color=\"#00FF00\"></h1><a href=\"http://192.168.1.1\">Cliquez ici pour acc&egrave;der &agrave; vos cam&eacute;ras<a></FONT></FONT>"));
   



           
   

        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<hr><br><form METHOD=get action=\""));
        plen=es.ES_fill_tcp_data(buf,plen,baseurl);
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("\">"));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<h2><font color=\"#FFFFFF\"> S&eacute;lection  </h2> "));
plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<h1><font color=\"#FFFFFF\"> "));

   
       

           
       
           
   
       

            if(on_off1)
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<img src=\"http://i915.photobucket.com/albums/ac357/mistermpss/test2on.gif\" >"));
        else
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<img src=\"http://i915.photobucket.com/albums/ac357/mistermpss/test2off-1.gif\" >"));
       

       
        if(on_off1){
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=hidden name=cmd value=3>"));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=submit value=\"Moteur #1 ON \"></form>"));
          }
         
        else {
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=hidden name=cmd value=2>"));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=submit value=\"Moteur #1 OFF\"></form>"));
     }


         
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<br><form METHOD=get action=\""));
        plen=es.ES_fill_tcp_data(buf,plen,baseurl);
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("\">"));

       
            if(on_off2)
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<img src=\"http://i915.photobucket.com/albums/ac357/mistermpss/test2on.gif\" >"));
        else
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<img src=\"http://i915.photobucket.com/albums/ac357/mistermpss/test2off-1.gif\" >"));
       

        if(on_off2){
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=hidden name=cmd value=5>"));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=submit value=\"Moteur #2 ON\"></form>"));
        }
           
        else {
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=hidden name=cmd value=4>"));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=submit value=\"Moteur #2 OFF\"></form>"));
         
         
             }
           
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<br><form METHOD=get action=\""));
        plen=es.ES_fill_tcp_data(buf,plen,baseurl);
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("\">"));
   
       
                if(on_off3)
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<img src=\"http://i915.photobucket.com/albums/ac357/mistermpss/test2on.gif\" >"));
        else
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<img src=\"http://i915.photobucket.com/albums/ac357/mistermpss/test2off-1.gif\" >"));
       
 
       
        if(on_off3){
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=hidden name=cmd value=7>"));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=submit value=\"Moteur #3 ON\"></form>"));
        }
        else  {
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=hidden name=cmd value=6>"));
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("<input type=submit value=\"Moteur #3 OFF \"></form>"));
        }
       
       
                plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("  </font></h1><br> ") );
       
        plen=es.ES_fill_tcp_data_p(buf,plen,PSTR("</CENTER><hr><hr><FONT FACE=\"arial\"><FONT SIZE=1>Une connexion internet est requise pour acc&egrave;der &agrave; ce lien:</font><FONT SIZE=5> <p> Assistance en ligne <a href=\"http://www.google.com\">www.beaucetelecom.ca<a></font></FONT>"));
 
        return(plen);
}

Guillaume85

bon j'ai enlevé des gif pis depuis je suis capable de rajouter des imagesm entk c'est vriament facultatif come trouble les images, reste que mon boutons nouvre pas d'autre fenetre dans une autre page

Guillaume85

Bon j'ai finalment contourné le probleme, jme suis faite un fichier .bat que j'ouvre et ma page du webserver va s'ouvrir suivi celle des cameras ip. :) Ça me convien!


Maintenant je serais redu au timer et ou cédules. Vous croyé que c'est possible avec un enc28j60 ?

Go Up