یک ماشین حساب خیلی اسون و اسونتر از قبلی
ابتدا ما سه تا 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