منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
صنع زر يفتح السيدي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : صنع زر يفتح السيدي (/showthread.php?tid=9758)

الصفحات: 1 2

صنع زر يفتح السيدي - sadiq - 23-07-13

السلام عليكم ورحمة الله وبركاته
احتاج كود اذا ضغطت زر يفتح مكان وضع السي دي
http://www.lafoor-sarzamineman.ir/wp-content/uploads/744-black.jpg

صنع زر يفتح السيدي - 3booody - 23-07-13

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
ضع زرين بوتون واحد لفتح السي دي والثاني لغلقه[/COLOR]
كود :
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

    Private Sub OpenCD()
        Dim lRet As Long
        lRet = mciSendString("set CDAudio door open", "returnstring", 127, 0)
    End Sub
    Private Sub CloseCD()
        Dim lRet As Long
        lRet = mciSendString("set CDAudio door closed", "returnstring", 127, 0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenCD()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CloseCD()
    End Sub


صنع زر يفتح السيدي - sadiq - 23-07-13

شكراً لك ....

صنع زر يفتح السيدي - ابراهيم - 23-07-13

PHP كود :
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

    Private Sub cmdOpen_Click()
        'Open the CD Drive
        mciSendString("set CDAudio door open", 0, 127, 0)
    End Sub 


صنع زر يفتح السيدي - sadiq - 23-07-13

لاكن اتمنا ان تفصل الكودات للني لم افهمه

صنع زر يفتح السيدي - sadiq - 23-07-13

اخي ابراهيم الكود لم يعمل معي

صنع زر يفتح السيدي - 3booody - 23-07-13

اخي الطريقة بسيطه أولآ ضع هذه الدالة
كود :
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

ولفتح السي دي ضع هذا الكود في زر بوتون
كود :
Dim o As Long = mciSendString("set CDAudio door open", "sting", 127, 0)


صنع زر يفتح السيدي - sadiq - 23-07-13

[ATTACH=CONFIG]3449[/ATTACH]
عندم اريد اجرب البرنامج

صنع زر يفتح السيدي - 3booody - 23-07-13

اخي هنا قسم فيجول بيسك دوت نت vb.net وليس فيجول 6 !! مثالي على الدوت نت :confused:

صنع زر يفتح السيدي - الشاكي لله - 23-07-13

اترك عندك الفيجوال 6 وتعال للدوت نت

الناس تطورو وانتون للحين