منتديات المبرمجون الاقباط
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

درس كود برنامج فتح واغلاق السى دى روم

اذهب الى الأسفل

درس كود برنامج فتح واغلاق السى دى روم Empty درس كود برنامج فتح واغلاق السى دى روم

مُساهمة من طرف Coptic_Programmer الجمعة يوليو 03, 2009 9:31 am

أضف زرين Command و وحدة نمطية Module

إنسخ الأسطر التالية إلى المديول:

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

ضع هذه التصريحات في قسم General

Dim lngReturn As Long
Dim strReturn As Long

لفتح السواقة ضع هذا الكود في الزر الأول

lngReturn = mciSendString('set CDAudio door open', strReturn, 127, 0)

ضع هذا الكود في الزر الثاني للإغلاق:

lngReturn = mciSendString('set CDAudio door closed', strReturn, 127, 0)

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى