پاسخ به:برنامه نویسی(Assembly/C/C++/VB6/VB.net/C#/ASP/Mobile Programming)

mparsa

کاربر برنزی

تاریخ عضویت : خرداد 1389

تعداد پست ها : 222

محل سکونت : فارس

پاسخ به:برنامه نویسی(Assembly/C/C++/VB6/VB.net/C#/ASP/Mobile Programming)
دوشنبه 24 خرداد 1389 12:02 AM

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

کد 1

Private 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

کد برای باز کردن درب سی دی رام در که زیر آمده است رو در رویداد کلیک یک شی قرار دهید

بطور مثال Command1_Click

Private Sub cmdOpen_Click()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub

برای بستن درب سی دی رام از کد زیر استفاده کنید.
بطور مثال Command1_Click

Private Sub cmdClose_Click()

retvalue = mciSendString("set CDAudio door closed", _

returnstring, 127, 0)

End Sub

امام حسین (ع) فرمودند:

أَعجَزالنّاسٍ مَن عَجَزَ عَنِ الدُّعاء

عاجزترین مردم کسی است که نتواند دعا کند

عشاق الحسین