QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 19, 2019, 03:48:47 pm

Title: Jingle Bells with option of PLAY notes or SOUND double ringing tones.
Post by: SierraKen on December 19, 2019, 03:48:47 pm

Hear Jingle Bells either by the PLAY command notes or the SOUND command in double ringing tones.

Code: QB64: [Select]

1. _TITLE "Jingle Bells - by Ken G."
2. SCREEN _NEWIMAGE(400, 200, 32)
3. COLOR _RGB32(127, 249, 127)
4. start:
5. _LIMIT 50
6. CLS
7. PRINT "                Jingle Bells"
8. PRINT:
9. PRINT "                 by Ken G."
10. PRINT
11. PRINT "            (1) By Beep Notes"
12. PRINT "            (2) By Double Tone Sounds"
13. PRINT "            (3) Quit"
14. PRINT
15. PRINT "--------------------------------------------------"
16. PRINT "           Choose a Number (1-3)";
17. choose:
18. n$ = INKEY$
19. IF n$ = "1" THEN GOTO beepsounds:
20. IF n$ = "2" THEN GOTO phonesounds:
21. IF n$ = "3" THEN END
22. GOTO choose:
23.  
24. beepsounds:
25. _LIMIT 50
26. CLS
27. _PRINTSTRING (100, 100), "Jingle bells, jingle bells"
28. PLAY "v10 O3 E E E P8 E E E P4"
29. CLS
30. _PRINTSTRING (100, 100), "Jingle all the way"
31. PLAY "V10 O3 E G C P12 D E P4"
32. CLS
33. _PRINTSTRING (100, 100), "Oh, what fun it is to ride"
34. PLAY "v10 O3 F F F P8 F F E E"
35. CLS
36. _PRINTSTRING (100, 100), "In a one-horse open sleigh, Oh!"
37. PLAY "v10 O3 L8 E L8 E L4 E D D E D P4 G"
38. CLS
39. _PRINTSTRING (100, 100), "Jingle bells, jingle bells"
40. PLAY "v10 O3 E E E P8 E E E"
41. CLS
42. _PRINTSTRING (100, 100), "Jingle all the way"
43. PLAY "v10 O3 E G C D E"
44. CLS
45. _PRINTSTRING (100, 100), "Oh, what fun it is to ride"
46. PLAY "v10 O3 P2 F F F F F E E"
47. CLS
48. _PRINTSTRING (100, 100), "In a one-horse open sleigh"
49. PLAY "v10 O3 L8 E L8 E L4 G G F D C"
50. GOTO start:
51.  
52. phonesounds:
53. _LIMIT 10
54. CLS
55. _PRINTSTRING (100, 100), "Jingle bells, jingle bells"
56. FOR e = 1 TO 14
57.     SOUND 659.26, .25
58.     SOUND 500, .25
59. NEXT e
60. _DELAY .5
61. FOR e = 1 TO 14
62.     SOUND 659.26, .25
63.     SOUND 500, .25
64. NEXT e
65. _DELAY .5
66. FOR e = 1 TO 14
67.     SOUND 659.26, .25
68.     SOUND 500, .25
69. NEXT e
70. _DELAY 1
71. FOR e = 1 TO 14
72.     SOUND 659.26, .25
73.     SOUND 500, .25
74. NEXT e
75. _DELAY .5
76. FOR e = 1 TO 14
77.     SOUND 659.26, .25
78.     SOUND 500, .25
79. NEXT e
80. _DELAY .5
81. FOR e = 1 TO 14
82.     SOUND 659.26, .25
83.     SOUND 500, .25
84. NEXT e
85. _DELAY .5
86. CLS
87. _PRINTSTRING (100, 100), "Jingle all the way"
88. FOR e = 1 TO 14
89.     SOUND 659.26, .25
90.     SOUND 500, .25
91. NEXT e
92. _DELAY .5
93. FOR g = 1 TO 14
94.     SOUND 783.99, .25
95.     SOUND 500, .25
96. NEXT g
97. _DELAY .5
98. FOR c = 1 TO 14
99.     SOUND 523.25, .25
100.     SOUND 500, .25
101. NEXT c
102. _DELAY .75
103. FOR d = 1 TO 14
104.     SOUND 587.33, .25
105.     SOUND 500, .25
106. NEXT d
107. _DELAY .5
108. FOR e = 1 TO 14
109.     SOUND 659.26, .25
110.     SOUND 500, .25
111. NEXT e
112. _DELAY .5
113. CLS
114. _PRINTSTRING (100, 100), "Oh, what fun it is to ride"
115. FOR f = 1 TO 14
116.     SOUND 698.46, .25
117.     SOUND 500, .25
118. NEXT f
119. _DELAY .5
120. FOR f = 1 TO 14
121.     SOUND 698.46, .25
122.     SOUND 500, .25
123. NEXT f
124. _DELAY .5
125. FOR f = 1 TO 14
126.     SOUND 698.46, .25
127.     SOUND 500, .25
128. NEXT f
129. _DELAY 1
130. FOR f = 1 TO 14
131.     SOUND 698.46, .25
132.     SOUND 500, .25
133. NEXT f
134. _DELAY .5
135. FOR f = 1 TO 14
136.     SOUND 698.46, .25
137.     SOUND 500, .25
138. NEXT f
139. _DELAY .5
140. FOR e = 1 TO 14
141.     SOUND 659.26, .25
142.     SOUND 500, .25
143. NEXT e
144. _DELAY .5
145. FOR e = 1 TO 14
146.     SOUND 659.26, .25
147.     SOUND 500, .25
148. NEXT e
149. _DELAY .5
150. CLS
151. _PRINTSTRING (100, 100), "In a one-horse open sleigh, Oh!"
152. FOR e = 1 TO 7
153.     SOUND 659.26, .25
154.     SOUND 500, .25
155. NEXT e
156. _DELAY .25
157. FOR e = 1 TO 7
158.     SOUND 659.26, .25
159.     SOUND 500, .25
160. NEXT e
161. _DELAY .5
162. FOR e = 1 TO 14
163.     SOUND 659.26, .25
164.     SOUND 500, .25
165. NEXT e
166. _DELAY .5
167. FOR d = 1 TO 14
168.     SOUND 587.33, .25
169.     SOUND 500, .25
170. NEXT d
171. _DELAY .5
172. FOR d = 1 TO 14
173.     SOUND 587.33, .25
174.     SOUND 500, .25
175. NEXT d
176. _DELAY .5
177. FOR e = 1 TO 14
178.     SOUND 659.26, .25
179.     SOUND 500, .25
180. NEXT e
181. _DELAY .5
182. FOR d = 1 TO 14
183.     SOUND 587.33, .25
184.     SOUND 500, .25
185. NEXT d
186. _DELAY 1
187. FOR g = 1 TO 14
188.     SOUND 783.99, .25
189.     SOUND 500, .25
190. NEXT g
191. _DELAY .5
192. CLS
193. _PRINTSTRING (100, 100), "Jingle bells, jingle bells"
194. FOR e = 1 TO 14
195.     SOUND 659.26, .25
196.     SOUND 500, .25
197. NEXT e
198. _DELAY .5
199. FOR e = 1 TO 14
200.     SOUND 659.26, .25
201.     SOUND 500, .25
202. NEXT e
203. _DELAY .5
204. FOR e = 1 TO 14
205.     SOUND 659.26, .25
206.     SOUND 500, .25
207. NEXT e
208. _DELAY 1
209. FOR e = 1 TO 14
210.     SOUND 659.26, .25
211.     SOUND 500, .25
212. NEXT e
213. _DELAY .5
214. FOR e = 1 TO 14
215.     SOUND 659.26, .25
216.     SOUND 500, .25
217. NEXT e
218. _DELAY .5
219. FOR e = 1 TO 14
220.     SOUND 659.26, .25
221.     SOUND 500, .25
222. NEXT e
223. _DELAY .5
224. CLS
225. _PRINTSTRING (100, 100), "Jingle all the way"
226. FOR e = 1 TO 14
227.     SOUND 659.26, .25
228.     SOUND 500, .25
229. NEXT e
230. _DELAY .5
231. FOR g = 1 TO 14
232.     SOUND 783.99, .25
233.     SOUND 500, .25
234. NEXT g
235. _DELAY .5
236. FOR c = 1 TO 14
237.     SOUND 523.25, .25
238.     SOUND 500, .25
239. NEXT c
240. _DELAY .5
241. FOR d = 1 TO 14
242.     SOUND 587.33, .25
243.     SOUND 500, .25
244. NEXT d
245. _DELAY .5
246. FOR e = 1 TO 14
247.     SOUND 659.26, .25
248.     SOUND 500, .25
249. NEXT e
250. _DELAY 1.5
251. CLS
252. _PRINTSTRING (100, 100), "Oh, what fun it is to ride"
253. FOR f = 1 TO 14
254.     SOUND 698.46, .25
255.     SOUND 500, .25
256. NEXT f
257. _DELAY .5
258. FOR f = 1 TO 14
259.     SOUND 698.46, .25
260.     SOUND 500, .25
261. NEXT f
262. _DELAY .5
263. FOR f = 1 TO 14
264.     SOUND 698.46, .25
265.     SOUND 500, .25
266. NEXT f
267. _DELAY .5
268. FOR f = 1 TO 14
269.     SOUND 698.46, .25
270.     SOUND 500, .25
271. NEXT f
272. _DELAY .5
273. FOR f = 1 TO 14
274.     SOUND 698.46, .25
275.     SOUND 500, .25
276. NEXT f
277. _DELAY .5
278. FOR e = 1 TO 14
279.     SOUND 659.26, .25
280.     SOUND 500, .25
281. NEXT e
282. _DELAY .5
283. FOR e = 1 TO 14
284.     SOUND 659.26, .25
285.     SOUND 500, .25
286. NEXT e
287. _DELAY .5
288. CLS
289. _PRINTSTRING (100, 100), "In a one-horse open sleigh"
290. FOR e = 1 TO 7
291.     SOUND 659.26, .25
292.     SOUND 500, .25
293. NEXT e
294. _DELAY .25
295. FOR e = 1 TO 7
296.     SOUND 659.26, .25
297.     SOUND 500, .25
298. NEXT e
299. _DELAY .5
300. FOR g = 1 TO 14
301.     SOUND 783.99, .25
302.     SOUND 500, .25
303. NEXT g
304. _DELAY .5
305. FOR g = 1 TO 14
306.     SOUND 783.99, .25
307.     SOUND 500, .25
308. NEXT g
309. _DELAY .5
310. FOR f = 1 TO 14
311.     SOUND 698.46, .25
312.     SOUND 500, .25
313. NEXT f
314. _DELAY .5
315. FOR d = 1 TO 14
316.     SOUND 587.33, .25
317.     SOUND 500, .25
318. NEXT d
319. _DELAY .5
320. FOR c = 1 TO 14
321.     SOUND 523.25, .25
322.     SOUND 500, .25
323. NEXT c
324. GOTO start:
325.  

Title: Re: Jingle Bells with option of PLAY notes or SOUND double ringing tones.
Post by: bplus on December 19, 2019, 04:44:57 pm

OMG! That's Pete's phone ringing in the holiday tune!

Title: Re: Jingle Bells with option of PLAY notes or SOUND double ringing tones.
Post by: SierraKen on December 19, 2019, 05:14:37 pm

LOL! I thought about putting it on my answering machine, but then my number could go viral.... O_O

Text Only | Text with Attachments