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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حماية البرنامج برقم الهاردسك مع برنامج استخراج رقم الهاردسك مصمم هاوي 5 146 10-07-17, 02:56 PM
آخر رد: مصمم هاوي
Wink [vb6.0] مشروع برنامج لمتابعة السيارات thecareep 7 750 10-07-17, 04:55 AM
آخر رد: ahmed_salah1952
  إهداء للجميع - مثال أو برنامج أرشيف صور المستندات Ahmed_Mansoor 10 2,585 25-06-17, 04:10 AM
آخر رد: slk
  هدية شهر رمضان المبارك برنامج القرآن الكريم بدون إنترنت عبد الرحمن على 8 223 13-06-17, 05:50 AM
آخر رد: عبد الرحمن على
  [vb6.0] برنامج بسيط إهداء للأخ امير الزبيدي عبدالقادرعواد 2 161 08-05-17, 12:01 PM
آخر رد: عبدالقادرعواد
  برنامج موظفين رائع مصعب القرشي 7 1,308 28-03-17, 09:07 PM
آخر رد: Amir_alzubidy
  برنامج مبيعات خاص Ahmed_Mansoor 26 3,277 14-02-17, 01:03 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] برنامج جدول الحصص الاسبوعي ابن دوعن 1 476 22-01-17, 11:16 AM
آخر رد: Ahmed_Mansoor
Information [vb6.0] برنامج فجوال بيسك باللغة العربية ابن دوعن 0 292 03-01-17, 11:41 AM
آخر رد: ابن دوعن
Wink [vb6.0] مشروع برنامج لمتابعة الجوازات ورخص العمل thecareep 3 508 08-12-16, 01:40 AM
آخر رد: Ahmed_Mansoor

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


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