لینکدونی-
مطالب جالب و خواندنی از سراسر وب
- تختی سرش را برای انداختن مدال، جلوی شاه خم نمی کند - 121 کلیک
- دریافت تصاویر Wallpaper اوبونتو 10.10 - 160 کلیک
- اساماسهای پاک شده گوشی خود را برگردانید ! - 439 کلیک
- اینترنت ملی یا تیر خلاص به اینترنت؟ - 207 کلیک
- پشت پرده صفحه جدید فـیلـترینـ ـگ در ایران - 324 کلیک
برنامه سازی ویژوال بیسیک 6 ( قسمت نهم )
ارسال شده توسط احمد محمد علیزاده در ۲۸ آبان, ۱۳۸۵ ساعت ۱۶:۵۱آشنایی با حلقه های تکرار
فرض کنید می خواهیم در ویژوال بیسیک برنامه ای بنویسیم که اعداد 1 تا 5 را روی فرم چاپ کند , شاید فکر کنید که به سادگی و با استفاده از دستور Print می توان این کار را انجام داد و فقط باید بنویسیم :
جهت چاپ اعداد روم فرم باید آن را در روال Form_Activate بنویسیم :
Print 1
Print 2
Print 3
Print 4
Print 5
برنامه بالا درست است که اعداد 1 تا 5 را زیر هم روی فرم چاپ می کند اما واقعاً این دستور منطقی است؟ اگر می خواستید برنامه ای بنویسید که اعداد 1 تا 100 را روی فرم چاپ کند آیا باز هم حوصله می کردید و صد تا دستور Print می نوشتید؟ کاملاً مشخص است که راه حل فوق برای حل این مسئله منطقی نیست. ویژوال بیسیک برای حل این مشکل از حلقه های تکرار استفاده می کند. با استفاده از حلقه های تکرار به راحتی می توانیم اعداد ا تا 5 را تنها با چند خط کد نویسی چاپ کنیم.
حلقه تکرار For … Next :
روش استفاده را با یک مثال شرح می دهم :
For a = 1 To 5
Print a
Next a
بعد از For ما نامی را برای شمارنده در نظر می گیریم . سپس علامت مساوی را قرار می دهیم و تعداد دفعات تکرار را تعریف می کنیم. در خط دوم شمارنده را پرینت میکنیم و خط سوم بدین مفهوم است که حلقه شمارنده مجدداً با مقدار جدید به اول باز می گردد و عملیات مربوطه را تکرار می کند. این حلقه 5 بار تکرار می شود و در پایان اعداد 1 تا 5 را پشت سر هم و روی فرم چاپ می کند.
نکات قابل توجه :
· حلقه های تکرار می تواند گام کاهشی و افزایشی هم داشته باشد که با Step آن را مشخص می کنیم.
· جهت چاپ اعداد روم فرم باید آن را در روال Form_Activate بنویسیم یا خاصیت AutoRedraw در پنجره خصوصیات Form_Load برابر Ture قرار دهیم.
· حلقه تکرار می تواند از هر عددی شروع شود و به هر عددی ختم شود.
· بهتر است شمارنده را همیشه با یک حرف انگلیسی نام گذاری کنیم تا دچار سردرگمی نشویم.
قطعه برنامه زیر اعداد 1 تا 5 را روی فرم و زیر هم چاپ می کند :
For i = 5 To 1 Step – 1
Print i
Next i
سوالات خود را در قسمت نظرات مطرح نمائید. مطمئن باشید بی پاسخ نمی ماند .
مربوط به آموزش برنامه نويسي | ۳۵ نظر »
- محافظ صفحه کلید لپ تاپ
- USB HUB هاب فوقالعاده کوچک – با چهار خروجی USB
- فن خنک کننده لپ تاپ
- هدفون SONY MDR-Q140 (سونی اوریجینال) با کیفیت فوقالعاده
- بازی فوق العاده زیبای Mafia II – مافیا 2
- بلوتوث بند انگشتی
- شارژر خورشیدی موبایل و دستگاههای الکترونیکی !
- مجموعه آفیس 2010 نسخه نهایی – (نسخه 15 ژوئن 2010)
- مستند Life – مجموعهی بی نظیر حیات وحش با زیرنویس فارسی
- مجموعه نرم افزارهای ادوبی با پشتیبانی از زبان فارسی – Adobe CS5 Standard Design ME
۳۵ نظر
مربوط به مطلب [برنامه سازی ویژوال بیسیک 6 ( قسمت نهم )]
آيا مي دانستيد كه :
«يويو» اولين بار به عنوان يک سلاح در فيليپين استفاده ميشد
ارسال شده توسط بهنام
در ۱۵ آذر ۱۳۸۵
سلام وب سایتتون خیلی عالی بود
من مطالب راجع به ویژوال رو تو وبلاگ خودم قرار دادم که امید وارم مخالفتی نداشته باشید هدف من کمک به جامعه آی تی هستش
خوشحال میشم یه سر هم به وبلاگ من بزنید و نظرات خودتون رو بگید.
در ضمن چند تا سوال داشتم
۱٫ طریقه ساخت لینک باکس رو بهم یاد بدید
۲٫ من دارم یه پروژه در باره ی مکانیزه کردن سیستم دفتری مشاورین املاک هستم. می خواستم ببینم چه جوری باید برای کومبو باکس ها کد بنویسیم
پاسخ به اين نظر
ارسال شده توسط مرصاد
در ۲۲ آذر ۱۳۸۵
اگه امکان دارد سورس برنامه ورد پد را برایم بفرستید(در ویژوال بیسیک) ممنون میشم
My E-Mail : mersad1099@yahoo.com
پاسخ به اين نظر
ارسال شده توسط سارا
در ۲۴ بهمن ۱۳۸۵
سلام وب سایتتون واقعا عالی بود ازتون ممنونم خیلی به من کمک کرد اما نمی دونم چرا هر چی می گردم جواب این سوالم پیدا نمی شه اگه شما تونستید تا روز چهارشنبه صبح(۲۵/۱۱/۸۵)جواب این سوالو برام بفرستید واقعا لازمش دارام نمی دونم چرا واسه ی خودم حل نمی شه ممنون می شم
(اعداد اول کوچکتر از ۱۰۰ چاپ بشه)
پاسخ به اين نظر
نوشین
به اين نظر پاسخ داد در ۲۳ مرداد ماه ۱۳۸۷ ۱۱:۰۹ ق.ظ:
private sub cmd1-clike()
dim i as inteager
dim g as inteager
dim counter as inteager
for i= 2 to 100
for g=1 to i
if i mod g=0 then counter=counter+1
next g
if counter=2 then liste1.additem i
next i
end sub
پاسخ به اين نظر
ارسال شده توسط e
در ۲۴ مرداد ۱۳۸۶
سلام.اگر لطف کنید و به سوالم جواب بدید ازتون ممنون میشم:
من میخوام با فرمان open فایلی رو برای خوندن تو vb باز کنم . چون مکان فایل
متغیر من هم در قسمت filename فرمان open از یک متغیر استفاده کردم ولی
برنامه اجرا نمیشه و پیغام error 52 میده .برای رفع مشکل چه کار کنم.
خیلی ممنونم .
پاسخ به اين نظر
نوشین
به اين نظر پاسخ داد در ۲۳ مرداد ماه ۱۳۸۷ ۱۱:۱۹ ق.ظ:
عزیزم مسیر فایل چنانچه همون درایو جاریست نیازی به ذکرش نیست
و اگر هم در درایوی غیر از درایو جاری باشه باید مسیر ثابت اون رو بیان کرد و فکر نمیکنم بتونی یک فایل که مسیرش متغیر باشه رو با ویژوال باهاش کار کرد
پاسخ به اين نظر
ارسال شده توسط مهرداد صلاحي
در ۲۸ مرداد ۱۳۸۶
سایت خوبی درست کردی. واقعاً مطالبش خوب است. خسته نباشی.
پاسخ به اين نظر
ارسال شده توسط mona
در ۲ دی ۱۳۸۶
اگه امکان دارد سورس برنامه طراحی سایت را برایم بفرستید(در ویژوال بیسیک) ممنون میشم
My E-Mail : mona_sh_196@yahoo.com
پاسخ به اين نظر
ارسال شده توسط vahid213
در ۱۱ دی ۱۳۸۶
یه برنامه می خوام که نام و نام خانوادگی را بگیره یه گزارش هم بده یعنی همان گزارشی را که تاره وارد شده نه بقیه اطلاعات وارد شده را
مثلا نام علی …. را ازمیان چندین نفر که قبلا وارد شده در صورت امکان با سورس و کمی توضیح از تمامی دوستان سپاس گذارم
vahid_gh213@yahoo.com
پاسخ به اين نظر
ارسال شده توسط vahid213
در ۱۱ دی ۱۳۸۶
یه برنامه می خوام که نام و نام خانوادگی را بگیره یه گزارش هم بده یعنی همان گزارشی را که تاره وارد شده نه بقیه اطلاعات وارد شده را
مثلا نام علی …. را ازمیان چندین نفر که قبلا وارد شده در صورت امکان با سورس و کمی توضیح از تمامی دوستان سپاس گذارم (ویژوال بیسیک ۶)
پاسخ به اين نظر
sani
به اين نظر پاسخ داد در ۷ آبان ماه ۱۳۸۷ ۱۰:۴۲ ق.ظ:
@vahid213, اول باید در اکسس نام ها وتوضیحات را نوشت و بعد در ویروال ان را فراخوانی کرد
پاسخ به اين نظر
ارسال شده توسط ولی پور
در ۱۸ بهمن ۱۳۸۶
چگونه می شود چند فایل صوتی را برای یک mmc control تعریف کرد و با چه فرمانی می توان آهنگ را تغییر داد .
پاسخ به اين نظر
ارسال شده توسط احمد هاشم زاده
در ۲۴ بهمن ۱۳۸۶
به نام خدا
با تشکر
من از شما می خواهم که اگر توانستید این قطعه برنامه ها را بنویسید:
۱)سیستم یک بانک را شبیه سازی کنید(تا وقتی پول بدهد تا در حساب به اندازه ی آن باشد)
۲)سیستم یک فروشگاه را شبیه سازی کنید(بدین صورت که تعداد و مبلغ هر جنس را گرفته ومجموع آنهارا چاپ کند تا زماننی که بزرگتر صفر باشد)
پاسخ به اين نظر
ارسال شده توسط امید
در ۱۹ اسفند ۱۳۸۶
به نام خدا
سلام به مدیر سایت
ببخشید یه سوال داشتم
این برنامه را ببینید
dim a,b asinteger
b=0
for a=1 to 10
b=b a^2
next a
print b
چرا در این برنامه b را ۲ بار تکرار میکنیم.
این سوال را در قسمت نظرات جواب بدهید
باتشکر
خداحافظ
پاسخ به اين نظر
sani
به اين نظر پاسخ داد در ۷ آبان ماه ۱۳۸۷ ۱۰:۴۸ ق.ظ:
@امید, اینبلرنامه درستش اینه در خط چهارم نباید ب دومی تکرار بشه چون ب صفر است و صفر +صفر بی معنی Dim a, b As Integer
b = 0
For a = 1 To 10
b = (a ^ 2)
Next a
Print b
پاسخ به اين نظر
ارسال شده توسط مورچه
در ۶ خرداد ۱۳۸۷
سلام . من یک چاپگر دارم که از قابلیت چاپ بر روی دو طرف برگه پشتیبانی می کنه . می خوام از طریق برنامه نویسی با ویژوال بیسیک از این قابلیتش اسستفاده کنم . اگه راهنماییم کنین ممنون می شم .
پاسخ به اين نظر
ارسال شده توسط نوشین
در ۲۳ مرداد ۱۳۸۷
با تشکر از سایت خوبتون میخواستم بپرسم چگونه میتونیم تو ویژوال بیسیک ۶ به لیست پروسس های فعال دسترسی پیدا کرد مثل task manager
اگر هم نمیشه بگید نمیشه
مرسی
پاسخ به اين نظر
ارسال شده توسط نوشین
در ۲۵ مرداد ۱۳۸۷
چرا به سوالات پاسخ داده نمیشه؟
چرا حذفش میکنی؟
پاسخ به اين نظر
ارسال شده توسط نوشین
در ۲۵ مرداد ۱۳۸۷
سلام میخواستم بگم چند نوع ویژوال داریم؟؟
پاسخ به اين نظر
sani
به اين نظر پاسخ داد در ۷ آبان ماه ۱۳۸۷ ۱۰:۴۴ ق.ظ:
@نوشین, یک نوع ویژوال اما چند نوع زبان برنامه نویسی داریم
پاسخ به اين نظر
ارسال شده توسط سيامك
در ۱۶ آبان ۱۳۸۷
برنامه ای میخوام که تاریخ مشخصی رو بگیره و اولین روز غیر تعطیل بعد از تاریخ مشخص شده رو نشون بده ؟(فکر کنم با توابع ویژوال باشه )
پاسخ به اين نظر
ارسال شده توسط سيامك
در ۱۶ آبان ۱۳۸۷
برنامه ای میخوام که یک سوال مطرح کند و زمانی که به سوال پاسخ میدهیم رو محاسبه کنه و نشون بده؟
پاسخ به اين نظر
ارسال شده توسط سيامك
در ۱۷ آبان ۱۳۸۷
برنامه ای میخوام که ۴ عدد رو بگیره و مجموع انها رو نشون بده ؟
پاسخ به اين نظر
ارسال شده توسط فرانه
در ۲۴ آذر ۱۳۸۷
خیلی خوشحالم که به سوال ها جواب داده می شه.
من هم یک سوال داشنم و خیلی ممنون می شم که جواب بدین.
چطور میشه میانگینی از لیست اعداد داده شده توسط کاربر را محاسبه کرد.(من با لیست مشکل دارم)
مرسی
پاسخ به اين نظر
ارسال شده توسط محمد
در ۳ دی ۱۳۸۷
با سلام
لطفا جواب این برنامه را برایم بفرستید
با استفاده از حلقه ها خروجی زیر چاپ شود
*
* *
* * *
* * * *
با تشکر (لطفا فوری)
پاسخ به اين نظر
ارسال شده توسط پیمان
در ۱۷ اسفند ۱۳۸۷
سلام
چگونه میتوانم ازیک فرم پرینت بگیرم طوری که قطع کاغذ بطور مثالA5 بوده و در مرکز کاغذ پرینت گرفته شود
پیشاپیش تشکر می کنم
پاسخ به اين نظر
ارسال شده توسط محمد
در ۱۳ خرداد ۱۳۸۸
می خواستم از نمودار رسم شده در پیکچر باکس از طریق پرینتر پرینت بگیرم ممنون می شم اگه راهنماییم کنید
با تشکر
پاسخ به اين نظر
ارسال شده توسط صادق رئیسی
در ۴ مهر ۱۳۸۸
سلام خسته نباشید
چطور می شود که ما بتوانیم در ویژوال بیسیک ۶ اندازه فونت منو ها و خلاصه شرح ها را بزرگتر کنیم
پاسخ به اين نظر
ارسال شده توسط sahel
در ۲۰ مهر ۱۳۸۸
chegune bedune code nevisi dar vb range fonte command button ra taghir dahim?
پاسخ به اين نظر
ارسال شده توسط hamed
در ۴ آبان ۱۳۸۸
با سلام خدمت مهندسای گل … من یه پروژه کوچیک میخواستم تحت vb2006 اینم سوالش هست که میگه :::: برنامه ای بنوسید که با دریافت یک عدد اعشاری از ورودی ابتدا قسمت های صحیح و اعشار این عدد را جدا کرده به طور جداگانه نمایش دهد … سپس این عدد را مغلوب کند … *** به شرطی که آن طرف اعشار رعایت شده باشد… ( مثلا اگه اعشارش ۴ رقم بوود مغلوبم بشه درسته که عدد هاش برعکس نوشته میشه ولی باید تعداد ارقام اعشار درست باشه…) استاد خواستن که کلاس بزارن فرمودن باید از رشته استفاده نشه و فقط با عدد کار بشه یعنی رشته یا string نباید استفاده کنیم…
خواهشا این قضیه رو برام حلش کنید خودمم گیج شدم خیلی حیاتی….
پاسخ به اين نظر
ارسال شده توسط مهران
در ۱۱ آذر ۱۳۸۸
سلام تشکر میکنم از سایت خوبتون
اگه بشه میخوام برنامه ایی که اعداد فرد بین ۱۰ تا ۱۰۰ رو نشون بده و جمع اعداد هم که تو تکست باکس هست رو بگه .
پاسخ به اين نظر
ارسال شده توسط سپيده
در ۱۸ آذر ۱۳۸۸
سلام…
چه طوری می تونیم جواب نظرات دوستان رو در همون قسمت نظرات بدیم؟
پاسخ به اين نظر
ارسال شده توسط سوگل
در ۲۴ آذر ۱۳۸۸
سلام.خواهش میکنم اگه می تونید بهم کمک کنید
من داخل اکسس یه فرم طراحی کردم. حالا اگه بخوام تو ویژوال یه دکمه بذارم که با فشاردادنش اون فرمه باز بشه باید چه کار کنم؟
پاسخ به اين نظر
ارسال شده توسط samira
در ۱ بهمن ۱۳۸۸
سلام
بچه ها من میخوام یه فرم a5 رو چاپ کنم ولی توی چاپ فرم وسط برگه نمیاد باید چی کار کنم؟
بچه ها خیلی فوریه
پاسخ به اين نظر
ارسال شده توسط مهدی
در ۲۴ فروردین ۱۳۸۹
با تشکر از شما ………ی سورس برنامه حسابداری با ویژوال بیسیک خواستم …شامل اسم وفامیل و بدهکار وبستانکار.. ی چیزی شبیه دفر معین برا خودم می خوام در ضمن چطوری می تونم از روی فرم مستقیم روی برگه چاپ کنیم
بازهم تشکر………………موفق باشید
پاسخ به اين نظر