الاخوة الاعزاء اريد عمل نموذج به زر امر واحد بمجرد الضغط عليه يقوم بفتح السواقة اذا كانت مغلقو وغلقها اذا كانت مفتوحة
اعود وأؤكد الزر واحد فقط
زر يفتح ويغلق السواقة
مغلق
دور في البرنامج ( مكتبة الاكواد ) راح اتحصل البرنامج مع اختلاف بسيط كل الي عليك انك تسويه تقص الكود الي في الفورما وتنسخه في الزر الي تبغاه
ملاحضه : ستجد البرنامج في المرفقات ادا مو عندك
اخي الكريم في المكتبة لا يوجد الا كود للفتح وكود للاغلاق ولكن بزرين امر وليس واحد
انا اريد ان يكون الاغلاق والفتح بزر واحد
وشكرا
هناك طريقة زرين
بسهولة
ضع الزر الثاني على الزر الاول
و خاصية visable = false
في الزر الاول بعد كتابة كود فتح السواقة
command2.visable = true
وفي الزر الثاني بعد كود غلق السواقة
commmand2.visable = false
اتمنى فهمت الفكرة
اقتباساخي الكريم في المكتبة لا يوجد الا كود للفتح وكود للاغلاق ولكن بزرين امر وليس واحدانا اريد ان يكون الاغلاق والفتح بزر واحد
زرين و زر ؟!!!!!!!!
أهذه طريقة تفكير برمجية ...
لا حول ولا قوة إلا بالله
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اقتباسزرين و زر ؟!!!!!!!!أهذه طريقة تفكير برمجية ...
لا حول ولا قوة إلا بالله
ماشاء الله عليك بدال ما تهمز وتلمز اذا كنت دكتور زمانك بالبرمجة انطق هالجوهرة او فالتزم بالصمت
ousamagm2
لا تسئ فهم خبيرنا cipher
فهو يقصد دمج الزرين بالزر
ضع متغير خارج الزر من نوع Boolean
وداخل الزر تحقق منه
ان كان True اغلق
ان كان False افتح
السلام عليكم ورحمة الله وبركاته
يمكنك وضع هذا الكود في زر وان شاء الله سيؤدي المطلوب
Dim t1 As Variant Dim t2 As Variant t1 = Time mciSendString "set cdaudio door closed", 0, 0, 0 t2 = Time If t2 - t1 = 0 Then mciSendString "set cdaudio door open", 0, 0, 0
نسيت شئ عن mciSendString
طبعا بعد اضافة
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
تم تعديل هذه المشاركة بواسطة DreamNet في 12 يونيو 2007 في 12:40
السلام عليكم
هذا تطبيقي :D
لكن اذا كان عندي اكثر من سيدي رايتر
وحبيت اني احط الاداة ((Combo1))
علشان احدد له كيف الطريقه وشاكر لكم
سلام
كل الشكر للاخوة الذين ابدو تعاونا معي وآسف اذا كنت أخطأت بحق أحد
اكرر شكري وامتناني
تم تعديل هذه المشاركة بواسطة ousamagm2 في 13 يونيو 2007 في 00:32
طيب لو كان عندي أكثر من cd كيف يمكن ذلك
باستعمال mciSendString دائما لكن الفرق هنا هو اننا سنحدد alias لسطر الأمر المنفد من طرف mciSendString
وباستعمال نفس الرابط ننفد أمر الاغلاق أو الفتح بتحديد القارئ المراد فتحه
يعني راح نستعمل سطر لتحديد حرف القارئ
وسطر آخر لفتحه أو اغلاقه
مثلا:
mciSendString "Open E: Alias cd1 type CDAudio",0,0,0
للفتح
mciSendString "Set cd1 Door open"",0,0,0
للاغلاق
mciSendString "Set cd1 Door closed",0,0,0
في الأخير غير فقط E بحرف السيدس الدي تريد فتحه أو اغلاقه
يمكن استعمال GetDriveType لمعرفة نوع الدرايف ادا كان سيدي أو شئ آخر
بالتوفيق ان شاء الله
شكرا على المعلومة
هذا الموضوع مغلق.