Peristaltic Pump

// Creative Commons - www.ben-amar.com - 2021
// This Code was written for Ben-Amar.com under CC license: BY-NC-SA  (Attribution Mandatory, NonCommercial & ShareAlike)
// You must you credit "Ben-Amar.com" to remix, adapt, and build upon your work non-commercially. You must license your new creations under the identical terms.


//=======================
//======== CONTANTS ====
//=======================

const int stepPin = 4;            // stepPin for Stepper Driver
const int dirPin = 5;             // Direction pin for Stepper Driver
const int enPin = 3;              // Enable pin for Stepper Driver (Low = enable)
const int rPin = A0;              // Potentiometer Analog Reading Pin

//=======================
//======== VARIABLES ====
//=======================

int vit;                  // Declare Variable "vit" as integer for potentiometer raw value reading
int vMap = 0;             // Declare Variable mapped speed after convertion to match with expected values
int microSec = 500;       // Declare Variable for Step duration

void setup() {

  pinMode(stepPin, OUTPUT);    //  defines stepPin as Output
  pinMode(dirPin, OUTPUT);     //  defines dirPin as Output
  pinMode(enPin, OUTPUT);      //  defines enPin as Output
  pinMode(rPin , INPUT);       //  defines rPin as Input for analog reading

}

///=======================
//========= MAIN LOOP ====
//========================

void loop() {

  digitalWrite (enPin, LOW);              // Enable the Driver and the step motor (Holding Torque is ON if Enable)
  digitalWrite(dirPin, HIGH);             // Give the driver the expected direction
  for (int j = 0; j < 100; j++) {         // Stepper rotation Main for Loop
    vit = analogRead (A0);                // Reading the Potentiometer value
    vMap = map(vit, 0, 1023, 30, 250);    // Convert the value of the potentiometer in the range of speed expected for the engine
    for (int i = 0; i < 10000; i++) {     // Stepper Motion SubLoop (With acceleration)
      digitalWrite(stepPin, HIGH);        // Set the Value of stepPin at 1
      delayMicroseconds(microSec);        // Delay of define microSec
      digitalWrite(stepPin, LOW);         // Set the Value of stepPin at 0
      delayMicroseconds(microSec);        // Delay of define microSec
      if (microSec > vMap) {              // SPEED MODULATION LOOP - Speed Comparison (microSec will Move toward vMap value in this loop)
        microSec --;                      // SPEED MODULATION LOOP - If (microSec > vMap) microstep will decrement of "1"
      }                                   // SPEED MODULATION LOOP - This will occur at each iteration of the sub loop until statement is false
      else if (microSec < vMap) {         // SPEED MODULATION LOOP - If (microSec < vMap) microstep will increment of "1"
        microSec ++;                      // SPEED MODULATION LOOP - This will occur at each iteration of the sub loop until statement is false
      }                                   // SPEED MODULATION LOOP - If Both statement are false, nothing happens, speed is not modulated
    }                                     // End of Stepper Rotation Sub Loop
  }                                       // End of Stepper Rotation Main Loop
}