Musical Code

Discussion in 'Programming General' started by halojunkie, Apr 19, 2008.

Sign in to Post
Thread Tools

Thread Tools

  • Thread ID:
Musical Code
  1. Unread #1 - Apr 19, 2008 at 12:56 AM
  2. halojunkie
    Joined:
    Dec 17, 2005
    Posts:
    232
    Referrals:
    0
    Sythe Gold:
    0

    halojunkie Active Member

    Musical Code
    This code is used to play musical notes.

    Sample usage:
    Code:
    Private Sub Form_Load()
C4(1000)
A4(1000)
D6(1000)
    It's the note name followed by the octave then the time in milliseconds. For sharps its C7Sharp

    Code:
    Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFrequency As Long, ByVal dwMilliseconds As Long) As Long

Public Sub C0(length As Integer)
Beep 16.35, length
End Sub

Public Sub C0Sharp(length As Integer)
Beep 17.32, length
End Sub

Public Sub D0(length As Integer)
Beep 18.35, length
End Sub

Public Sub D0Sharp(length As Integer)
Beep 19.45, length
End Sub

Public Sub E0(length As Integer)
Beep 20.6, length
End Sub

Public Sub F0(length As Integer)
Beep 21.83, length
End Sub

Public Sub F0Sharp(length As Integer)
Beep 23.12, length
End Sub

Public Sub G0(length As Integer)
Beep 24.5, length
End Sub

Public Sub G0Sharp(length As Integer)
Beep 16.35, length
End Sub

Public Sub A0(length As Integer)
Beep 27.5, length
End Sub

Public Sub A0Sharp(length As Integer)
Beep 29.14, length
End Sub

Public Sub B0(length As Integer)
Beep 30.87, length
End Sub

Public Sub C1(length As Integer)
Beep 32.7, length
End Sub

Public Sub C1Sharp(length As Integer)
Beep 34.65, length
End Sub

Public Sub D1(length As Integer)
Beep 36.71, length
End Sub

Public Sub D1Sharp(length As Integer)
Beep 38.89, length
End Sub

Public Sub E1(length As Integer)
Beep 41.2, length
End Sub

Public Sub F1(length As Integer)
Beep 43.65, length
End Sub

Public Sub F1Sharp(length As Integer)
Beep 46.25, length
End Sub

Public Sub G1(length As Integer)
Beep 49, length
End Sub

Public Sub G1Sharp(length As Integer)
Beep 51.91, length
End Sub

Public Sub A1(length As Integer)
Beep 55, length
End Sub

Public Sub A1Sharp(length As Integer)
Beep 58.27, length
End Sub

Public Sub B1(length As Integer)
Beep 61.74, length
End Sub

Public Sub C2(length As Integer)
Beep 65.41, length
End Sub

Public Sub C2Sharp(length As Integer)
Beep 69.3, length
End Sub

Public Sub D2(length As Integer)
Beep 73.42, length
End Sub

Public Sub D2Sharp(length As Integer)
Beep 77.78, length
End Sub

Public Sub E2(length As Integer)
Beep 82.41, length
End Sub

Public Sub F2(length As Integer)
Beep 87.31, length
End Sub

Public Sub F2Sharp(length As Integer)
Beep 92.5, length
End Sub

Public Sub G2(length As Integer)
Beep 98, length
End Sub

Public Sub G2Sharp(length As Integer)
Beep 103.83, length
End Sub

Public Sub A2(length As Integer)
Beep 110, length
End Sub

Public Sub A2Sharp(length As Integer)
Beep 116.54, length
End Sub

Public Sub B2(length As Integer)
Beep 123.47, length
End Sub

Public Sub C3(length As Integer)
Beep 130.81, length
End Sub

Public Sub C3Sharp(length As Integer)
Beep 138.59, length
End Sub

Public Sub D3(length As Integer)
Beep 146.83, length
End Sub

Public Sub D3Sharp(length As Integer)
Beep 155.56, length
End Sub

