MIX
12-14-2007, 04:25 PM
السلام عليكم ورحمة الله وبركاته
كيفكم اخواني واخواتي اعضاء ومشرفي المنتدى وزوار
اليوم نكمل بذن الله مع اخونا واخواتنا المبرمجين السلسله
الدرس عبارة عن عمل آله حاسبة بالفيجول بيسك دوت نت
بستخدام if ..... then ..... end if
نبدا الدرس
اول شي تفتح مشروع جديد تابع الصور
http://www.barqalshamal.com/upload/folder1/elite_pUEg9YFEFA.JPG
بعد ما تنتهي من الاختيار والتسمية نقوم بختيار الاتي من الادوات
وهي
checkbox عددها 4
textbox عددها 6
Button عدد 2
كما في الصورة
http://www.barqalshamal.com/upload/folder1/elite_pcakeOuEh.JPG
يتم اختيااارها لمن لا يعرف من صندوق الادوات
http://www.barqalshamal.com/upload/folder1/elite_bCEiZPNaWj.JPG
الان ناتي الى كتابة الكود الخاص بالاآله
نضغط على زر الخروج ونكتب في محرر الكود التالي
Me.Close()
وفي زر حساب نكتب الكود التالي
Dim a, b As Single
a = Me.TextBox1.Text
b = Me.TextBox2.Text
If CheckBox1.Checked Then
Me.TextBox3.Text = "" & a * b
End If
If CheckBox2.Checked Then
Me.TextBox4.Text = "" & a + b
End If
If CheckBox3.Checked Then
Me.TextBox5.Text = "" & a - b
End If
If CheckBox4.Checked Then
Me.TextBox6.Text = "" & a / b
End If
تكون النتيجة كالآتي
http://www.barqalshamal.com/upload/folder1/elite_ZKgoDBBcup.JPG
الحين تجي تقول لي كود الاله الحاسبه طول جدا؟؟ لا ماهو بطويل ولكن مكرر مع اختلاف طفيف في عمليات الحساب فقط
حيث بكود الخروج ولا يخفى على احدكم
اما بكود العمليات الحسابيه قلنا التالي
Dim a, b As Single
خزن لنا اي وبي لاعداد
if....then.....end if).
حيث اننا كتبنا if ثم الشرط ثم then ففيجوال استديوا يكتبها تلقائيا حتى لو لم تكتبها وهي كلمه(then)
a = Me.TextBox1.Text
b = Me.TextBox2.Text
قمنا بتخزين العددين الذي يستخدمهما المستخدم في متغيرين a,b
حيث قلنا للفيجوال بيسك دوت نت في الكود
اذا تم اختيار
If CheckBox1.Checked Then
خزن لي في التكست بوكس رقم 4 قيمة الضرب ( * )
Me.TextBox3.Text = "" & a * b
...End If يضعها الفيجوال بعد استخدام if>>>then
نهاية لعملية
وهكذا حتى اخر كود
واي استفسار او شي غير مفهوم انا حاظر
MIX
كيفكم اخواني واخواتي اعضاء ومشرفي المنتدى وزوار
اليوم نكمل بذن الله مع اخونا واخواتنا المبرمجين السلسله
الدرس عبارة عن عمل آله حاسبة بالفيجول بيسك دوت نت
بستخدام if ..... then ..... end if
نبدا الدرس
اول شي تفتح مشروع جديد تابع الصور
http://www.barqalshamal.com/upload/folder1/elite_pUEg9YFEFA.JPG
بعد ما تنتهي من الاختيار والتسمية نقوم بختيار الاتي من الادوات
وهي
checkbox عددها 4
textbox عددها 6
Button عدد 2
كما في الصورة
http://www.barqalshamal.com/upload/folder1/elite_pcakeOuEh.JPG
يتم اختيااارها لمن لا يعرف من صندوق الادوات
http://www.barqalshamal.com/upload/folder1/elite_bCEiZPNaWj.JPG
الان ناتي الى كتابة الكود الخاص بالاآله
نضغط على زر الخروج ونكتب في محرر الكود التالي
Me.Close()
وفي زر حساب نكتب الكود التالي
Dim a, b As Single
a = Me.TextBox1.Text
b = Me.TextBox2.Text
If CheckBox1.Checked Then
Me.TextBox3.Text = "" & a * b
End If
If CheckBox2.Checked Then
Me.TextBox4.Text = "" & a + b
End If
If CheckBox3.Checked Then
Me.TextBox5.Text = "" & a - b
End If
If CheckBox4.Checked Then
Me.TextBox6.Text = "" & a / b
End If
تكون النتيجة كالآتي
http://www.barqalshamal.com/upload/folder1/elite_ZKgoDBBcup.JPG
الحين تجي تقول لي كود الاله الحاسبه طول جدا؟؟ لا ماهو بطويل ولكن مكرر مع اختلاف طفيف في عمليات الحساب فقط
حيث بكود الخروج ولا يخفى على احدكم
اما بكود العمليات الحسابيه قلنا التالي
Dim a, b As Single
خزن لنا اي وبي لاعداد
if....then.....end if).
حيث اننا كتبنا if ثم الشرط ثم then ففيجوال استديوا يكتبها تلقائيا حتى لو لم تكتبها وهي كلمه(then)
a = Me.TextBox1.Text
b = Me.TextBox2.Text
قمنا بتخزين العددين الذي يستخدمهما المستخدم في متغيرين a,b
حيث قلنا للفيجوال بيسك دوت نت في الكود
اذا تم اختيار
If CheckBox1.Checked Then
خزن لي في التكست بوكس رقم 4 قيمة الضرب ( * )
Me.TextBox3.Text = "" & a * b
...End If يضعها الفيجوال بعد استخدام if>>>then
نهاية لعملية
وهكذا حتى اخر كود
واي استفسار او شي غير مفهوم انا حاظر
MIX