Vai al contenuto

admin

Secondi

La lancetta viene aggiornata ogni secondo Turtle.Speed=10 xc=GraphicsWindow.Width/2 yc=GraphicsWindow.Height/2 r =yc*0.8 s =Clock.Second While “true” sn=Clock.Second If(s <> sn) Then s=sn Turtle.Angle=6*s GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.X=xc Turtle.Y=yc… Leggi tutto »Secondi

Linee

  • Senza categoria

Linee che ruotano intorno a un punto Turtle.Speed=10 numero =100 lunghezza=180 angolo =360/numero For i=1 To numero+1 Turtle.PenDown() Turtle.Move(lunghezza) Turtle.PenUp() Turtle.Move(-lunghezza) Turtle.Turn(angolo) EndFor Se la… Leggi tutto »Linee

Seguire il mouse

La linea segue il puntatore del mouse GraphicsWindow.MouseMove=MouseMosso xC=GraphicsWindow.Width/2 yC=GraphicsWindow.Height/2 Sub MouseMosso x=GraphicsWindow.MouseX y=GraphicsWindow.MouseY GraphicsWindow.Clear() GraphicsWindow.DrawLine(xC,yC, x,y) Program.Delay(25) Endsub E disegna un mirino w=GraphicsWindow.Width h=GraphicsWindow.Height… Leggi tutto »Seguire il mouse