وبلاگ شخصی احمد اکبری

موبایل مجانی هدیه بگیرید.باور نمی کنید!!!!

ahmad-akbari — Sun, 20 Sep 2009 02:12:18 GMT

موبایل مجانی هدیه بگیرید.باور نمی کنید کلیک کنید.

توضیحات

گوشی رایگان ؟! جهت ثبت نام به این لینک مراجعه فرمایید:

هر کسی که گوشی مجانی می خواد زود دست به کار شه !

هر کسی که بدنبال گوشی مدل بالا و عالی مثل ( nokia n97) –( w960i ) و یا ( iphone ) میگرده میتونه با کمی حوصله یکی از این گوشیها یا مدلهای دیگرش رو برای خودش انتخاب کنه.

توضیحات : برای ثبت نام در سیستم نیاز به پرداخت پولی نیست فقط کافی است از طریق لینکی که در قسمت بالا رفته و به آسانی و با صرف 5 دقیقه ثبت نام نمایید .

سایت از نظر امنیت و راحتی کار با آن مطمئن است و جای هیچگونه ناراحتی نیست پس هر چه زودتر عضو شده و برای خود زیر مجموعه بیابید.

هدیه ها : در قسمت هدیه ها بجز گوشی موبایل دستگاه گیم و mp4 هم قابل انتخاب شدن است .

طریقه ی ثبت نام در سایت : ابتدا از طریق لینک بالا وارد شده و یکی از گزینه های بالای سایت را که عبارتنداز : سایت مورد نظر برای ثبت نام ..:: جوایز برندگان ::..لازم به ذکر است که اکثر افرادی که ابتدا در سایت ثبت نام کرده بودند باور نمی کردند که هدیه خود را دریافت خواهند کرد و بعضی از آنها فقط از روی کنجکاوی ثبت نام کرده اند و بعد از کسب اعتبار لازم هدیه خود را در دست گرفته اند.وبعضی هم گفته اند وقتی به دوستانمان این سایت را معرفی کردیم با تمسخر آنها مواجه شدیم اما حالا همه آنها به تکاپو افتاده اند و در سایت عضو شده اند. میتونید بعد از وارد شدن به سایت بالای صفحه سمت راست روی Testimonials کلیک کنید لیست افرادی رو که هدیه شون به دستشون رسیده رو ببینید با عکس محصولات دریافت کرده بر روی لینک عضویت کلیک کنید و به قسمت رجیستر یا عضویت بروید(register)

-----( gaming | mobile | mp3)-----

را انتخاب نمایید شما بهتر است که گزینه ی موبایل را انتخاب کنید بعد وارد صفحه ی مربوط به گوشیها می شوید که در آنجا باید گزینه ی   View the Latest Mobile Phones

را انتخاب نمایید وقتی که صفحه ی مربوطه بارگذاری شد انواع گوشیهای هدیه را مشاهده خواهید نمود با بردن موس روی گوشی مورد نظر مدل گوشی و تعداد زیر مجموعه های مورد نظر برای بدست آوردن گوشی نمایان می شود بعد از انتخاب گوشی مورد نظر نام و مدلش را به خاطر بسپارید حالا به اولین صفحه از سایت که وارد شدید برگردید به بالای صفحه رفته و بر روی گزینه ی ( ( Not Registered Yet? SIGN UP! کلیک نمایید و در صفحه ای که باز می شود و در قسمت

( ( Registration Form جاهای خالی را به این صورت کامل کنید . ( همه چیز را به انگلیسی بنویسید )

در قسمت First name نام خود را بنویسید .

در قسمت Last name نام خانوادگی خود را بنویسید .

در قسمت Email آدرس ایمیل خود را بنویسید .

در قسمت Password برای خود یک پاسورد ایجاد کنید البته تعداد حروف برای انتخاب پاسورد بیشتر از 6 حرف باشد .

در قسمت confirm password پاسورد انتخاب شده را دوباره بنویسید .

نحوه ی درج آدرس به انگلیسی به صورت زیر میباشد:
(پلاک = no (پلاک 17 = no17) / واحد = Unit / طبقه = Floor / ساختمان = Bldg / کوچه = Alley / خیابان = St / خیابان بزرگ = Ave / بلوار = Blvd / میدان = Sq / چهارراه = Cross / بعد از = After / قبل از = Before / شرقی = East / غربی = West / شمالی = North / جنوبی = South / جاده = Rd)

مثال  ( street taleghany lane sepide )

شما برای انجام شدن بهتر کار فقط یک آدرس را بنویسید و آدرس دیگری را وارد نکنید

در قسمت town/cityنام شهر خود را بنویسید .

در قسمت county/state نام استان خود را بنویسید .

در قسمت country نام کشوری که در ان زندگی می کنید را از لیست انتخاب کنید .

در قسمت post code/zip کد پستی منزل خود را وارد کنید .

در قسمت contact number شماره تلفن خود را بنویسید .

به قسمت how did you hear دست نزنید .

در قسمت Free Gift نام هدیه ای را که از قبل در نظر داشتید از لیست انتخاب کنید .

در قسمت Referral ID اگر شماره ای نوشته شده بود به ان دست نزنید زیرا ثبت نام شما با موفقیت انجام نمی شود ولی اگر شماره ای در کادر نبود شماره ی زیر را در آن بنویسید .

      91933387

در قسمتconditions Terms And مربع کوچکی وجود دارد آن را تیک بزنید و بر روی کلمه ی REGISTER کلیک کنید .

اگر همه ی کادرها را به درستی پر کرده باشید صفحه ی بارگذاری شده پیغام تبریک را نمایان می کند ولی اگر درست انجام نداده باشید از شما در خواست می شود که دوباره مراحل را به درستی انجام دهید وقتی که با پیام موفقیت آمیز مواجه شدید نامه ای به ایمیل شما ارسال می شود که در آن لینکی برای فعال سازی اکانت شما گذاشته شده است به ایمیل خود رفته و بر روی لینک کلیک کنید تا صفحه ای جدید باز شود وقتی که صفحه بارگذاری شد در آنجا لینکی مانند زیر :

http://www.xpango.com?ref=91933387

گذاشته شده است که شما باید با آن زیر مجموعه گیری برای خود را آغاز کنید . شماره ای را هم که در آخر لینک شما قرار دارد مانند بالا یادداشت کنید زیرا خیلی مهم است یادتان باشد که هر چه زودتر دست به کار شوید و لینک ثبت نام خود را برای دوستانتان بفرستید تا زیر مجموعه ی شما شوند با اضافه شدن هر نفر به زیرمجموعه ی شما 1 امتیاز خواهید گرفت و بعد از اینکه تعداد زیر مجموعه های شما به مقدار مورد نظر برای هدیه گرفتن گوشی رسید شما می توانید گوشی خود را سفارش دهید تا برسد .

نحوه ی کار با سایت : وارد سایت شده و در بالای صفحه دو کادر می بینید که یکی برای نوشتن ایمیلتان و دیگری برای نوشتن پاسوردی است که با آن ثبت نام کردید پس آنها را در جای اصلی خود بنویسید و بر روی کلمه ی LOGIN کلیک کنید یک صفحه ی جدید باز خواهد شد که در آن تعداد تبلیغات وگزینه هایی در سمت راست است که با کلیک بر روی هر کدام صفحه ای دیگر باز خواهد شد شما ابتدا برای فهمیدن تعداد زیر مجموعه ها باید بر روی گزینه ی my account در سمت راست کلیک کنید .

شما باید به تعداد زیر مجموعه های در خواستی برای هدیه توجه کنید و این را بدانید که این کار صد در صد عملی است خود من برایn96 ثبت نام کرده ام و باید حدود 40 زیر مجمو عه پیدا کنم اما نگران نباشید زیرا شما با گذاشتن لینک خود و کمی آموزش به دیگران راحت بیشتر از 200 زیر مجموعه بیابید من خودم از یکی از دوستانم شنیده ام که کسی از دوستانش زیر مجموعه های خود را تا 123 نفر رسانده و سفارش هدیه ی خود را داده است که حدود دو تا سه هفته ی دیگر برایش می رسد .

کمک برای زیر مجموعه گیری : برای گرفتن زیر مجموعه از یک نفر هم دریغ نکنید شما می توانید در سایت :

www.google.com

آگهی رایگان را تایپ کنید و روی کلمه ی جستجو کلیک کنید وقتی که صفحه باز شد می توانید در لینکهای جستجو شده رفته و در انها ثبت نام کنید و به تبلیغ اگهی خود بپردازید و این را هم در نظر بگیرید که اگر این کار بکنید ممکن است در طول یک یا دو هفته تا 18 زیر مجموعه بیابید . سایت مورد نظر برای ثبت نام بر روی این لینک کلیک کنید و به قسمت رجیستر یا عضویت بروید(register)به فکر روزی باشین که گوشیتون میاد دستتون برای کپی کردن این مطالب و بروز ان در قسمتهای دیگر انها را از بالا به پایین کشیده و کنترا + c را فشار دهید و در قسمت مورد نظر paste کنید موفق و موید باشیدنکته بسیار مهم:برا یزیر مجموعه گیری به کدی که در ادرس ایمیل برای شما ارسال شد نیاز دارید.ان کد را به این صورت لینک کنید                        http://www.xpango.com?ref=your code

ودر انتها بعد از ثبت نام. برای ورود به سایت از ادرس ایمیل خود (ایمیلی که با آن ثبت نام کردید) به عنوان نام کاربری استفاده کنید. نکته : تمام اطلاعات بعد از ثبت نام قابل تغییر است..:: چند تذکر مهم ::..1- در یک کامپیوتر بیش از یک بار ثبت نام نکنید : چون این کار باعث حذف اکانت شما میشود. 2- هیچ وقت از مکانهایی مانند کافی نت ثبت نام نکنید : چون امکان دارد شخص دیگری بر اثر عدم آگاهی، در همان کامپیوتری که شما ثبت نام کردید او هم ثبت نام کند. در این صورت عضویت شما باطل خواهد شد .طریقه عضو گیریبعد از ورود به سایت در بخش کاربری خود جلوی Referral Link لینک شما قرار دارد که از طریق این لینک میتوانید دوستان خودتان را به سایت معرفی بکنید به عنوان مثال شما برای بدست آوردن مثلا w810 باید 15 نفر را معرفی بکنید و آن 15 نفر هم هر کدام 1 نفر رو معرفی بکنن تا 15 امتیاز شما کامل بشود ویتوانید گوشی موبایلو هدیه بگیرید**اگه خیلی ساده تر بگم شما هزار تا هم زیر مجموعه بگیرید برایتان فرقی نمیکنه و هیچ امتیازی نمیگیرید بلکه هر زیر مجموعه ی زیر مجموعه ی شما به شما امتیاز میدهید.راهنمایی دوستان که نمی دونند چطور زیرمجموعه خود را افزایش بدهند- آسونترین روش دعوت کردن دوستان خودتونه 2- ایجاد کردن وبلاگ و کپی کردن مطالب وبلاگ من در وبلاگ خودتون (البته بجای لینک من لینک خودتونو قرار بدید)3- ازطریق سایت های آگهی ایرانی که تعدادشون هم زیاده وهم به صورت مجانی به شما اجازه میدن تبلیغ بکنید (لیست تعدادی از این سایت ها : ایستگاه . هفت رنگ . رهنما . آگهی نامه و... )4- تبلیغ وبلاگ خودتون با نظر دادن در وبلاگ ها وسایتهای دیگه (در این روش آمار خودتونو در موتور های جستجو مثل گوگل هم بالا میبرید)5- جمع کردن ایمیل افرادی که وبلاگ ویا وب سایت دارن وفرستادن آدرس وبلاگتون به ایمیل اون ها 6- ورود به چت روم های ایرانی وتبلیغ خودتون (میتونید چت روم ها رو توی یاهو سرچ کنید)دریافت هدیه بعد از جمع کردن امتیازات کامل و رسیدن امتیازات شما به حد نساب یک ایمیل به اینباکس ایمیل شما فرستاده می شه که امتیازات شما کامل شد و هدیه برای شما فرستاده می شود.

     برای عضویت کلیک کنید

و جلوی مساوی کد خود را بنویسید و به بقیه این ادرس را بدهید تا زیر مجموعه تان شوند

.:: اگر موي خشک و شکننده داريد اين مطلب را بخوانيد ::.

ahmad-akbari — Sun, 19 Apr 2009 00:08:16 GMT

شست و شوي زياد موي سر ، استفاده از شوينده هاي نامناسب ، استفاده طولاني مدت از مـواد آرايـشي شيميايـي و قـرار گرفتـن مداوم در معـرض نـور آفتاب ، مـوهـا را خشک و شکـننـده مي کند ، بـه طور طبيعي غلافـي دور مـو وجـود دارد که بـه همـراه چربي مترشحه از غدد چربي پوست سر ، مانع از تبخير آب موجود در ساقه مو مي شود . اگر به هر علتي غلاف دور مو آسيب ببيند ، مو قدرت نگهداري آب را از دست مي دهد و خشک و شکننده مي شود . استفاده طولاني مدت از مواد آرايشي و رنگ مو نيز به بافت ساقه مو آسيب مي رساند و سبب خشکي و زبري مو مي شود . در چنين مواردي استفاده از شامپو هاي مخصوص و نرم کننده ها مي تواند تا حدودي کمک کننده باشد . مولکول هاي بزرگ نرم کننده مانند لايه اي روي ساقه مو را مي پوشانند و باعث ترميم آسيب هاي آن مي شوند ولي در رشد مو تاثيري ندارند . در مجمـوع مـواد قليايي مانند شامپـو ، رنگ مـو و مواد فـر در صـورت تماس مکـرر با پوست سر و همچنين آب که خود اندکي قليايي است باعث صدمه و آسيب ديدگي غلاف مو مي شوند .
استفاده از کرم هاي مخصـوص بعـد از رنگ کردن باعث حفظ رطوبت ساقـه مـو و مانع از تبخيـر آن مي شود . هنگام استفاده از سشوار بايـد حداقل فاصله سشوار از مـو 20 تا 25 سانتي متـر باشد و جهت باد آن جابجا شود . باد سشوار نبايد مدت طولاني روي يک قسمت از پوست سر متمرکز شود .

.:: آيا تا کنون کسي را ديده ايد ناخنش را بجود ؟ ::.

ahmad-akbari — Sun, 19 Apr 2009 00:05:33 GMT

خـوردن ناخن از عادات شايع به خصـوص در کودکان است . معمولا با بـزرگ تر شدن کودک اين عادت بـرطرف مـي شود . در مـورد بچه ها زدن لاک هاي بـد طعم و يا مـواد خوراکي بسيار تلخ ، سبب ترک عادت مي شود و در صـورت عدم تاثيـر ايـن روش ها مراجعه به روانپـزشک لازم به نظر مي رسد. در سنين پيـري بيـماري قارچي ناخن ها عارضه شايعي است که در اثر تمايل شديد قارچ ها به نسج کراتيني ، نسج ناخن در افراد پير ، اختلال گردش خون در ناخن ها و نيز مصرف دارو ها در اين سنين است . ضايـعـات قارچي ناخن بسيار به کنـدي معالجه مي شود زيـرا از طـرفي ناخن کنـد رشـد مي کند و ناخن سالم ديـر جايگزيـن ناخن بيـمار مي شود و از طـرف ديگر دارو ها در اين نسوج کمتـر نفـوذ مي کنند.

.:: ريزش موي ناحيه اي چيست ؟ ::.

ahmad-akbari — Sun, 19 Apr 2009 00:03:28 GMT

ايـن بيماري نه چندان نادر ، نوعي تاسي سر است که باعث ريزش سريـع و کامل مو در يک يا دو ناحيه گرد سکه شکل بـه اندازه هاي متفاوت مي شود . در مواردي موي کل سر مي ريـزد و در حال نادرتري اين ريزش به موي نقاط ديگر بدن مانند مژه ها و ابرو ها نيز سرايت مي کند . بيشتـر بيماران کمتر از 40 سال سن دارنـد . رشد مجدد مو ممکن است در عرض 1 تا 3 ماه بعد رخ دهد ، اما در مواردي ديده شده است که موي منطقه ديگري شروع به ريزش مي کند . علت دقيق اين بيماري نا مشخص است . بعضي از متخصصان فشارهاي شديد جسمي و روحي را در بـه وجود آمدن آن دخيل مي دانند و بـرخي ديگـر آن را ناشي از وجود عوامل ايمني در بـدن مي دانند . جالب است بدانيد اين بياري عفوني نيست و از ايـن رو سرايت نمي کند و درمان آن بايـد زيـر نظر پزشک متخصص صورت گيرد .

.:: مو و چند توصيه بسيار مهم ::.

ahmad-akbari — Sun, 19 Apr 2009 00:01:57 GMT

1 - سعي کنيد در برنامه غذايي خود از انـواع سبزي ها و ميوه هاي تازه بسيار استفاده شود و خوردن سبزيهايي چون کرفـس ، جعفري ، کاهو و اسفناج تـوصيـه مي شود .
ايـن مطلب را هم فراموش نکنيد که اسفناج جدا از تقويت غده هاي رنگينه اي مو ، منبع اعظم آهن است که باعث تقويت استخوان ، ناخن و مو مي شود .
2 - بعد از استحمام اگر موهاي شما پف مي کند ، بجاي استفاده از ژل ها که باعث خفه شدن مو مي شود ، از روغن هاي مـفـيـد گياهي استفاده کنيـد .
البته به ياد داشته باشيـد که هيـچ روغني نبايد بيش از سه ساعت روي سر بمانـد و پس از آن بايد با يک شامپوي مناسب شسته شود .
3 - از حنا اين گياه مفيد استفاده کنيد و به هيچ وجه خود حنا را با شامپوهاي حنا مقايسه نکنيد اگر از رنگ دادن حنا خوشتان نمي آيد، مي توانيد از پودر گل ختمي استفاده کنيد . در اين صورت نه تنها حنايتان رنگ نمي دهد بلکه از خواص گل ختمي نيز بهره مند مي شويد .
                                          4 - شلتـوک يا همان سبوـس برنـج ، گيـاه ارزان قيمتي است که مي توانيـد از دم کرده آن مانند چاي استفاده کنيد .
5 - از رسيدن گرد و خاک و دود به موهايتان جلوگيري کنيد که دشمن مو هستند .

.:: لکه هاي سفيد روي ناخن علل متفاوتي دارد ::.

ahmad-akbari — Sat, 18 Apr 2009 23:59:25 GMT

ناخن هاي شکننده ( Brittle nails ) يـک مشکل شايـع بـه خصـوص در ميـان خانم هاست که مهم ترين عامل ايجاد کننده آن تماس مکرر با آب ، مواد شوينده و مواد شيميايي است که باعث خشکي و شکنندگي ناخن مي شود .
پـرهيـز از تماس زياد دست بـا آب ، پـوشـيـدن دستـکـش هاي نـخـي نـازک در زيـر دستکش هاي پلاستيکي در هنگام کارهاي روزانه ، پرهيز از تماس دست ها با مواد شيميايي مانند حلال هاي لاک ، کوتاه نگه داشتن ناخن و استفاده مکرر
از ترکيبات نـرم کننده و مرطوب کنند ، مي تواند بـه بهبود اين حالت کمک کند .
                                 در مجمـوع ضـربـه ، داروها و بيـماري هاي سيستمـيـک ، مي توانند باعث ايجاد سفيدي ناخن ها شونـد و شايد بتـوان گفت که ضربـه هايي که به طور مکرر به
صفحه ناخن وارد مي شود ، مانند کندن صفحه ناخن بـه وسيله ناخن هاي ديگر ، استفاده از پوليـش و مانيکور کردن از شايع تـريـن علل ايجاد کننده لکه هاي سفيد روي ناخن است .

مثالی ديگر درباره استفاده از Label و TextBoxها

ahmad-akbari — Tue, 24 Feb 2009 22:41:56 GMT

فرض کنيد بخواهيم فرمی داشته باشيم که دارای دو Text Box (که در VB برای عمليات دريافت اطلاعات از کاربر (DataEntrq) معمولاً از اين کنترل استفاده می شود) برای درجه سيلسيوس و درجه فارنهايت باشد و توسط يک دکمه (و در واقع با فشردن آن توسط کاربر) مقداری که در Text box مربوط به درجه سيلسيوس نوشته شده بود را به فارنهايت تبديل کند و نتيجه را در Text Box مربوط به آن درج نمايد. (توجه: اگر Cمقدار درجه برحسب سيلسيوس و F مقدار درجه برحسب فارنهايت باشد، تبديل سيلسيوس به فارنهايت از فرمول F=9/5 C+32 محاسبه می شود). شکل نهايی فرم را می توانيد در شکل 4 ببينيد.

برای اين منظور، از جعبه ابزار (جعبه حاوی کنترلها) ، دو برچسب (Label) که در جعبه ابزار به شکل ديده می شود را بر روی فرم قرار می دهيم(برچسب(Label) ها در VB معمولاً زمانی استفاده می شود که بخواهيم بر روی فرم، عبارتی را به کاربر نشان دهيم که او قابليت تغيير آن را نداشته باشد.) آنها را بوسيله Drag & Drop به مکان دلخواه منتقل می کنيم و برای يکی از آن دو:

1- مشخصه Name را به lblCelsius

2- مشخصه Caption را به Celsius

و برای ديگری:

1- مشخصه Name را به lblFahrenheit

2- مشخصه Caption را به Fahrenheit

تغيير می دهيم. توجه داريم که در نامگذاری Label ها با سه حرف اول lbl آغاز کرده ايم. همچنين توجه داريم که در شکل 4 ، بر روی فرم، عبارات Celsius و Fahrenheit در واقع همين دو Label هستند.

نکته: برای Label هايک مشخصه (Property) ديگر به نام Auto Size وجود دارد که اگر مقدار آن را به True تغيير دهيم، اندازه (size) آن به طور اتوماتيک به اندازه متن (caption) داخل آن خواهد شد و بنابراين معمولاً بهتر است اين مشخصه را نيز set کنيم.

حال دو Text Box (جعبه متن) در مقابل اين Label (Text Box ها در جعبه ابزار به شکل ديده می شوند، معمولاً برای نمايش و دريافت اطلاعات به طور توأم به کار می رود (بر عکس Label ها که فقط وظيفه نمايش اطلاعات را به عهده داشتند) و خصوصاً برای فرمهای DataEntrq (دريافتی اطلاعات) بسيار مناسب هستند. پروژه فعلی ما، نمونه ای کوچک از فرمهای DataEntrq است) و مناسب با هر يک از برچسب ها، برای يکی از آن دو Text Box :

1- مشخصه Name رابه txtCelsius تغيير می دهيم.

2- مشخصه Text را خالی می کنيم.

و برای ديگری:

1_ مشخصه Name را به txtFahrenheit تغيير می دهيم.

3- مشخصه Text را خالی می کنيم.

واضح است که در نامگذاری TextBox ها نيز از قرارداد سه حرف اول متناسب با نوع شئ، استفاده کرديم و سه حرف اول آنها را txt گذاشتيم.

مشخصه Text در Textbox ها آن متنی است که داخل آن متنی است که داخل آن نوشته می شود(شبيه مشخصهCaption در Label ها) و چونقرار است کاربرما آن را وارد کند، آن را خالی (NULL) کرديم.

حال يک دکمه (Command button) نيز به فرم اضافه و:

1- مشخصه Name را به cmdConvent

2- مشخصه Caption را به convent

تغيير می دهيم.

خوب، ظاهر (Interface) برنامه آماده شد. حال به کدنويسی برای آن می پردازيم. اين اولين باری است که می خواهيم در زمان اجرا (Run Time) از مشخصه ای استفاده کنيم (مشخصه Text از txtCelsiusکه توسط کاربر وارد شده) و مشخصه ای را در اين حال (Run Time) تغيير دهيم (مشخصه Text ازtxtFahrenheit که بايد نتيجه را بنويسد)

در VB هنگام کدنويسی برای Run Time هر زمان بخواهيم از يک Object استفاده کنيم، کافی است نام (Name) آن را بنويسيم و اگر بخواهيم به يکی از مشخصه های آن دست يابيم، کافی است پس از نام آن يک نقطه (Dot) قرار دهيم و سپس نام مشخصه (Property) مورد نظر خورد را بنويسيم.

با توجه به اين مطلنب، ديگر نوشتن کدهای مثال فوق کار چندان دشواری نيست. اگر بر روی دکمه Convent (البته در Design Time ) دابل کليک نماييد، در اينصورت Procedure مربوط به رويدادِ(Event) کليک از آن باز می شود که کافی است در آن نوشته شود:

txtFahrenheit.Text = (9/5*txtCelsius.Text) + 32

يعنی Procedure بايد به شکل زير شود:

Private Sub cmdConvent_Click ()

txtFahrenheit.Text = (9/5*txtCelsius.Text) +32

End Sub

واضح است که وقتي مشخصه Text از يک Text Box در سمت يک تساویِ جايگزينی قرار می گيرد، مقدار فعلی آن در عمليات شرکت می کند و وقتی اين مشخصه در سمت چپ اين جايگزين قرار می گيرد، مقادير محاسبه شده در آن قرار می گيرد.
بنابراين، Procedure فوق می گويد که وقتی بر روی دکمه Convent کليک شد، هر مقداری که کاربر، داخل جعبه Celsius نوشته باشد را در 9/5 ضرب و با32 جمع کن و مقدار نهايی را داخل جعبه مربوط به Fahrenheit بنويس.
اين برنامه را حتماً بنويسيد، آن را اجرا منيد و با نحوه استفاده از Property ها در اين کدنويسی بری Run Time آشنا شويد. در ادامه، بيشتر با اين نوع استفاده از Property ها (يعنی set کردن در کدنويسی بجای set کردن در پنجره Properties از Design Time) مواجه خواهيم شد. و مهم است که اين نوع استفاده را خوب درک کنيم.
نکته: مشخصه Text برایText Box ها و مشخصه Caption برای Label ها، مشخصه های پيش فرض آنها محسوب می شوند و اگر نام آنها را بدون هيچ مشخصه ای بنويسيمف اين مشخصه ها در نظر گرفته می شود، اذا مثلاً در Procedure بالا می توانستيم بجای txtCelsius.Text از خود txtCelsius نيز استفاده کنيم.

اولين پروژه و آشنايی با برنامه نويسی بوسيله VB

ahmad-akbari — Tue, 24 Feb 2009 22:39:33 GMT

به عنوان اولين پروژه، قصد داريم فرمی داشته باشيم با دو دکمه Message و Exit که اگر در دکمه Message کليک شد، پيغامی نمايش داده شود و اگر دکمه Exit کليک شد از برنامه خارج شود(شکل3):

ابتدا فرمی که بر روی صفحه نمايش باز است (فعلاً به نام Form 1 ) را به اندازه دلخواه در می آوريم و در حالی که Select است، از پنجره Properties (سمت راست تصوير) ، مشخصه (Property) های زير را چنين Set می کنيم:

1- مشخصه Name آن را به frmFirstProject تغيير می دهيم.

2- مشخصه Caption آن را به First Project تغيير می دهيم.

مشخصه Caption معمولاً عنوانها را تغيير می دهد. مثلاً در مورد فرمها، آنچه در اين مشخصه Set شود در Title Bar از آن فرم ديده می شود يا در مورد دکمه ها، آنچه در اين مشخصه قرار داده شود، آن چيزی است که بر روی دکمه ( به عنوان نام دکمه ای که ُکاربر می بيند) ديده می شود.

مشخصه Name يکی از مهمترين مشخصه هايی است که بايد برای تمام کنترلها Set شود. آنچه در اين مشخصه قرار گيرد، نامی است که VB آن کنترل را به اين نام می شناسد (و خصوصاً در هنگام کدنويسی و برای دسترسی به کنترلها، بسيار مورد استفاده واقع می شود). به طور پيش فرض VB برای هر کنترل يک Name در نظر می گيرد، اما در پروژه های واقعی ، معمولاً تعداد کنترلها آنقدر زياد می شوند که نامهای پيش فرض به سختی در ذهن می ماند. برای اين منظور بهتر است به کنترلها، نامهايی را نسبت دهيم که از جهتی با او متناسب باشد. لذا بهتر است اولاً در نام آنها چيزی باشد که نشان از نوع آن کنترل باشد و عبارتی نيز باشد که بيانگر موضوع يا کار فعلی آن باشد. به عنوان مثال شما می بينيد که ما در مشخصه Name از form ، گفتيم که قرار دهيم: frmFirstProject که frm به خاطر تشخيص Form بودن آن است و First Project به خاطر تشخيص اينکه اين فرم برای First Project است. يا مثلاً به فرض اگر بخواهيم دکمه ای به نام Exit بر روی فرمی داشته باشيم، من ترجيح می دهم که نام آن را cmdExit بگذارم که cmd را از Command Button گرفته ام. توجه داريم که اين نامی است که VB آن را می شناسد وگرنه برای زيبايی کار Caption اين دکمه را همان Exit می گذاريم و اين نام گذاری به زيبايی پروژه ما لطمه ای وارد نمی کند.

برای ادامه، دو دکمه (Command Button) بر روی فرم قرار می دهيم (که برای اين منظور از پنجره Controlها که در سمت چپ تصوير است، کنترل Command Button به شکل را دابل کليک می کنيم و يا با يک Click و انتخاب آن، بر روی فرم، به اندازه دلخواه Drag & Drop می کنيم) و جای آنها را به مکان دلخواه مورد نظر (به وسيله Drag & Drop آنها) تغيير می دهيم. آنگاه برای يکی از آنها:

1- مشخصه Name را به cmdMessage تغيير می دهيم.

2- مشخصه Caption را به Message تغيير می دهيم.

و برای ديگری تغيير می دهيم:

1- مشخصه Name را به cmdExit .

2- مشخصه Caption را به Exit .

که پس از اين، شمای ظاهری (Interface) برنامه کامل شده است و بايد به کدنويسي آن پرداخت.

اگر بر روی دکمه Exit دابل کليک کنيد (البته هنوز در Design Time هستيم و نه Run Time)، Event Procedure مربوط به رويداد Click (Event) از آن را به صورت زير باز می کند:

Private Sub cmdExit_Click ()

End Sub

که هر دستوری که در اين Procedure (يعنی بين خط Private و خط End Sub) نوشته شود، در زمان اجرا، وقتی کاربر روی دکمه Exit کليک می کند، اين دستورات اجرا خواهند شد.

دستوری که بايد در cmdExit_Click نوشته شود بسيار ساده است:

Private Sub cmdExit_Click ()

End

End Sub

دستور End هر جايی از برنامه که اجرا شود فوراً اجرای برنامه را متوقف و از آن خارج می شود.

حال اگر به ترتيبی که در بالا ذکر شد، Event Procedure مربوط به رويداد click از دکمه Message را نيز باز می کنيم و آن را به صورت زير تغيير می دهيم:

Private Sub cmd, Message - Click

MsgBox “The first project was done successful” و و “Thanks”

End Sub

پروژه مورد نظر آماده شده شده است. دستور MsgBox (مخفف Message Box )باعث می شود تا يک کادر پيغام بر روی صفحه نمايش ظاهر شود و تا زمانی که دکمه OK از آن را فشار دهيم، پيغامی را نمايش دهد. در اين دستور پارامتر اول، پيغام مورد نظر را به صورت string (يک داده متنی) دريافت مي کند (در VB هر عبارتی که بين دو علامت " " قرار گيرد، string فرض می شود) و پارامتر سوم نيز به عنوان Message Box (که در Title Bar آن آورده خواهد شد) را به صورت متنی دريافت می کند. توجه داريم که بين هر دو پارامتر از علامت کاما (,) استفاده می کنيم و بنابراين در دستور MsgBox برنامه مان برای اينکه پس از پارامتر اول، پارامتر سوم را وارد کنيم بين آن دو پارامتر، دو بار کاما گذاشته ايم.

حال برنامه تان را اجرا کنيد و نتيجه کار را ببينيد (اجرای برنامه در VB توسط کليد F5 صورت می گيرد.

ذکر چند نکته:

1- اگر بخواهيد فشردن ALT+X همان عمل دکمه Exit را انجام دهد(ايجاد(Hot key) ، کافی است در Caption اين دکمه چنين بنويسيد: E&xit که در اين صورت در زمان اجرا، زير حرف x يک underline (زير خط) می کشد که در ويندوز اين حالت نشانگرHot key داشتن آن حرف است ، همين کار را هم در مورد دکمه Message انجام دهيد.

2- در هنگام کدنويسي اگر چند حرف اول يک کلمه شناخته شده VB (مانند نام کنترلها و يا Property ها، Method ها و ...) را بنويسيم و CTRL+Space را فشار دهيم، اگر تنها يک کلمه با حرف اول برابر آنچه شما نوشته ايد پيدا کند، بقيه حروف را خود، کامل می کند و اگر تعدادی کلمه با اين مشخصات پيدا کند، ليست آنها را نمايش می دهد که می توانيد يا يکی از آنها را انتخاب کنيد (بر روی کلمه از ليست برويد و کليد space را بزنيد) و يا تعدادی از حروف آن را بنويسيد تا محدوده کلمات مشابه کوتاهتر شود. اين کار را حتماً امتحان کنيد!

3- زمانی که يک فرم باز می شود، به ترتيب چهار Event بر روی آن رخ می دهد:

	Initialize
	Load
	Activate
	Got focus

که زمانی که رويداد اول رخ می دهد، هنوز object های روی فرم ايجاد نشده اند و قابل دسترسی نيستند. اين object ها در load ساخته می شوند، اما هنوز فرم نمايش داده نشده است. وقتی فرم نمايش داده می شود، رويداد Activate و وقتیfocus به آن داده می شود، رويداد Got focus روی مي دهد. (منظور از گرفتن focus اينست که آن کنترل خاص که در اينجا فرم است، کانون تمام پيامها شود، مثلاً اگر کليدی زده شد به آن فرستاده شود و ...).

4- برای ذخيره کردن پروژه از منوی فايل و گزينه Save استفاده می شود که بايد تمام فرمها، ماژولها، ... و اصل پروژه را جداگانه ذخيره کرد. لذا اگر شما برنامه First Project راsave کنيد، يکبار نام فرم را save می کند (با پسوند.frm) و يکبار فايل پروژه را (با پسوند.VBP

اس ام اس 2

ahmad-akbari — Thu, 19 Feb 2009 19:32:45 GMT

بارون و دوست دارم هنوز ... چون تو رو یادم میاره
حس می کنم پیشه منی ... وقتی که بارون می باره ....
دریاب! بازم تنهام

بهت نگفتم تا حالا اینکه چقد دوست دارم اما حالا بهت می گم بی تو دارم کم می یارم
بهت نگفتم تا حالا که بدجوری عاشقتم بهت نگفتم تا حالا اما حالا بهت می گم ...

وای بر من گر تو آن گم کرده ام باشی.
که بس دور است بین ما ....

رفیق من سنگ صبور غمهام / به دیدنم بیا که خیلی تنهام
هیشکی نمی فهمه چه حالی دارم / چه دنیای رو به زوالی دارم
مجنونم و دل زده از خیلیا / خیلی دلم گرفته از خیلیا ...

ميدوني فرق تو با خون چيه؟
خون ميره تو قلب و برميگرده
اما تو ميري تو قلب و برنميگردي

شراب را دوست دارم چون رنگ خون است خون را دوست دارم چون در رگ جريان دارد رگ را دوست دارم چون به قلب راه دارد قلب را دوست دارم چون جايگاه توست

خوام بگم قدر 1 دنيا دوست دارم چون دنيا 1روز تموم مي شه نمي خوام بگم سياهي چشات مثل شب پر ستاره است چون شب هم بالاخره تموم مي شه نمي خوام بگم دوست دارم چون دوست ندارم بلكه عاشقتم

سلام ببخشيد از اداره هواشناسی مزاحم مشوم اينجا کسی دلش هواتون را کرده چه کار بايد بکنه؟

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

تو هديه الهی از خداوندی برای سينه پر دردمن:عطر وجودت را برای شفا می بويم..........!
ای شلغم

خدايا شاهد تنهايي ام باش بين غم ها تنها ناجي ام باش پر پرواز من ديريست بسته تو بگشا و در آزادي ام باش اسير موج هاي تند خشمم تو آرام دل دريايي ام باش دل خسته خريداري نداره تو خواهان صفاي ذاتي ام باش در اين آشفته بازار محبت تو تنها شاهد ارزاني هم باش

ای که دور از منی و یاد منی،با خبر باش که دنیای منی...شادیت شادی من،غصه ات غصه من...قلب من خانه تو خانه ات قبله من دوست دارم

آسمان رنگ خدا گشت بيا پر بزنيم
باغ خورشيد پراز چلچله ها گشت بيا سر بزنيم
فصل مهمان شدن پنجره ها يادت هست
پشت در جاي غريبيست بيا در بزنيم
يک نفر باز مرا در خود من مي خواند
پر پرواز نداريم که پرپر بزنيم
باز از مزرعه من بوي علف مي شنوم
جاي پروانه چه خاليست بيا پر بزنيم

دلا ياران سه قسم اند گر بداني زباني اند و ناني انـد و جـاني به نـاني نان بده از در برانـش تو نيـکي کن يه ياران زبـاني وليـکن يـار جـاني را نگهدار به پـايش جـان بده تا مي تواني

گوش کن ...یک نفر ...آنطرف پنجره ی بسته...تورا میخواند! و نسیم...لای این پرده ی آویخته رامی کاود... تا تو را در یابد، نورخورشید که از منزل پر مهر خدا آمده است...لب درگاه تو در یک قدمی می ماند... قلب این پنجره از دست غم پرده، به تنگ آمده است! پرده را برداریم ، دل این پنجره را باز کنیم..!

ميدوني فرق لبخند تو با لبخند من چيه ؟ تو وقتي شادي ميخندي،من وقتي تو شادي ميخندم

سهم من از دوري تو چيزي جز دلتنگي به اندازه درياها ،نگاهي تاريك همچون شب هاي بدون مهتاب و لحظه هايي كه ثانيه به ثانيه ميگذرند نيست .پس اي دوست بشنو صداي دلتنگي مرا

طبق قانون بقاي شادي هيچ شادي از بين نميره؛ بلكه فقط از دلي به دلي ديگه جابه جا مي‌شه

در غريبي ناله ها کر دم کسي يادم نکرد ، در قفس جاندادم و صياد ازادم نکرد، ضربه مردم چنان از زندگي سيرم نمود، آرزوي مرگ کردم مرگ هم يادم نکرد

عجایب و شگفتیهای جهان اسلام

ahmad-akbari — Wed, 18 Feb 2009 00:58:04 GMT

عجایب