منتدى ليبياأرس منتدى ليبياأرس منتدى ليبياأرس

العودة   منتدى ليبياأرس > الحـاســوب > لغات البرمجة

إضافة رد
 
أدوات الموضوع
قديم 2011-09-13, 06:39 PM   #1
عبسي الحمديني
مبرمج المستحيل
 
الصورة الرمزية عبسي الحمديني
 
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17
عبسي الحمديني على الطريق الصحيح لتعريف نفسه
افتراضي كود فتح وغلق باب السي دي للكمبيوتر


الكود بسيط جدا ويعتمد على مكتبة موجودة بالويندوز
اسمها
winmm.dll

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

Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub

Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub
انا شخصيا جربت الكود مية مية
لو في احد يقدر يختصر الكود ياريت ايساعدني
__________________

عبسي الحمديني غير متواجد حالياً   رد مع اقتباس
قديم 2011-09-18, 08:35 PM   #2
عبسي الحمديني
مبرمج المستحيل
 
الصورة الرمزية عبسي الحمديني
 
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17
عبسي الحمديني على الطريق الصحيح لتعريف نفسه
افتراضي



طبعا هدا الكود يشتغل علي الفيجيوال بيسك القديم
وما يخدمش علي الفي بي دوت نيت
__________________

عبسي الحمديني غير متواجد حالياً   رد مع اقتباس
قديم 2011-09-27, 03:03 PM   #3
dixie
رابد ثانوي
 
تاريخ التسجيل: Nov 2009
المشاركات: 144
معدل تقييم المستوى: 15
dixie على الطريق الصحيح لتعريف نفسه
افتراضي

مشكور على الكود خوي
dixie غير متواجد حالياً   رد مع اقتباس
قديم 2011-09-28, 01:31 PM   #4
عبسي الحمديني
مبرمج المستحيل
 
الصورة الرمزية عبسي الحمديني
 
تاريخ التسجيل: May 2010
الدولة: Libya
المشاركات: 2,924
معدل تقييم المستوى: 17
عبسي الحمديني على الطريق الصحيح لتعريف نفسه
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة dixie مشاهدة المشاركة
مشكور على الكود خوي
الشكر ليك يا dixie هيا نشطونا قسم اليرمجة
__________________

عبسي الحمديني غير متواجد حالياً   رد مع اقتباس
قديم 2012-01-06, 02:46 AM   #5
a-min
سبحان الله وبحمدة
 
الصورة الرمزية a-min
 
تاريخ التسجيل: Nov 2009
الدولة: طرابلس/سوق الجمعة /الحشان
المشاركات: 84
معدل تقييم المستوى: 15
a-min على الطريق الصحيح لتعريف نفسه
افتراضي

جرب حمل برنامج تشفير تو تشفر (تختصره)
__________________
a-min غير متواجد حالياً   رد مع اقتباس
إضافة رد


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
للبسه العربيه ((الليبيه)) الصح جليسة البحر مواضيع عامة 1 2010-09-13 12:39 PM
جحا يضع حدا للكمبيوتر BLOODY ROAR مواضيع عامة 5 2010-08-26 02:16 PM
امسح دنوبك أدخل وماراح تندم عبسي الحمديني مواضيع إسلامية عامة 2 2010-07-15 03:39 PM
الصد عبسي الحمديني مواضيع إسلامية عامة 1 2010-05-13 09:46 PM


الساعة الآن 11:24 AM.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd