السلام عليكــم ورحمـة الله وبركاتــه ،،
طبعاً هذا درس بسيط لعمل أله حاسبة بسيطة
أولأ : قم بتشغيل Microsoft Visual Studio وقم بفتح windows form بلغة الفجيول بيسك و سمه Calculater (التسمية إختيارية)
ثانياً : قم بإضافةال objects وهي 4 أزرار (Buttons) و 4 Labels و 2 TextBox
كما في الصورة (طبعاً إعادة التسمية و تغير الألوان عن طريق الخصائص properties بالزر الأيمن على أي من object)
ونأتي الآن للكود:
في Label1 ستضهر النتائج إذن الكود شبة متكرر بالمسبة للأزرار نقوم بالضغط مرتين على زر + الجمع و نكتب :
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
لكن عندما نشغل البرنامج بالضغط على F5 ونجرب هذا الزر سيعمل لكن عندما يكون (مربع النص الأول و الثاني) فارغا سيظهر لنا خطأ و هو أن القيمتين لايمكن جمعهما
و الحل :
جملة إستثناء مثل :
MsgBox("أدخل القيم", MsgBoxStyle.Information)
Else
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End If
If TextBox1.Text = Nothing Or TextBox1.Text = Nothing Then
بحيث أنه إذا كان (مربع النص الأول و الثاني) فارغا سيعطي البرنامج المستخدم رسالة محتواها "أدخل القيم"
ونعمل مع بقية الأزرار نفس الكود لكن بتغيير العلامة من + إلى - وإلى * و إلى /
و هذا الكود كاملاً
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Nothing Or TextBox1.Text = Nothing Then
MsgBox(" ", MsgBoxStyle.Information)
Else
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox1.Text = Nothing Or TextBox1.Text = Nothing Then
MsgBox(" ", MsgBoxStyle.Information)
Else
Label1.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox1.Text = Nothing Or TextBox1.Text = Nothing Then
MsgBox(" ", MsgBoxStyle.Information)
Else
Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = Nothing Or TextBox1.Text = Nothing Then
MsgBox(" ", MsgBoxStyle.Information)
Else
Label1.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End If
End Sub
End Class
بالتوفيق