تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج مبيعات خاص Ahmed_Mansoor 28 5,487 26-07-18, 04:21 PM
آخر رد: اسلام الكبابى
  برنامج تعليم لغه انجليزية ناطق مفتوح المصدر amro1965 1 145 21-07-18, 08:14 PM
آخر رد: anoname
  هدية شهر رمضان المبارك برنامج القرآن الكريم بدون إنترنت عبد الرحمن على 11 778 08-06-18, 12:47 AM
آخر رد: سعود
  برنامج Islamic Office - المكتب الإسلامي Abdulhakeem Swisi 6 329 01-05-18, 11:41 PM
آخر رد: anoname
  مثال أو برنامج للتعامل مع الماسح الضوئي أو السكانر بإستخدام مكتبة WIA الرائعه Ahmed_Mansoor 19 1,272 14-04-18, 01:03 AM
آخر رد: Ahmed_Mansoor
  [مقال] برنامج تحويل DataReport الى ActiveReport mamas1 5 2,528 09-04-18, 11:23 PM
آخر رد: dia trya
  [vb6.0] ارجو المساعدة من اعضاء المنتدى -كيفية عمل برنامج تحميل ahmedngah360 1 174 23-03-18, 05:01 PM
آخر رد: ahmedngah360
  [vb6.0] برنامج القيود اليومية محمود صالح 3 315 10-02-18, 01:54 PM
آخر رد: Eng27
  إهداء للجميع - مثال أو برنامج أرشيف صور المستندات Ahmed_Mansoor 12 5,059 20-01-18, 09:42 PM
آخر رد: yahyaalmalki
  [مشروع] برنامج تكاليف البناء sulimanalahdl 5 423 05-12-17, 11:54 AM
آخر رد: ام محمد22

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


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