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 della stella e salvala nella stessa cartella del codice Small Basic.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
W=600 H=300 H2 =H/2 H5 =H/5 H25=2*H5 H45=4*H5 WH =Math.SquareRoot(3)/2*H GraphicsWindow.Width =W GraphicsWindow.Height=H GraphicsWindow.Title ="Cuba" GraphicsWindow.BrushColor="Blue" GraphicsWindow.FillRectangle(0, 0, W,H5) GraphicsWindow.FillRectangle(0,H25, W,H5) GraphicsWindow.FillRectangle(0,H45, W,H5) GraphicsWindow.BrushColor="Red" GraphicsWindow.FillTriangle(0,0, 0,H, WH,H2) DIM=80 ' Dimensione immagine WI =50 ' Ascissa HI =H2-DIM/2 ' Ordinata stella=ImageList.LoadImage(Program.Directory+"\stella-b.png") GraphicsWindow.DrawResizedImage(stella, WI,HI, DIM,DIM) |
Continua…