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