<body>
<a href="http://facefa.com">جامعه مجازی</a>
<h1><a href="http://facefa.com">شبکه اجتماعی</a><strong>دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما</strong> <a href="http://coo.ir">ثبت دامنه</a><strong>دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما</strong></h1><h2><strong>speed loading speed loading speed loading</strong><strong>speed loading speed loading speed loading</strong></h2><h1>speed loading speed loading speed loading دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما http://i29.tinypic.com/ip7f4o.jpg http://i29.tinypic.com/ip7f4o.jpg</h1><p><a href="http://dehkadehweb.coo.ir"><strong>دهكده وب - نرم افزار - آموزش -امكانات رايگان - و هـــــر چيز ديگر با درخواست شما</strong></a> <a href="http://www.coo.ir" >free domain</a>جامعه مجازی، شبکه اجتماعی، دوست یابی، دوستیابی، ثبت دامنه، ثبت دامین</p>
<UL><LI><a href="http://dehkadehweb.blogfa.com/post-4.aspx" target="_blank">دستور ها و توابع</a><BR><P dir=ltr>سلام دوستان در این پست قصد دارم تا به آموزش برخی از توابع و دستور های ویژوال بیسیک بپردازم چرا که فکر کنم از همه چیز مهم تر باشند در ضمن در این پست می خواهیم چند تا برنامه ساده بسازیم.</P>
<P></P>
<P dir=rtl>مهم ترین و به درد بخور ترین دستوری که در vb (ویژوال بیسیک) وجود دارد دستور شرطی <STRONG>if </STRONG>است.</P>
<P dir=rtl>شکل کلی این دستور به این شکل است : </P>
<P dir=rtl align=left> then دستور شرطی if </P>
<P dir=rtl align=left>کدهایی که باید اجرا شوند</P>
<P dir=rtl align=left>end if</P>
<P dir=rtl align=right> if ای انگلیسی به معنای "اگر" و then به معنای آنگاه می باشد دستور if چنین است که یک شرط را بررسی می کند اگر آن شرط درست بود آنگاه کد ما اجرا می شود و در پایان دستور پایان میابد و در غیر اینصورت فقط دستور پایان میابد. <STRONG>مثال :</STRONG></P>
<P dir=rtl align=right>یک جعبه متن ایجاد کرده و نامش را txt بگذارید سپس یک کلید ایجاد کنید.</P>
<P dir=rtl align=right>حالا در کد کلید بنویسید :</P>
<P dir=ltr align=left>if txt = "165" then</P>
<P dir=ltr align=left>end </P>
<P dir=ltr align=left>end if</P>
<P dir=rtl align=right>حالا وقتی روی کلید کلیک می کنیم اگر در txt مقدار 165 نوشته شده بود برنامه بسته می شود و در غیر اینصورت هیچ اتفاقی نمی افتد.</P>
<P dir=rtl align=right> </P>
<P dir=rtl align=right><STRONG>تکمیل دستور if با Else </STRONG></P>
<P dir=rtl align=right>در مثال بالا اگر شرط برقرار نبود هیچ اتفاقی نمی افتد ولی گاهی اوقات ممکن است پیش بیاید که خواسته باشیم اگر شرط برقرار نشد اتفاقی دیگر بیفتد در اینصورت باید از دستور else استفاده کرد. اینگونه :</P>
<P dir=ltr align=left>if دستور شرطی then</P>
<P dir=ltr align=left>کدی که اگر شرط برقرار بود انجام شود</P>
<P dir=ltr align=left><STRONG>else</STRONG></P>
<P dir=ltr align=left>کدی که اگر شرط برقرار نبود اجرا شود</P>
<P dir=ltr align=left>end if</P>
<P dir=rtl align=right>برای مثالی دیگر مثل مثال قبلی یک جعبه متن بانام txt ایجاد کنید و یک دکمه و در کد دکمه بنویسید :</P>
<P dir=rtl align=left>if txt = "11" then</P>
<P dir=rtl align=left>end</P>
<P dir=rtl align=left>else</P>
<P dir=ltr align=left>txt = "22"</P>
<P dir=ltr align=left>end if</P>
<P dir=rtl align=right>حالا برنامه را اجرا کنید . اگر کادر متن برابر 11 بود برنامه بسته می شود و اگر هرچیز دیگر بجز 11 بود آنگاه در کادر عدد 22 نوشته می شود.</P>
<P dir=rtl align=right> </P>
<P dir=rtl align=right><FONT size=4>دستور select case</FONT></P>
<P dir=rtl align=right>دستور select case مانند دستور قبلی است اما تفاوت کمی دارد فرض کنید یک متغیر به نام w دارید و یک دکمه نیز ایجاد کرده اید حالا می خواهید هرگاه روی دکمه کلیک شد اگر متغیر برابر 2 بود برنامه بسته شود اگر 4 بود هیچی نشود و اگر 7 بود متغیر برابر با 10 شود. باید اینگونه نوشت که :</P>
<P dir=ltr align=left>select case w</P>
<P dir=ltr align=left>case "2"</P>
<P dir=ltr align=left>end</P>
<P dir=ltr align=left>case "4"</P>
<P dir=ltr align=left> </P>
<P dir=ltr align=left>case "7"</P>
<P dir=ltr align=left>w = "10"</P>
<P dir=rtl align=right><FONT size=4>تابع msgbox </FONT></P>
<P dir=rtl align=right>گاهی ممکن است بخواهید در یک کادر پیغام متنی را به کاربر نمایش دهید مثل اخطار یا پیام خوشآمد گویی یا ... خلاصه به این شکل عمل می کند :</P>
<P dir=ltr align=left>msgbox "متنی که می خواهید نمایش داده شود"</P>
<P dir=rtl align=right>مثال : ویژوال بیسیک را باز کرده و روی فرم یک دکمه با نام دلخواه قرار دهید و در کد آن چنین بنویسید :</P>
<P dir=ltr align=left>msgbox "متن دلخواه"</P>
<P dir=rtl align=right>با اجرای برنامه و کلیک روی دکمه میتوانید نتیجه را مشاهده کنید</P>
<P dir=rtl align=right>حالا برویم سراغ تکمیل کننده های این تابع.</P>
<P dir=rtl align=right>شاید بخواهید این کادر پیغام یک آیکون نیز در کنارش داشته باشد مثل آیکون اخطار یا پرسش یا تعجب!</P>
<P dir=rtl align=right>خلاصه باید اینگونه بنویسید :</P>
<P dir=ltr align=left>msgbox "متن مورد نظر",vbCritical</P>
<P dir=rtl align=right>البته شایان ذکر است که گزینه vbCritical مربوط به آیکون اخطار است ویژوال بیسیک آیکون های دیگری نیز دارد مثل vbInformation که مربوط به علامت i است و vbquestion برای علامت سوال و vbExclamation برای علامت تعجب.</P>
<P dir=rtl align=right><FONT color=#ff0000 size=4><U>نکته:</U><FONT size=2><FONT color=#000000> چندین مورد است که باید آنها را به خاطر سپرد زیرا بسیار بسیار مهم اند یکی این که باید هنگامی که می خواهید متنی را دقیقا مثل این چیزی که نوشته اید باید در بین " و " قرار دهید برای مثال فرض کنید یک برنامه نوشته ایم و یک تابع msgbox به آن افزوده ایم حالا درون تابع چنین می نویسیم :</FONT></FONT></FONT></P>
<P dir=ltr align=left>msgbox " 2 + 2 "</P>
<P dir=rtl align=right>نتیجه این است که درون کادر پیغام دقیقا و عیناً عبارت 2 + 2 چاپ می شود اما اگر چنین نوشتید</P>
<P dir=ltr align=left>msgbox 2 + 2</P>
<P dir=rtl align=right>نتیجه این است که درون کادر عدد 4 نمایش داده خواهد شد پس همیشه "" باعث این می شود که ویژوال بسیک از دستور ها و عملیات ها صرفنظر می کند و آن را عینا در نظر می گیرد.</P>
<P dir=rtl align=right>اگر خواسته باشید کادر پیغام شما دارای دکمه نیز باشد می توانید این کار را بکنید</P>
<P dir=rtl align=right>برای اینکار می توانید چنین بنویسید</P>
<P dir=ltr align=left>msgbox "متن مورد نظر",vb ok only</P>
<P dir=rtl align=right>حالا یک برنامه با چنین کدی طراحی کنید می بینید که دارای دکمه ok شده است اما فقط همین نیست چندین دکمه دیگر نیز وجود دارد :</P>
<P dir=rtl align=right>vb ok cancel و vb ok retry و vb yes no و vb yes no cancel و ... و همه نیز از اسمشان معلوم است که چی هستند در ضمن نکته مهم اینجاست که شاید بخواهید کادر شما هم دارای دکمه و هم دارای آیکون باشد آنگاه می توانید ابتدا دکمه و یا عکس را مشخص کنید سپس علامت + و آنگاه بعدی را مشخص کنید برای مثال :</P>
<P dir=ltr align=left>msgbox "متن مورد نظر",vbquestion + vb Ok</P>
<P dir=rtl align=right>کادر فوق دارای دکمه ok و علامت سوال است.</P>
<P dir=rtl align=right><FONT size=4>هدایت برنامه با زدن کلید های کادر پیغام</FONT></P>
<P dir=rtl align=right><FONT size=2>مهم ترین چیز در کادر پیغام این است که شما برنامه رو با زدن دکمه ای خاص از کادر هدایت کنید یعنی مثلا فرض کنید کادری دارید دارای دکمه yes و no و می خواهید با زدن کلید yes برنامه بسته شده و با no هیچ اتفاقی نیفتد باید اینگونه بنویسید</FONT></P>
<P dir=ltr align=left>if (msgbox "متن مورد نظر",vb yes no,") = vb yes then</P>
<P dir=ltr align=left>end</P>
<P dir=ltr align=left>else </P>
<P dir=ltr align=left> </P>
<P dir=ltr align=left>end if</P>
<P dir=rtl align=right><FONT color=#ff0000 size=3>نکته : دستور end برنامه را می بندد</FONT></P>
<P dir=rtl align=right><FONT color=#000000>حالا با زدن کلید yes برنامه بسته و با no هیچ چیز نمی شود.</FONT></P>
<P dir=ltr align=left> </P>
<P dir=rtl align=right><FONT size=4>تابع input box</FONT></P>
<P dir=rtl align=right>شاید در مواردی خواسته باشید یک اطلاعات خاصی را از کاربر بگیرید مثلا برای مثالی ساده اسم کاربر و اگر با اسم مورد نظر مطابقت داشت فلان عملیاتی انجام شود و در غیر اینصورت فلان چیز</P>
<P dir=rtl align=right>ای تابع چنین است :</P>
<P dir=ltr align=left>inputbox "عنوان مورد نظر"</P>
<P dir=ltr align=right>زیاد پیچیده ترش نکنیم دیگه اینها مهم ترین و کاربردی ترین و اصلی ترین دستورات ویژوال بیسیک بودند</P>
<P dir=ltr align=right>تقریبا از الان به بعد اگه خوب یاد گرفته باشید می تونید برنامه های تقریبا خوبی بنویسید </P>
<P dir=rtl align=right>دوستان اگه مشکلی دارید و یا جایی رو نفهمیدید بگید تا تو همین پست توضیح بدهم درضمن منتظر پست بعدی با چند تا کار کاربردی و عملی باشید که مطمئن باشید خیلی خیلی خیلی کمکتون میکنه<IMG height=18 src="http://blogfa.com/images/smileys/03.gif">.</P></LI><LI><a href="http://dehkadehweb.blogfa.com/post-3.aspx" target="_blank">کنترل ها</a><BR>با سلام به دوستان گرامی بیایید باهم به آموزش مباحث بعدی بپردازیم :
<P></P>
<P><FONT size=4>کنترل ها</FONT></P>
<P>در این پست قصد دارم مهم ترین کنترل های ویژوال بیسیک رو آموزش بدهم امیدوارم مورد قبولتون قرار بگیره.</P>
<P><STRONG>کنترل picture box</STRONG> برای نمایش تصویر در فرم به کار می رود که برای اینکار باید یکی از اون روی فرم ایجاد کرد و مشخصه picture اون رو باز کرد و تصویر مورد نظر رو انتخاب کرد.</P>
<P><STRONG>کنترل label : </STRONG>برای نمایش متن دلخواه روی فرم به کار می رود که باید مشخصه caption اون رو تغییر داد</P>
<P><STRONG>کنترل text box : </STRONG>قبلا بلد شدید ولی دوباره توضیح می دهم . برای نوشتن متن درون آن به کار می رود</P>
<P>یا برای دریافت اطلاعات از کاربر.</P>
<P><STRONG>کنترل frame : </STRONG>برای قسمت بندی کردن یک برنامه به کار می رود</P>
<P><STRONG>کنترل command button : </STRONG>دکمه است و برای انجام عملیاتی خاص به کار می رود.</P>
<P><STRONG>کنترل check box : </STRONG>اصولا برای تنظیمات به کار می رود . این کنترل فقط می تواند دارای علامت باشد یا نباشد. وقتی این کنترل دارای علامت شود مشخصه value آن 1 می شود.</P>
<P dir=rtl><FONT size=4>مثال</FONT></P>
<P dir=rtl><FONT size=2>در فرم یک check box با نام ch ایجاد کرده سپس برنامه را اجرا کنید می بینید که کادر علامت ما علامت ندارد حالا برنامه را ببندید (علامت مربع را از نوار منو بزنید) </FONT></P>
<P>روی صفحه خالی فرم دوبار کلیک کنید تا وارد کد نویسی شوید دقت کنید که در قسمت کد نویسی در قسمت بالای صفحه دوکادر داریم یکی نام تمامی کنترل هایی را که روی فرم داریم را دارد و دیگری رویداد مخصوص آن که با چه رویدادی کد های ما انجام شود.</P>
<P>در اینجا ما فرم و رویداد load یعنی بالا آمدن را داریم حالا اینگونه بنویسید :</P>
<P dir=ltr align=left> ch.value = 1</P>
<P dir=rtl align=right>حالا با بالا آمدن فرم ما می بینید که کادر علامت دارای مقدار 1 یعنی علامت دار می شود.</P>
<P dir=rtl align=right><FONT color=#ff0000>نکته : هرگاه در قسمت کد نویسی نام یک کنترل را نوشته سپس نقطه بگذاریم می توانی تمامی مشخصه های آن را ببینیم.</FONT></P>
<P dir=rtl align=right><STRONG>کنترل option Button : </STRONG>باید حداقل 2 عدد از این کنترل وجود داشته باشد زیرا وقتی یکی از آنها علامتدار شد دیگر نمیتوان علامت آن را برداشت و فقط می توان به دیگری الحاق کرد.</P>
<P dir=rtl align=right>برای مثال 2 عدد از این کنترل ایجاد کنید و نام اول را option و دومی را option2 بگذارید</P>
<P dir=rtl align=right>حالا برنامه را اجرا کنید . می بینید که اولی دارای علامت می باشد حالا برنامه را بسته و وارد کد نویسی فرم شوید و بنویسید:</P>
<P dir=ltr align=left>option2.value = true</P>
<P dir=rtl align=right>حالا با بالا آمدن برنامه علامت روی آپشن دومی می رود.</P>
<P dir=rtl align=right>این کنترل فقط میتواند مقدار false یا true بگیرد.</P>
<P dir=rtl align=right><STRONG>کنترل combo box : </STRONG>این کنترل یک لیست کشویی است که برای افزودن آیتم به آن اینگونه عمل کنید:</P>
<P dir=rtl align=right>یکی از این کنترل را روی صفحه ایجاد کنید و نام آنرا cm1 گذاشته سپس در load فرم خود بنویسید :</P>
<P dir=ltr align=left>cm1.additem "گزینه اول"</P>
<P dir=ltr align=left>cm1.additem "گزینه دوم"</P>
<P dir=ltr align=left>cm1.additem "گزینه دوم"</P>
<P dir=rtl align=right>حالا با اجرای برنامه و کلیک روی لیست ، لیست کشویی باز می شود و دارای 3 آیتم با نامهای :</P>
<P dir=rtl align=right>گزینه اول - گزینه دون - گزینه سوم است که اینها دلخواه می باشد.</P>
<P dir=rtl align=right> </P>
<P dir=rtl align=right><STRONG>کنترل listbox : </STRONG>این کنترل مثل قبلی است و طریقه مقدار دهی آن نیز مثل قبلی است فقط کشویی نیست و یک لیست ساده است.</P>
<P dir=rtl align=right>عزیزان به نظر من فعلا همین ها کافیه آخه بقیه مثل اینها کاربرد ندارند به هر حال اگه چیز خاصی تو نظرتون بود بگین که من بگذارم</P>
<P dir=rtl align=right>تا مطالب بعد خدانگهدار.<IMG height=18 src="http://blogfa.com/images/smileys/09.gif"></P></LI><LI><a href="http://dehkadehweb.blogfa.com/post-2.aspx" target="_blank">انواع داده ها</a><BR><P align=right>با سلام امیدوارم از مطالب قبلی بهره برده باشید . بریم سر مطالب بعدی</P>
<P><FONT size=4>انواع داده </FONT></P>
<P>داده ها که خود به دو نوع داده های ثابت و داده ها متغیر تقسیم می شوند تقریبا جزو مهم ترین ها و پر اهمیت ترین ها در ویژوال بیسیک هستند.</P>
<P>سریع مثالی می زنم تا کاملا متوجه شوید</P>
<P><FONT size=4>۱ متغیرها :</FONT> فرض کنید یک برنامه خیلی ساده ایجاد کرده اید که باید مساحت مستطیل را حساب کند طریقه کار اینست که کاربر دو عدد (به دلخواه خود) وارد برنامه می کند و برنامه شما آن دو را جمع کرده و سپس در ۲ ضرب می کند و اینگونه مساحت مستطیل به دست می آید. </P>
<P><FONT color=#ff0000 size=4><FONT color=#000000 size=2>پس همانطور که گفته شد کاربر دو عدد</FONT><U> (به دلخواه) </U><FONT color=#000000 size=2>وارد می کند پس این عدد می تواند هر عددی باشد بنابراین ما باید یک متغیر ایجاد کنیم.</FONT></FONT></P>
<P>متغیر ها به دو نوع عددی که فقط عدد ذخیره می کنند و حرفی که حروف را ذخیره می کنند تقسیم می شوند. بدین صورت :</P>
<P><FONT size=4>عددی ها</FONT></P>
<P><FONT size=4>
<TABLE style="WIDTH: 440px; HEIGHT: 185px" cellSpacing=1 cellPadding=2 width=440 align=middle border=1>
<TBODY>
<TR>
<TD>نوع متغیر</TD>
<TD>میزان حافظه اشغال کننده</TD>
<TD>محدوده توانایی متغیر</TD></TR>
<TR>
<TD>Byte</TD>
<TD>1 بایت</TD>
<TD>تا 255 نویسه</TD></TR>
<TR>
<TD>Integer</TD>
<TD>2 بایت</TD>
<TD>از 32768- تا 32768 نویسه</TD></TR>
<TR>
<TD>Long</TD>
<TD>4 بایت</TD>
<TD>2.1E9 +/-</TD></TR>
<TR>
<TD>Single</TD>
<TD>4 بایت</TD>
<TD>تا ده رقم اعشار</TD></TR>
<TR>
<TD>Double</TD>
<TD>8 بایت</TD>
<TD>19 رقم اعشار</TD></TR>
<TR>
<TD>Currency</TD>
<TD>8 بایت</TD>
<TD>بالاتر از میلیارد.</TD></TR></TBODY></TABLE></FONT></P>
<P align=right><FONT size=4>غیر عددی ها</FONT></P>
<P align=right>
<TABLE style="WIDTH: 448px; HEIGHT: 119px" cellSpacing=1 cellPadding=2 width=448 border=1>
<TBODY>
<TR>
<TD>string</TD>
<TD>طول رشته</TD>
<TD>از 1 تا 65400 نویسه</TD></TR>
<TR>
<TD>boolean</TD>
<TD>2 بایت </TD>
<TD>فقط میتواند true یا false بگیرد</TD></TR>
<TR>
<TD>variant</TD>
<TD>طول رشته + 22 بایت</TD>
<TD>طول رشته + 10 بایت</TD></TR></TBODY></TABLE></P>
<P align=right>البته من همه متغیر های غیر عددی رو ننوشتم و مهم هاش رو نوشتم درضمن به توانایی آنها و مقدار حافظه اشغالی اونها هم اهمیتی ندین بهتره ممکنه به دلیل نا مفهوم بودنش ذهن شما رو مشغول کنه درضمن variant هم می تواند عدد بگیرد و هم حرف (حرفی-عددی)</P>
<P align=right>شکل کلی اعلان یک متغیر اینگونه است: نوع متغیر as نام متغیر(دلخواه) dim</P>
<P dir=rtl align=right>شکل کلی مقدار دهی یک متغیر اینگونه است : مقدار = نام متغیر </P>
<P>مثال:</P>
<P>ویژوال بیسیک را باز کنید و طبق درس قبل standard exe را انتخاب کنید </P>
<P>اگر در جعبه ابزار ماوس را روی هر کنترل نگه دارید بعد از چند لحظه می توانید اسم اون رو ببینید</P>
<P>ابزار text box را انتخاب کنید . اگر نمی تونید پیداش کنید ماوس را روی کنترل ها نگه دارید تا عبارت textbox را پیدا کنید.</P>
<P>3 تا text box روی فرم ایجاد کنید اگر درون اونها عبارتی نوشته شده بود می توانید اون تکست باکس رو انتخاب کنید و از پنجره مشخصه ها یا همان properties دنبال مشخصه (Text) بگردید و عبارت روبروی اون رو پاک کنید.</P>
<P>مشخصه name یکی از تکست باکس ها رو text1 و دیگری text2 و text3 قرار بدید.</P>
<P>حالا یک command botton ایجاد کنید که به شکل یک مستطیل معمولی هست</P>
<P>دکمه رو select کنید و مشخصه caption اون رو به عبارت "cmd" تغییر بدین البته عرض کنم که این مشخصه دلخواه است و نوشته روی کنترل را در بر می گیرد.</P>
<P>cmd : مخفف Command Button</P>
<P>حالا دوبار سریع روی دکمه کلیک کنید ، مشاهده می کنید که قسمت کدنویسی این کنترل باز می شود</P>
<P>اکنون در این پنجره دو خط نوشته می بینید که بدین صورت است :</P>
<P dir=ltr align=left>Private Sub Cmd_<FONT color=#ff0000>Click</FONT>()</P>
<P dir=ltr align=left>End Sub</P>
<P align=right>این دو عبارت همیشه و در هر کنترلی وجود دارد و مشخص کننده این است که کدام یک از شی های ما و با چه رویدادی چه کار بکنند و خط آخر هم مشخص کننده این است که در اینجا پایان بده</P>
<P align=right>حالا کد نویسی بین این دوخط کار ماست:</P>
<P align=left>dim hesab as long</P>
<P align=left>dim result as long</P>
<P dir=ltr align=left>hesab = val(text1)</P>
<P dir=ltr align=left>result = hesab + val(text2)</P>
<P dir=ltr align=left>text3 = result * 2</P>
<P dir=ltr align=right><FONT size=4>توضیح</FONT></P>
<P dir=rtl align=right><FONT size=2>از منوی run روی گزینه start کلیک کنید تا برنامه اجرا شود.</FONT></P>
<P dir=rtl align=right><FONT size=2>باکلیک برروی دکمه خطوط کد به ترتیب اجرا می شوند . بدین صورت که :</FONT></P>
<P dir=rtl align=right>ابتدا تو متغیر با نامهای hesab و result از نوع بدون اعشار و تقریبا بزرگ ساخته می شوند</P>
<P dir=rtl align=right>سپس در خط سوم در متغیر hesab مقدار درون text1 ذخیره شد. اگر بجای val بگذاریم trim آنگاه حروف را ذخیره می کند.</P>
<P dir=rtl align=right>درخط چهارم مقدار text2 با مقدار متغیر hesab جمع شد و در متغیر result ذخیره شد</P>
<P dir=rtl align=right>و در خط آخر مقدار result در 2 ضرب شد و در جعبه متن text3 قرار گرفت.</P>
<P dir=rtl align=right> </P>
<P dir=rtl align=right><FONT size=5>داده های ثابت</FONT></P>
<P dir=rtl align=right>گاهی لازم است در برنامه از عددی خاص خیلی استفاده کنید که مقدار آن نیز تغییر نخواهد کرد و به خاطر سپردن آن عدد یا حرف نیز مشکل است . در چنین مواردی از ثابت ها استفاده می کنیم و شکل آن چنین است:</P>
<P dir=ltr align=left>const نام ثابت as مقدار ثابت = نوع ثابت</P>
<P dir=rtl align=right>مثال : </P>
<P dir=rtl align=right>برنامه ای ایجاد کنید دارای یک عدد تکست باکس و یک عدد دکمه و نام تکست باکس هم text1 و در کد نویسی دکمه چنین بنویسید :</P>
<P dir=ltr align=left>const adad as long = 74589</P>
<P dir=ltr align=left>text1 = adad</P>
<P dir=rtl align=right>با اجرای برنامه و کلیک روی دکمه می بینید که مقدار قابت ما در جعبه متن نمایش داده می شود.</P>
<P dir=rtl align=right>امیدوارم بهره برده باشید و با اگه بلد بودید منتظر بعدی ها باشید.</P>
<P dir=rtl align=right>به امید دیدار.<IMG height=18 src="http://blogfa.com/images/smileys/09.gif"></P></LI><LI><a href="http://dehkadehweb.blogfa.com/post-1.aspx" target="_blank">آموزش ویژوال بیسیک 6</a><BR><FONT face="Tahoma, Arial, Helvetica, sans-serif" size=2>
<P align=right> </FONT><FONT face="Tahoma, Arial, Helvetica, sans-serif">سلام دوستان با نام خدا شروع به آغاز نوشتن وبلاگ می کنیم امید وارم مطالب وبلاگ متفاوت تر از بقیه باشه و شما از این وبلاگ راضی باشید. </FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">درس اول آشنایی با مفاهیم برنامه سازی و ویژوال بیسیک</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">برنامه نویسی در ویژوال بیسیک به صورت رویدادی می باشد یعنی شما یک کنترل مثلا یک دکمه روی صفحه ایجاد می کنید و سپس کد مربوط به اون دکمه رو می نویسید </FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">ویژوال بیسیک از دوبخش طراحی و کد نویسی تشکیل شده که ابتدا بهتر است طراحی کنیم و بعد کد مربوط به هر کنترل رو بنویسیم ولی بازم هرجور راحت ترین.</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">زبان های برنامه نویسی به سه دسته اصلی تقسیم می شوند ۱ سطح پایین ۲ سطح متوسط و </FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">۳ سطح بالا که ویژوال بیسیک نیز از دسته سوم هست .</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">هرچی زبان برنامه سازی به زبان ماشین (۰و۱) یا همان باینری نزدیک تر باشه اون زبان سطح پایین تره مثل اسمبلی وقتی زبان چیزی متشکل از زبان محاوره انگلیسی و ماشین باشه سطح میانی و هرچی به زبان انگلیسی نزدیگتر باشه یا اصلا فقط انگلیسی باشه به اون زبان سطح بالا گویند مثل ویژوال بیسیک که یاد گرفتنش هم راحت تره </FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">مفاهیم بسیاری وجود داره که لازمه گفتن نیست</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">حالا بریم سر کار با برنامه microsoft visual basic 6 </FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">برنامه رو اجرا کنید و سپس ملاحظه می کنید که پنجره ای با عنوان new project نمایان می شود که در بالای آن سه زبانه دارد اولین زبانه (new) امکان اجاد پروژه جدید را می دهد.</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">دومین زبانه (existing) برای مشاهده پروژه هایی که از قبل وجود داشته</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">سومین (recent) مشاهده لیستی از آخرین پروژه هایی که ایجاد کردید.</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">به زبانه new رفته و گزینه اول یعنی standard exe رو انتخاب کنید و open را بزنید </FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">با انتخا این گزینه می توانید برنامه را طراحی کنید و گزینه های دیگر مربوط به کنترل ها و ویزارد ها و ... هستندکه ما باهاشون کاری نداریم و اون قدر ها هم حائذ اهمیت نیستند.</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">در صفحه اصلی برنامه یک پنجره کوچک پر از نقطه با عنوان form1 می بینید که اینجا باید برنامه رو طراحی کنید در سمت چپ toolbox رو می بینید که شامل کنترل هاست</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">و در قسمت راست باید سه پنجره باشد به ترتیب از بالا به پایین :</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">project - properties نشان می دهد که برنامه ما دارای چند تا صفحه است و یا چند تا ماژول و ...</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">properties - form1 هر جسمی رو که توی فرم انتخاب کرده باشید مشخصات اون مثل رنگ - اسم - متن روی آن - اندازه های آن و ... در اون وجود دارد و اکنون به دلیل اینکه فقط فرم را داریم مشخصات فرم نمایان است.</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">(به تدریج همه آنها رو یاد می گیریم)</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">خوب دیگه زیاد حاشیه نریم که خیلی سرتون درد اومد </FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">امید وارم تا اینجا راضی باشید . میدونم که الان زیاد خوشتون نیومده آخه خودمم همینطوریم از مقدمه و اینها زیاد خوشم نمیاد ولی خوب دیگه لازمه . در ضمن هر سوالی دارید بپرسید بنده در حد توانم به شما پاسخ خواهم داد.</FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif">تا مطلب بعد بای.<IMG height=18 src="http://blogfa.com/images/smileys/03.gif"></FONT></P>
<P><FONT face="Tahoma, Arial, Helvetica, sans-serif"></FONT> </P></LI></UL> </div>
<a href="http://coo.ir/directory.php">ثبت دامین</a>
</body>