Visual Basic para Excel

Salidas digitales

salidas digitales ejemplo para auto fantástico

 

digitalWrite(13, HIGH);  

delay(vel);              

digitalWrite(12, HIGH);  

delay(vel);              

digitalWrite(11, HIGH);

delay(vel);

digitalWrite(13, LOW);

digitalWrite(10, HIGH); 

delay(vel);              

digitalWrite(12, LOW); 

digitalWrite(9, HIGH); 

delay(vel);              

digitalWrite(11, LOW); 

digitalWrite(8, HIGH); 

delay(vel);              

digitalWrite(10, LOW); 

digitalWrite(7, HIGH); 

delay(vel);              

digitalWrite(9, LOW); 

digitalWrite(6, HIGH); 

delay(vel);              

digitalWrite(8, LOW); 

digitalWrite(5, HIGH); 

delay(vel);              

digitalWrite(7, LOW); 

digitalWrite(4, HIGH); 

delay(vel);              

digitalWrite(6, LOW); 

delay(vel);              

digitalWrite(5, LOW); 

delay(vel);              

digitalWrite(5, HIGH); 

delay(vel);              

digitalWrite(6, HIGH);  

delay(vel);              

digitalWrite(4, LOW); 

digitalWrite(7, HIGH);  

delay(vel);              

digitalWrite(5, LOW); 

digitalWrite(8, HIGH);

delay(vel);              

digitalWrite(6, LOW); 

digitalWrite(9, HIGH);

delay(vel);              

digitalWrite(7, LOW); 

digitalWrite(10, HIGH);

delay(vel);              

digitalWrite(8, LOW); 

digitalWrite(11, HIGH);

delay(vel);              

digitalWrite(9, LOW); 

digitalWrite(12, HIGH);

delay(vel);              

digitalWrite(10, LOW); 

digitalWrite(13, HIGH);

delay(vel);              

digitalWrite(11, LOW); 

delay(vel);              

digitalWrite(12, LOW);