Page 15 - Drehscheibe
P. 15

{
                   digitalWrite(Step, HIGH);
                   var180 = 0 ;
                   istposition = 180;
                 }

                 //0 Grad

               if (digitalRead(Pos0) ==LOW && var0 < 1)
                 {

                   digitalWrite(Step, LOW);
                   var0 =1;
                   istposition = 0;
                 }
               if (analogRead(analogPin_0)< 600 && var0 == 1)
                 {
                   delay (18500);          //Laufzeit vom Auslösen des Sensors bis um
               180Grad
                                                   //weitergedreht wurde.
                   digitalWrite(Step, HIGH);
                   var0 = 0 ;
                   istposition = 0;
                 }


               //2. Sensor

                 //195 Grad

               if (digitalRead(Pos3) ==LOW && var195 < 1)
                 {
                        digitalWrite(Step, LOW);
                   var195 =1;
                   istposition = 195;
                 }
               if (analogRead(analogPin_1)< 600 && var195 == 1)       //der
               vergleichswert (600 z.B.) ist der Auslösewert von 0 bis 1200
               Empfindlichkeit des Sensors)
                 {
                   digitalWrite(Step, HIGH);
                   var195 = 0 ;
                   istposition = 195;
                 }

                 //15 Grad

               if (digitalRead(Pos2) ==LOW && var15 < 1)
                 {

                   digitalWrite(Step, LOW);
                   var15 =1;
                   istposition = 15;
                 }
               if (analogRead(analogPin_1)< 600 && var15 == 1)
                 {
                   delay (18500);                                  //Laufzeit vom
               Auslösen des Sensors bis um 180 Grad weitergedreht wurde.
                   digitalWrite(Step, HIGH);
                   var15 = 0 ;
   10   11   12   13   14   15   16   17   18