[karem programs]

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