كيفية جمع عددين وظهور النتيجة في Visual Basic

اذهب الى الأسفل

كيفية جمع عددين وظهور النتيجة في Visual Basic

مُساهمة  alla في 26/12/2015, 11:33 pm


كيفية جمع عددين وظهور النتيجة في Visual Basic

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله

كيفية جمع عددين وظهور النتيجة في Visual Basic

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

واضافة زر الى النموذج من أجل ضغط لعرض النتيجة

طريقة هي نقر على الزر مرتين وكتابة الكود التالي


Dim IntA, IntB As Integer
Dim IntC As Integer

IntA = Val(TextBox1.Text)
IntB = Val(TextBox2.Text)

IntC = IntA + IntB

TextBox3.Text = Str(IntC)


الكود:

Private Sub CommandButton1_Click()

Dim IntA, IntB As Integer
Dim IntC As Integer

IntA = Val(TextBox1.Text)
IntB = Val(TextBox2.Text)

IntC = IntA + IntB

TextBox3.Text = Str(IntC)

End Sub


تم تصريح بثلاث متغيرات من نوع صحيح أي Integer
واسناد قيم المربعين الاول والثاني الى المتغيرين
وجمع المتغير الاول المتغير الثاني واسناد النتيجة الى المتغير الثالث

ثم تحويل النتيجة الى سلسلة بتعليمة Str واسناد قيمة المتغير الثالث
الى المربع الثالث

التعليمة Val تعني أنها قيمة رقمية من اجل اجراء عمليات حسابية
عليها

ملاحظة استعملت Visual Basic Word 2007

وشكرا

alla
مبرمج مجتهد

عدد المساهمات : 748
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى