در پايان خاصيت Name و Caption برچسبها را نيز به شكل زير تغيير دهيد:
برچسب اول:
Name=lblFirst
Caption:First Value
برچسب دوم:
Name:lblSecond
Caption:Second Value
برچسب سوم:
Name:lblResult
Caption:Result
دقت نمائيد كه مي توانيد ابعاد دكمه ها و كادر هاي متني و برچسبها و محل قرار گرفتن آنهارا به سليقه خود تغيير دهيد.
پس از انجام تغييرات فرم شما بايد چيزي شبيه شكل زير باشد:
حال روي دكمه اول دوبار كليك كنيد و در رويه كليك آن كد زير را قرار دهيد:
کد:
Private Sub cmdSum_Click()
txtResult.Text = Val(txtValue1.Text) + Val(txtValue2.Text)
End Sub
در هنگام اجرا شدن با فشردن اين دكمه اگر مقاديري عددي در كادر هاي متني اول و دوم قرار دهيد نتيجه حاصل در كادر متني سوم نمايش داده خواهد شد.
تابع جديدي در دستورات بالا مشاهده مي كنيد به نام
Val كه به دليل آنكه برنامه در هنگام اجرا ورودي هاي كادر هاي متني را به صورت String مي پذيرد لذا با استفاده از اين دستور به مقادير عددي برگردانده مي شود.به عنوان مثال اگر در كادر متني اول عدد ٣ و در كادر دوم عدد ٤ تايپ شود اگر از دستور Val استفاده نشود خروجي ٣٤ را خواهيم داشت يعني اتصال دو رشته كه قبلا توضيح داده شد ولي اگر تابع Val استفاده شود در خروجي عدد ٧ را خواهيم داشت.
به همين ترتيب در رويه كليك دكمه فرمان دومي كد زير را وارد كنيد:
کد:
Private Sub cmdString_Click()
txtResult.Text = txtValue1.Text & " " & txtValue2.Text
End Sub
با اجراي برنامه و وارد كردن متنهاي مختلف در دو كادر متن بالائي و فشردن دكمه joint String دو متن در كنار يكديگر با يك فاصله خالي از هم در كادر متن سومي نمايش داده خواهد شد.
حال با داده هاي مختلف با اين برنامه كار كنيد تا به مفهوم استفاده از دكمه ها و وجه تمايز داده هاي متني و عددي بيشتر پي ببريد.