الدالة Fix و الدالة Int






الدالتان Fix و InT  من الدوال الرياضية المهمة و الكثيرة الاستخدام .


ملاحظة :الأعداد العشرية مثل: 12.3 ، 1.68456 ، 0.454 ، 15.6-


وظيفة الدالة Fix: تقوم بارجاع الجزء الصحيح من العدد العشري دون تقريب أو بعبارة أخرى تقوم  بحذف الأرقام العشرية الموجودة بعد العلامة العشرية بدون تقريب و ارجاع الجزء الصحيح من العدد 

 بمعنى لو كان لدينا العدد 1.33  وقمنا باستخدام الدالة Fix فان الناتج يكون 1  و هكذا...


الآن قم بانشاء مشروع جديد في الفيجوال بيسك و أضف Button ثم انقر عليه بالماوس نقرا مزدوجا للدخول الى نافذة الكود و اكتب الكود التالي: 

        MsgBox(Fix(-1.992)) 'الناتج -1
        MsgBox(Fix(5.999999)) ' 5 الناتج
        MsgBox(Fix(99.222)) '99 الناتج
        MsgBox(Fix(-15.7)) '-15 الناتج
        MsgBox(Fix(0.32992)) '0 الناتج







أما الدالة InT فلها نفس وظيفة الدالة Fix تماما الا أن الاختلاف بينها يظهر مع الأرقام السالبة .


فالدالتان ترجعان نفس القيمة اذا كان العدد العشري موجبا .مثال: 



         Dim new_number As Integer

        new_number = Fix(9.9) ' الناتج 9
        new_number = Int(9.9) ' الناتج 9

        new_number = Fix(10.99) ' الناتج 10
        new_number = Int(10.33) ' الناتج 10








أما اذا كان العدد العشري سالبا فهنا الاختلاف :


لاحظ المثال: 

       Dim new_number As Integer

        new_number = Fix(-9.9) ' -الناتج 9
        new_number = Fix(-10.99) ' -الناتج 10
        new_number = Fix(-3.55) ' -الناتج 3
        new_number = Fix(-100.2) ' -الناتج 100

       
        '''''''''''''''''''''''''''''''''''''''''
        '''''''''''''''''''''''''''''''''''''''''

        new_number = Int(-9.9) ' -الناتج 10
        new_number = Int(-9.3) ' -الناتج 10
        new_number = Int(-44.67567) ' -الناتج 45
        new_number = Int(-10.33) ' -الناتج 11
        new_number = Int(-0.9) ' -الناتج 1






أتمنى يكون المثال واضح .



إقرأ المزيد... Résuméabuiyad

عمل شاشة افتتاحية لبرنامجك


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


سنتعرف على طريقتين لكيفية عمل هذه الشاشة الافتتاحية :

  


قم باضافة Form جديد الى مشروعك - من نافذة solution explorer قف بالماوس على اسم المشروع ثم اضغط بزر الماوس الايمن عليه ثم اختر add ثم new item  ستظهر نافذة جديدة ، اختر windows form ثم اضغط ok
  
هذا الــ Form  الجديد و الذي سيكون اسمه form2 سيكون هو الشاشة الافتتاحية للمشروع لذا قم بتصميمه كما تريد ، ثم بعد الانتهاء من التصميم اتبع الشرح الموضح على الصورة التالية : 
 
اضغط على الصورة لتكبيرها


قم بتشغيل البرنامج واختبر النتيجة بنفسك





1-قم بفتح مشروع جديد 
2-أضف form2 جديد كما في الطريقة الأولى ليكون هو الشاشة الافتتاحية 
3- قم باضافة Timer1 الى الـForm1  ومن نافذة الخصائص properties  اجعل :

 Interval = 3000  ، Enabled=true الخاصية

ثم اضغط بزر الماوس ضغطا مزدوجا على Timer1 للدخول الى محرر الكود ثم اكتب الكود التالي- الكود الواقع بين الخطين باللون الأحمر - :


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

------------------------------------
        Me.Hide()
        Form2.Show()
        Timer1.Enabled = False
-----------------------------------
    End Sub





ملاحظة على استخدام show و hide و ...

عندما نقوم بكتابة الكود :
Form1.hide
فان الفورم يختفي فقط حيث أنه في الحقيقة مازال يعمل و لم يتم اغلاقه و بالتالي استمرار في استهلاك ذاكرة الجهاز و...و...و... غيرها الكثير
و لتتأكد من صحة كلامي
اكتب الكود التالي
form1.hide
form2.show
ثم نفذه و بعد ذلك اضغط على زر × الموجود أعلى اليمين للform2 ستجد أن البرنامج ما زال يعمل و أن ال debug مازال مستمرا حتى تقوم بالضغط على "المربع " بداخل الفيجوال بيسك لايقاف البرنامج
 
يمكنك حل هذه المشكلة بكتابة الكود التالي في حدث الاغلاق الخاص بالفورم2 :
form1.close

أتمنى تكون الفكرة قد وصلت




إقرأ المزيد... Résuméabuiyad