[مشروع] تصميم برنامج فتح و غلق السيدي روم - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30) +---- الموضوع : [مشروع] تصميم برنامج فتح و غلق السيدي روم (/showthread.php?tid=2134)

تصميم برنامج فتح و غلق السيدي روم - karem programs - 05-03-14 بسم الله الرحمن الرحيم مشروع طريقة تصميم برنامج فتح و غلق السيدي روم السلام عليكم و رحمة الله و بركاته اليوم أعزائي الاعضاء سوف أشرح لسيادتكم طريقة تصميم برنامج بالفيجوال بيسك 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