أهلا
بكم مرة ثانية اليوم سوف أعرفكم على طريقة عمل آلة حاسبة بسيطة وللأمانة
فإن الطريقة منقولة ولكن الشرح شرحى والآن أترككم مع الشرح :
* أنشئ مشروع جديد وقم بتسميته Calc
* فم بوضع 4 ليبل (Label) و 8 أزرار (Button) و 3 مربعات نص (TextBox) كما بالصورة التالية :
* غير خصائص Text للأدوات كما بالصورة أما زر الجذر التربيعة فستجد كيفية كتابته فى آخر الشرح
* حدد مربع النص الذى بجوار كلمة الناتج (TextBox3) وقم بتغيير خاصية ReadOnly له من مربع الخصائص إلى True
* حدد زر تفعيل خانة العدد الثانى (Button7) وقم بتغيير خاصية Visible له من مربع الخصائص إلى False
* قم بفتح منطقة كتابة الكود للزر "+" واكتب الكود التالى :
كود PHP:
Me.TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
[right][/right]
* قم بفتح منطقة كتابة الكود للزر " - " واكتب الكود التالى :
كود PHP:
Me.TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
[right][/right]
* قم بفتح منطقة كتابة الكود للزر " × " واكتب الكود التالى :
كود PHP:
Me.TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
[right][/right]
* قم بفتح منطقة كتابة الكود للزر " ÷ " واكتب الكود التالى :
كود PHP:
If TextBox2.Text > 0 Or TextBox2.Text < 0 Then
Me.TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End If
If TextBox2.Text = "0" Then
MessageBox.Show("لا يمكن القسمة على صفر", "خطأ")
End If
[right][/right]
* قم بفتح منطقة كتابة الكود للزر " √ " واكتب الكود التالى :
كود PHP:
TextBox2.Enabled = False
Dim z As String
Dim x As String
z = TextBox1.Text
x = Math.Sqrt(z)
Me.TextBox3.Text = x
Button7.Visible = True
* قم بفتح منطقة كتابة الكود للزر " % " واكتب الكود التالى :
كود PHP:
Dim a As String
a = TextBox3.Text
TextBox3.Text = a / 100
[right][/right]
* قم بفتح منطقة كتابة الكود للزر " تفعيل خانة العدد الثانى " واكتب الكود التالى :
كود PHP:
Me.TextBox2.Enabled = True
Button6.Visible = False
[right][/right]
* قم بفتح منطقة كتابة الكود للزر " OFF " واكتب الكود التالى :
كود PHP:
Me.Hide()
[right][/right]
وبهذا يكون البرنامج جاهز فتكتب العدد الأول والعدد
الثانى ثم تضغط زر العلامة وانتظرونى مع الطريقة الثانية الأفض والاصعب
وأرجو أن يكون شرحى واضحًا
الخميس مايو 28, 2009 10:25 pm