Public Sub E3(length As Integer)
Beep 164.81, length
End Sub

Public Sub F3(length As Integer)
Beep 174.61, length
End Sub

Public Sub F3Sharp(length As Integer)
Beep 185, length
End Sub

Public Sub G3(length As Integer)
Beep 196, length
End Sub

Public Sub G3Sharp(length As Integer)
Beep 207.65, length
End Sub

Public Sub A3(length As Integer)
Beep 220, length
End Sub

Public Sub A3Sharp(length As Integer)
Beep 233.08, length
End Sub

Public Sub B3(length As Integer)
Beep 246.94, length
End Sub

Public Sub C4(length As Integer)
Beep 261.63, length
End Sub

Public Sub C4Sharp(length As Integer)
Beep 277.18, length
End Sub

Public Sub D4(length As Integer)
Beep 293.66, length
End Sub

Public Sub D4Sharp(length As Integer)
Beep 311.13, length
End Sub

Public Sub E4(length As Integer)
Beep 329.63, length
End Sub

Public Sub F4(length As Integer)
Beep 349.23, length
End Sub

Public Sub F4Sharp(length As Integer)
Beep 369.99, length
End Sub

Public Sub G4(length As Integer)
Beep 392, length
End Sub

Public Sub G4Sharp(length As Integer)
Beep 415.3, length
End Sub

Public Sub A4(length As Integer)
Beep 440, length
End Sub

Public Sub A4Sharp(length As Integer)
Beep 446.16, length
End Sub

Public Sub B4(length As Integer)
Beep 493.88, length
End Sub

Public Sub C5(length As Integer)
Beep 523.25, length
End Sub

Public Sub C5Sharp(length As Integer)
Beep 554.37, length
End Sub

Public Sub D5(length As Integer)
Beep 587.33, length
End Sub

Public Sub D5Sharp(length As Integer)
Beep 622.25, length
End Sub

Public Sub E5(length As Integer)
Beep 659.26, length
End Sub

Public Sub F5(length As Integer)
Beep 698.46, length
End Sub

Public Sub F5Sharp(length As Integer)
Beep 739.99, length
End Sub

Public Sub G5(length As Integer)
Beep 783.99, length
End Sub

Public Sub G5Sharp(length As Integer)
Beep 830.61, length
End Sub

Public Sub A5(length As Integer)
Beep 880, length
End Sub

Public Sub A5Sharp(length As Integer)
Beep 932.33, length
End Sub

Public Sub B5(length As Integer)
Beep 987.77, length
End Sub

Public Sub C6(length As Integer)
Beep 1046.5, length
End Sub

Public Sub C6Sharp(length As Integer)
Beep 1108.73, length
End Sub

Public Sub D6(length As Integer)
Beep 1174.66, length
End Sub

Public Sub D6Sharp(length As Integer)
Beep 1244.51, length
End Sub

Public Sub E6(length As Integer)
Beep 1318.51, length
End Sub

Public Sub F6(length As Integer)
Beep 1396.91, length
End Sub

Public Sub F6Sharp(length As Integer)
Beep 1479.98, length
End Sub

Public Sub G6(length As Integer)
Beep 1567.98, length
End Sub

Public Sub G6Sharp(length As Integer)
Beep 1661.22, length
End Sub

Public Sub A6(length As Integer)
Beep 1760, length
End Sub

Public Sub A6Sharp(length As Integer)
Beep 1864.66, length
End Sub

Public Sub B6(length As Integer)
Beep 1975.53, length
End Sub

Public Sub C7(length As Integer)
Beep 2093, length
End Sub

Public Sub C7Sharp(length As Integer)
Beep 2217.46, length
End Sub

Public Sub D7(length As Integer)
Beep 2349.32, length
End Sub

Public Sub D7Sharp(length As Integer)
Beep 2489.02, length
End Sub

Public Sub E7(length As Integer)
Beep 2637.02, length
End Sub

