home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simon1 / simon.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  1.4 KB  |  91 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11. Sub main ()
  12. Randomize
  13. t_int = 100
  14.  
  15. lev = 6
  16. startup = 0
  17.  form1.label6.caption = Str$(match)
  18.  
  19.  form1.label4.caption = ""
  20.  form1.timer1.enabled = False
  21.  form1.timer2.enabled = False
  22.  form1.timer3.enabled = False
  23. form1.hscroll1.enabled = True
  24. form1.option1.enabled = True
  25. form1.option2.enabled = True
  26. form1.option3.enabled = True
  27.  
  28. form1.label2.caption = "Level: " + Str$(lev)
  29.  
  30. form1.hscroll1.value = lev
  31.  
  32.  
  33. form1.Show
  34. End Sub
  35.  
  36. '
  37. Sub play_sounds (index As Integer)
  38.  
  39. Select Case index
  40. Case 0
  41. NOTE = 20
  42. form1.picture1(0).backcolor = lread
  43. Case 1
  44. form1.picture1(1).backcolor = lbrown
  45. NOTE = 25
  46. Case 2
  47. form1.picture1(2).backcolor = lkaki
  48. NOTE = 30
  49. Case 3
  50. form1.picture1(3).backcolor = lgreen
  51. NOTE = 35
  52. Case 4
  53. form1.picture1(4).backcolor = lpurple
  54. NOTE = 40
  55. Case 5
  56. NOTE = 45
  57. form1.picture1(5).backcolor = lblue
  58. End Select
  59.  
  60. DELAY = 16
  61. DOTS = 1
  62.  
  63. x = OpenSound()
  64. x = SetVoiceAccent(1, 100, 255, S_legato, 20)
  65. x = SetVoiceQueueSize(1, 1000)
  66. x = SetVoiceNote(1, NOTE, DELAY, DOTS)
  67. x = StartSound()
  68. x = WaitSoundState(S_QueueEmpty)
  69. CloseSound
  70. x = StopSound()
  71.  
  72.  
  73. Select Case index
  74. Case 0
  75. form1.picture1(index).backcolor = bread
  76. Case 1
  77. form1.picture1(index).backcolor = bbrown
  78. Case 2
  79. form1.picture1(index).backcolor = bkaki
  80. Case 3
  81. form1.picture1(index).backcolor = bgreen
  82. Case 4
  83. form1.picture1(index).backcolor = bpurple
  84. Case 5
  85. form1.picture1(index).backcolor = bblue
  86. End Select
  87.  
  88.  
  89. End Sub
  90.  
  91.