Considera due strisce disposte a formare un angolo retto.
Su ogni striscia ci sono 50 chiodini a distanza fissa.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
'------------------------------------------------------------------- Finestra DIM =800 DIM2=DIM/2 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Unisci i punti..." '------------------------------------------------------------------- COSTANTI spazio =50 nCHIODI=50 RITARDO=50 '------------------------------------------------------------------- STRISCE barra1Ax=spazio ' NORD barra1Ay=spazio barra1Bx=spazio ' SUD barra1By=DIM-spazio barra2Ax=spazio ' SUD barra2Ay=DIM-spazio barra2Bx=DIM-spazio ' EST barra2By=DIM-spazio STRISCE() CHIODI() '--------------------------------------------------------------------- FUNZIONI Sub STRISCE GraphicsWindow.PenWidth=10 GraphicsWindow.PenColor="#330000FF" GraphicsWindow.DrawLine(barra1Ax,barra1Ay, barra1Bx,barra1By) GraphicsWindow.DrawLine(barra2Ax,barra2Ay, barra2Bx,barra2By) EndSub '--------------------------------------------------------------------- Sub CHIODI delta1=1/nCHIODI delta2=delta1/2 deltaA=1-delta2 deltaB=delta2 For i=1 To nCHIODI ' POSIZIONI Chiodi1X[i]=deltaA*barra1Ax+deltaB*barra1Bx Chiodi1Y[i]=deltaA*barra1Ay+deltaB*barra1By Chiodi2X[i]=deltaA*barra2Ax+deltaB*barra2Bx Chiodi2Y[i]=deltaA*barra2Ay+deltaB*barra2By deltaA=deltaA-delta1 deltaB=deltaB+delta1 EndFor raggio=2 diametro=2*raggio GraphicsWindow.BrushColor="black" For i=1 To nCHIODI ' DISEGNO GraphicsWindow.FillEllipse(Chiodi1X[i]-raggio, Chiodi1Y[i]-raggio, diametro, diametro) GraphicsWindow.FillEllipse(Chiodi2X[i]-raggio, Chiodi2Y[i]-raggio, diametro, diametro) Program.Delay(RITARDO) EndFor EndSub |
Unisci i punti con del filo…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
'------------------------------------------------------------------- Finestra DIM =800 DIM2=DIM/2 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Unisci i punti..." '------------------------------------------------------------------- COSTANTI spazio =50 nCHIODI=50 RITARDO1=500 RITARDO2=50 '------------------------------------------------------------------- COSTRUZIONE barra1Ax=spazio barra1Ay=spazio barra1Bx=spazio barra1By=DIM-spazio barra2Ax=spazio barra2Ay=DIM-spazio barra2Bx=DIM-spazio barra2By=DIM-spazio STRISCE() CHIODI() FILI() '--------------------------------------------------------------------- FUNZIONI Sub STRISCE GraphicsWindow.PenWidth=10 GraphicsWindow.PenColor="#330000FF" GraphicsWindow.DrawLine(barra1Ax,barra1Ay, barra1Bx,barra1By) GraphicsWindow.DrawLine(barra2Ax,barra2Ay, barra2Bx,barra2By) Program.Delay(RITARDO1) EndSub '------------------------------------------------------------------- Sub CHIODI delta1=1/nCHIODI delta2=delta1/2 deltaA=1-delta2 deltaB=delta2 For i=1 To nCHIODI Chiodi1X[i]=deltaA*barra1Ax+deltaB*barra1Bx Chiodi1Y[i]=deltaA*barra1Ay+deltaB*barra1By Chiodi2X[i]=deltaA*barra2Ax+deltaB*barra2Bx Chiodi2Y[i]=deltaA*barra2Ay+deltaB*barra2By deltaA=deltaA-delta1 deltaB=deltaB+delta1 EndFor raggio=2 diametro=2*raggio GraphicsWindow.BrushColor="black" For i=1 To nCHIODI GraphicsWindow.FillEllipse(Chiodi1X[i]-raggio, Chiodi1Y[i]-raggio, diametro, diametro) GraphicsWindow.FillEllipse(Chiodi2X[i]-raggio, Chiodi2Y[i]-raggio, diametro, diametro) EndFor Program.Delay(RITARDO1) EndSub '------------------------------------------------------------------- Sub FILI GraphicsWindow.PenWidth=2 GraphicsWindow.PenColor="#66000000" For i=1 To nCHIODI GraphicsWindow.DrawLine(Chiodi1X[i], Chiodi1Y[i], Chiodi2X[i], Chiodi2Y[i]) Program.Delay(RITARDO2) EndFor EndSub |
Continua…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 |
'------------------------------------------------------------------- Finestra DIM =800 DIM2=DIM/2 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Unisci i punti..." '------------------------------------------------------------------- COSTANTI spazio =50 nCHIODI=50 RITARDO1=250 RITARDO2=25 '------------------------------------------------------------------- COSTRUZIONE barra1Ax=spazio ' Ovest - NS barra1Ay=spazio barra1Bx=spazio barra1By=DIM-spazio '------------------------------------------------------------------- Sud - OE barra2Ax=spazio barra2Ay=DIM-spazio barra2Bx=DIM-spazio barra2By=DIM-spazio STRISCE() CHIODI() FILI() '------------------------------------------------------------------- Sud - OE barra1Ax=spazio barra1Ay=DIM-spazio barra1Bx=DIM-spazio barra1By=DIM-spazio '------------------------------------------------------------------- Est - SN barra2Ax=DIM-spazio barra2Ay=DIM-spazio barra2Bx=DIM-spazio barra2By=spazio STRISCE() CHIODI() FILI() '------------------------------------------------------------------- Est - SN barra1Ax=DIM-spazio barra1Ay=DIM-spazio barra1Bx=DIM-spazio barra1By=spazio '------------------------------------------------------------------- Nord - EO barra2Ax=DIM-spazio barra2Ay=spazio barra2Bx=spazio barra2By=spazio STRISCE() CHIODI() FILI() '------------------------------------------------------------------- Nord - EO barra1Ax=DIM-spazio barra1Ay=spazio barra1Bx=spazio barra1By=spazio '------------------------------------------------------------------- Ovest - NS barra2Ax=spazio barra2Ay=spazio barra2Bx=spazio barra2By=DIM-spazio STRISCE() CHIODI() FILI() '--------------------------------------------------------------------- FUNZIONI '--------------------------------------------------------------------- Sub STRISCE GraphicsWindow.PenWidth=10 GraphicsWindow.PenColor="#330000FF" GraphicsWindow.DrawLine(barra1Ax,barra1Ay, barra1Bx,barra1By) GraphicsWindow.DrawLine(barra2Ax,barra2Ay, barra2Bx,barra2By) Program.Delay(RITARDO1) EndSub '------------------------------------------------------------------- Sub CHIODI delta1=1/nCHIODI delta2=delta1/2 deltaA=1-delta2 deltaB=delta2 For i=1 To nCHIODI Chiodi1X[i]=deltaA*barra1Ax+deltaB*barra1Bx Chiodi1Y[i]=deltaA*barra1Ay+deltaB*barra1By Chiodi2X[i]=deltaA*barra2Ax+deltaB*barra2Bx Chiodi2Y[i]=deltaA*barra2Ay+deltaB*barra2By deltaA=deltaA-delta1 deltaB=deltaB+delta1 EndFor raggio=2 diametro=2*raggio GraphicsWindow.BrushColor="black" For i=1 To nCHIODI GraphicsWindow.FillEllipse(Chiodi1X[i]-raggio, Chiodi1Y[i]-raggio, diametro, diametro) GraphicsWindow.FillEllipse(Chiodi2X[i]-raggio, Chiodi2Y[i]-raggio, diametro, diametro) EndFor Program.Delay(RITARDO1) EndSub '------------------------------------------------------------------- Sub FILI GraphicsWindow.PenWidth=2 GraphicsWindow.PenColor="#66000000" For i=1 To nCHIODI GraphicsWindow.DrawLine(Chiodi1X[i], Chiodi1Y[i], Chiodi2X[i], Chiodi2Y[i]) Program.Delay(RITARDO2) EndFor EndSub |