• 0
abd3d3

أول موضوع لي بالمنتدى درس عمل آلة حاسبة بسيطة في Vb.net

سؤال

السلام عليكــم ورحمـة الله وبركاتــه ،،

طبعاً هذا درس بسيط لعمل أله حاسبة بسيطة

أولأ : قم بتشغيل Microsoft Visual Studio وقم بفتح windows form بلغة الفجيول بيسك و سمه Calculater (التسمية إختيارية)

ثانياً : قم بإضافةال objects وهي 4 أزرار (Buttons) و 4 Labels و 2 TextBox

Tutorial.jpg

كما في الصورة (طبعاً إعادة التسمية و تغير الألوان عن طريق الخصائص 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[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Class[/color][/size][/color][/size][size=2] Form1

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button1_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button1.Click

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then

[/color][/size][/color][/size][size=2]

MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else

[/color][/size][/color][/size][size=2]

Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If

[/color][/size][/color][/size][size=2]

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub

[/color][/size][/color][/size][size=2]

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button4_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button4.Click

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then

[/color][/size][/color][/size][size=2]

MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else

[/color][/size][/color][/size][size=2]

Label1.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If

[/color][/size][/color][/size][size=2]

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub

[/color][/size][/color][/size][size=2]

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button3_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button3.Click

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then

[/color][/size][/color][/size][size=2]

MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else

[/color][/size][/color][/size][size=2]

Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If

[/color][/size][/color][/size][size=2]

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub

[/color][/size][/color][/size][size=2]

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Private[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub[/color][/size][/color][/size][size=2] Button2_Click([/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Handles[/color][/size][/color][/size][size=2] Button2.Click

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Or[/color][/size][/color][/size][size=2] TextBox1.Text = [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Nothing[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Then

[/color][/size][/color][/size][size=2]

MsgBox([/size][size=2][color="#a31515"][size=2][color="#a31515"]" "[/color][/size][/color][/size][size=2], MsgBoxStyle.Information)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Else

[/color][/size][/color][/size][size=2]

Label1.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]If

[/color][/size][/color][/size][size=2]

[/size][size=2][color="#0000ff"][size=2][color="#0000ff"]End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Sub

End[/color][/size][/color][/size][size=2] [/size][size=2][color="#0000ff"][size=2][color="#0000ff"]Class[/color][/size][/color][/size]

[size=2][color="#0000ff"][size=2][color="#0000ff"] 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

الله يعطيك العافية,

مشكورة جهودك :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله يسلمك ............................................

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .