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



آخرین ارسال ها
مواظب « کریستال مت» ها باشید!!
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
آب درمان بسیاری از بیماری ها
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
دمای بدن چگونه کنترل میشود؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها: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 مشاهده:2
خشونت طولاني صدا و بدون علت شايع‌ترين علامت بروز سرطان حنجره است
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها: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
اطلاعیه مشترک IOTA/ME و جمعیت منجمان مهبانگ در خصوص گذر زهره
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
title title title title title
آموزش پرورش اندام در 90 روز دستبندوگوشواره ماه تولد شما آموزش افزایش قد (کتاب و سی دی) جدیدترین روش بستن شال و روسری برنامه مشاهده همه شبکه های دنیا


ارسال پاسخ 
برنامه براي رسم يك N ضلعي منتظم
نویسنده پیام
MoonLover

ناظم ارشد انجمن
******

ارسال ها: 18,519
تاریخ عضویت: 29 December 2008
امتیاز: 147
تشکرهای ارسالی : 16674
تشکرهای دریافتی : 26116
اعتبار: 202  واحد
1
برنامه براي رسم يك N ضلعي منتظم
برنامه براي رسم يك N ضلعي منتظم
این برنامه عدد N را دریافت می کند و یک N ضلعی منتظم رسم کرده و دایره محاطی آنرا هم رسم می کند و همه قطرهایش را نیز رسم می کند
برای یک command دستورات زیر را مرقوم فرمایید :

کد:

Private Sub Command1_Click()
Form1.AutoRedraw = True
Form1.WindowState = 2
Form1.ScaleMode = 3
Form1.FillColor = RGB(250, 200, 50)
h = Val(InputBox("ÊÚÏÇÏ ÖáÚ "))
x = Form1.ScaleWidth \ 2
y = Form1.ScaleHeight \ 2
z = 360 / h
c = 240 * Sin(z / 2 * 3.14 / 180)
r2 = Sqr(240 ^ 2 - c ^ 2)
Form1.Circle (x, y), r2, vbBlue
For u = 1 To h
X1 = x + 240 * Cos(u * z * 3.14 / 180)
Y1 = y - 240 * Sin(u * z * 3.14 / 180)
For w = 1 To h
X2 = x + 240 * Cos(w * z * 3.14 / 180)
Y2 = y - 240 * Sin(w * z * 3.14 / 180)
Form1.Line (X1, Y1)-(X2, Y2), RGB(0, 55, 255)
Next
Next
End Sub

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


موضوع های مرتبط با این موضوع...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  اجزاء یک برنامه Visual Basic و پسوند های مختلف فایل های vb MoonLover 0 218 Monday 20 June 2011 14:30
آخرین ارسال: MoonLover
  برنامه نويسي سخت افزار در ويژوال بيسيک MoonLover 0 218 Monday 20 June 2011 04:56
آخرین ارسال: MoonLover
  در خواست برنامه ي تبديل تاريخ شمسي به ميلادي و بالعكس ويژوال بيسيك mohsen* 2 413 Monday 30 May 2011 19:02
آخرین ارسال: user
  نمونه برنامه های دلفی با سورس Ashkan 14 12,633 Monday 27 December 2010 15:16
آخرین ارسال: bahareh12
  دستور چاپ در هنگام اجرای برنامه درvb6 جلیل زاده 1 495 Wednesday 24 November 2010 22:01
آخرین ارسال: masodbook

پرش به انجمن:


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