چهار عمل اصلی با Command Bottun

[ahmadfononi]

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

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




اسامی اشیای تغییر نام یافته به صورت زیر است :
1- Txt1 2- Txt2 3- TxtResault 4- CmdJam
5- CmdTafrig 6- cmdZarb 7- cmdTagsim
كد برنامه به صورت زير خواهد بود
کد:

Private Sub Form_Load()
Label1.Caption = "Adadeh Avval"
Label2.Caption = "Adadeh Dovvom"
Label3.Caption = "Haseleh Jam"
txt1.Text = ""
txt2.Text = ""
txtResault.Text = ""
CmdJam.Caption = "Jam"
CmdTafrig.Caption = "Tafrig"
cmdZarb.Caption = "Zarb"
cmdTagsim.Caption = "Tagsim"
End Sub
Private Sub txt1_Change()
txtResault.Text = ""
End Sub
Private Sub txt2_Change()
txtResault.Text = ""
End Sub
Private Sub CmdJam_Click()
txtResault.Text = Val(txt1.Text) + Val(txt2.Text)
Label3.Caption = "Haseleh Jam"
End Sub
Private Sub CmdTafrig_Click()
txtResault.Text = Val(txt1.Text) - Val(txt2.Text)
Label3.Caption = "Haseleh Tafrig"
End Sub
Private Sub cmdZarb_Click()
txtResault.Text = Val(txt1.Text) * Val(txt2.Text)
Label3.Caption = "Haseleh Zarb"
End Sub
Private Sub cmdTagsim_Click()
If Val(txt2.Text) <> 0 Then
txtResault.Text = Val(txt1.Text) / Val(txt2.Text)
Else
txtResault.Text = "Khatayeh Tagsim Bar Sefr"
End If
Label3.Caption = "Haseleh Tagsim"
End Sub
​