كيفية عمل اله حاسبة على الفيجوال

[مشهور الذنيبات]

برنامج انشاء اله حاسبة على الفيجوال بيسك
تحتاج الى
مربع نص عدد 3 text
ليبل عنوان عدد 1l label
ازرار امر عدد 4 (command)
اضعهم عالفورم و لا تكتب اي اشي عليهم

اضغط دبل كليك عالفورم واضع الكود بداخله


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

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
MuValue = Val(Text1.Text) * Val(Text2.Text)
Text3.Text= "" + Str(MuValue)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Form_Load()
Command1.Caption = "&+" Command2.Caption = "&-" Command3.Caption = "&X" Command4.Caption = "&÷"
Command5.Caption = "&EXIT" Command6.Caption = "&AC" label1.caption = "اله حاسبة الالكترونية"
End Sub

اعمل الفورم كما هو في الشكل التالي

اتمني الاستفادة

[احمد الصرايرة]

حلوه يا مشهور
هاي الي شاطرين فيه الدكاترة في الجامعات يعلموها وبعرفوها

[cazanova222]

مشكووووووووووووووور ع الموضوع الرائع

[محمد ابو عياد]

مشكور ابو الذنيبات على الطريقه