locked
mahreen miangul MaY 2018 RRS feed

  • General discussion

  •    CPW302  blink the eyes of this face by extending the code only dont change the program

                                                                                                                                                  mahreen miangul

    • Changed type litdev Thursday, May 3, 2018 2:35 PM Monthly Challenge
    Wednesday, May 2, 2018 1:13 PM

All replies

  • Hi mahreen,

    Is this a question or a suggestion for a challenge?

    Since it is a Challenge I changed type to discussion and added a link in main Challenges thread - Thanks

    • Edited by litdev Thursday, May 3, 2018 2:35 PM
    Wednesday, May 2, 2018 6:31 PM
  • it is all suggestion for MaY 2018 Challenge                                                    with love

                                                                         mahreen miangul

    Thursday, May 3, 2018 6:54 AM
  • GraphicsWindow.Width=1000
    GraphicsWindow.Height=600
    GraphicsWindow.BackgroundColor="rosybrown

    GraphicsWindow.PenColor = "black
    GraphicsWindow.BrushColor = "AliceBlue
    GraphicsWindow.Penwidth = 22
    GraphicsWindow.drawellipse(800, 60, 150, 150)
    GraphicsWindow.fillellipse(800, 60, 150, 150)
    GraphicsWindow.BrushColor = "LightSteelBlue
    GraphicsWindow.fillellipse(800, 60, 150, 140)
    GraphicsWindow.Penwidth = 8
    GraphicsWindow.BrushColor = "snow
    GraphicsWindow.drawellipse(820, 90, 30, 30)
    GraphicsWindow.fillellipse(822, 92, 25, 25)
    GraphicsWindow.drawellipse(900, 90, 30, 30)
    GraphicsWindow.fillellipse(902, 92, 25, 25)
    GraphicsWindow.BrushColor = "black
    GraphicsWindow.fillellipse(827, 103, 15, 15)
    GraphicsWindow.fillellipse(907, 103, 15, 15)
    GraphicsWindow.fillellipse(870, 120, 25, 25)

    GraphicsWindow.BrushColor = "greenyellow
    GraphicsWindow.FontSize = 88
    haroon1 = shapes.addtext("🚀")
    Shapes.move(haroon1, 150, 420)
    Program.Delay(1000)
    Shapes.animate(haroon1,850, 0, 2000)
    For i = 0 To 5
    Shapes.Rotate(haroon1, 30 * -i)  
    Program.Delay(1000)
    EndFor
    'Shapes.SetOpacity(haroon1, 50)
    'Shapes.Zoom(haroon1, 5, 3)

    please bring back the rocket with thanks                                                            mahreen miangul

    Thursday, May 3, 2018 3:53 PM
  • two programs are posted above the first one CPW302 is of a face i want you to help me blink the eyes of the face i can blink the eyes but the problem is that i wont to do it with the same code only extend the code for blinking eyes the second one is of a rocket which goes to the moon and also rotates on the moon but cant bring it back will you help me bring it back with thanks need help with both the programs if you can                       mahreen miangul
    Friday, May 4, 2018 1:59 PM
  • To bring the rocket back, add at the end of the program:

    Shapes.Animate(haroon1,0,500,2000)


    Jan [ WhTurner ] The Netherlands

    Friday, May 4, 2018 2:42 PM
    Answerer
  • Thank you for bringing back the rocket now for the blinking eyes in CPW302                  mahreen miangul
    Saturday, May 5, 2018 4:22 PM
  • ... blinking eyes in CPW302

    ID: CPW302-0   (on <-> off by MouseClick)

    Sunday, May 6, 2018 11:45 AM
    Answerer
  • thank you for CPW302-0                           mahreen miangul
    Monday, May 7, 2018 1:11 PM
  • ' Curve in 10 Lines
    ' mahreen miangul 5th May 2018

    GraphicsWindow.Top = 80
    GraphicsWindow.BackgroundColor="olivedrab

    GraphicsWindow.PenColor = "yellow"
    GraphicsWindow.PenWidth = 8
    GraphicsWindow.drawellipse(250, 50, 200, 150)
    GraphicsWindow.BrushColor="olivedrab
    GraphicsWindow.PenColor = "olivedrab
    rectangle = Shapes.AddRectangle(270, 100)
    Shapes.Move(Rectangle, 240, 40)
    Shapes.Rotate(rectangle, 0)
    Thursday, May 10, 2018 7:21 AM
  • Bouncing Sprites Shapes ID XQB207 why are the four red black ball not bouncing like the other footballs gray black please will you help                                                                                                  mahreen miangul
    Friday, May 11, 2018 1:07 PM
  • how about his?

    XQB207-0

    Tuesday, May 15, 2018 3:56 AM
    Answerer
  • a good solution thankyou and good luck                                                  mahreen miangul
    Wednesday, May 23, 2018 1:23 PM
  • JLF246andDFN465 in the second program DFN465 i want to add text to sub mm0_int but the result is funny please help is needed with thanks                                                   mahreen miangul
    Friday, May 25, 2018 4:26 AM
  • DFN465 -0

    see '<--- marked points.  

    line 131  

      mm0[5] = "func=text;text=I AM YOUR FATHER;fs=25;pw=0;bc=#FFFFFF;"  '<----

    line 103-105

    ElseIf shape[i]["func"]="text" Then '<----
            GraphicsWindow.FontSize=shape[i]["fs"] '<----
            shp[SName][i] = Shapes.Addtext(shape[i]["text"]) '<----

    line 62   Shapes.Move(shp[SName][5],spriteData2["Xpos"]-spriteWidth2,spriteData2["Ypos"]-spriteHeight2*2)  '<------

    *Note:spriteData2["Xpos"]-spriteWidth2=Shapes.GetLeft(shp[SName][1])

              spriteData2["Ypos"]-spriteHeight2*2=Shapes.Getop(shp[SName][1])-spriteHeight2

    Friday, May 25, 2018 5:01 AM
    Answerer
  • best editing was trying for days in vain with thanks for a very quiick reply may god bless you 
      1 JLF246 2 DFN465 3 DFN465-0                                                              mahreen miangul
    Friday, May 25, 2018 6:39 AM
  • GraphicsWindow.Width = 1080
    GraphicsWindow.height = 600
    GraphicsWindow.backgroundcolor = "navy

    GraphicsWindow.penColor = "yellow
    For i=4000 To 5800
      x = 50*Math.sin(Math.GetRadians(i/10.0)) +900
      y = 50*Math.cos(Math.GetRadians(i/10.0)) +100
       GraphicsWindow.DrawEllipse(x,y,5,2)
    endfor                                                                                  mahreen miangul
    Tuesday, May 29, 2018 3:09 PM