Lemniscata Inviluppo di circonferenze con centro sull’iperbole e passanti per il centro dell’iperbole Prima stesura… DIM =800 DIM2=DIM/2 RAGGIO1 =DIM/8 RAGGIO12=RAGGIO1*RAGGIO1 QUANTI=50 DELTA =2*RAGGIO1/QUANTI GraphicsWindow.Width… Leggi tutto »I – Circonferenze – 2
Carico le 10 immagini e le animo in sequenza con il Timer per contare i decimi di secondo Aggiungo i pulsanti di Start e Stop… Leggi tutto »Animazioni
Le immagini sono utilizzate per visualizzare le cifre e il lampeggio di un orologio digitale PATH=Program.Directory ‘ carica le immagini For i=0 To 9 CIFRE[i]=ImageList.LoadImage(PATH… Leggi tutto »Orologio digitale
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
180 cerchi con centro sul cerchio blu e raggio costante DIM =800 DIM2=DIM/2 GraphicsWindow.Title =”Inviluppo di circonferenze” GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM xc=DIM2 yc=DIM2 n =180 angolo… Leggi tutto »I – Circonferenze – 1