Page 18 - Drehscheibe
P. 18

istposition = 45;
                 }

                   //6. Sensor

                 //240 Grad

               if (digitalRead(Pos8) ==LOW && var240 < 1)
                 {


                   digitalWrite(Step, LOW);
                   var240 =1;
                   istposition = 240;
                 }
               if (analogRead(analogPin_4)< 550 && var240 == 1)       //der
               Vergleichswert (600 z.B.) ist der Auslösewert von 0 bis 1200 -
               Empfindlichkeit des Sensors)
                 {
                   digitalWrite(Step, HIGH);
                   var240 = 0 ;
                   istposition = 240;
                 }

                 //60 Grad

               if (digitalRead(Pos9) ==LOW && var60 < 1)
                 {

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