vb

amjedtn

عضو
إنضم
5 سبتمبر 2008
المشاركات
84
مستوى التفاعل
33
هل يمكنكم مساعدتي بالقيام ببرمجة ألة حاسبة باستعمال vb مع الشكر مسبق :kiss::tunis::satelite::dance::117::besmellah2:
 

malek0711

عضو نشيط
إنضم
21 فيفري 2010
المشاركات
130
مستوى التفاعل
62
:besmellah2:



مرحبا اخي الكريم

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

أنشئ مشروع جديد وقم بتسميته Calc

قم بوضع 4 ليبل (Label) و 8 أزرار (Button) و 3 مربعات نص (TextBox) كما بالصورة التالية

0001.bmp


غير خصائص Text للأدوات كما بالصورة أما زر الجذر التربيعة فستجد كيفية كتابته فى آخر الشرح


حدد مربع النص الذى بجوار كلمة الناتج (TextBox3) وقم بتغيير خاصية ReadOnly له من مربع الخصائص إلى True


حدد زر تفعيل خانة العدد الثانى (Button7) وقم بتغيير خاصية Visible له من مربع الخصائص إلى False


قم بفتح منطقة كتابة الكود للزر "+" واكتب الكود التالى :




كود PHP:
Me.TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)



قم بفتح منطقة كتابة الكود للزر " - " واكتب الكود التالى :



كود PHP:
Me.TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)



قم بفتح منطقة كتابة الكود للزر " × " واكتب الكود التالى :




كود PHP:
Me.TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)



قم بفتح منطقة كتابة الكود للزر " ÷ " واكتب الكود التالى :




كود 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



قم بفتح منطقة كتابة الكود للزر " √ " واكتب الكود التالى :



كود 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



قم بفتح منطقة كتابة الكود للزر " تفعيل خانة العدد الثانى " واكتب الكود التالى :


كود PHP:
Me.TextBox2.Enabled = True
Button6
.Visible = False



قم بفتح منطقة كتابة الكود للزر " OFF " واكتب الكود التالى :




كود PHP:
Me.Hide()




:satelite::frown::tunis:
تحياتي __________________​
 

Wajdi.Hamed

نجم المنتدى
إنضم
6 أفريل 2010
المشاركات
2.193
مستوى التفاعل
1.241
Voila des exemple mo amie
 

المرفقات

  • calculatrice9492571.zip
    2,3 KB · المشاهدات: 24
  • calculatrice33652059.zip
    12 KB · المشاهدات: 13
  • calculatrice41722827.zip
    4 KB · المشاهدات: 10
  • calculatrice51385132.zip
    7,9 KB · المشاهدات: 9
  • calculatrice63908531.zip
    526 بايت · المشاهدات: 10
  • calculatrice65925183.zip
    49,5 KB · المشاهدات: 12
أعلى