QB64.org Forum

Active Forums => Programs => Topic started by: Malik Muneeb on June 14, 2018, 02:28:03 am

Title: Merry XMAS by Muneeb (The 10 years old programmer)
Post by: Malik Muneeb on June 14, 2018, 02:28:03 am

Code: QB64: [Select]

1. TYPE A
2.     Height AS LONG
3.     Radius AS LONG
4.     Position AS LONG
5.     Move AS LONG
6. END TYPE
7.  
8. DIM SHARED Image AS LONG
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.  
16. DIM SHARED A AS A
17. DIM SHARED B AS A
18. DIM SHARED C AS A
19. DIM SHARED D AS A
20. DIM SHARED E AS A
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.  
33. DIM SHARED x AS INTEGER
34.  
35. SCREEN _NEWIMAGE(800, 600, 32)
36. _SCREENMOVE _MIDDLE
37. RANDOMIZE TIMER
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.  
137. NEXT x
138.  
139. _SNDPLAY Music
140.  
141. DO
142.  
143.     _PUTIMAGE (0, 0), Image
144.  
145.     _PRINTMODE _KEEPBACKGROUND
146.  
147.     Aball
148.  
149. LOOP
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.  
198. END SUB
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.  
247. END SUB
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.  
295. END SUB
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.  
344. END SUB
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.  
392. END SUB
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.  
555. END SUB
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.  
594. END SUB
595.  
596.  

Title: Re: Merry XMAS by Muneeb (The 10 years old programmer)
Post by: Ashish on June 14, 2018, 04:19:48 am

Good work, kid! :D

Title: Re: Merry XMAS by Muneeb (The 10 years old programmer)
Post by: Malik Muneeb on June 14, 2018, 04:58:39 am

Thanks Ashish!!!...

Title: Re: Merry XMAS by Muneeb (The 10 years old programmer)
Post by: bplus on June 14, 2018, 09:37:07 am

Hi Malik,

Welcome to forum! You are only 10?

Really nice first post! I will play it the hottest day in August. I like the version of Jingle bells too.

The work with text letters great!

Title: Re: Merry XMAS by Muneeb (The 10 years old programmer)
Post by: Malik Muneeb 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.

Text Only | Text with Attachments