دانلود سورس مثال 2 فصل 2 برنامه سازی 1
برنامه ای که شعاع یک دایره را از ورودی گرفته و مساحت ان را محاسبه و چاپ کند.مثال 2 فصل 2 برنامه سازی 1

در این پست سورس کد مثال 2 فصل 2 برنامه سازی 1 هنرستان ( ویژوال بیسیک) را برای شما عزیزان قرار داده ایم.
برنامه ای که شعاع یک دایره را از ورودی گرفته و مساحت آن را با کلیک روی دکمه run محاسبه و در خروجی چاپ می کند.
سورس کد برنامه را می توانید در پایین صفحه دانلود کنید.
این هم کد برنامه :
Private Sub CmdRun_Click()
Const PI As Single = 3.141592
Dim sngRadius As Single, sngArea As Single
sngRadius = InputBox("Enter radius:", "Get Radius")
sngArea = PI * sngRadius ^ 2
MsgBox "Area of Circle with radius=" & sngRadius & " is:" & sngArea, , "Result"
End Sub
Private Sub CmdExit_Click()
End
End Sub
هم اکنون می توانید سورس این پروژه را به صورت رایگان دانلود کنید
حجم فایل :14.6 KB
0
نظرات