سلام دوستان
اگه ممکنه یکی بگه من چطوری می تونم در CD-Rom رو از تو VB8 باز و بسته کنم؟:8:
Printable View
سلام دوستان
اگه ممکنه یکی بگه من چطوری می تونم در CD-Rom رو از تو VB8 باز و بسته کنم؟:8:
با استفاده از mciSendString .
کد:'فیلد private
Private setTrayStatus As Long
'API
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
'برای باز کردن سی دی درایو
setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 1)
'برای بستن سی دی درایو
setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 0)
دوست عزیز مرسی, خیلی عالی بود.
آرگومان آخر تابع فوق چیه؟
بعد مقدارهای داده شده از کجا اومدند؟
من قبلا این کد رو دیده بودم منتها همه اعداد رو صفر ست شده بودند و درست کار میکرد.
آقا دستت درد نکنه فقط اگه میشه یه توضیح کوچولو هم بدید حداقل از اینکه استفاده می کنیم بفهمیم چی کار میکنه ؟
ببخشید اگه خیلی پر توقع هستم !
تابع mciSendString تابعی هست جزء توابع MCI (Media Control Interface) .
این تابع با ارسال دستورا به صورت رشته کار می کند (آرگومان اول) .
توضیح بقیۀ آرگومان هاشو می تونید از اینجا ببینید:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
MCI هم API هست برای کار با وسایل Media که به سیستم عامل ویندوز متصلند.
مثلاً با همین تابع می توان به راحتی فایل های صوتی و تصویری را اجرا کرد. حتی فایل های AVI .
MCI از 4 قسمت تشکیل شده:
AVIVideo
- CDAudio
- Sequencer
- WaveAudio
که قسمت های دیگری هم جدیداً اضافه شده است.
اطلاعات بیشتر: [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دیگر دستورات mci : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
(مثلاً دستور بالایی که باز و بسته می کنه دستور set هست.)
اجرای فیلم avi :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
آقا مرسی خیلی عالی بود.
پاینده و سبز باشید.
آقا دستت درد نکنه خیلی زحمت کشیدی
فقط به یه مشکلی خوردم در cdrom باز میشه ولی بسته نمیشه بنظر شما مشکل از چیه؟
برای بستن از این استفاده کن
کد:
mciSendString("set CDAudio door closed", 0, 0, 1)
ُسلام آقا دستت درد نکنه درست شدنقل قول:
ما كه چيزي نفهيمديم خداييش اصلا اين كد ها كجا استفاده ميشه
این که کاری نداشت دوست من اینجا خدایش خوب توضیح دادن دوستاننقل قول:
این کد رو تو قسمت General بنویس
بعد دوتا Button رو صفحه بساز و تو یکی این کدکد:'فیلد private
Private setTrayStatus As Long
'API
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
و تو دکمه دیگر این کد رو وارد کنکد:'برای باز کردن سی دی درایو
setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 1)
کد:'برای بستن سی دی درایو
setTrayStatus = mciSendString("set CDAudio door closed", 0, 0, 1)