الاتصال بنا



النتائج 1 إلى 9 من 9

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

  1. #1


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

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

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





    المبتدي غير متواجد حالياً


  2. #2


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

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


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








    الخبير غير متواجد حالياً

  3. #3


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





    المبتدي غير متواجد حالياً



  4. مرحبا
    مبدئياً سوف أعطيك الأمر الذي يساعد على عمل 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.

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







    الفارس العربي غير متواجد حالياً

  5. #5


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





    المبتدي غير متواجد حالياً

  6. #6


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

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







    Graceless غير متواجد حالياً



  7. مرحبا
    هذه الأسطر تقوم بتنفيذ ما تريده و لكن على القرص المرن 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







    الفارس العربي غير متواجد حالياً



  8. مرحبا
    هذه الأسطر تقوم بتنفيذ ما تريده و لكن على القرص المرن 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/
    الخاص بتعليم بيسك





    الفارس العربي غير متواجد حالياً

  9. #9


    اخوي المبتدي

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

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

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

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

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

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

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





    الشلاش غير متواجد حالياً





ضوابط المشاركة

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