PDA

نسخه کامل مشاهده نسخه کامل : باز و بسته کردن Cd Rom


larneg
21-04-2008, 20:31
با سلام به همگی

دوستان میخوام برنامه ای بنویسم که با اون بتونم Cd Rom رو درشو باز و بسته کنم

خیلی ممنــــــــونم
Bracket
21-04-2008, 22:52
کدش سادست میتونی از MCI API functions استفاده کنی فکر میکنم این ساده ترین راه باشه . یه سرچ کوچیک بزنی تا دلت بخواد منبع و مثال پیدا میکنی .
Payman_62
22-04-2008, 11:20
mciSendStringA("set CDAudio door open", tReturn, 127, 0)
lord_ashkan_z
23-04-2008, 05:52
البته فكر كنم كه براي كد بالا بايد يك api تغريف كنين پيمان جان.
ژولی لسکو
23-04-2008, 09:39
كسي سورسي داره
كه ما تازه كارها هم بتونيم چيزي ياد بگيريم
ممنون
sltavakoli
24-04-2008, 14:04
اول توی یه ماژول این رو مینویسی

public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal
hwndCallback As Long) As Long

بعد هم تویه یه Event مثلا cmd1_click این کد رو برای باز کردن


mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
و این کد رو هم برای بستن

:mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&

استفاده میکنی.اگه مشکلی داشتی بگو.یا حق.
ژولی لسکو
24-04-2008, 21:15
سلام توكلي عزيز
هرچه تلاش كردم نتونستم از كدها استفاده كنم
اينجا هم يه كد خوب هست

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
اگه ميشه يه نمونه ساده برام درست كنين
منظور شما رو از تو ماژول بذار رو نفهميدم
ممنون از لطفت
بهرام_62
24-04-2008, 21:34
لطفا یکی یک سمپل بزاره[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ULF_VB6
26-04-2008, 11:00
به خدا اگه یه سرچ یکنید، جای دوری نمیره.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
sltavakoli
26-04-2008, 19:52
سلام توكلي عزيز
هرچه تلاش كردم نتونستم از كدها استفاده كنم
اينجا هم يه كد خوب هست

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
اگه ميشه يه نمونه ساده برام درست كنين
منظور شما رو از تو ماژول بذار رو نفهميدم
ممنون از لطفت

شما میتونید از منوی project بعد هم Add module یه ماژول جدید بسازی و بعد هم توی اون ماژولی ساختی

چیزهایی رو که گفتم رو بریز.

بعد هم همون کارایی که گفتم دیگه.

اگه بازم سوال داشتی ما در خدمتیم.

هرچی سوال داری همین جا بپرس.من هم همه چیزی رو که بلدم(که خیلی کمه) همین جا یاد گرفتم.
ULF_VB6
26-04-2008, 20:41
احوال آقا سهیل.
تحویل نمیگیری دیگه ما رو.

یه پا استاد شدیا.
ژولی لسکو
26-04-2008, 21:40
واقعا ممنونم
هم توكلي عزيز و هم يو ال اف عزيز
خيلي كمك كردين واقعا ممنونم
ULF_VB6
27-04-2008, 11:05
از گوگل تشکر کنید نه از من