تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود فتح وغلق الدفيدي
#1
السلام عليكم ورحمه الله وبركاته
انا لقيت علي الموقع موضوع بيتكلم عن كود فتح وغلق الدفيدي
http://vb4arb.com/vb/showthread.php?tid=4295
ولكن جيت اجربه عندي حصل ايررور
انا استخدم فيجوال بيسك 2013 لو ممكن تكتب لي كود جديد

   
الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form1
    Private 
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
    ByVal lpstrCommand 
As StringByVal lpstrReturnString As String_
    ByVal uReturnLength 
As LongByVal 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 ObjectAs EventArgsHandles Button1.Click
        OpenCDDriveDoor
(True''فتح 
    End Sub
    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        OpenCDDriveDoor
(False''اغلاق 
    End Sub
End 
Class 

جربته و عمل معي بشكل جيد و الحمد الله رب العالمين .
الرد
تم الشكر بواسطة: ابو روضة , حسن الجلب , ابراهيم ايبو
#3
ضع هذا الكود فى التصريحات بدل االأخر

كود :
<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
الرد
تم الشكر بواسطة: asemshahen5 , حسن الجلب , ابراهيم ايبو
#4
جربتهم والله الاول بيعطيني نفس الخطأ والآخر مش شغال خالص
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
جرب الاكواد في مشروع جديد إذا لم يعطك خطأ فقد يكون عندك شيئ في برنامجك اي في نفس النافذة يتعارض مع الاكواد .
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
نفس الكلام طب ممكن تعملي مثال لو سمحت
الرد
تم الشكر بواسطة:
#7
(27-08-21, 03:38 AM)حسن الجلب كتب : نفس الكلام طب ممكن تعملي مثال لو سمحت

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



الملفات المرفقة
.zip   حسن الجلب.zip (الحجم : 82.12 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#8
شكرا لحضرتك
الرد
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم