درود،میهمان گرامی ورود ثبت نام لیست اعضا تقویم راهنما جستجوجستجو
بازیابی رمز



آخرین ارسال ها
تاثير لبنيات در كاهش سنگ كليه
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:0
مواظب « کریستال مت» ها باشید!!
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
آب درمان بسیاری از بیماری ها
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
دمای بدن چگونه کنترل میشود؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
چرا نوشیدن الکل زیانبار است؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
ترك سيگار اشتهاي سيگاري‌ها را بهبود مي‌بخشد
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
سن شيوع بيماريهاي قلبي در ايران يك دهه زودتر از كشورهاي غربي
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
چگونه سرفه كودكان را تسكين دهيم؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
سندرم تخمدان پلي کيستيک باعث ايجاد پرمويي و آکنه خواهد شد
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
شيوع حالت غم و اندوه پس از زايمان در 40 درصد موارد شايع است
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
از وضعيت تري گلسيريد خونتان خبر داريد؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:5
جايگزيني مرجان به جاي استخوان
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
راديوگرافي در ماههاي اول بارداري مي‌تواند كودكان را با مشكل شنوايي مواجه كند
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
عدم استفاده از عينك آفتابي مناسب احتمال ابتلا به ‌آب‌مرواريد را 3 ‌برابر افزايش مي‌ده
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
مصرف سيگار از علل مهم ابتلاي افراد به سينوزيت است
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:4
استفاده از قليان به اندازه استعمال ‌20 نخ سيگار خطر دارد
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
خشونت طولاني صدا و بدون علت شايع‌ترين علامت بروز سرطان حنجره است
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:4
چرا ما ابرو داریم؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
اثر سبزيجات بر مغز سالمندان
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
ديدن غذاهاي موردعلاقه موجب بهبود كارآيي مغز مي شود
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:4
اگزما بيشتر جنبه ارثي دارد استرس باعث تشديد بيماريهاي پوستي مي‌شود
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
مصرف داروهاي اعصاب و روان در دوران بارداري منجر به شکاف لب نوزاد مي‌شود
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
در حين رويش دندان‌هاي نوزادان از دندان‌گير استفاده نكنيد
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
چگونه از ابتلا به سكته قلبي جلوگيري كنيم؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
این 10 نکته را در ماه رمضان برای گرفتن روزه فراموش نکنید!!!
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
چرا داروی سرطان تاکنون کشف نشده است؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:6
گرما به تسكين درد كمك مي‌كند
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:4
اثر كم خوني بر ذهن و بدن
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:4
گالری مدل آرایش صورت
شروع کننده:aria آخرین ارسالelina_mn پاسخ ها:70 مشاهده:31630
مدل طراحی ناخن
شروع کننده:elina_mn آخرین ارسالelina_mn پاسخ ها:17 مشاهده:220
مدل آرایش چشم
شروع کننده:mina آخرین ارسالelina_mn پاسخ ها:117 مشاهده:14779
شستن دست ها با آب گرم مرگ ومیر کودکان زیر 5 سال را کاهش می دهد
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:13
چطور به کودکان شستن دست را آموزش دهیم؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:8
با شستن دست از بیماری جلوگیری کنید
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
اسکناس های کثیف موجب انتقال بیماری کچلی می شوند
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:8
راه های پیشگیری از سرما خوردگی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:8
تفاوتهای سرماخوردگی ، آنفلوآنزای فصلی و H1N1
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:9
لنزهای تماسی برای کنترل قند خون
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:6
چند توصیه برای شستشوی پوست خود
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
محلی برای طرح سوالات و مشکلاتی که به ان برخورد میکنید
شروع کننده:admin آخرین ارسالadel پاسخ ها:419 مشاهده:22208
آدامس جویدن عامل تشدید نفخ در دستگاه گوارش است
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
کافی شاپ آواکسی ها
شروع کننده:adel آخرین ارسالadel پاسخ ها:101 مشاهده:1146
انرژی نقطه صفر و معادله دیراک
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
اتحاد نیروها و نظریه سی. پی. اچ.
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
تجدید آزمایش سرعت نوترینوها/ تلاش برای اثبات یا رد سرعت بالاتر از نور در ذرات بنیادین
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
داوران ترک ديدار ايران و آلباني را قضاوت مي کنند
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:4
زندگینامه بزرگان
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:10 مشاهده:23
****امشب سایت ها ده دقیقه تعطیل می شوند***
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:6
ارتباط البرت انیشتین با آیت الله بروجردی
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:4
اسامي ممنوعه در سازمان ثبت احوال
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:6
درياچه شيلي در كمتر از 24 ساعت ناپديد شد!
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:3
بيانيه‌ دفتر موسيقي ارشاد درباره خواننده هتاک
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:5
شهادت دو زن ايراني در حمله به زائران در عراق
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:2
واکنش آیت الله جوادی آملی به رژه همجنس بازان در آذربایجان
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:4
برگزاری تجمع بزرگ عزاداران امام هادی (ع) و کفن پوشان حضرت رقیه (س)
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:5
سیم‌کارت‌های رایتل فعلا خرید و فروش نمی‌شوند
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:5
اعلام زمان بندی اچ تی سی برای عرضه بروز رسانی اندروید 4 تعدادی از اسمارت فون های این
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:4
استفان هاوکینگ چگونه حرف می‌زند؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:7
رصدخانه مراغه، میراث جاویدان
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
تولید نانوساختارهای ستاره ای شکل
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
می‌دانید چند سنگ آسمانی زمین را تهدید می‌کنند؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:3
هوانوردی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
بشقاب پرنده؛ از واقعیت تا خیال
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
حیات منظومه شمسی، درون یک حباب است!
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
انواع موشک های کروز
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
گنج‌های فضایی مال کیست؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
حدس می زنید این عکس کجاست؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
حمله پرندگان خشمگین به فضا
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
ماه، مقصر غرق شدن کشتی تایتانیک بوده است!
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
اندازه گیری دقیق روشن ترین ذرات ریز اتمی جهان
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
آخرین پرواز ارابه های الهام بخش فضایی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
روند پیرشدن فضانوردان آهسته تر می شود
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
تولید کاتالیست های ارزان و زیست سازگار
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
بررسی حیات زمینی در برخی کوتوله های سرخ
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
جدیدترین معمای کیهانی: کهکشان‌های نخستین چند ستاره داشتند؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
تالس
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
پلاسمون کوانتومی در نانوذراتی در ابعاد اتمی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
ابن سینا و گذر زهره
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
داده نمایی (اینفوگرافی) گذر زهره‌ 2012
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
احتمال تنها بودن بشر در جهان هستی قدرت گرفت
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
title title title title title
آموزش پرورش اندام در 90 روز دستبندوگوشواره ماه تولد شما آموزش افزایش قد (کتاب و سی دی) جدیدترین روش بستن شال و روسری برنامه مشاهده همه شبکه های دنیا


