چه جوری موزیک رو اجرا کنم

دوستان چه جوری میتون دستور بدم وقتی فلان کلید رو میزنی این موزیک پخش بشه
و چه جوری میتونم تابعی تعریف کنم که بتونه از 1 تا 50 یه عدد رندوم بهم بده (تابع rnd)
ممنون از همه دوستان:10:

با
The sndPlaySound function plays a waveform sound specified either by a filename or by an entry in the registry or the WIN.INI file. This function offers a subset of the functionality of the PlaySound function; sndPlaySound is being maintained for backward compatibility.

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long



این هم یک نمونه

کد:

---

'This project needs :
'- a common dialog box, named CDbox
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'  and select Microsoft Common Dialog control)
'-a button
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Get the number of installed waveout devices
    ret& = waveOutGetNumDevs
    If ret& > 0 Then
        'Set the CommonDialogBox' filter
        CDBox.Filter = "Wave-files (*.wav)|*.wav|All Files (*.*)|*.*"
        'Set the CommonDialogBox' title
        CDBox.DialogTitle = "Choose your wave-file ..."
        'Show the 'Open File'-dialog
        CDBox.ShowOpen
        'Play the selected sound
        sndPlaySound CDBox.filename, SND_ASYNC Or SND_NODEFAULT
    Else
        MsgBox "No soundcard detected !"
    End If
End Sub
Private Sub Form_Load()
    Command1.Caption = "Load WAV"
End Sub

---

نقل قول:

---

نوشته شده توسط majj [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با
the sndplaysound function plays a waveform sound specified either by a filename or by an entry in the registry or the win.ini file. This function offers a subset of the functionality of the playsound function; sndplaysound is being maintained for backward compatibility.

Declare function sndplaysound lib "winmm.dll" alias "sndplaysounda" (byval lpszsoundname as string, byval uflags as long) as long



این هم یک نمونه

کد:

---

'this project needs :
'- a common dialog box, named cdbox
'  (to add the common dialog box to your tools menu, go to project->components (or press ctrl-t)
'  and select microsoft common dialog control)
'-a button
private declare function sndplaysound lib "winmm.dll" alias "sndplaysounda" (byval lpszsoundname as string, byval uflags as long) as long
private declare function waveoutgetnumdevs lib "winmm.dll" () as long
const snd_async = &h1
const snd_nodefault = &h2
private sub command1_click()
    'kpd-team 1998
    'url: Http://www.allapi.net/
    'e-mail: Kpdteam@allapi.net
    'get the number of installed waveout devices
    ret& = waveoutgetnumdevs
    if ret& > 0 then
        'set the commondialogbox' filter
        cdbox.filter = "wave-files (*.wav)|*.wav|all files (*.*)|*.*"
        'set the commondialogbox' title
        cdbox.dialogtitle = "choose your wave-file ..."
        'show the 'open file'-dialog
        cdbox.showopen
        'play the selected sound
        sndplaysound cdbox.filename, snd_async or snd_nodefault
    else
        msgbox "no soundcard detected !"
    end if
end sub
private sub form_load()
    command1.caption = "load wav"
end sub

---

---

دوست من ممنون
ولی من نه رشتم کامپیوتره نه ریاضی خوندم
علاقه مند شدم به این برنامه تازه دارم یه برنامه مینویسم
به قوله خودمونی فرق کوکو و جلبکو نمیدونم میشه یکمی زیره دیپلم توضیح بدی اونایی رو که بالا گفتی ؟:31:
بازم ممنون

در مورد توابع api جستجو کنید