تبلیغات
آموزس برنامه نویسی - به زمین خوردن توپ بسکتبال
سه شنبه 1388/12/4

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

   نوشته شده توسط: ::VB Love ::    

در برنامه زیر شبیه سازی به زمین افتادن یک توپ را می توانید ببینید

کافی است در فرمتون یک آبجکت Shape1 و یک دکمه ایجاد کنید و کدهای زبر را به قسمت General کپی کنید


Private Sub Command1_Click()
h = Form1.Height
For i = 1 To 1800
For j = 1 To 200000
Next
r = i * 3.14 / 180
t = h - Abs(h * Sin(r) * Exp(-i / 800)) - 1200
Shape1.Top = t
Shape1.Left = i * 2
Form1.PSet (i * 2, t)
Next
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.BackColor = vbYellow
Shape1.BackStyle = 1
End Sub


How do you strengthen your Achilles tendon?
شنبه 1396/07/1 01:55 ب.ظ
What's up, yeah this piece of writing is really nice and I have learned lot
of things from it on the topic of blogging. thanks.
Foot Complaints
یکشنبه 1396/05/15 09:36 ب.ظ
It is truly a nice and helpful piece of information.
I am glad that you shared this useful info with us.
Please stay us informed like this. Thanks for sharing.
How much does it cost to lengthen your legs?
دوشنبه 1396/05/9 09:45 ب.ظ
Excellent article. Keep writing such kind of info on your blog.
Im really impressed by your site.
Hey there, You've performed a fantastic job. I will definitely digg it and personally recommend to my friends.
I am confident they'll be benefited from this website.
bernamedell.soup.io
چهارشنبه 1396/03/3 04:43 ق.ظ
I do believe all of the concepts you have introduced on your post.

They're very convincing and will definitely work. Still, the posts are too short for starters.

May just you please lengthen them a bit from next time?
Thank you for the post.
manicure
چهارشنبه 1396/02/6 02:16 ق.ظ
Thanks for finally writing about >آموزس برنامه نویسی - به زمین خوردن
توپ بسکتبال <Liked it!
BHW
جمعه 1396/02/1 07:01 ق.ظ
I'm really enjoying the theme/design of your site. Do you ever run into any web browser compatibility problems?
A couple of my blog visitors have complained about my site not
operating correctly in Explorer but looks great in Safari.

Do you have any suggestions to help fix this issue?
BHW
جمعه 1396/01/25 06:20 ب.ظ
I know this web page presents quality depending articles or reviews
and additional information, is there any other site which
presents such information in quality?
BHW
پنجشنبه 1396/01/24 10:40 ق.ظ
This text is worth everyone's attention. Where can I find out more?
manicure
سه شنبه 1396/01/22 04:08 ق.ظ
Appreciate the recommendation. Let me try it out.
manicure
جمعه 1396/01/11 01:22 ق.ظ
This web site truly has all the information I needed about this subject and didn't know who to ask.
سارا
چهارشنبه 1388/12/5 01:41 ب.ظ
http://www.joking.ir

سلام دوست عزیز
عجب وب خوبی دارید
امیدوارم همیشه شاد باشید
داشتم تو وب برای خودم میگشتم
که وب قشنگت رو دیدم کارت بیست بیسته
امدم دعوتت کنم که به سایت من هم سر بزنی
این آدرسشه http://www.joking.ir
تونستی حتما سر بزن خوشحالم میکنی
یادت نره ها منتظرتم بیا یه چرخی بزن حتما خوشت میاد
گه هم خواستی منو لینک کنی این آدرس رو:
http://www.joking.ir
با این متن:
???سایت تفریحی توپ جوکینگ ???
لینک کردی خبرم کن تا جبران کنم
منتظرت هستم تو جوکینگ
یادت نره یه سر بزن
ضرر کردی با من

http://www.joking.ir

راستی اگه دوست داشتی تو گروه یاهو من هم عضو شو

این آدرس گروه یاهو:

http://games.groups.yahoo.com/group/jokingir/join

این هم آموزش عضویت تو گروه:

http://www.joking.ir/?page_id=34

این هم گروه گوگل من:

http://groups.google.com/group/jokingir

یادت نره ها حتما عضو شو ضرر نداره

اگه خواستی این آی دی یاهو منه ادش کن

jokingir

این هم ایمیل منه اگه کار داشتی یا مطلب جالبی داشتی برام بفرست خوشحال میشم دوست عزیز

jokingir@yahoo.com

شاد باشی

بای

[بدرود]
سید حسین
سه شنبه 1388/12/4 10:44 ب.ظ
وب سایت بسیار خوبی داری من که واقعا ازش استفاده میکنم مرسی
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر