Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Malik Muneeb

Pages: [1]
1
Programs / Re: Merry XMAS by Muneeb (The 10 years old programmer)
« on: June 14, 2018, 08:39:03 pm »
Hi BPlus!!!...
Thanks that you welcomed me!Yeah,I am only 10.
And so much Thanks that you liked and replied to my first post.

2
Programs / Re: Merry XMAS by Muneeb (The 10 years old programmer)
« on: June 14, 2018, 04:58:39 am »
Thanks Ashish!!!...

3
Programs / Merry XMAS by Muneeb (The 10 years old programmer)
« on: June 14, 2018, 02:28:03 am »
Code: QB64: [Select]
  2.     Height AS LONG
  3.     Radius AS LONG
  4.     Position AS LONG
  5.     Move AS LONG
  7.  
  9.  
  10. DIM Music AS LONG
  11.  
  12. DIM SHARED Rootpath AS STRING
  13. DIM SHARED Fontpath(2) AS STRING
  14. DIM SHARED Font(2) AS LONG
  15.  
  21.  
  22. DIM SHARED Starx(10) AS LONG
  23. DIM SHARED Stary(10) AS LONG
  24. DIM SHARED Starfillx AS LONG
  25. DIM SHARED Starfilly AS LONG
  26. DIM SHARED Starmove AS LONG
  27.  
  28. DIM SHARED Snowx(13) AS LONG
  29. DIM SHARED Snowy(13) AS LONG
  30. DIM SHARED RNDNum(13) AS INTEGER
  31. DIM SHARED SnowMove AS INTEGER
  32.  
  34.  
  35. SCREEN _NEWIMAGE(800, 600, 32)
  38.  
  39. _TITLE "Merry XMAS"
  40.  
  41. Image = _LOADIMAGE("Attatchment/Santa Claus.jpg")
  42. Music = _SNDOPEN("Attatchment/Jingle Bells.wav", "sync,vol")
  43.  
  44. A.Height = 7
  45. A.Radius = 7
  46. A.Position = 1
  47. A.Move = 1
  48.  
  49. B.Height = 7
  50. B.Radius = 7
  51. B.Position = 1
  52. B.Move = 1
  53.  
  54. C.Height = 7
  55. C.Radius = 7
  56. C.Position = 1
  57. C.Move = 1
  58.  
  59. D.Height = 7
  60. D.Radius = 7
  61. D.Position = 1
  62. D.Move = 1
  63.  
  64. E.Height = 7
  65. E.Radius = 7
  66. E.Position = 1
  67. E.Move = 1
  68.  
  69. Rootpath = ENVIRON$("SYSTEMROOT")
  70. Fontpath(1) = Rootpath + "\Fonts\ARIALBD.ttf"
  71. Font(1) = _LOADFONT(Fontpath(1), 100)
  72.  
  73. Fontpath(2) = Rootpath + "\Fonts\SEGOESCB.ttf"
  74.  
  75. Font(2) = _LOADFONT(Fontpath(2), 72)
  76.  
  77. Starx(1) = -36
  78. Starx(2) = -27
  79. Starx(3) = 0
  80. Starx(4) = -18
  81. Starx(5) = -9
  82. Starx(6) = -36
  83. Starx(7) = -63
  84. Starx(8) = -54
  85. Starx(9) = -72
  86. Starx(10) = -45
  87.  
  88. Stary(1) = 200
  89. Stary(2) = 227
  90. Stary(3) = 227
  91. Stary(4) = 245
  92. Stary(5) = 272
  93. Stary(6) = 254
  94. Stary(7) = 272
  95. Stary(8) = 245
  96. Stary(9) = 227
  97. Stary(10) = 227
  98.  
  99. Starfillx = -36
  100. Starfilly = 236
  101. Starmove = 1
  102.  
  103. Snowx(1) = 40
  104. Snowx(2) = 100
  105. Snowx(3) = 160
  106. Snowx(4) = 220
  107. Snowx(5) = 280
  108. Snowx(6) = 340
  109. Snowx(7) = 400
  110. Snowx(8) = 460
  111. Snowx(9) = 520
  112. Snowx(10) = 580
  113. Snowx(11) = 640
  114. Snowx(12) = 700
  115. Snowx(13) = 760
  116.  
  117. Snowy(1) = -200
  118. Snowy(2) = -60
  119. Snowy(3) = -210
  120. Snowy(4) = -50
  121. Snowy(5) = -220
  122. Snowy(6) = -40
  123. Snowy(7) = -230
  124. Snowy(8) = -30
  125. Snowy(9) = -240
  126. Snowy(10) = -20
  127. Snowy(11) = -250
  128. Snowy(12) = -10
  129. Snowy(13) = -260
  130.  
  131. SnowMove = 2
  132.  
  133. FOR x = 1 TO 13
  134.  
  135.     RNDNum(x) = (RND * 2) + 6
  136.  
  138.  
  139. _SNDPLAY Music
  140.  
  142.  
  143.     _PUTIMAGE (0, 0), Image
  144.  
  146.  
  147.     Aball
  148.  
  150.  
  151. SUB Aball
  152.  
  153.     _LIMIT 40
  154.  
  155.     PCOPY _DISPLAY, 1
  156.  
  157.     CIRCLE (133.3, A.Height), A.Radius, _RGB(255, 255, 255)
  158.     PAINT (133.3, A.Height), _RGB(255, 255, 255)
  159.  
  160.     _DISPLAY
  161.     PCOPY 1, _DISPLAY
  162.  
  163.     IF A.Move = 1 THEN
  164.  
  165.         A.Height = A.Height + 3
  166.  
  167.     ELSE IF A.Move = 2 THEN
  168.  
  169.             A.Position = 2
  170.             A.Height = A.Height - 3
  171.  
  172.         END IF
  173.  
  174.     END IF
  175.  
  176.     IF A.Height >= 201 THEN
  177.  
  178.         A.Radius = A.Radius + 9
  179.         A.Move = 2
  180.  
  181.     ELSE IF A.Height <= 151 AND A.Position = 2 THEN
  182.  
  183.             DO
  184.                 A.Move = 0
  185.  
  186.                 _FONT Font(1)
  187.                 LOCATE 2, 98.3
  188.                 PRINT "M"
  189.  
  190.                 Bball
  191.  
  192.             LOOP
  193.  
  194.         END IF
  195.  
  196.     END IF
  197.  
  199.  
  200. SUB Bball
  201.  
  202.     _LIMIT 40
  203.  
  204.     PCOPY _DISPLAY, 1
  205.  
  206.     CIRCLE (266.6, B.Height), B.Radius, _RGB(255, 255, 255)
  207.     PAINT (266.6, B.Height), _RGB(255, 255, 255)
  208.  
  209.     _DISPLAY
  210.     PCOPY 1, _DISPLAY
  211.  
  212.     IF B.Move = 1 THEN
  213.  
  214.         B.Height = B.Height + 3
  215.  
  216.     ELSE IF B.Move = 2 THEN
  217.  
  218.             B.Position = 2
  219.             B.Height = B.Height - 3
  220.  
  221.         END IF
  222.  
  223.     END IF
  224.  
  225.     IF B.Height >= 201 THEN
  226.  
  227.         B.Radius = B.Radius + 9
  228.         B.Move = 2
  229.  
  230.     ELSE IF B.Height <= 151 AND B.Position = 2 THEN
  231.  
  232.             DO
  233.  
  234.  
  235.                 _FONT Font(1)
  236.                 LOCATE 2, 231.6
  237.                 PRINT "E"
  238.  
  239.                 Cball
  240.  
  241.             LOOP
  242.  
  243.         END IF
  244.  
  245.     END IF
  246.  
  248.  
  249. SUB Cball
  250.  
  251.     _LIMIT 40
  252.  
  253.     PCOPY _DISPLAY, 1
  254.  
  255.     CIRCLE (400, C.Height), C.Radius, _RGB(255, 255, 255)
  256.     PAINT (400, C.Height), _RGB(255, 255, 255)
  257.  
  258.     _DISPLAY
  259.     PCOPY 1, _DISPLAY
  260.  
  261.     IF C.Move = 1 THEN
  262.  
  263.         C.Height = C.Height + 3
  264.  
  265.     ELSE IF C.Move = 2 THEN
  266.  
  267.             C.Position = 2
  268.             C.Height = C.Height - 3
  269.  
  270.         END IF
  271.  
  272.     END IF
  273.  
  274.     IF C.Height >= 201 THEN
  275.  
  276.         C.Radius = C.Radius + 9
  277.         C.Move = 2
  278.  
  279.     ELSE IF C.Height <= 151 AND C.Position = 2 THEN
  280.  
  281.             DO
  282.  
  283.                 _FONT Font(1)
  284.                 LOCATE 2, 365
  285.                 PRINT "R"
  286.  
  287.                 Dball
  288.  
  289.             LOOP
  290.  
  291.         END IF
  292.  
  293.     END IF
  294.  
  296.  
  297. SUB Dball
  298.  
  299.     _LIMIT 40
  300.  
  301.     PCOPY _DISPLAY, 1
  302.  
  303.     CIRCLE (533.3, D.Height), D.Radius, _RGB(255, 255, 255)
  304.     PAINT (533.3, D.Height), _RGB(255, 255, 255)
  305.  
  306.     _DISPLAY
  307.     PCOPY 1, _DISPLAY
  308.  
  309.     IF D.Move = 1 THEN
  310.  
  311.         D.Height = D.Height + 3
  312.  
  313.     ELSE IF D.Move = 2 THEN
  314.  
  315.             D.Position = 2
  316.             D.Height = D.Height - 3
  317.  
  318.         END IF
  319.  
  320.     END IF
  321.  
  322.     IF D.Height >= 201 THEN
  323.  
  324.         D.Radius = D.Radius + 9
  325.         D.Move = 2
  326.  
  327.     ELSE IF D.Height <= 151 AND D.Position = 2 THEN
  328.  
  329.             DO
  330.  
  331.  
  332.                 _FONT Font(1)
  333.                 LOCATE 2, 498.3
  334.                 PRINT "R"
  335.  
  336.                 Eball
  337.  
  338.             LOOP
  339.  
  340.         END IF
  341.  
  342.     END IF
  343.  
  345.  
  346. SUB Eball
  347.  
  348.     _LIMIT 40
  349.  
  350.     PCOPY _DISPLAY, 1
  351.  
  352.     CIRCLE (666.6, E.Height), E.Radius, _RGB(255, 255, 255)
  353.     PAINT (666.6, E.Height), _RGB(255, 255, 255)
  354.  
  355.     _DISPLAY
  356.     PCOPY 1, _DISPLAY
  357.  
  358.     IF E.Move = 1 THEN
  359.  
  360.         E.Height = E.Height + 3
  361.  
  362.     ELSE IF E.Move = 2 THEN
  363.  
  364.             E.Position = 2
  365.             E.Height = E.Height - 3
  366.  
  367.         END IF
  368.  
  369.     END IF
  370.  
  371.     IF E.Height >= 201 THEN
  372.  
  373.         E.Radius = E.Radius + 9
  374.         E.Move = 2
  375.  
  376.     ELSE IF E.Height <= 151 AND E.Position = 2 THEN
  377.  
  378.             _FONT Font(1)
  379.             LOCATE 2, 631.6
  380.             PRINT "Y"
  381.  
  382.             DO
  383.  
  384.                 Star
  385.  
  386.             LOOP
  387.  
  388.         END IF
  389.  
  390.     END IF
  391.  
  393.  
  394. SUB Star
  395.  
  396.     _LIMIT 30
  397.  
  398.     PCOPY _DISPLAY, 1
  399.  
  400.     PSET (Starx(1), Stary(1)), _RGB(254, 254, 254)
  401.     LINE -(Starx(1), Stary(1)), _RGB(254, 254, 254)
  402.     LINE -(Starx(2), Stary(2)), _RGB(254, 254, 254)
  403.     LINE -(Starx(3), Stary(3)), _RGB(254, 254, 254)
  404.     LINE -(Starx(4), Stary(4)), _RGB(254, 254, 254)
  405.     LINE -(Starx(5), Stary(5)), _RGB(254, 254, 254)
  406.     LINE -(Starx(6), Stary(6)), _RGB(254, 254, 254)
  407.     LINE -(Starx(7), Stary(7)), _RGB(254, 254, 254)
  408.     LINE -(Starx(8), Stary(8)), _RGB(254, 254, 254)
  409.     LINE -(Starx(9), Stary(9)), _RGB(254, 254, 254)
  410.     LINE -(Starx(10), Stary(10)), _RGB(254, 254, 254)
  411.     LINE -(Starx(1), Stary(1)), _RGB(254, 254, 254)
  412.  
  413.     IF Starx(10) >= 0 THEN
  414.  
  415.         PAINT (Starfillx, Starfilly), _RGB(254, 254, 254)
  416.  
  417.     END IF
  418.  
  419.     _DISPLAY
  420.     PCOPY 1, _DISPLAY
  421.  
  422.     IF Starmove = 1 THEN
  423.  
  424.         FOR x = 1 TO 10
  425.  
  426.             Starx(x) = Starx(x) + 4
  427.             Stary(x) = Stary(x) + 1
  428.  
  429.         NEXT x
  430.  
  431.         Starfillx = Starfillx + 4
  432.         Starfilly = Starfilly + 1
  433.  
  434.     END IF
  435.  
  436.     IF Starmove = 2 THEN
  437.  
  438.         FOR x = 1 TO 10
  439.             Starx(x) = Starx(x) + 4
  440.             Stary(x) = Stary(x)
  441.  
  442.         NEXT x
  443.  
  444.         Starfillx = Starfillx + 4
  445.         Starfilly = Starfilly
  446.  
  447.     END IF
  448.  
  449.     IF Starmove = 3 THEN
  450.  
  451.         FOR x = 1 TO 10
  452.  
  453.             Starx(x) = Starx(x) + 4
  454.             Stary(x) = Stary(x) - 1
  455.  
  456.         NEXT x
  457.  
  458.         Starfillx = Starfillx + 4
  459.         Starfilly = Starfilly - 1
  460.  
  461.     END IF
  462.  
  463.     IF Starmove = 4 THEN
  464.  
  465.         DO
  466.  
  467.             _LIMIT 300
  468.  
  469.             _PUTIMAGE (0, 0), Image
  470.  
  471.             COLOR _RGB(255, 255, 255)
  472.             _FONT Font(1)
  473.             LOCATE 2, 98.3
  474.             PRINT "M"
  475.             LOCATE 2, 231.6
  476.             PRINT "E"
  477.             LOCATE 2, 365
  478.             PRINT "R"
  479.             LOCATE 2, 498.3
  480.             PRINT "R"
  481.             LOCATE 2, 631.6
  482.             PRINT "Y"
  483.             _FONT Font(2)
  484.             LOCATE 5, 256
  485.             PRINT "X"
  486.             LOCATE 5, 328
  487.             PRINT "M"
  488.             LOCATE 5, 400
  489.             PRINT "A"
  490.             LOCATE 5, 472
  491.             PRINT "S"
  492.  
  493.             Balls
  494.  
  495.             _DISPLAY
  496.  
  497.         LOOP
  498.  
  499.     END IF
  500.  
  501.     IF Stary(5) >= 360 THEN
  502.  
  503.         Starmove = 2
  504.  
  505.     END IF
  506.  
  507.     IF Starx(3) >= 544 THEN
  508.  
  509.         Starmove = 3
  510.  
  511.     END IF
  512.  
  513.     IF Starx(9) >= 800 THEN
  514.  
  515.         Starmove = 4
  516.  
  517.     END IF
  518.  
  519.     IF Starx(9) >= 256 THEN
  520.  
  521.         _FONT Font(2)
  522.         COLOR _RGB(255, 255, 255)
  523.         LOCATE 5, 256
  524.         PRINT "X"
  525.  
  526.     END IF
  527.  
  528.     IF Starx(9) >= 328 THEN
  529.  
  530.         _FONT Font(2)
  531.         COLOR _RGB(255, 255, 255)
  532.         LOCATE 5, 328
  533.         PRINT "M"
  534.  
  535.     END IF
  536.  
  537.     IF Starx(9) >= 400 THEN
  538.  
  539.         _FONT Font(2)
  540.         COLOR _RGB(255, 255, 255)
  541.         LOCATE 5, 400
  542.         PRINT "A"
  543.  
  544.     END IF
  545.  
  546.     IF Starx(9) >= 472 THEN
  547.  
  548.         _FONT Font(2)
  549.         COLOR _RGB(255, 255, 255)
  550.         LOCATE 5, 472
  551.         PRINT "S"
  552.  
  553.     END IF
  554.  
  556.  
  557. SUB Balls
  558.  
  559.     FOR x = 1 TO 13
  560.  
  561.         CIRCLE (Snowx(x), Snowy(x)), RNDNum(x), _RGB(253, 253, 253)
  562.         PAINT (Snowx(x), Snowy(x)), _RGB(253, 253, 253)
  563.  
  564.         SELECT CASE Snowx(2)
  565.  
  566.             CASE IS >= 140
  567.  
  568.                 SnowMove = 1
  569.  
  570.             CASE IS <= 60
  571.  
  572.                 SnowMove = 2
  573.  
  574.         END SELECT
  575.  
  576.         SELECT CASE SnowMove
  577.  
  578.             CASE 1
  579.  
  580.                 Snowx(x) = Snowx(x) - 2
  581.  
  582.             CASE 2
  583.  
  584.                 Snowx(x) = Snowx(x) + 2
  585.  
  586.         END SELECT
  587.  
  588.         Snowy(x) = Snowy(x) + INT(RND * 14) + 1
  589.  
  590.         IF Snowy(x) >= 600 THEN Snowy(x) = 0
  591.  
  592.     NEXT x
  593.  
  595.  
  596.  

Pages: [1]