Microsoft Small Basic

Program Listing: CPM139

List Program

'Happy Valentine's Day
' mahreen miangul
' AugUst 2018

GraphicsWindow.Title = "mahreen miangul
GraphicsWindow.Width = 1080
GraphicsWindow.Height = 600
GraphicsWindow.BackgroundColor = "Gainsboro
GraphicsWindow.MouseDown=pngsave

GraphicsWindow.FontSize = 33
GraphicsWindow.brushColor = "red

' Animation
haroon = shapes.AddText("💖")'>>>>>>>> 0
Shapes.move(haroon, 0, 0)
Shapes.animate(haroon,540, 100, 2000)
Shapes.rotate(haroon, 0)
'Shapes.SetOpacity(haroon1, 50)
'Shapes.Zoom(haroon1, 5, 3)

' Animation Right
haroon1 = shapes.AddText("💖")'>>>>>>>> 1
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,600, 60, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 2
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,660, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 3
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,720, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 4
Shapes.move(haroon1,0,0)
Shapes.animate(haroon1,760, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 5
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,820, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 6
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,880, 60, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 7
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,920, 100, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 8
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,930, 140, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 9
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,930, 175, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 10
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,910, 215, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 11
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,880, 260, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 12
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,850, 300, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 13
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,800, 345, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 14
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,750, 385, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 15
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,700, 420, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 16
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,650, 460, 2000)
Shapes.rotate(haroon1, 15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 17
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,600, 500, 2000)
Shapes.rotate(haroon1, 15)

' Animation Left
haroon1 = shapes.AddText("💖")'>>>>>>>> 1
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,480, 60, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 2
Shapes.move(haroon1, 0, -15)
Shapes.animate(haroon1,430, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 3
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,380, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 4
Shapes.move(haroon1,0,0)
Shapes.animate(haroon1,330, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 5
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,270, 20, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 6
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,220, 60, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 7
Shapes.move(haroon1, 0,0)
Shapes.animate(haroon1,200, 100, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 8
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,180, 140, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 9
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,175, 175, 2000)
Shapes.rotate(haroon1, 0)
haroon1 = shapes.AddText("💖")'>>>>>>>> 10
Shapes.move(haroon1, 0, -15)
Shapes.animate(haroon1,180, 215, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 11
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,200, 260, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 12
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,220, 300, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 13
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,270, 340, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 14
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,330, 390, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 15
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,390, 430, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 16
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,450, 470, 2000)
Shapes.rotate(haroon1, -15)
haroon1 = shapes.AddText("💖")'>>>>>>>> 17
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1,510, 510, 2000)
Shapes.rotate(haroon1, -15)

' Animation
haroon = shapes.AddText("💖")'>>>>>>>> 18
Shapes.move(haroon, 0, 0)
Shapes.animate(haroon,560, 530, 2000)
Shapes.rotate(haroon, 0)

' Animation 2
GraphicsWindow.brushColor = "green
GraphicsWindow.FontSize = 55
haroon2= Shapes.Addtext("HAPPY")
Shapes.Move(haroon2, 0, 600)
Shapes.Animate(haroon2, 470, 140, 2000)
haroon2= Shapes.Addtext("VALENTINE'S")
Shapes.Move(haroon2, 0, 600)
Shapes.Animate(haroon2, 380, 240, 2000)
haroon2= Shapes.Addtext("DAY")
Shapes.Move(haroon2, 0, 600)
Shapes.Animate(haroon2, 500, 340, 2000)

Sub pngsave
MX= GraphicsWindow.MouseX
MY= GraphicsWindow.MouseY
GraphicsWindow.BackgroundColor=GraphicsWindow.GetRandomColor() ' "rosybrown"
endsub