منتدى طلاب جامعة الحديدة

أخي الزائر إن لم تكن عضواً في المنتدى فنحن ندعوك لكي تنظم إلينا وشكراً تحيات مدير المنتدى طارق البغوي
منتدى طلاب جامعة الحديدة


    كود ألة حاسبة علمية بلغة الفيجول بيسك

    شاطر

    طارق البغوي
    المدير العام للمنتدى
    المدير العام للمنتدى

    ذكر
    عدد الرسائل : 2833
    العمر : 29
    البلد : الجهورية اليمنية
    القسم والمستوى : خريج قسم الرياضيات 2010م
    المزاج : متقلب ( مزاج شاعر )
    أختر علم دولتك :
      :
    السٌّمعَة : 14
    نقاط : 985
    تاريخ التسجيل : 28/09/2007

    بطاقة الشخصية
    تخصصي: رياضيات
    المحافظة: الحديدة

    كود ألة حاسبة علمية بلغة الفيجول بيسك

    مُساهمة من طرف طارق البغوي في السبت ديسمبر 08, 2007 3:20 am

    هذه اكواد اله حاسبه علميه وان شاء الله تكون الاكواد واضحة ومفهومه

    Dim clearDisplay As Boolean
    Dim Operand1 As Double, Operand2 As Double
    هنا تكتب الاكواد في اعلى الصفحة وبالضبط
    Dim [Operator] As String
    ا
    public class
    تحت كلمة الــ
    هنا تكتب الكود في زر رقم واحد ولاحظ كتابة اسامي الازرار في كود واحد


    Private Sub bttn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn0.Click, bttn1.Click, bttn2.Click, _
    bttn3.Click, bttn4.Click, bttn5.Click, bttn6.Click, bttn7.Click, bttn8.Click, bttn9.Click


    If clearDisplay Then
    lblDisplay.Text = ""
    clearDisplay = False
    End If
    lblDisplay.Text = Val(lblDisplay.Text + sender.text)
    End Sub
    __________________________________________________ ________________________
    كود زر الفاصلة في الارقام

    Private Sub bttnPeriod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnPeriod.Click

    If lblDisplay.Text.IndexOf(".") > 0 Then
    Exit Sub
    Else
    lblDisplay.Text = lblDisplay.Text & "."
    End If
    End Sub
    __________________________________________________ _______________________
    كود زر الامر الجمع (+)

    Private Sub bttnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnPlus.Click

    Operand1 = Val(lblDisplay.Text)
    [Operator] = "+"
    clearDisplay = True
    End Sub
    __________________________________________________ _______________________
    كود عملية اليساوي (=)

    Private Sub bttnEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnEquals.Click

    Dim result As Double
    Operand2 = Val(lblDisplay.Text)
    Try
    Select Case [Operator]
    Case "+"
    result = Operand1 + Operand2
    Case "-"
    result = Operand1 - Operand2
    Case "*"
    result = Operand1 * Operand2
    Case "/"
    If Operand2 <> "0" Then lblDisplay.Text = result
    End Select
    Catch exc As Exception
    MsgBox(exc.Message)
    result = "ERROR"
    Finally
    lblDisplay.Text = result
    clearDisplay = True
    End Try
    End Sub

    __________________________________________________ _______________________





    كود عملية الطرح (-)

    Private Sub bttnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnMinus.Click

    Operand1 = Val(lblDisplay.Text)
    [Operator] = "-"
    clearDisplay = True ' lblDisplay.Text = ""

    End Sub
    __________________________________________________ _______________________
    كود عملية الضرب (*)

    Private Sub bttnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnMultiply.Click

    Operand1 = Val(lblDisplay.Text)
    [Operator] = "*"
    clearDisplay = True

    End Sub
    __________________________________________________ _______________________
    كود عملية القسمه (/)
    Private Sub bttnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnDivide.Click

    Operand1 = Val(lblDisplay.Text)
    [Operator] = "/"
    clearDisplay = True

    End Sub
    __________________________________________________ _______________________
    وغير الخاصية من form_ اكتب هذا الكود في الـ
    Form_load
    الى form_keypress

    Private Sub Form_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
    If System.Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Then
    If clearDisplay Then
    lblDisplay.Text = ""
    clearDisplay = False
    End If
    lblDisplay.Text = lblDisplay.Text + e.KeyChar
    End If
    End Sub
    __________________________________________________ _______________________
    كود زر المسح في مربع النص lblDisplay.Text

    Private Sub bttnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnClear.Click

    lblDisplay.Text = ""







    منقول....


    _________________

    أذا ما ذكرت أسمها بت أغفوا


    أعانقها في هدوء الحياء


    وصمت المحبة


    أرشف من هجرها


    نبع روحي


    لتنبت بين ضفائرها قصة


    تقول ألتقينا ...


    والكن ...


    على نصف حلم بكينا


    فتغتصب الشوق


    طارق البغوي
    المدير العام للمنتدى
    المدير العام للمنتدى

    ذكر
    عدد الرسائل : 2833
    العمر : 29
    البلد : الجهورية اليمنية
    القسم والمستوى : خريج قسم الرياضيات 2010م
    المزاج : متقلب ( مزاج شاعر )
    أختر علم دولتك :
      :
    السٌّمعَة : 14
    نقاط : 985
    تاريخ التسجيل : 28/09/2007

    بطاقة الشخصية
    تخصصي: رياضيات
    المحافظة: الحديدة

    رد: كود ألة حاسبة علمية بلغة الفيجول بيسك

    مُساهمة من طرف طارق البغوي في السبت ديسمبر 08, 2007 3:28 am

    هذا البرنامج هام جدا لانه يفيدك في معرفة التراكيب البرمجية ارجوا منك تنفيذ البرنامج معي خطوة بخطوة للاستفادة معي في حالة عدم عمل البرنامج معك يمكنك اخبارنا بذلك في صفحة المشاركة والاستفسار في الصفحة الرئيسية

    البرنامج يعمل تحت بيئة وندوز جميع الاصدارات

    البرنامج هو الة حاسبة اكترونية مواصفات خاصة

    الخطوات/ افتح فورم جديد
    اختار الادوات التالية/ 2مربع نص
    ليبل اي مربع عنوان 3
    اربعة ازارير كوماند
    رتب الادوات لتكون على الفورم بهذا الشكل



    الليبل الاول اكتب فيه العنوان (الة حاسبة)

    مربعي النص الاثنين اتركهما فارغين وامسح اي كلام من الخصائص دعها فارغةtext من خاصية

    caption ضع علامات الحساب من الخاصية

    ضع على كل ازرار علامات الحساب وهي الجمع القسمة الطرح الضرب

    الليبل الثاني اتركه فارغا لتظهر فيه نتائج العمليات

    الليبل الثالث اكتب فيه اسمك من الخاصية كابشن

    يجب ان تجل مربعي النص متلاصقين انظر النموذج





    الان اضف كتابة الكود التالي
    اذهب للفورم وانقر مرتين على ليبل اثنين والصق الكود التالي

    Private Sub Label2_Click()
    Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
    End Sub
    الان انقر مرتين على زر الزائد والصق الكود التالي

    Private Sub Command1_Click()
    Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
    End Sub

    انقر على زر الطرح واكتب او الصق الكود التالي

    Private Sub Command2_Click()
    Label2.Caption = Val(Text1.Text) - Val(Text2.Text)
    End Sub
    عزيزي لاحظ ان ازرار الزائد يمثل كوماند واحد وازرار الطرح يمثل موماند تو اذا انتبه للأرقام الكوماند

    يجي توافق ارقام الازارير في الكوماند حتى تستطيع لص النص بسهولة ويمكنك تنفيذ البرنامج دون اخطاء

    اكمل كتابة الكود انقر مرتين على زر القسمة وهو ذو الشرطة المائلة يمينا والصق مايلي

    Private Sub Command3_Click()
    Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
    End Sub

    الاخير زر الظرب انقر مرتين لتخرج صفحة الكود والصق مايلي

    Private Sub Command4_Click()
    MuValue = Val(Text1.Text) * Val(Text2.Text)
    Label2.Caption = "" + Str(MuValue)
    End Sub

    الان نفذ البرنامج واكتب اي رقمين في التكست وبالماوس اختر العملية الحسابية لترى النتائج بنفسك

    عزيزي يمكنك اضافة زر خامس واكتب عليه خروج من البرنامج ثم انقر عليه مرتين واكتب فقط كلمة

    END
    أخوكم البغوي.....


    _________________

    أذا ما ذكرت أسمها بت أغفوا


    أعانقها في هدوء الحياء


    وصمت المحبة


    أرشف من هجرها


    نبع روحي


    لتنبت بين ضفائرها قصة


    تقول ألتقينا ...


    والكن ...


    على نصف حلم بكينا


    فتغتصب الشوق


    أبو لجين الهبلي
    عضو جديد
    عضو جديد

    ذكر
    عدد الرسائل : 2
    العمر : 34
    البلد : اليمن
    القسم والمستوى : متخرج من قسم الكمبيوتر
    المزاج : _____
      :
    السٌّمعَة : 0
    نقاط : 0
    تاريخ التسجيل : 22/03/2008

    رد: كود ألة حاسبة علمية بلغة الفيجول بيسك

    مُساهمة من طرف أبو لجين الهبلي في السبت مارس 22, 2008 6:06 am

    يعطيك االف الف عافية اخي طارق

    اعدت لنا ذكريات الدراسة واكواد الفجول بيسك

      الوقت/التاريخ الآن هو السبت ديسمبر 03, 2016 4:52 pm