/* Control velocidad y sentido giro de motor PaP con pololu A4988 
 *  2017 - yomaker.com
 */
 
int steps = 9;       // pin step 9
int direccion = 3;   // pin direccion 3
int potenciometro;   // lectura del potenciometro
int boton = 7;       // pin pulsador
 
void setup() {        
  // inicializamos pines como salidas.  
  pinMode(steps, OUTPUT); 
  pinMode(direccion, OUTPUT); 
 // inicializamos pin como entrada
  pinMode(boton, INPUT);
}
 
void loop() {  
    int sentido = digitalRead(boton);  // leemos el boton de direccion
    digitalWrite(direccion, sentido);  // cambiamos de dirección según pulsador
    potenciometro = analogRead(A0);    // leemos el potenciometro
    potenciometro = map(potenciometro,0,1024,900,10000);// adaptamos el valor leído a un retardo
    digitalWrite(steps, HIGH);      // Aquí generamos un flanco de subida LOW - HIGH
    delayMicroseconds(5);           // Pequeño retardo para formar el pulso en STEP
    digitalWrite(steps, LOW);       // y un flanco de bajada, el A4988 avanzara un paso del motor
    delayMicroseconds(potenciometro); // generamos un retardo con el valor leído del potenciómetro
  }