Title: New Lesson, Colored Diamond Post by: GarrisonRicketson on September 13, 2011, 07:43:45 pm This is something I did when I was just starting,..it is more of a qbasic program, but works fine in qb64. You can try variations on it for a excercise. Here is the thread with the demo. http://weeklyqbasicandqb64lesson.smfforfree.com/index.php/topic,19.0.html (http://weeklyqbasicandqb64lesson.smfforfree.com/index.php/topic,19.0.html) Code: SCREEN 12 If you have any questions,..feel free to ask, if you have any demos, similar,..or want to post a demo of what you come up with, post it at the above link, with the demos,..DO SCREEN 12 CLS FOR I = 1 TO 15 COLOR I, 0 PRINT I; "*** COLOR ***" NEXT I COLOR 0, 9 LOCATE 22, 45 PRINT "Now watch this" _DELAY 1 LOCATE 23, 46 PRINT "*" _DELAY 1 LOCATE 17, 35 PRINT "*" _DELAY .5 LOCATE 18, 36 PRINT "*" _DELAY 1 LOCATE 19, 37 PRINT "*" _DELAY 1 LOCATE 20, 38 PRINT "*" _DELAY 1 LOCATE 21, 37 PRINT "*" _DELAY 1 LOCATE 22, 36 PRINT "*" _DELAY 1 LOCATE 23, 35 PRINT "*" _DELAY 1 LOCATE 22, 34 PRINT "*" _DELAY 1 LOCATE 21, 33 PRINT "*" _DELAY 1 LOCATE 20, 32 PRINT "*" _DELAY 1 LOCATE 19, 31 PRINT "*" _DELAY 1 LOCATE 18, 32 PRINT "*" _DELAY 1 LOCATE 17, 33 PRINT "*" _DELAY 1 LOCATE 16, 34 PRINT "*" _DELAY 1 PLAY "A,Gb10a4e8f4aa" _DELAY 1 COLOR 15, 1 LOCATE 23, 46 PRINT "*" PLAY "a" COLOR 15, 2 LOCATE 17, 35 PRINT "*" PLAY "b" COLOR 15, 3 LOCATE 18, 36 PRINT "*" PLAY "c" COLOR 15, 4 LOCATE 19, 37 PRINT "*" PLAY "d" COLOR 15, 5 LOCATE 20, 38 PRINT "*" PLAY "e" COLOR 15, 6 LOCATE 21, 37 PRINT "*" PLAY "f" LOCATE 22, 36 COLOR 15, 14 PRINT "*" PLAY "g" COLOR 15, 7 LOCATE 23, 35 PRINT "*" PLAY "<a" COLOR 15, 8 LOCATE 22, 34 PRINT "*" PLAY "b" COLOR 15, 9 LOCATE 21, 33 PRINT "*" PLAY "c" COLOR 15, 10 LOCATE 20, 32 PRINT "*" PLAY "d" COLOR 15, 11 LOCATE 19, 31 PRINT "*" PLAY "e" COLOR 15, 12 LOCATE 18, 32 PRINT "*" PLAY "f" COLOR 15, 13 LOCATE 17, 33 PRINT "*" PLAY "g" COLOR 15, 14 LOCATE 16, 34 PRINT "*" PLAY ">a" COLOR 11, 9 CLS PRINT "This was made,useing samples from Ted Felix's tutorial for kids" PRINT "The asterix diamond, locate, print, and colors I made up,experimenting" INPUT "Would you like to do it again (y/n)? ", Answer$ LOOP WHILE Answer$ = "y" from Garry |