سوال

سلام من با استفاده از دستورات زیر یک صدا رو در فرم پخش میکنم.این دستورات آهنگی که آدرسشو دادم پخش میکنه. اما مشکل اینجاست که با تغییر دادن محل نرم افزار دیگه آدرس آهنگ درست نیست. لطفا کمک کنید تا یجوری آدرس فعلی نرم افزار رو با اون بدست بیارم.
متشکرم.

کد:

---

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_ASYNC = &H1
    Const SND_NODEFAULT = &H2
Dim Filename As String
Filename = "D:\other\Programming\Ekhtelaf Tasvir v0.5Alfa\Sound\Find.wav"
sndPlaySound Filename, SND_ASYNC Or SND_NODEFAULT

---

نقل قول:

---

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

سلام من با استفاده از دستورات زیر یک صدا رو در فرم پخش میکنم.این دستورات آهنگی که آدرسشو دادم پخش میکنه. اما مشکل اینجاست که با تغییر دادن محل نرم افزار دیگه آدرس آهنگ درست نیست. لطفا کمک کنید تا یجوری آدرس فعلی نرم افزار رو با اون بدست بیارم.
متشکرم.

کد:

---

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_ASYNC = &H1
    Const SND_NODEFAULT = &H2
Dim Filename As String
Filename = "D:\other\Programming\Ekhtelaf Tasvir v0.5Alfa\Sound\Find.wav"
sndPlaySound Filename, SND_ASYNC Or SND_NODEFAULT

---

---

هم می تونی از اشیاء خود VB استفاده کنی... و هم می تونی... از توابع API استفاده کنی...!؟! :20:

من راه اول رو می گم... چون ساده تره...!؟! :27:

یه شئ به اسم App تو VB وجود داره... که یه خاصیت داره که اسمش Path هستش...!؟! :27:

هر بار که برنامه اجرا میشه... مقدار این خصلت برابر با مسیر برنامه میشه...!؟! :21:

یعنی می تونی کد زیر رو برای اجراء اون آهنگ به کار ببری...!؟! :

کد:

---

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_ASYNC = &H1
    Const SND_NODEFAULT = &H2
Dim Filename As String
Filename = App.Path & "\Sound\Find.wav"
sndPlaySound Filename, SND_ASYNC Or SND_NODEFAULT

---

البته در صورتی درست کار می کنه که آهنگ تو یه فولدر به اسم Sound باشه...!؟! :13:

واسه درک بهتر... این یه خط کد رو اجرا کن...!؟! :

کد:

---

MsgBox App.Path

---

راستی... واسه پخش آهنگ بهتره که کتابخانه های Windows Media Player استفاده کنی...!؟! چون خیلی قوی تر و انعطاف پذیر تر هستند...!؟! :27:

موفق باشی...!؟! :46:

متشکر
یک سوال دیگه داشتم
میخوام با خطاهای کار با فایل از طریق دستور Select Case مقابله کنم.
اما نمیدونم که کجا باید این دستور رو بنویسم.
مثلا به کد زیر نگاه کنید.
در این کد به مقابله با کد 76 یا مسیر پیدا نشد" پرداختم اما باز هم در صورت وجود نداشتن فولدر گیم در درایو سی پیغام خطا ظاهر میشه و برنامه بسته میشه.
حالا این Select Case رو کجا باید بزارم.

کد:

---

Select Case Err
                Case 76
                    MsgBox "You most make folder 'Game' to Drive C"
            End Select
Open Filename For Append Shared As #F
Close #F

---

اول باید به برنامه بگید که در صورت بروز خطا چه کار کنه...!؟! اینجوری...!؟! :

کد:

---

On Error Goto ErrorLabel
'Codes...!?!
ErrorLabel:

---

ErrorLabel اسم یه برچسب ه که محل کد های کنترل خطا رو مشخص می کنه...!؟! (می تونید هر اسم دیگه ای براش انتخاب کنید...!؟!)

هر کدی که بعد از ErrorLabel قرار بگیره... در صورت بروز خطا اجرا میشه...!؟! (اگه از عبارات شرطی برای کنترل بروز خطا استفاده نکردید... قبل از این برچسب... دستور Exit Function یا Exit Sub رو اضافه کنید...!؟!)

برای مثال... بازنویسی کد شما... به این صورت میشه...!؟! :

کد:

---

On Error Goto ErrorLabel
'Codes...!?!
ErrorLabel:
Select Case Err
                Case 76
                    MsgBox "You most make folder 'Game' to Drive C"
            End Select
Open Filename For Append Shared As #F
Close #F

---

یه روش هم هست که تنبل ها ازش استفاده می کنن...!؟! :31: (بعضی وقت ها هم که زمان واسه نوشتن برنامه محدوده... می تونید ازش استفاده کنید...!؟! :13:) اگر هم می خواید... خیلی ساده... همه خطا ها رو نادیده بگیرید... این یه خط کد رو به اول تابع یا زیر برنامه تون اضافه کنید...!؟! (من که بهتون توصیه نمی کنم...!؟! می تونه مشکلات زیادی رو به بار بیاره...!؟! :41: :27:)

کد:

---

On Error Resume Next

---

البته توجه کنید... که تمام این روش ها... فقط جلوی خطا های زمان اجرا رو می گیره...!؟! :27:

اگه مشکلی بود... من در خدمتم...!؟! :20:

موفق باشید...!؟! :46: