احبائي واخوتي في المنتدى الكبير
هذا برنامج متواضع قمت بعلمه الآن يقوم بأوامر ايقاف واعادة التشغيل وتسجيل الخروج من ويندوز....طرح موضوع سابق في هذا من قبل الأخ Eng. Usama El-Mokadem مشكورا ولكني رأيت أن اطرح طريقتي التي تنجح في فيجوال بيسك أيضا
تفضلو هذا هدية لكم ارجو ان يحوز رضاكم واعجابكم!!!
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 26 فبراير 2007 في 19:39
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
الله يجزاك خير اخي همام
تحياتي
Ekseer
الأخ الفاضل ....
اسمح لى بإضافة بسيط على مثالك الجميل ، وهى إضافة زرار رابع لتحكم أكثر فى الجهاز، بأستخدام طريقة الـ(Shell) التى أستخدمتها وليس طريقة الـ (API) التى استخدمتها فى مثالى السابق
شكراً
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 7 فبراير 2008 في 13:49
Nothing is impossible, the word impossible itself says that: I M - Possible
اخي اسامه الله عليك
اضافة تستحق كل احترام وبها زاد البرنامج فاءدة
بدون مجاملة مشكور فعلا هذا لطف منك
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
جزاك الله الف خير
أخوي همام وجعله في ميزان حسناتك
الأخ الفاضل ....
اسمح لى بإضافة بسيط على مثالك الجميل ، وهى إضافة زرار رابع لتحكم أكثر فى الجهاز، بأستخدام طريقة الـ(Shell) التى أستخدمتها وليس طريقة الـ (API) التى استخدمتها فى مثالى السابق [رابط صحيح]
شكراً
الملفات المرفقة
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 7 فبراير 2008 في 13:49
Nothing is impossible, the word impossible itself says that: I M - Possible
بارك الله فيك اخي الكريم همام ابوعرقوب وجزاك الله الف خير
والشكر موصول للاخ الكريم Eng. Usama El-Mokadem
اخي الفاضل المبدع همام ابو عرقوب
اخي الفاضل المهندس المحترف أسامه المقدم
بارك الله فيكم جميعا على هذا التعاون وظهور البرنامج بهذا الشكل المشرف
اختي زهرة المنتدى
كان هذا شرفا لي ان تعلقي على الموضوع بهذه الكلمات
هذا لطف كبير...فلقد تعلمنا منك الكثير...
نشكر مرورك الكريم
همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
ماشاء الله دوماً فى الرياده
بارك الله فيك وجزاك الله كل خير
ألف ألف شكر لكم
والله يعطيكم العافية
السلام عليكم ورحمة الله وبركاته
أخي العزيز همام
وفقك الباري وإلى الأمام ياهمام
أخي العزيز همّام
سلام من الله عليك
ماشاء الله عليـــك
إبداع وتفرُّد
ولكن لي استفسارين:
ماهو الكود اللازم لعمليـــة Hibernation
الإستفســـار الثاني:
Private Sub re_Click()
msgs (re.Caption)
If X = 6 Then
Shell "shutdown -r -f -t 0"
Else
Exit Sub
End If
End Sub
في الكود السابق: أين تم إسناد القيمة 6 للمتغيّر x؟ حيث أنني بحثت في كل الــ procedures ولم أجد، فقط وجدتُ الإعلان عنه كمتغير integer
جزاك الله خيراً
سبحان اللّه وبحمده... سبحان الله العظيم
--------------------------------------------------
لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما
وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام
الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب
العالميـــن.
--------------------------------------------------
اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك
إلى يوم الدّيـــن
[يمين]--------------------------------------------------
[/يمين]
وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي
وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا
اقتباسأين تم إسناد القيمة 6 للمتغيّر x؟
عزيزي واخي ...
هذا السطر من الكود خاص بدالة MsgBox حيث يكون قيمة المتغير Yes اي نعم على الزر الذي يظهر في مربع الرسالة،،
فاذا ضغط المستخدم على الزر نعم فان القيمة تتخزن بالرقم 6، وينفذ الكود الذي يليه، ان ضغط المستخدم لا فان القيمة التي تخزن من الزر هي 7 ... وهذا هو..
بالنسبة لل Hibernation فلم اجرب لكن بالتاكيد الكود مشابه الا ان الحرف الذي يكتب مباشرة بعد جملة ShutDown سيتغير...
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 26 سبتمبر 2007 في 22:14
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
أخي العزيز أبو عرقـــــــــــوب
تحيــــّة طيـــّــبة
بالنسبة للفكرة العامّة للكود فهي بالتأكيد واضحة وبسيطة. أنا أستخدم عادة الكود التالي على سبيل المثال في زر أمر exit:
Private Sub cmdExit_Click()
x = MsgBox("Are you sure you want to exit?", vbYesNo + vbCritical, "Confirm")
If x = vbYes Then
DoCmd.Close
Else
Exit Sub
End If
End Sub
نفس فكرة كود حضرتك... أليــــس كذلك؟
الّذى لم أفهمه هو رقمي 6 و 7، أي نعم أنت أعلنت عن متغير x integer، ولكن أليس من المفترض أن تسند له قيمة أولاً ثم تتأكد بواسطة الشرط ماإذا كنت قد أسندت تلك القيمة أوغيرها؟
أم أن الفكرة أن تفترض أي قيمة عشوائية للمتغير وتبني عليها الشرط لأن النتيجة هي واحدة من اثنتين، إمّا نعم أو لا؟؟
معذرة أطلت عليك
سدّدَ اللهُ خُطــــــاك
سبحان اللّه وبحمده... سبحان الله العظيم
--------------------------------------------------
لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما
وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام
الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب
العالميـــن.
--------------------------------------------------
اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك
إلى يوم الدّيـــن
[يمين]--------------------------------------------------
[/يمين]
وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي
وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا
هذا الموضوع مغلق.