Public Sub F7(length As Integer)
Beep 2793.83, length
End Sub

Public Sub F7Sharp(length As Integer)
Beep 2959.96, length
End Sub

Public Sub G7(length As Integer)
Beep 3135.96, length
End Sub

Public Sub G7Sharp(length As Integer)
Beep 3322.44, length
End Sub

Public Sub A7(length As Integer)
Beep 3520, length
End Sub

Public Sub A7Sharp(length As Integer)
Beep 3729.31, length
End Sub

Public Sub B7(length As Integer)
Beep 3951.07, length
End Sub

Public Sub C8(length As Integer)
Beep 4186.01, length
End Sub

Public Sub C8Sharp(length As Integer)
Beep 4434.92, length
End Sub

Public Sub D8(length As Integer)
Beep 4698.64, length
End Sub

Public Sub D8Sharp(length As Integer)
Beep 4978.03, length
End Sub
     
    Share
  3. Unread #2 - May 5, 2008 at 9:46 PM
  4. demonavenger
    Joined:
    Feb 25, 2007
    Posts:
    536
    Referrals:
    0
    Sythe Gold:
    0

    demonavenger Forum Addict
    $5 USD Donor

    Musical Code
    Lol thats so cool :) was mucking round with it...

    -EDIT-
    lol this is funny, i love LOOP
    Code:
    Dim ndLOL As Integer
Do
ndLOL = Int(Rnd * 14) + 1
If ndLOL = 1 Then A4 (100)
If ndLOL = 2 Then B4 (100)
If ndLOL = 3 Then C4 (100)
If ndLOL = 4 Then D4 (100)
If ndLOL = 5 Then E4 (100)
If ndLOL = 6 Then F4 (100)
If ndLOL = 7 Then G4 (100)
If ndLOL = 8 Then A1 (100)
If ndLOL = 9 Then B1 (100)
If ndLOL = 10 Then C1 (100)
If ndLOL = 11 Then D1 (100)
If ndLOL = 12 Then E1 (100)
If ndLOL = 13 Then F1 (100)
If ndLOL = 14 Then G1 (100)
DoEvents
Loop
    Possibly could be done easier but meh, was on it for 5mins.
     
    Share
  5. Unread #3 - May 6, 2008 at 1:09 AM
  6. halojunkie
    Joined:
    Dec 17, 2005
    Posts:
    232
    Referrals:
    0
    Sythe Gold:
    0

    halojunkie Active Member

    Musical Code
    took me a while to type it up. glad someone likes it
     
    Share
  7. Unread #4 - May 6, 2008 at 7:55 PM
  8. demonavenger
    Joined:
    Feb 25, 2007
    Posts:
    536
    Referrals:
    0
    Sythe Gold:
    0

    demonavenger Forum Addict
    $5 USD Donor

    Musical Code
    Hehe, i never noticed you can do that with beeps :eek:
     
    Share
  9. Unread #5 - May 8, 2008 at 7:39 PM
  10. halojunkie
    Joined:
    Dec 17, 2005
    Posts:
    232
    Referrals:
    0
    Sythe Gold:
    0

    halojunkie Active Member

    Musical Code
    yep, but it uses the Beep api
     
    Share
  11. Unread #6 - May 8, 2008 at 10:32 PM
  12. demonavenger
    Joined:
    Feb 25, 2007
    Posts:
    536
    Referrals:
    0
    Sythe Gold:
    0

    demonavenger Forum Addict
    $5 USD Donor

    Musical Code
    Hmmm, well its still interesting :)
     
    Share
  13. Unread #7 - May 9, 2008 at 8:54 PM
  14. halojunkie
    Joined:
    Dec 17, 2005
    Posts:
    232
    Referrals:
    0
    Sythe Gold:
    0

    halojunkie Active Member

    Musical Code
    Thanks :D
     
    Share
< Help with variable? ;[ | Vouch >

Users viewing this thread
1 guest


 
 
Adblock breaks this site