برنامه چاپ مجموع دوعدد با دکمه فرمان

[ahmadfononi]

برنامه ساده شماره 4 : برنامه اي بنويسيد كه دو عدد را گرفته و مجموع آنها را چاپ نمايد . با تغيير هر كدام از جعبه متن ها جعبه متن نتيجه خالي شده و با كليك بر روي دكمه فرمان حاصل جمع در جعبه متن نتيجه نشان داده شود .

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




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

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

End Sub​