# mahreen miangul ApRil 2018

• ### Question

•   Nonkis Catch Apples fill the bucket  upgraded mahreen miangul ID VMH447

mahreen miangul

Monday, April 2, 2018 10:54 AM

• if it is not a bother please guide me through both ways                                                      mahreen miangul

```imgDisk="C:\users\username\pictures\car.img"   '' image on disk in the pictures directory (you may use any dir)
imgNet="http::/aaaa/bbbb/yyy/car.png"    ''some internetsite with a picture

GraphicsWindow.DrawImage(imgDisk,50,100)
GraphicsWindow.DrawImage(imgNet,200,100)

''if you want to zoom or rotate, beter use Shapes
Shapes.Move(img1,50,400)
Shapes.Move(img2,200,400)
```

Jan [ WhTurner ] The Netherlands

• Marked as answer by Tuesday, April 24, 2018 4:36 AM
Monday, April 23, 2018 5:26 PM
• maybe flapping wings or wobble body a bit

```Sub Snowfalling
angle = 10
For i=1 To 500
shapes.Animate(sSnow[i],Shapes.GetLeft(sSnow[i]),200+Math.GetRandomNumber(400),2000)
shapes.Animate(LSnow[i],Shapes.GetLeft(LSnow[i]),200+Math.GetRandomNumber(600),2000)
shapes.Animate(RSnow[i],Shapes.GetLeft(RSnow[i]),200+Math.GetRandomNumber(800),2000)  '  <---  Shapes.GetLeft(RSnow[i]) is right
For j=1 To 4
Sname="Duck_"+j
dx= Math.GetRandomNumber(10)
dy= 0.5
If Shapes.GetLeft(shp[SName][1])>1100-20*J Then
dx=0
dY=0.1
EndIf
For k=1 To 24
Shapes.Move(shp[SName][k],Shapes.GetLeft(shp[SName][k])+dx,Shapes.Gettop(shp[SName][k])-dy)
EndFor
Shapes.Move(shp[SName][15],Shapes.GetLeft(shp[SName][15])+angle/3,Shapes.Gettop(shp[SName][15]))
Shapes.Rotate(shp[SName][13],Duck[13]["angle"]+angle)
Shapes.Rotate(shp[SName][14],Duck[14]["angle"]+angle)
EndFor
angle = -angle
Program.Delay(100)
EndFor
EndSub```

Tuesday, April 10, 2018 6:29 PM
• very good but if the penguins could walk like the walking man in GWV844 with maybe flapping wings or wobble body a bit ....it will perfect with thanks                                                  mahreen miangul

In this case, the penguin will face to the right and will walk to the right. like below photo.

• Marked as answer by Thursday, April 12, 2018 3:27 PM
Thursday, April 12, 2018 4:29 AM
• SFZ082-0

• Marked as answer by Sunday, April 15, 2018 6:10 AM
Sunday, April 15, 2018 4:43 AM
•  now for the wobble body

SFZ082-1

• Marked as answer by Tuesday, April 17, 2018 11:26 AM
Monday, April 16, 2018 12:46 PM
• LitdevExtension has 70 commands.
The commands I have used are the parts surrounded by blue and red frames.
(I have used 42 commands.)
In the above program, three commands surrounded by a red frame are used.

LDtext .... Handle strings
LDtext.Split .... Convert a string to an array
LDEvent .... Used when an event occurs
LDEvents.MouseWheel ... Event occurs when the mouse wheel is moved
LDEvents.LastMouseWheelDelta ... Get the amount you moved the mouse wheel
LDShapes ....handle Shapes
LDShapes.SetShapeEvent .... set the shape to trigger an event
LDShapes.LastEventType .... Type of event that occurred. Mouse Down, Mouse Up
LDShapes.LastEventShape .... Gets the name of the Shaep where the event occurred

﻿

Tryhest is a "Heavy User" of LitdevExtension.
The program he created is introduced in "small basic graphic and animations and more".

Visit it will be very helpful.

• Marked as answer by Sunday, April 22, 2018 12:25 PM
Friday, April 20, 2018 4:23 AM

### All replies

• nonkis version apple is by Add Image in my version apple is by AddText will somebody draw the apples in the program by codes thankyou                                                                                                            mahreen miangul
Monday, April 2, 2018 11:01 AM
• hello Snow Flakes Penguins ID JDW739 the penguins are moving sideways can you make  them walk like penguins
walking forward with ballancing side ways i hope to get some help from you after a long time with thanks

mahreen miangul

Tuesday, April 10, 2018 10:08 AM
• maybe flapping wings or wobble body a bit

```Sub Snowfalling
angle = 10
For i=1 To 500
shapes.Animate(sSnow[i],Shapes.GetLeft(sSnow[i]),200+Math.GetRandomNumber(400),2000)
shapes.Animate(LSnow[i],Shapes.GetLeft(LSnow[i]),200+Math.GetRandomNumber(600),2000)
shapes.Animate(RSnow[i],Shapes.GetLeft(RSnow[i]),200+Math.GetRandomNumber(800),2000)  '  <---  Shapes.GetLeft(RSnow[i]) is right
For j=1 To 4
Sname="Duck_"+j
dx= Math.GetRandomNumber(10)
dy= 0.5
If Shapes.GetLeft(shp[SName][1])>1100-20*J Then
dx=0
dY=0.1
EndIf
For k=1 To 24
Shapes.Move(shp[SName][k],Shapes.GetLeft(shp[SName][k])+dx,Shapes.Gettop(shp[SName][k])-dy)
EndFor
Shapes.Move(shp[SName][15],Shapes.GetLeft(shp[SName][15])+angle/3,Shapes.Gettop(shp[SName][15]))
Shapes.Rotate(shp[SName][13],Duck[13]["angle"]+angle)
Shapes.Rotate(shp[SName][14],Duck[14]["angle"]+angle)
EndFor
angle = -angle
Program.Delay(100)
EndFor
EndSub```

Tuesday, April 10, 2018 6:29 PM
• very good but if the penguins could walk like the walking man in GWV844 with maybe flapping wings or wobble body a bit ....it will perfect with thanks                                                  mahreen miangul
Wednesday, April 11, 2018 4:20 PM
• very good but if the penguins could walk like the walking man in GWV844 with maybe flapping wings or wobble body a bit ....it will perfect with thanks                                                  mahreen miangul

In this case, the penguin will face to the right and will walk to the right. like below photo.

• Marked as answer by Thursday, April 12, 2018 3:27 PM
Thursday, April 12, 2018 4:29 AM
• a good one now to draw the penguin                                                              mahreen miangul
Thursday, April 12, 2018 3:30 PM
• hello SFZ082 this is the best i could do the penguins are sliding they are not flapping wings nor wobbling their bodies i hope to get a lot of help thank you                                                                     mahreen miangul
Saturday, April 14, 2018 3:24 PM
• SFZ082-0

• Marked as answer by Sunday, April 15, 2018 6:10 AM
Sunday, April 15, 2018 4:43 AM
• Animate Rotate Opacity Zoom ID CLT244                                            mahreen miangul
Sunday, April 15, 2018 6:04 AM
• a very nice edit program     SFZ082-0                                                              mussa maina
Sunday, April 15, 2018 6:13 AM
•  now for the wobble body
Sunday, April 15, 2018 6:26 AM
•  now for the wobble body

SFZ082-1

• Marked as answer by Tuesday, April 17, 2018 11:26 AM
Monday, April 16, 2018 12:46 PM
• hello, about Four years back when i started small basic you posted a program ID WNH607-0 using LD Extansion, I still cant use LD but am posting this program

GraphicsWindow.Title = "mahreen miangul
GraphicsWindow.Width = 800
GraphicsWindow.Height = 350
'GraphicsWindow.BackgroundColor = GraphicsWindow.GetColorFromRGB(0, 50, 0)
GraphicsWindow.BackgroundColor = "teal

' 1
'GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
GraphicsWindow.BrushColor = "yellow
GraphicsWindow.PenColor = "yellow"
'GraphicsWindow.FontSize = 44
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 150, 250, 2000)
'Shapes.rotate(haroon1, 180)
'Shapes.Zoom(haroon1, 5, 5)
'Shapes.SetOpacity(haroon1, 50)
' 1
GraphicsWindow.BrushColor = "teal
GraphicsWindow.PenColor = "teal
'GraphicsWindow.FontSize = 44
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 170, 270, 2000)
'Shapes.rotate(haroon1, 180)
'Shapes.Zoom(haroon1, 5, 5)
'Shapes.SetOpacity(haroon1, 50)

' 2
GraphicsWindow.BrushColor = "pink
GraphicsWindow.PenColor = "pink"
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 70, 50, 2000)
Shapes.rotate(haroon1, -25)
' 2
GraphicsWindow.BrushColor = "pink
GraphicsWindow.PenColor = "pink
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 101, 50, 2000)
Shapes.rotate(haroon1, 25)

' 3
GraphicsWindow.BrushColor = "PowderBlue
GraphicsWindow.FontSize = 100
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 110, -20, 2000)

' 4
GraphicsWindow.BrushColor = "Cyan
GraphicsWindow.FontSize = 88
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 250, 80, 2000)

' 5
GraphicsWindow.BrushColor = "red
GraphicsWindow.FontSize = 88
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 300, 140, 2000)

' 6
GraphicsWindow.BrushColor = "Gold
GraphicsWindow.FontSize = 100
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 350, 70, 2000)
Shapes.rotate(haroon1, -25)

' 7
GraphicsWindow.BrushColor = "Lime
GraphicsWindow.PenColor = "Lime
Shapes.move(haroon1, 0, 0)
Shapes.animate(haroon1, 400, 170, 2000)
Shapes.rotate(haroon1, 25)

• Edited by Tuesday, April 17, 2018 1:48 PM spelling mistake
Tuesday, April 17, 2018 11:37 AM
•  WNH607-0 is simplified as below.  "<----" mark means LitdevExtension command.

GraphicsWindow.Mousemove = OnMousemove
LDEvents.MouseWheel =mww  '  "<----"
LDShapes.ShapeEvent=onshape '   "<----"
GraphicsWindow.Width = 1200
GraphicsWindow.Height = 400
GraphicsWindow.FontSize = 80
GraphicsWindow.BackgroundColor = "teal"
cll=ldtext.Split ("lime yellow lightblue red orange pink cyan"," ") '  make a color array "<----"
txx=ldtext.Split ("l o r e m y p"," ")  '  make a letter array  "<----"
For f=1 to Array.GetItemCount(txx)
GraphicsWindow.BrushColor = cll[f]
LDShapes.SetShapeEvent(shape)  '  register a shape name "<----"
Shapes.Move(shape,Math.GetRandomNumber (800), Math.GetRandomNumber (300))
endfor
TF="False"

Sub onmousemove
If TF Then
Shapes.Move(_nmb,GraphicsWindow.MouseX-dX,GraphicsWindow.MouseY-dY)
endif
Endsub
Sub mww
If Mouse.IsRightButtonDown  then
zm=math.Max(0.1,zm+ LDEvents.LastMouseWheelDelta /10)   ' mouse wheel data "<----"
Shapes.zoom (_nmb ,zm, zm)
ElseIf TF="False" then
ann=ann+ LDEvents.LastMouseWheelDelta *3  '  mouse wheel data "<----"
Shapes.Rotate (lastnmb ,ann)
endif
EndSub
Sub Onshape
LE=LDShapes.LastEventType  ' event type "<----"
If LE="MouseDown" Then
mx = GraphicsWindow.MouseX
my = GraphicsWindow.MouseY
_nmb= LDShapes.LastEventShape ' shape name    "<----"
'  GraphicsWindow.Title=_nmb+" : "+mx+ " : "+my
dX = mx-Shapes.GetLeft(_nmb)
dY = my-Shapes.GetTop(_nmb)
TF="True"
ElseIf LE="MouseUp" then
lastnmb=_nmb '  last shape name
TF="False"
EndIf
EndSub
Thursday, April 19, 2018 1:13 AM
• the problem is how to use extantions  as i had zero knowledge of small basic and from my coding i think i have come a long way and can use small basic nicely as i learned to code from (small basic forum ) now the forum should teach me how to use extantions and specialy LD Extantion thankyou                                        mahreen miangul
Thursday, April 19, 2018 4:37 AM
• LitdevExtension has 70 commands.
The commands I have used are the parts surrounded by blue and red frames.
(I have used 42 commands.)
In the above program, three commands surrounded by a red frame are used.

LDtext .... Handle strings
LDtext.Split .... Convert a string to an array
LDEvent .... Used when an event occurs
LDEvents.MouseWheel ... Event occurs when the mouse wheel is moved
LDEvents.LastMouseWheelDelta ... Get the amount you moved the mouse wheel
LDShapes ....handle Shapes
LDShapes.SetShapeEvent .... set the shape to trigger an event
LDShapes.LastEventType .... Type of event that occurred. Mouse Down, Mouse Up
LDShapes.LastEventShape .... Gets the name of the Shaep where the event occurred

﻿

Tryhest is a "Heavy User" of LitdevExtension.
The program he created is introduced in "small basic graphic and animations and more".

Visit it will be very helpful.

• Marked as answer by Sunday, April 22, 2018 12:25 PM
Friday, April 20, 2018 4:23 AM
• can i put my own images on net and then download them to my small basic program and use them move them rotate opacity or use them in graphics or a game etc  thankyou                                              mahreen miangul
Sunday, April 22, 2018 12:37 PM
• a reply is nedeed  with request with thanks                               mahreen miangul

Monday, April 23, 2018 1:55 PM
• Do you need to put the image on internet? To use it on different computers?

If you need to use it only on one computer there is no need to put the image on the Net. You can use the image directly from your hard disk.

Jan [ WhTurner ] The Netherlands

• Marked as answer by Monday, April 23, 2018 4:35 PM
• Unmarked as answer by Monday, April 23, 2018 4:36 PM
Monday, April 23, 2018 3:08 PM
• if it is not a bother please guide me through both ways                                                      mahreen miangul

Monday, April 23, 2018 4:38 PM
• if it is not a bother please guide me through both ways                                                      mahreen miangul

```imgDisk="C:\users\username\pictures\car.img"   '' image on disk in the pictures directory (you may use any dir)
imgNet="http::/aaaa/bbbb/yyy/car.png"    ''some internetsite with a picture

GraphicsWindow.DrawImage(imgDisk,50,100)
GraphicsWindow.DrawImage(imgNet,200,100)

''if you want to zoom or rotate, beter use Shapes
Shapes.Move(img1,50,400)