첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

[VB] 비프음 연주하기

VB 2015. 5. 16. 09:00

■ 비프음 연주하기

------------------------------------------------------------------------------------------------------------------------

Private Declare Function Beep Lib "kernel32" (ByVal lFrequency As Long, ByVal lDuration As Long) As Long

 

Private Declare Sub Sleep Lib "kernel32" (ByVal lMillisecond As Long)

 

Dim strFrequencyList As String

Dim lFrequency       As Long

Dim strDurationList  As String

Dim lDuration        As Long

Dim I               As Long

    

Const E4 = 329.6276

 

strFrequencyList = "iiihfihfffhidadddfhihfffhihiiihfihffihfdadddfhihffhiki"

 

strDurationList = "aabbbfjaabbbbnaabbbfjaabcapaabbbfjaabbbbnaabbbfjaabcap"

 

For I = 1 To Len(strFrequencyList)

 

    lFrequency = E4 * 2 ^ ((Asc(Mid(strFrequencyList, I, 1)) - 96) / 12)

    

    lDuration = (Asc(Mid(strDurationList, I, 1)) - 96) * 200 - 10

    

    Beep lFrequency, lDuration

 

    Sleep 10

 

    DoEvents

    

Next I

------------------------------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요