APPLICAZIONI

Unisci i punti – 180

APPLICAZIONI

Disponi 360 chiodini lungo una circonferenza. Il primo filo collega il diametro in verticale. I fili successivi collegano il prossimo in alto con il prossimo… Leggi tutto »Unisci i punti – 180

Unisci i punti – 6

APPLICAZIONI

Sperimenta con il numero di punte della stella (nVERTICI) il numero di chiodini (nCHIODI) per ogni striscia il salto tra un vertice e l’altro (SALTO)… Leggi tutto »Unisci i punti – 6

Contare le lettere

APPLICAZIONI

Contare le occorrenze delle lettere dell’alfabeto all’interno di una frase

testo="ADDIO alle armi"

For X=1 To Text.GetLength(testo)

CAR=Text.GetSubText(testo, X, 1)

CONTA[CAR]=CONTA[CAR]+1

EndFor

c_A=Text.GetCharacterCode("A")

c_Z=Text.GetCharacterCode("Z")

For X=c_A To c_Z

CAR=Text.GetCharacter(X)

TextWindow.WriteLine(CAR + " -> " + CONTA[CAR])

EndFor

Alle figure geometriche di base aggiungi delle immagini img=ImageList.LoadImage(“…”) GraphicsWindow.DrawImage(img, x,y) GraphicsWindow.DrawResizedImage(img, x,y, w,h) Alle figure di base bisogna aggiungere una stella bianca. Prepara l’immagine… Leggi tutto »Bandiere – 2

Bandiere – 1

APPLICAZIONI

Comincia utilizzando le funzioni di base GraphicsWindow.BrushColor=”…” GraphicsWindow.DrawLine(x1,y1, x2,y2) GraphicsWindow.FillEllipse(x,y, w,h) GraphicsWindow.FillRectangle(x,y, w,h) GraphicsWindow.FillTriangle(x1,y1, x2,y2, x3,y3) Un cerchio

W=600

H=400

W2=W/2

H2=H/2

R=100 ' Raggio cerchio

D=2*R ' Diametro

GraphicsWindow.Width =W

GraphicsWindow.Height=H

GraphicsWindow.Title ="Giappone"

GraphicsWindow.BrushColor="Red"

GraphicsWindow.FillEllipse(W2-R,H2-R, D,D)

Tre strisce in verticale

W =600 ' Larghezza finestra

H =400 ' Altezza finestra

W3 =W/3 ' Un terzo della larghezza

W23=2*W3 ' Due terzi della larghezza

GraphicsWindow.Width =W

GraphicsWindow.Height=H

GraphicsWindow.Title ="Italia"

GraphicsWindow.BrushColor="Green"

GraphicsWindow.FillRectangle(0,0, W3, H)

GraphicsWindow.BrushColor="Red"

GraphicsWindow.FillRectangle(W23,0, W3, H)

Tre… Leggi tutto »Bandiere – 1

CP – 1/cos()

APPLICAZIONI

Modifica il codice del cerchio in coordinate polari utilizzando la funzione coseno ma a denominatore. Per evitare l’errore a run-time dovuto al calcolo in pi/2 imposta… Leggi tutto »CP – 1/cos()

CP – Coseno e seno

APPLICAZIONI

Modifica il codice del cerchio in coordinate polari utilizzando insieme le funzioni coseno e seno.

RAGGIO =0.6*DIM

GIRI =1/2

ro =Math.Cos(phi)*Math.Sin(2*phi)

DIM=600

COLORE1="#30900090"

COLORE2="#60000000"

SPESSORE=1

r=2

d=2*r

'------------------------------------------------------

RAGGIO =0.4*DIM

GIRI =2

NUMERO =360*GIRI

RITARDO=10

'------------------------------------------------------

GraphicsWindow.Title ="CP - cos(x)*sin(3/2*x)"

GraphicsWindow.Width =DIM

GraphicsWindow.Height =DIM

GraphicsWindow.PenWidth =SPESSORE

GraphicsWindow.PenColor =COLORE1

GraphicsWindow.BrushColor=COLORE2

'------------------------------------------------------

W2 =DIM/2

H2 =DIM/2

pi2=2*Math.Pi

'------------------------------------------------------

angolo=0

deltaAngolo=1

For i=1 to NUMERO

phi=Math.GetRadians(angolo)+pi2*Math.Floor(angolo/360)

ro=Math.Cos(phi)*Math.Sin(3/2*phi)

'------------------------------------------------------

x=W2+ro*RAGGIO*Math.Cos(phi)

y=H2-ro*RAGGIO*Math.sin(phi)

GraphicsWindow.DrawLine(W2,H2, x,y)

GraphicsWindow.FillEllipse(x-r,y-r,d,d)

'------------------------------------------------------

angolo=angolo+deltaAngolo

Program.Delay(RITARDO)

EndFor

Curve di Lissajous

APPLICAZIONI

Le formule generali sono Si sceglie di semplificarle scegliendo tra uno dei criteri seguenti , , , il coseno per x e il seno per… Leggi tutto »Curve di Lissajous

Unisci i punti – 360

APPLICAZIONI

Il primo filo collega il diametro in verticale, i successivi collegano il prossimo da una parte e il punto che si ottiene con un certo… Leggi tutto »Unisci i punti – 360

CP – Tangente

APPLICAZIONI

Modifica il codice del cerchio in coordinate polari utilizzando la funzione tangente. Per evitare l’errore a run-time dovuto al calcolo in pi/2 imposta angolo a Math.Pi/12… Leggi tutto »CP – Tangente