Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


Visual Basic Programming Code Examples

Visual Basic > Code Snippets Code Examples

Loop through beeps

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
Loop through beeps beeps at different frequencies. Windows XP Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Load() 'frequency range 1000 to 5000 hz in steps of 50 Dim intCount As Long For intCount = 1000 To 5000 Step 50 '100 milliseconds duration Beep intCount, 100 DoEvents Next intCount End Sub