Program

I – Circonferenze – 2

APPLICAZIONI

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 =DIM

GraphicsWindow.Height=DIM

GraphicsWindow.Title="Inviluppo di circonferenze"

x=RAGGIO1

y=0

'------------------------------------------------------------------------------------------ VERTICI IPERBOLE

GraphicsWindow.BrushColor="#660000FF"

GraphicsWindow.FillEllipse(DIM2+x-5,DIM2-5, 10,10)

GraphicsWindow.FillEllipse(DIM2-x-5,DIM2-5, 10,10)

'------------------------------------------------------------------------------------------ Prime 2 circonferenze

raggio2 =RAGGIO1

diametro2=2*raggio2

GraphicsWindow.PenWidth=1

GraphicsWindow.PenColor="#99000000"

GraphicsWindow.DrawEllipse(DIM2+raggio2-raggio2,DIM2-raggio2, diametro2,diametro2)

GraphicsWindow.DrawEllipse(DIM2-raggio2-raggio2,DIM2-raggio2, diametro2,diametro2)

Program.Delay(50)

'------------------------------------------------------------------------------------------ 4*QUANTI punti e circonferenze

For i=1 To QUANTI

xn=x+DELTA

yn=Math.SquareRoot(xn*xn-RAGGIO12)

raggio2 =Math.SquareRoot(xn*xn+yn*yn)

diametro2=2*raggio2

GraphicsWindow.PenWidth=10

GraphicsWindow.PenColor="#660000FF"

GraphicsWindow.DrawLine(DIM2+x,DIM2+y, DIM2+xn,DIM2+yn)

GraphicsWindow.DrawLine(DIM2+x,DIM2-y, DIM2+xn,DIM2-yn)

GraphicsWindow.DrawLine(DIM2-x,DIM2+y, DIM2-xn,DIM2+yn)

GraphicsWindow.DrawLine(DIM2-x,DIM2-y, DIM2-xn,DIM2-yn)

GraphicsWindow.PenWidth=1

GraphicsWindow.PenColor="#99000000"

GraphicsWindow.DrawEllipse(DIM2+xn-raggio2,DIM2+yn-raggio2, diametro2,diametro2)

GraphicsWindow.DrawEllipse(DIM2+xn-raggio2,DIM2-yn-raggio2, diametro2,diametro2)

GraphicsWindow.DrawEllipse(DIM2-xn-raggio2,DIM2+yn-raggio2, diametro2,diametro2)

GraphicsWindow.DrawEllipse(DIM2-xn-raggio2,DIM2-yn-raggio2, diametro2,diametro2)

x=xn

y=yn

Program.Delay(50)

EndFor

Strofoide Inviluppo di circonferenze con centro sulla parabola e… Leggi tutto »I – Circonferenze – 2

Animazioni

APPLICAZIONI

Carica le 10 immagini e le anima in sequenza con il Timer per contare i decimi di secondo Aggiunge i pulsanti di Start e Stop… Leggi tutto »Animazioni

Orologio digitale

APPLICAZIONI

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 + "/" + i + ".gif")

EndFor

DUEPUNTI=ImageList.LoadImage(PATH + "/punti.gif")

NULLO =ImageList.LoadImage(PATH + "/null.gif")

LAMPO =1

DIMX =ImageList.GetWidthOfImage (DUEPUNTI) ' dimensioni, distanze, ...

DIMY =ImageList.GetHeightOfImage(DUEPUNTI)

SPAZIO =20

POSX[1]=SPAZIO

POSY =SPAZIO

For i=2 To 8

POSX[i]=POSX[i-1]+DIMX

EndFor

GraphicsWindow.Title ="Orologio digitale" ' finestra grafica

GraphicsWindow.BackgroundColor="Black"

GraphicsWindow.Width =8*DIMX+2*SPAZIO

GraphicsWindow.Height = DIMY+2*SPAZIO

Timer.Interval=250 ' timer

Timer.Tick =AGGIORNA

Sub AGGIORNA

hh=Clock.Hour ' che ore sono?

mm=Clock.Minute

ss=Clock.Second

h1=Math.Floor(hh/10) ' le singole cifre?

h2=Math.Remainder(hh, 10)

m1=Math.Floor(mm/10)

m2=Math.Remainder(mm, 10)

s1=Math.Floor(ss/10)

s2=Math.Remainder(ss, 10)

GraphicsWindow.DrawImage(CIFRE[h1],POSX[1],POSY) ' visualizza le cifre

GraphicsWindow.DrawImage(CIFRE[h2],POSX[2],POSY)

GraphicsWindow.DrawImage(CIFRE[m1],POSX[4],POSY)

GraphicsWindow.DrawImage(CIFRE[m2],POSX[5],POSY)

GraphicsWindow.DrawImage(CIFRE[s1],POSX[7],POSY)

GraphicsWindow.DrawImage(CIFRE[s2],POSX[8],POSY)

If LAMPO = 1 Then ' lampeggio dei due punti

LAMPO=0

GraphicsWindow.DrawImage(DUEPUNTI,POSX[3],POSY)

GraphicsWindow.DrawImage(DUEPUNTI,POSX[6],POSY)

Else

LAMPO=1

GraphicsWindow.DrawImage(NULLO,POSX[3],POSY)

GraphicsWindow.DrawImage(NULLO,POSX[6],POSY)

EndIf

EndSub

