کار این ماشین حساب این است که دوتا عدد را گرفته و با هم جمع میکند.

ابتدا ما سه تا Textbox و یک CommandButoon به برنامه اضافه می کنیم

یه ماشین حساب کوچو برای شما دوستان

بر روی CommandButoon دوبار کلیک کنید و کد زیرا بنویسید

(Text3.Text = Val(Text1.Text) + Val(Text2.Text 

حال به توضیح خط بالا می پردازیم

Text3.Text: متد Text که مشخص می کند که مقدار داخلText3چند باشد

Val:دستور Val کارش این است که حرف را به عدد تبدیل کند(درآخر درسهای بیشتر توضیح خواهم داد)

+:این دستور دو عدد را با هم جمع می کند

پس دستور بالا مقدارText1را به عدد تبدیل می کند و با Text2 هم همین کار را می کند و مقدار آنها را با هم جمع می کند و در Text3می ریزد.

در این جا می خواهم که بیشتر در مورد دستورVal توضیح دهم

دوستان عزیز در برنامه سازی  ما نمی توانیم یه رشته(مجموعه ای از کلمات یا اعدادی که به صورت حرف برای برنامه معرفی شده اند)را با عدد جمع کنیم برای این کار ما می توانیم از دستورات زیر استفادهد کنیم

      برای تبدیل رشته به عدد                     عدد=(رشته)Val

      برای تبدیل عدد به رشته                     رشته=(عدد)Str

کد کامل برنامه به صورت زیر است

 Private Sub Command1_click()                                   

Text3.Text = Val(Text1.Text) + Val(Text2.Text)                   

                                                                    End Sub