ارسال پاسخ 
رسم بیست دایره به صورت تصادفی
نویسنده پیام
MoonLover
ناظم ارشد انجمن
******

ارسال ها: 18,519
تاریخ عضویت: 29 December 2008
امتیاز: 147
تشکرهای ارسالی : 16674
تشکرهای دریافتی : 26116
اعتبار: 202  واحد
1
رسم بیست دایره به صورت تصادفی
رسم بیست دایره به صورت تصادفی

Dim point1(41) As Single

Private Sub Command1_Click()
Dim X As Single, Y As Single, r As Single
For i = 1 To 40 Step 2
X = Rnd() * 10000
point1(i) = X
MsgBox (point1(i))
Y = Rnd() * 10000
point1(i + 1) = Y
r = Rnd() * 5000
Circle (X, Y), r
Next i
MsgBox (point1(3))
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If point1(1) < X < point1(2) And point1(3) < Y < point1(4) Then
MsgBox (1)
End If

If point1(4) < X < point1(5) And point1(6) < Y < point1(7) Then
MsgBox (2)
End If
If point1(8) < X < point1(9) And point1(10) < Y < point1(11) Then
MsgBox (3)
End If
If point1(12) < X < point1(13) And point1(14) < Y < point1(15) Then
MsgBox (4)
End If
If point1(16) < X < point1(17) And point1(18) < Y < point1(19) Then
MsgBox (5)
End If
If point1(17) < X < point1(18) And point1(19) < Y < point1(20) Then
MsgBox (6)
End If
If point1(21) < X < point1(22) And point1(23) < Y < point1(24) Then
MsgBox (7)
End If
If point1(25) < X < point1(26) And point1(27) < Y < point1(28) Then
MsgBox (8)
End If
If point1(29) < X < point1(30) And point1(31) < Y < point1(32) Then
MsgBox (9)
End If
If point1(33) < X < point1(34) And point1(35) < Y < point1(36) Then
MsgBox (10)
End If
If point1(37) < X < point1(38) And point1(39) < Y < point1(40) Then
MsgBox (11)
End If

End Sub
امضاء گاهی باید فراموش کرد..
به زودی میام..امتحان دارم فعلا!
آفلاین
Monday 20 June 2011 14:37 نقل قول این ارسال در یک پاسخ
ارسال پاسخ 


موضوع های مرتبط با این موضوع...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  تابع تبدیل اعداد به صورت حروفی ( فارسی ) MoonLover 0 385 Monday 20 June 2011 15:12
آخرین ارسال: MoonLover
  نصب يك عنصر موجود در ليست عناصر به صورت DLL در Delphi MoonLover 0 359 Sunday 12 September 2010 23:18
آخرین ارسال: MoonLover

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 3 مهمان
زمان کنونی: Friday 25 May 2012, 00:08

تماس با ما | انجمنهای فارسی آواکس نت | بازگشت به بالا | بازگشت به محتوا | آرشیو | پیوند سایتی RSS