انا جديد على البرمجه والمنتدى وأريد اعرف شيئ بسيط

[جديد في البرمجه]

:06: معليش انا جديد فى البرمجه وأريد اعرف الكود حق الأله الحاسبه بالفيجول بيسك وماهو الذى أكتبه داخل الـــــcommand وداخل الــــtextbox

[VBS]

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)


هذا هو كود الأله الحاسبة

[FinalFantasy9]

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:ــــــــــــــكراً