طلب برنامج ومساعدة الرجاء الاسراع بالرد

[المبتدي]

السلام عليكم ورحمة الله وبركاته
انا مبرمج مبتدي بلغة الفيجوال بيسك 5 واريد من الخبراء مساعدتي في تصميم برنامج يقوم بعمل formatللجهاز بعد 30يوم من تشغيله واطلب مساعدتي بذكر المواقع التي تساعد على تعليم الفيجوال بيسك وايهما افضل الاصدار 5 او 6
شاكرا لكم جهودكم وسعيكم

------------------
ان لم تكن ذئبا اكلتك الذئاب
----------------------------------------------------------------------
vip2@ayna.com

[b]<small><small>[ تم تعديل الموضوع بواسطة &nbsp; المبتدي &nbsp; يوم &nbsp; 28-01-2000]

[الخبير]

- بالنسبة لنسخ البيسك فبالتأكيد النسخه 6 أفضل من 5 والقادمه 7 ستكون الأفضل ولكن بالنسبه للمبتدئين فالنسخ كلها متشابهه ولن تلاحظ وجود فروق
بينها
- اما عن المواقع التي تساعد على تعليم البيسك فبإمكانك الرجوع لمواضيع سابقه فبعض الإخوة قاموا بتصميم مواقع تعليميه للبيسك وكتبوها بمواضيع سابقه
- بالنسبه لسؤالك عن البرنامج فإن كنت تقصد أنه بعد ثلاثين يوم من إستخدام البرنامج يقوم بعمل فورمات على الجهاز كاملا فلا أعتقد أن بإمكان برنامج عمل هذا لإنه حسب علمي وقد أكون مخطيء فالفورمات على الجهاز كاملا لا تتم إلا من خارج الويندوز ولا تنفذ داخله
أما إذا أردت عمل فورمات لإحد أجزاء الهارديسك أو القرص المرن فهذه ممكنه

أتمنى أن أكون أجبت على تساؤلاتك


------------------
البريد الإلكتروني lonly200@yahoo.com

[المبتدي]

طيب ماهي مشكلة ابغاه يقوم بعمل FORMAT لC:\ فماذا اعمل اريد الاوامر اوالكود رجاء اريد الرد بسرررررعة

[الفارس العربي]

مرحبا
مبدئياً سوف أعطيك الأمر الذي يساعد على عمل Format للجهاز من خلال بيسك (كن حذراً) في هذا الأمر سنقوم بعمل Format للقرص المرن A:
1- افتح نموذج جديد.
2- ضع زر
3- اختر الحدث Onclick للزر.
4- ضع هذه الأسطر:
Dim TempVar

TempVar = Shell("c:\windows\command\format.com a:", 1)
إنتبه لقوس بداية الدالة و نهاية الدالة

4- نفذ النموذج.

شرح الأمر:
بما أنك سوف تستخدم برنامج من خارج دوال بيسك و هو برنامج format.com الموجود في المسار التالي: c:\windows\command فإنه لتنفيذ برامج خارج بيسك نستخدم الإجراء shell . لمزيد من التفاصيل حول طريقة استخدامها إرجع للتعليمات في VB.

إذا كنت تريد مزيد من التفاصيل فأرجوا التحديد بالضبط.

[المبتدي]

مازالت هناك بعض الاشكالات لدي من ناحية
1- مالامر الذي اقوم بادخالة ليقوم بعمل format c:\بعد مدة معينة من تشغيل البرنامج (مثلا بعد 30 يوما من تشغيله )
2- ماالامر الذي اقوم بتعديلة ليقوم بعمل format c:\ ولا اريد a:\
وشكرا

[Graceless]

وناوي على جهاز مين يالمبتدى؟
عسى مانت ناوي تفرمت جهازي؟

------------------
كل أبن أنثى وأن طالت سلامته ***** يوماً على آلة حدباء محمول
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
للمراسله
abodi1@swalif.com

[الفارس العربي]

مرحبا
هذه الأسطر تقوم بتنفيذ ما تريده و لكن على القرص المرن a، و لتنفيذها على القرص الصلب C قم بكتابة C مكان a. هذه الطريقة تقوم باستخدم أداة المؤقت 0يجب أن تكون عندك خبرة قليلة في استخدام أدوات VB ):
هناك حدث event في كل نموذج form يسمى onload قم بوضع هذه الأسطر فيه.
Option Explicit

Private dteRunTime As Date

Private Sub Form_Load()
'--------------------
' Set execution date
'--------------------
dteRunTime = DateAdd("d", 10, Now)

'--------------------
' Set up the timer
'--------------------
With Timer1
.Interval = 60000 ' once a minute
.Enabled = True
End With
End Sub

[الفارس العربي]

مرحبا
هذه الأسطر تقوم بتنفيذ ما تريده و لكن على القرص المرن a، و لتنفيذها على القرص الصلب C قم بكتابة C مكان a. هذه الطريقة تقوم باستخدم أداة المؤقت 0يجب أن تكون عندك خبرة قليلة في استخدام أدوات VB ) ألأساسية:
ضع أداة المؤقت على النموذج و هناك حدث event في كل نموذج form يسمى onload قم بوضع هذه الأسطر فيه.
Option Explicit

Private dteRunTime As Date

Private Sub Form_Load()
dteRunTime = DateAdd("d", 10, Now)

With Timer1
.Interval = 60000 ' once a minute
.Enabled = True
End With
End Sub

هذا المثال يوقوم بجعل برنامج ينام عشرة أيام، إذا أردت تعديل عدد الأيام فضع عدد الأيام الذي تريده مكان العشرة.

الخطوة الثانية هي أن تضع الأسطر التالية في الحدث Timer الموجود أداة المؤقت.

Private Sub Timer1_Timer()
Static lngHour As Long
Static lngMinute As Long
Dim TempVar

lngMinute = lngMinute + 1
If lngMinute =&gt; 60 Then
lngHour = lngHour + 1
If lngHour =&gt; 24 Then
if date() =dteruntime Then
TempVar = Shell("c:\windows\command\format.com a:", 1
End If
lngHour = 0
End If

lngMinute = 0
End If
End Sub


قم بتجربة هذه الأسطر على القرص المرن a قبل ان تعتمدها على القرص الصلب، و أنا غير مسئول عن أي مشاكل قد تواجهك، بالطبع هناك حلول أكثر تطور و أسهل فقط على من يعرف استخدام API Function.
حظ طيب


------------------
انتظروا قريبا برنامج مجاني كهدية لأعضاء سوالف سوفت.
هل زرت موقع http://www.eccentrix.com/education/basic/
الخاص بتعليم بيسك

[الشلاش]

اخوي المبتدي

هذه الطريقة تعتبر قنبلة موقوته في الكمبيوتر

اعني (مسابهه للفيروسات ) اذا كنت ترغب في تدمير

جهاز احد اصحابك (مسح جميع البرامج) فهذا

مزح ثقيل جدا وانصحك بأن لاتفعل ربما تكون لديه

ملفات مهمة جدا وتتسبب في فقدانها0

اتمنى ان اكون مخطي وتكون انت ترغب في التعلم فقط

------------------
اخوكم
الشـــلاش
( الدنيا ماتسوى كل هذا التعب )