بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله
فى هذا الموضوع البسيط هنتعلم ازاى نعمل برنامج من خلال visual basic 6 يقوم
بفتح وغلق السى دى روم
اول حاجة افتح مشروع جديد وهات 2 زر امر command وحطهم على الفورم
اجعل خاصية caption لل command الاول open والثانى close
بعد ذلك ندرج فى المشروع Module عن طريق قائمة project ثم add Module
سوف تظهر لنا بعد ذلك شاشة الModule وهتلقيها شبه شاشة الكود بالظبط
نقوم بكتابه هذا الكود بداخل Module
رمز:
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
وفى هذا الكود اعلنا عن الداله mci send string وهى من ضمن دوال api
اقفل شاشة Module
واضغط على command الاول دبل كليك هتظهر لك شاشة الكود
اكتب هذا الكود
رمز:
Call mciSendString("set cdaudio door open", 0, 0, 0)
هذا الكود الخاص بفتح السى دى روم
بعد ذلك اضغط على command الثانى لكتابه الكود به
واكتب هذا الكود
رمز:
Call mciSendString("set cdaudio door closed", 0, 0, 0)
وبكدا نكون خلصنا البرنامج الى هيقوم بفتح السى دى روم واغلاقه
اظن ما فيش اسهل من كدة
م ن ق و ل
السٌّمعَة
الْمَشِارَكِات
النقاط/
العـمــر
