PDA

نسخه کامل مشاهده نسخه کامل : کمک فوری برای حل تمرین فصل دوم ویژال بیسیک جعفر نژاد قمی بصورت کامل



Persianhb
19-10-2010, 01:05
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

modirmasool
09-11-2010, 17:10
دوست عزیز یکم کم لطفی میکنین! شما باید خودتون شروع کنین تا بچه ها هم کمکتون کنن. برای شروع برنامه اولی رو میشه اینطوری نوشت:

یه دکمه بذارین و اینا رو توش بنویسین:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

حالا ببینم دیگه چیکار میکنین ها!:46: مثلا همین برنامه رو گسترشش بدین چون ایرادهای زیادی میشه ازش گرفت،مثلا کاربر ممکنه بجای عدد،حرف وارد کنه!

amirxbest
09-11-2010, 18:06
این جواب 2 فقط یه دکمه درست کن و کد رو کپی کن:
Private Sub Command1_Click()
Dim s As Single
a = InputBox("ghaede")
b = InputBox("ertefae")
s = (a * b) / 2
Print "s =" & s
End Sub


این جواب 4 فقط یه دکمه درست کن و کد رو کپی کن:
Private Sub Command1_Click()
Dim result As Single
a = InputBox("kg")
result = a * 1000
Print a & "kg=" & result & " gr"
End Sub