none
mahreen miangul JanUary 2017 RRS feed

  • General discussion

  • happy new year from mahreen miangul
    Cycle ID WZL194 Doggy ID NFS704 House ID KWL554 Lion ID WHX921 Sprites ID PVW118

                           with newyear greetings
                                 from mussa-maina with love

    Sunday, January 1, 2017 12:55 PM

All replies

  • mussamaina, I like your lion!  Happy New Year!

    Screen shot of a program Lion by mussamaina


    Nonki Takahashi

    Sunday, January 1, 2017 1:06 PM
    Moderator
  • thankyou for the encouroging coments can i move the lion by keyboard keys S or P

                 mahreen miangul mussa maina

    Monday, January 2, 2017 1:17 PM
  • thankyou for the encouroging coments can i move the lion by keyboard keys S or P

                 mahreen miangul mussa maina

    Following my program uses arrow keys to move shapes.

    Lunar Module (DTF312-2)


    Nonki Takahashi

    Tuesday, January 3, 2017 11:40 PM
    Moderator
  • ' mahreen miangul
    ' Animation JanUrary 2017
    GraphicsWindow.Width = 1080
    GraphicsWindow.height = 420
    GraphicsWindow.BackgroundColor = "rosybrown"

    'Data table
    draw[1] = "X=405;Y=150;W=20;H=70;color=green;tag=1"
    draw[2] = "X=425;Y=150;W=20;H=70;color=green;tag=2"
    draw[3] = "X=410;Y=110;W=30;H=70;color=green;tag=3"
    draw[4] = "X=410;Y=190;W=10;H=70;color=green;tag=eye"
    draw[5] = "X=430;Y=190;W=10;H=70;color=green;tag=mouth"
    draw[6] = "X=410;Y=190;W=30;H=25;color=green;tag=6"
    draw[7] = "X=415;Y=120;W=10;H=10;color=blue;tag=7"
    draw[8] = "X=425;Y=120;W=10;H=10;color=blue;tag=8"
    draw[9] = "X=420;Y=122;W=5;H=5;color=white;tag=eye"
    draw[10] = "X=430;Y=122;W=5;H=5;color=white;tag=eye"
    draw[11] = "X=425;Y=133;W=5;H=15;color=yellow;tag=11"
    draw[12] = "X=420;Y=151;W=15;H=5;color=orange;tag=mouth"


    'Draw outline
    For i = 1 To Array.GetItemCount(draw)
      GraphicsWindow.PenColor = draw[i]["color"]
      GraphicsWindow.DrawEllipse(draw[i]["X"], draw[i]["Y"], draw[i]["W"], draw[i]["H"])
      Program.Delay(300)
    EndFor

    'Add and Animate shapes for solid color
    GraphicsWindow.PenWidth = 0
    For i = 1 To Array.GetItemCount(draw)
      GraphicsWindow.BrushColor = draw[i]["color"]
      shp[i] = Shapes.AddEllipse(draw[i]["W"], draw[i]["H"])
      Shapes.Animate(shp[i], draw[i]["X"], draw[i]["Y"], 500)
      Program.Delay(500)
    EndFor

    'Animate shapes - eyes and mouth
    dZ = 0.1
    zoom = 1
    While 0=0
      zoom = zoom - dZ
      For i = 1 To Array.GetItemCount(draw)
        If Array.ContainsValue(draw[i] "eye") Then
          Shapes.Zoom(shp[i] 1 zoom)
        ElseIf Array.ContainsValue(draw[i] "mouth") Then
          Shapes.Zoom(shp[i] zoom zoom)
        EndIf
      EndFor
      If zoom = 0 Or zoom = 1 Then
        dZ = -dZ
      EndIf
      Program.Delay(100)
    EndWhile

    Thursday, January 5, 2017 4:03 PM
  • '  mahreen miangul
    ' Building Drawing
    ' JanUary 2017
    GraphicsWindow.Width = 1080
    GraphicsWindow.Height = 555
    GraphicsWindow.BackgroundColor = "skyblue"

    ' Building
    ' 2 ellipses
    GraphicsWindow.brushcolor = "seagreen"
    graphicsWindow.fillellipse(520,160,70,60)
    graphicsWindow.fillellipse(620,160,120,60)
    ' 4 rectangles
    GraphicsWindow.brushcolor = "yellowgreen"
    GraphicsWindow.fillrectangle(160,180,260,180)
    graphicsWindow.fillrectangle(360,70,120,290)
    graphicsWindow.fillrectangle(520,180,70,180)
    graphicsWindow.fillrectangle(620,180,120,180)
    ' 16 lines
    GraphicsWindow.pencolor = "white"
    GraphicsWindow.penwidth = 2
    graphicsWindow.drawline(620,340,740,340)'1
    graphicsWindow.drawline(620,330,740,330)'2
    graphicsWindow.drawline(620,320,740,320)'3
    graphicsWindow.drawline(620,310,740,310)'4
    graphicsWindow.drawline(370,80,410,80)'1
    graphicsWindow.drawline(370,120,410,120)'2
    graphicsWindow.drawline(370,80,370,120)'3
    graphicsWindow.drawline(410,80,410,120)'4
    graphicsWindow.drawline(390,80,390,120)'5
    graphicsWindow.drawline(370,100,410,100)'6
    graphicsWindow.drawline(430,80,430,120)'1
    graphicsWindow.drawline(450,80,450,120)'2
    graphicsWindow.drawline(430,120,470,120)'3
    graphicsWindow.drawline(430,80,470,80)'4
    graphicsWindow.drawline(470,80,470,120)'5
    graphicsWindow.drawline(430,100,470,100)'6
    graphicsWindow.drawline(350,230,350,280)' ----------1
    graphicsWindow.drawline(270,255,350,255)'-----------2
    graphicsWindow.drawline(310,230,310,280)'-----------3
    graphicsWindow.drawline(270,230,270,280)' ----------4
    graphicsWindow.drawline(270,230,350,230)'-----------5
    graphicsWindow.drawline(270,280,350,280)'-----------6
    ' 6 ellipses
    GraphicsWindow.brushcolor = "navy"
    graphicsWindow.fillellipse(540,220,40,40)
    graphicsWindow.fillellipse(680,220,40,40)
    graphicsWindow.fillellipse(820,330,40,40)
    graphicsWindow.fillellipse(850,330,40,40)
    graphicsWindow.fillellipse(880,330,40,40)
    ' 2 triangles
    GraphicsWindow.fillrectangle(200,270,40,90)
    GraphicsWindow.FillTriangle(160,180,260,120,360,180)
    GraphicsWindow.FillTriangle(360,70,420,20,480,70)

    ' Tree
    ' 3 ellipses
    GraphicsWindow.BrushColor = "darkcyan"
    GraphicsWindow.fillellipse(20,200,100,100)
    GraphicsWindow.fillellipse(50,130,100,100)
    GraphicsWindow.fillellipse(80,200,100,100)
    ' 3 lines
    GraphicsWindow.penColor = "darkslategray"
    GraphicsWindow.penwidth = 4
    GraphicsWindow.drawline(101,210,101,360)
    GraphicsWindow.drawline(101,280,70,240)
    GraphicsWindow.drawline(101,280,141,240)

    ' boader
    GraphicsWindow.PenColor = "tan"
    GraphicsWindow.PenWidth = 8
    GraphicsWindow.Drawrectangle(0,360,1080,560)
    GraphicsWindow.brushColor = "indianred"
    GraphicsWindow.fillrectangle(0,360,1080,560)
    Friday, January 13, 2017 5:28 AM
  • Building Animation ID TFX886 above is the drawing down is Animation
    Friday, January 13, 2017 5:30 AM
  • mussamaina ,   Nice building animation.

    Your coding skill is increasing.


    easy mistakes
    *shape[8][34] --> shape[1][34] ,  for i=1 To 47 -->for i=1 To 37
    Friday, January 13, 2017 8:23 AM
    Answerer
  • hello there cant understand add photo please explain in a  little detail

     thanking you

                  mahreen miangul

    Friday, January 13, 2017 3:24 PM
  • hello there cant understand add photo please explain in a  little detail

     thanking you

                  mahreen miangul

     1) run your program, push 「alt」+「prt sc」 keys ( active screen is copied in the memory)  ,

        run an image processing program and paste the image and save it.

    2)Do as below  ( click Insert Image button)

    Saturday, January 14, 2017 2:14 AM
    Answerer
  • hello there i am sorry but i am ignorent or naive but i am getting no where with image processing do i download it or make my own
               with thanks mahreen miangul

    Saturday, January 14, 2017 10:35 AM
  • You dont need download.  Your PC has 「mspaint.exe」.

    it is in this folder (C:\windows\system32)

    or  Search mspaint by Cortana.

    Saturday, January 14, 2017 11:11 AM
    Answerer
  • have found mspaint.exe and  PrtScn  now need further detail and simple step so can follow and sen image to small basic forum and you thank
                      mahreen miangul
    Saturday, January 14, 2017 5:27 PM
  • Have you created an image file (with paint or whatever program)?

    The image file is saved somewhere on you PC, usually in Pictures folder as a png, jpg, bmp or other image format.  This is the first step.

    Once you have this image file then use Nonki's instructions to upload.

    Please say whether the problem is creating the image file, saving it, or uploading a file you have.

    If the problem is creating or saving an image file, then say which version of WIndows you are using 7, 8.1 10 etc.

    Also maybe say what you want the image to be, perhaps it is copy of your GraphicsWindow or something else?

    For a GW image, steps are

    1] Start your SB program with GW

    2] Start Paint

    3] Select the GW and press [Alt]+[PrtSc] - this copies image to clipboard

    4] Select the Paint window and press [Ctrl]+V - this pastes the clipboard image into Paint

    5] Hit 'Crop' in Paint - I am using the Save As screen as my image.

    6] Hit File|Save As, then set type *.Png, give it a name and save in a location like Pictures.  This is the image I saved above (with a couple red boxes added).

    7] Follow Nonkis upload instructions

    If this isn't clear say which step isnt.


    Saturday, January 14, 2017 5:34 PM
    Moderator
  •   Make Turtle Write MIANGUL ID DHK491

                  have started understanding you but now you have to tell me where to get nonkis instructions
      hope to be excused and guided thanking you

    Saturday, January 14, 2017 5:48 PM
  • Nonkis post on this thread, about 4 before mine.

    If having problems, say which step you are at.


    EDIT sorry t was NaochanON's post not Nonki - my mistake!!
    Saturday, January 14, 2017 5:59 PM
    Moderator
  •  hello there i am getting nowhere with coping image from paint to small basic sorry

     with thanks mahreen miangul

    Sunday, January 15, 2017 3:32 PM
  • If you have the paint image somewhere on your computer:

    Click on the "insert image" button (right one in the edit window)

    Then you get the image from NaochanON with "Drop image here to upload" . Click on the name of your image and hold the left mouse button. Drag the image in  this window, and rerlease the mouse button. click "Upload"

    All this is explained in the above post of januari 14


    Jan [ WhTurner ] The Netherlands



    Sunday, January 15, 2017 6:40 PM
    Answerer
  •  hello there i am getting nowhere with coping image from paint to small basic sorry

     with thanks mahreen miangul

    Please say at which point you have a problem then we can concentrate on moving from there.

    Say which step number (I listed the steps by number 1 to 7) you got to creating the file or if it is the upload after creating the file.

    If you don't say which step didn't work or you don't understand then we have to guess!

    Sunday, January 15, 2017 6:58 PM
    Moderator
  • xin chào mussamaina Chúc mừng năm mớ

    Sunday, January 15, 2017 7:08 PM
  •  hello i am getting PNG and JPG formates which fromate should i use and where should i drop the image to upload
    Monday, January 16, 2017 5:31 AM
  •  i have got image from small basic window now to upload it to the internet and small basic forum

                       need the help mahreen miangul

    Monday, January 16, 2017 9:42 AM
  • Give us a list of the things you do to upload the image. Which step goes wrong?

    Jan [ WhTurner ] The Netherlands

    Monday, January 16, 2017 10:34 AM
    Answerer
  •  when i click on submit i get message boarder should be 40 to 60000 characters

    Monday, January 16, 2017 11:50 AM
  • Monday, January 16, 2017 12:06 PM
  • Test to upload part of one of your images:

    I clocked on "Upload", selected the image from disk, then on insert. Will now click on "Submit" to see what happens....

    EDIT:  works like it should!!


    Jan [ WhTurner ] The Netherlands


    Monday, January 16, 2017 12:31 PM
    Answerer
  •  when i click on submit i get message boarder should be 40 to 60000 characters

    I uploaded "How to upload image" in this video.

    https://drive.google.com/file/d/0B8mzGh2PVjd-ZzktN0xTQ2lydTQ/view?usp=sharing

    1)run small basic program 2) copy its image (alt key + prt sc key) 3) run mspaint.exe 4)paste its image

    5) save its image  named "Testlion.PNG" 6)view small basic forum this thread 7)click "Reply" 8)click "insert image" button

    9) click "Upload" button 10) select the folder where "Testlion.PNG" is saved 11) click "Testlion.PNG" and click "Open"

    12)then click "Insert" button 13)finally  click "Submit" button

       

    2) and 11) are not visible. (out of screen)



    Monday, January 16, 2017 2:32 PM
    Answerer
  • Tuesday, January 17, 2017 11:40 AM
  • hello i think i have posted an image to you it is not perfect but good i hop you to edit it further my next lesson from the small basic forum should be litedev extensions i had zero knowledge of image posting wich i learnd from you in about two days the same is that i am zero in ld extentions and hope to learn it in two three days under your and the forum gurus thanking you and all small basic forum members

                               From mussa-maina with LOVE                                                        mahreen miangul

    Tuesday, January 17, 2017 11:54 AM
  • hello there i hope everybody are not too busy with thaks
    Thursday, January 19, 2017 4:21 AM
  • ' mahreen miangul
    ' face Animation
    ' JanUray 2017
    GraphicsWindow.Width = 1080
    GraphicsWindow.height = 420
    GraphicsWindow.backgroundcolor = "Gainsboro"

    GraphicsWindow.PenColor = "darkslategray"
    GraphicsWindow.PenWidth = 2
    GraphicsWindow.DrawEllipse(200,150,100,100)  ' ellipse 1
    GraphicsWindow.drawtriangle(240,225,250,210,255,225)  ' nose

    GraphicsWindow.brushColor = "darkslategray"
    GraphicsWindow.fillEllipse(220,180,10,10)  ' eye R
    GraphicsWindow.fillEllipse(265,175,10,10)  ' eye L

    GraphicsWindow.brushColor = "yellow"
    GraphicsWindow.filltriangle(240,225,250,210,255,225)  ' nose

    GraphicsWindow.penColor = "firebrick"
    GraphicsWindow.drawline(235,240,270,235)  ' mouth

                                     Animation FaceList ID WJP701

    Friday, January 20, 2017 3:46 PM
  • Bob Animated Ball ID ZLJ620
                            Multiple Color Animated Ball

    ' mahreen miangul
    ' JanUary 2017
    For i = 1 To 100
    GraphicsWindow.BrushColor = graphicswindow.getrandomcolor()
      balls[i] = Shapes.AddEllipse(10, 10)
    EndFor
    While "True"
      For i = 1 To 100
        ball = balls[i]
        x = Math.GetRandomNumber(640)
        y = Math.GetRandomNumber(480)
        Shapes.Animate(ball, x, y, 2000)
      EndFor
      Program.Delay(1900)
    EndWhile

    Friday, January 27, 2017 11:16 AM