انا جديد على البرمجه والمنتدى وأريد اعرف شيئ بسيط
:06: معليش انا جديد فى البرمجه وأريد اعرف الكود حق الأله الحاسبه بالفيجول بيسك وماهو الذى أكتبه داخل الـــــcommand وداخل الــــtextbox
مشاركة: انا جديد على البرمجه والمنتدى وأريد اعرف شيئ بسيط
Dear,
Can you please give some detials or send me ur project to do it for u, firas488@yahoo.com
Best regards
Firas S Assaad
مشاركة: انا جديد على البرمجه والمنتدى وأريد اعرف شيئ بسيط
كود الأله الحاسبة
ضع علي الفورم text1 و text2 و text3
وأربعة أزرار command button
command 1 جمع
commnad 2 طرح
command 3 ضرب
command 4 قسمة
..................................................
text1 العدد الأول
text2 العدد الثاني
text3 ناتج العددين
.............................................
ضع هذا الكود في حدث الضغط علي command1
text3.text= val(text1.text)+val(text2.text)
...............................................................
ضع هذا في command2
text3.text=val(text1.text)-val(text2.text)
...............................................
command3
text3.text=val(text1.text)*val(text2.text)
......................................................................
command4
text3.text=val(text1.text)/val(text2.text)
هذا هو كود الأله الحاسبة
مشاركة: انا جديد على البرمجه والمنتدى وأريد اعرف شيئ بسيط
Private Sub Command1_Click()
Dim num1 As Integer
Dim num2 As Integer
num1 = Text1.Text
num2 = Text2.Text
Text3.Text = num1 + num2
End Sub
___________________
Private Sub Command2_Click()
Dim num1 As Integer
Dim num2 As Integer
num1 = Text1.Text
num2 = Text2.Text
Text3.Text = num1 - num2
End Sub
___________________
Private Sub Command2_Click()
Dim num1 As Integer
Dim num2 As Integer
num1 = Text1.Text
num2 = Text2.Text
Text3.Text = num1 * num2
End Sub
___________________
Private Sub Command2_Click()
Dim num1 As Integer
Dim num2 As Integer
num1 = Text1.Text
num2 = Text2.Text
Text3.Text = num1 / num2
End Sub
انشاء الله اكون ساعدتك ..:)
وشــــــــــــ:yup::yup::yup::yup:ــــــــــــــكراً