none
mahreen miangul ApRil 2018 RRS feed

  • Question

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

                                                                                                                                                                mahreen miangul

      
    Monday, April 2, 2018 10:54 AM

Answers

  • 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
    img1=Shapes.AddImage(imgDisk)
    Shapes.Move(img1,50,400)
    img2=Shapes.AddImage(imgNet)
    Shapes.Move(img2,200,400)
    



    Jan [ WhTurner ] The Netherlands

    • Marked as answer by mussamaina Tuesday, April 24, 2018 4:36 AM
    Monday, April 23, 2018 5:26 PM
    Answerer
  • 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
    Moderator
  • 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 mussamaina Thursday, April 12, 2018 3:27 PM
    Thursday, April 12, 2018 4:29 AM
    Answerer
  • SFZ082-0

    added  flapping wings .

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

    SFZ082-1


    • Marked as answer by mussamaina Tuesday, April 17, 2018 11:26 AM
    Monday, April 16, 2018 12:46 PM
    Answerer
  • 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 mussamaina Sunday, April 22, 2018 12:25 PM
    Friday, April 20, 2018 4:23 AM
    Answerer

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
    Moderator
  • 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 mussamaina Thursday, April 12, 2018 3:27 PM
    Thursday, April 12, 2018 4:29 AM
    Answerer
  • 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

    added  flapping wings .

    • Marked as answer by mussamaina Sunday, April 15, 2018 6:10 AM
    Sunday, April 15, 2018 4:43 AM
    Answerer
  • 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 mussamaina Tuesday, April 17, 2018 11:26 AM
    Monday, April 16, 2018 12:46 PM
    Answerer
  • 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
    haroon1 = shapes.Addellipse(80, 90)
    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
    haroon1 = shapes.Addellipse(40, 50)
    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"
    haroon1 = shapes.Addrectangle(50, 170)
    Shapes.move(haroon1, 0, 0)
    Shapes.animate(haroon1, 70, 50, 2000)
    Shapes.rotate(haroon1, -25)
    ' 2
    GraphicsWindow.BrushColor = "pink
    GraphicsWindow.PenColor = "pink
    haroon1 = shapes.Addrectangle(50, 300)
    Shapes.move(haroon1, 0, 0)
    Shapes.animate(haroon1, 101, 50, 2000)
    Shapes.rotate(haroon1, 25)

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

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

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

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

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



    • Edited by mussamaina 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]
      shape= Shapes.AddText(txx[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
    Answerer
  • 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 mussamaina Sunday, April 22, 2018 12:25 PM
    Friday, April 20, 2018 4:23 AM
    Answerer
  • 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

    am i asking to much

                                                                  

    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 mussamaina Monday, April 23, 2018 4:35 PM
    • Unmarked as answer by mussamaina Monday, April 23, 2018 4:36 PM
    Monday, April 23, 2018 3:08 PM
    Answerer
  • 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
    img1=Shapes.AddImage(imgDisk)
    Shapes.Move(img1,50,400)
    img2=Shapes.AddImage(imgNet)
    Shapes.Move(img2,200,400)
    



    Jan [ WhTurner ] The Netherlands

    • Marked as answer by mussamaina Tuesday, April 24, 2018 4:36 AM
    Monday, April 23, 2018 5:26 PM
    Answerer
  • Add Move Animate and Rotate KLC026                                                                          mahreen miangul
    coments nedeed from my teacher with thanks
    Thursday, April 26, 2018 5:01 AM