Se consideriamo i secondi passati dall’avvio dell’applicazione

...

INIZIO=Clock.ElapsedMilliseconds

...

ADESSO=Clock.ElapsedMilliseconds

TEMPO =(ADESSO-INIZIO)/1000

TEMPO =Math.Floor(TEMPO)

...

otteniamo… Leggi tutto »Orologio digitale

Seguire il mouse

APPLICAZIONI

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

GraphicsWindow.MouseMove=MouseMosso

r1=10

d1=2*r1

r2=20

d2=2*r2

Sub MouseMosso

x=GraphicsWindow.MouseX

y=GraphicsWindow.MouseY

GraphicsWindow.Title="x=" + x + ", y=" + y

GraphicsWindow.Clear()

GraphicsWindow.DrawLine(0,y, w,y)

GraphicsWindow.DrawLine(x,0, x,h)

GraphicsWindow.DrawEllipse(x-r1, y-r1, d1,d1)

GraphicsWindow.DrawEllipse(x-r2, y-r2, d2,d2)

Program.Delay(25)

Endsub

I – Circonferenze – 1

APPLICAZIONI

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 =0

angoloDelta=2*Math.Pi/n

diametro1 =0.8*DIM

diametro2 =2/3*diametro1

diametro3 =diametro1/3

raggio2 =diametro2/2

raggio3 =diametro3/2

GraphicsWindow.PenWidth=10

GraphicsWindow.PenColor="#660000FF"

GraphicsWindow.DrawEllipse(xc-raggio2,yc-raggio2, diametro2,diametro2)

GraphicsWindow.PenWidth=1

GraphicsWindow.PenColor="#99000000"

For i=1 To n

x=xc+raggio2*Math.Cos(angolo)

y=yc-raggio2*Math.Sin(angolo)

GraphicsWindow.DrawEllipse(x-raggio3,y-raggio3, diametro3,diametro3)

angolo=angolo+angoloDelta

Program.Delay(25)

EndFor

Con diametri e raggi diversi

diametro1=0.8*DIM

diametro2=diametro1/2

diametro3=diametro2

raggio2 =diametro2/2

raggio3 =diametro3/2

Cardioide Il raggio è dato dalla distanza tra… Leggi tutto »I – Circonferenze – 1

Triangoli casuali

Senza categoria

Disegna triangoli casuali

Turtle.Speed=10

GraphicsWindow.PenWidth=10

spazio =20

spazio2=2*spazio

xm =GraphicsWindow.Width -spazio2

ym =GraphicsWindow.Height-spazio2

While "true"

x1=Math.GetRandomNumber(xm)+spazio

y1=Math.GetRandomNumber(ym)+spazio

x2=Math.GetRandomNumber(xm)+spazio

y2=Math.GetRandomNumber(ym)+spazio

x3=Math.GetRandomNumber(xm)+spazio

y3=Math.GetRandomNumber(ym)+spazio

Turtle.PenUp()

Turtle.MoveTo(x1,y1)

GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()

Turtle.PenDown()

Turtle.MoveTo(x2,y2)

Turtle.MoveTo(x3,y3)

Turtle.MoveTo(x1,y1)

Program.Delay(250)

EndWhile

Da 3 a 25 lati

APPLICAZIONI

I poligoni regolari da 3 a 25 lati

DIM=800

GraphicsWindow.Height=DIM

GraphicsWindow.Width =DIM

GraphicsWindow.PenColor="#66000066"

xC=DIM/2

yC=DIM/2

raggio=0.4*DIM

For numeroLati=3 to 25

deltaAngolo=2*Math.Pi/numeroLati

angolo=0

x1=xC+raggio*Math.Cos(angolo)

y1=yC+raggio*Math.Sin(angolo)

For ripeti=1 To numeroLati

angolo=angolo+deltaAngolo

x2=xC+raggio*Math.Cos(angolo)

y2=yC+raggio*Math.Sin(angolo)

GraphicsWindow.DrawLine(x1,y1,x2,y2)

x1=x2

y1=y2

EndFor

Program.Delay(500)

EndFor

Mirino

Senza categoria

Il mirino segue il puntatore del mouse

GraphicsWindow.BackgroundColor="Black"

w =GraphicsWindow.Width

h =GraphicsWindow.Height

r1=10

d1=2*r1

r2=20

d2=2*r2

While "true"

wm=GraphicsWindow.MouseX

hm=GraphicsWindow.MouseY

GraphicsWindow.Clear()

GraphicsWindow.PenColor="white"

GraphicsWindow.DrawLine( 0, hm, w, hm)

GraphicsWindow.DrawLine(wm, 0, wm, h)

GraphicsWindow.PenColor="gray"

GraphicsWindow.DrawEllipse(wm-r2, hm-r2, d2, d2)

GraphicsWindow.DrawEllipse(wm-r1, hm-r1, d1, d1)

Program.Delay(50)

EndWhile

Immagini da Flickr

Senza categoria

Le API di Flickr sono state aggiornate. Per poter utilizzare la libreria Flickr è necessario installare Smallbasic 1.1. Scarica e visualizza ogni 5 secondi una… Leggi tutto »Immagini da Flickr

La libreria Program fornisce strumenti per controllare l’esecuzione del programma. Strumento Argomenti Risultato Descrizione ArgumentCount numero Restituisce il numero degli argomenti di linea di comando passati a… Leggi tutto »Program