XavierAndreu

Numeros redondos

Oct 9th, 2022
532
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.74 KB | None | 0 0
  1. //Youtube-->https://www.youtube.com/watch?v=eL6PiBH4c9s
  2.  
  3. input double Minimo=1.2;
  4. input double Maximo=1.4;
  5. input double Valor=0.01;
  6. input color Color_Linea=clrOlive;
  7.  
  8. void OnInit()
  9. {
  10.  
  11. if(Minimo>Maximo) Alert("Valores Min Max erroneos!");
  12.  
  13. for(double a= Minimo;a<=Maximo;a=a+Valor)
  14. {
  15. DibujarLinea(rand(),a);
  16. }
  17. ExpertRemove();
  18.  
  19. }
  20.  
  21. void DibujarLinea(string Linea, double Posicion)
  22. {
  23. ObjectCreate(Symbol(),Linea,OBJ_HLINE,0,0,Posicion);
  24. ObjectSetInteger(0,Linea,OBJPROP_COLOR,Color_Linea);
  25. ObjectSetInteger(0,Linea,OBJPROP_WIDTH,1);
  26. }
Advertisement
Add Comment
Please, Sign In to add comment