منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود فتح وغلق الدفيدي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود فتح وغلق الدفيدي (/showthread.php?tid=39394)

كود فتح وغلق الدفيدي - حسن الجلب - 26-08-21

السلام عليكم ورحمه الله وبركاته
انا لقيت علي الموقع موضوع بيتكلم عن كود فتح وغلق الدفيدي
http://vb4arb.com/vb/showthread.php?tid=4295
ولكن جيت اجربه عندي حصل ايررور
انا استخدم فيجوال بيسك 2013 لو ممكن تكتب لي كود جديد

[attachment=26942]

RE: كود فتح وغلق الدفيدي - asemshahen5 - 26-08-21

PHP كود :
Public Class Form1
    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
            mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
        Else
            mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenCDDriveDoor(True) ''فتح 
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        OpenCDDriveDoor(False) ''اغلاق 
    End Sub
End Class 

جربته و عمل معي بشكل جيد و الحمد الله رب العالمين .

RE: كود فتح وغلق الدفيدي - ابو روضة - 26-08-21

ضع هذا الكود فى التصريحات بدل االأخر

كود :
<DllImport("winmm.dll")> _
   Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
   End Function
الكود كامل بعد إذن الاستاذ عاصم

كود :
Imports System.Runtime.InteropServices
Public Class Form1
   <DllImport("winmm.dll")> _
   Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       mciSendString("set CDAudio door open", vbNullString, 0, IntPtr.Zero)
       Me.Text = "تم الفتح"
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       mciSendString("set CDAudio door closed", vbNullString, 0, IntPtr.Zero)
       Me.Text = "تم الغلق"
   End Sub
End Class


RE: كود فتح وغلق الدفيدي - حسن الجلب - 27-08-21

جربتهم والله الاول بيعطيني نفس الخطأ والآخر مش شغال خالص

RE: كود فتح وغلق الدفيدي - asemshahen5 - 27-08-21

جرب الاكواد في مشروع جديد إذا لم يعطك خطأ فقد يكون عندك شيئ في برنامجك اي في نفس النافذة يتعارض مع الاكواد .

RE: كود فتح وغلق الدفيدي - حسن الجلب - 27-08-21

نفس الكلام طب ممكن تعملي مثال لو سمحت

RE: كود فتح وغلق الدفيدي - ابو روضة - 27-08-21

(27-08-21, 03:38 AM)حسن الجلب كتب : نفس الكلام طب ممكن تعملي مثال لو سمحت

بعد إذن أخى عاصم .
قمت بعمل مشروع لك أخى , تفضّل , بالمرفقات



RE: كود فتح وغلق الدفيدي - حسن الجلب - 29-08-21

شكرا لحضرتك