برنامه اي چاپ مجموع دوعدد با txtBox

[ahmadfononi]

برنامه ساده شماره 3 : برنامه اي بنويسيد كه دو عدد را گرفته و مجموع آنها را چاپ نمايد . با تغيير هر كدام از جعبه متن ها حاصل جمع در جعبه متن نتيجه نشان داده شود .
حل : وارد محيط ويژوال بيسيك شده و پروژه جديدي را شروع كنيد و سه جعبه متن و سه برچسب (Label)در روي فرم قرار دهيد. اشياي تغيير نام يافته به صورت زير خواهند بود .




اسامی اشیای تغییر نام یافته به صورت زیر است :
1- Txt1 2- Txt2 3- TxtResault
كد برنامه به صورت زير خواهد بود
کد:

Private Sub Form_Load()
Label1.Caption = "Adadeh Avval"
Label2.Caption = "Adadeh Dovvom"
Label3.Caption = "Haseleh Jam"
txt1.Text = ""
txt2.Text = ""
txtResault.Text = ""
End Sub
Private Sub txt1_Change()
txtResault.Text = Val(txt1.Text) + Val(txt2.Text)
End Sub
Private Sub txt2_Change()
txtResault.Text = Val(txt1.Text) + Val(txt2.Text)
End Sub​