تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] تصميم برنامج فتح و غلق السيدي روم
#1
بسم الله الرحمن الرحيم
مشروع طريقة تصميم برنامج فتح و غلق السيدي روم
السلام عليكم و رحمة الله و بركاته
اليوم أعزائي الاعضاء سوف أشرح لسيادتكم طريقة تصميم برنامج بالفيجوال بيسك 6 و هو برنامج لفتح و غلق السيدي روم
بإذن الله الكود بسيط و التصميم سهل
علشان مطولش على سيادتكم و ضعت لسيادتكم الفيدو التالي
أما بالنسبة للكود فا في التصريحات العامة سوف تضع هذا الكود

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


Public Sub OpenCDDriveDoor(ByVal State As Boolean)
If State = True Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub


أما في الزر الاول (command 1)


Private Sub Command1_Click()
OpenCDDriveDoor (True) 'فتح
End Sub




أما في الزر الاول (command 2)


Private Sub Command2_Click()
OpenCDDriveDoor (False) 'اغلاق
End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] برنامج المؤذن abulayth 12 3,424 25-02-19, 12:28 AM
آخر رد: AL_BRNS
  برنامج مبيعات خاص Ahmed_Mansoor 30 6,649 01-02-19, 03:35 PM
آخر رد: tamer2005
Star [مثال] برنامج قراءن كريم جميل جداَ من تصميمي 2011 N-max 6 2,957 12-01-19, 02:17 AM
آخر رد: عبد العزيز البسكري
  السلام عليكم أريد برنامج لجمعية خيرية بارك الله فيكم محمد جبريل 1 179 26-10-18, 11:30 PM
آخر رد: حريف برمجة
  برنامج تعليم لغه انجليزية ناطق مفتوح المصدر amro1965 1 352 21-07-18, 08:14 PM
آخر رد: anoname
  هدية شهر رمضان المبارك برنامج القرآن الكريم بدون إنترنت عبد الرحمن على 11 1,116 08-06-18, 12:47 AM
آخر رد: سعود
  برنامج Islamic Office - المكتب الإسلامي Abdulhakeem Swisi 6 536 01-05-18, 11:41 PM
آخر رد: anoname
  مثال أو برنامج للتعامل مع الماسح الضوئي أو السكانر بإستخدام مكتبة WIA الرائعه Ahmed_Mansoor 19 1,926 14-04-18, 01:03 AM
آخر رد: Ahmed_Mansoor
  [مقال] برنامج تحويل DataReport الى ActiveReport mamas1 5 2,817 09-04-18, 11:23 PM
آخر رد: dia trya
  [vb6.0] ارجو المساعدة من اعضاء المنتدى -كيفية عمل برنامج تحميل ahmedngah360 1 309 23-03-18, 05:01 PM
آخر رد: ahmedngah360

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم