الفجول بيسك

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

أولا .. ضع مربعي نص

ثانيا : ضع أمام كل نص .. أداة عنوان label

ثالثا: غير العنوان الأول إلى الرقم الأول .. والعنوان الثاني إلى الرقم الثاني

رابعا: ضع أداة label واكتب عليها النتيجة، و ادرج أداة نص بجانبها .. Text3
خامسا: ضع اربعأدوات commend وغير اسمائها إلى …… (الجمع) (الضرب) (الطرح) (القسمة)

سادسا.. كتابة الكود
عرف كلا من المغيرات في General كالتالي..
Dim A as sungle
Dim B as single
A=val(text1.text(
B=val(text2.text)
ثم اضغط على كومند الجمع.. و ادخل الكود التالي
text3.text= A+B
ثم اضغط على كومند الضرب.. وأدخل التالي
text3.text=A*B
ثم على كومند الطرح.. والتالي
text3.text=A-B
وأخيرا على كومند القسمة..
text3.text=A|B

وجي تكون حصلت على آلة حاسبة بسيطة

أرجو انك فهمت .. وتطبق معك

واذا تبي اي استفسار .. لا تتردد

مع السلامة

مشكورة أختي و الله يكثر من أمثالج