تبلیغات اینترنتیclose
شانس ولایتی از جلیلی بیشتر است
آموزش ویژوال بیسیک - برنامه های ویژوال بیسیک

جستجوگر پیشرفته سایت



اضافه کردن فرم اضافی به پروژه

تا حالا برنامه هایی دیدید که از چندین فرم برای برنامه استفاده شده است و از خود پرسیده اید که چگونه این برنامه ها را می سازند موارد زیر آموزش اضافه کردن فرم اضافی برای برنامه به کار میرود :


1 – پروژه خود را باز کنید

 

 

 

2 – برای اضافه کردن فرم جدید به پروژه خود کافی است به نوار منو مراجعه نمایید و منوی Project را باز کنید و گزینه Add Form را بزنید تا پنجره Add Form باز شود

 

 

 

3 – در پنجره باز شده گزینه Form را انتخاب کنید و سپس دکمه Open را بزنید تا فرم جدید به پروژه اضافه شود.

 

 

 

4 – برای مدیریت فرم های خود میتوانید به قسمت Project مراجعه نمایید تا فرم های اضافه شده به پروژه را مشاهده نمایید.

 

 

 

5 – برای انیکه بتوانید فرمی که تازه ساختید را در پروژه خود هنگام اجرای برنامه نمایش دهید ، مخفی کنید ، ببندید و یا کاملا پروژه را ببندید موارد زیر را بخوانید زیر باید استفاده کرد ، به مثال زیر توجه داشته باشید :

 

6 - میخواهیم در پروژه خود یک فرم جدید اضافه کنیم و یک دکمه فرمان (Command Button) به پروژه اصلی خود اضافه میکنیم روی Command Button کلیک کرده تا به قسمت کد نویسی این عنصر بروید در قسمت کد نویسی تکه برنامه زیر را تایپ کنید :

 

 

 

Show   .   نام فرم

Form2   .   Show


1 – 6 برای این که فرم را مخفی کنید (این کار فرم مربوطه را نمی بندد بلکه فرم مربوطه را مخفی میکند) از تکه برنامه زیر استفاده کنید :

Hide   .   نام فرم

Form2   .   Hide


2 – 6 برای این که فرم دلخواه خود را کاملا ببندید از تکه برنامه زیر استفاده کنید (دقت داشته باشید که این کد باید در فرمی که میخواهید بسته شود باید نوشته شود) :

Unload Me


3 – 6 برای این که کل پروژه را ببندید از تکه برنامه زیر استفاده کنید (اگر این کد را در هرجای پروژه نوشته شود کل پروژه را می بندد دقت داشته باشید که اگر فرم های در حال اجرا بیش از یکی باشد همه فرم ها را همزمان می بندد.)

End


تعداد بازديد : 215
ورود اطلاعات به بانک اطلاعات


در پست قبلی روش نمایش بانک اطلاعات در ویژوال بیسیک را آموزش دادیم ، در این پست قصد آموزش ورود اطلاعات به بانک اطلاعات را داریم . برای مثال اگر شما در جعبه متن (Textbox) متنی را نوشته باشید آن متن در بانک اطلاعات ذخیره گردد .


1 - برای این کار ابتدا باید بانک اطلاعات را به ویژوال بیسیک متصل کنید که در پست های قبلی اتصال بانک اطلاعات به ویژوال بیسیک آموزش داده شد .

 

 

 

2 - برای این که متن خود را وارد نمایید نیاز به یک عنصر Textbox و برای ذخیره این متن نیاز به یک عنصر Commandbutton است این دو عنصر را به فرم خود اضافه نمایید.

 

 

 

3 – Textbox خود را انتخاب نمایید و به قسمت Properties مربوط به Textbox بروید و کشوی گزینه Data Source را باز کنید و گزینه Adodc را انتخاب نمایید این کار باعث میشود که بانک اطلاعات را به Textbox معرفی کنید.

 

 

 

4 – باز هم در Properties مربوط به Textbox بروید و این بار کشوی گزینه Data Field را باز کنید و فیلد مورد نظر خود را انتخاب کنید که متن داخل Textbox در کدام یک از فیلد های بانک اطلاعات ذخیره بشود.

 

 

 

5 - عنصر Adodc را انتخاب کنید و به Properties مربوط به این عنصر بروید و کشوی گزینه Bof Action را باز کنید و گزینه 1 – Ad Stay Bof را انتخاب کنید و سپس کشوی گزینه Eof Action را باز کنید و گزینه 2 – Ad Do Addnew را انتخاب نمایید.

 

 

 

6 – حالا روی دکمه فرمان (Command Button) کلیک کرده و به قسمت کد نویسی مربوط به این عنصر بروید و کد زیر را تایپ کنید.

Adodc1.Recordset.Update

 

 

این کار باعث می شود که متن داخل Textbox در بانک اطلاعات و در فیلد مربوطه ذخیره گردد.

آموزش این بخش هم تموم شد امیدوارم از این بخش استفاده لازم را برده باشید.


تعداد بازديد : 298
ساختار حلقه تکرار For

ماهیت بسیاری از کارها ، تکراری است ، مثل خواندن اسامی تعداد 20 دانشجو ، خواندن 20 عدد صحیح و محاسبه مجموع آن ها . برای انجام کارهایی که ماهیت آن ها تکراری است ، در ویژوال بیسیک از امکاناتی به نام حلقه های تکرار استفاده می شود . حلقه های تکرار در ویژوال بیسیک عبارتند از : For … Next , While … Wend , Dountil … Loop , Do … Loop Until . در این پست و پست های بعدی این حلقه ها را می آموزیم .


حلقه تکرار For

در این ساختار ، می توانیم مشخص کنیم که دستورات مورد نظر ما چند بار تکرار شوند. به عنوان مثال ، این جمله را در نظر بگیرید : "با استفاده از ساختار تکرار میخواهید اعداد 1 تا 10 را با هم جمع کنید." برای انجام این کار ، عمل جمع کردن 10 بار باید تکرار شود . اولین سوالی که مطرح می شود این است که ساختار For چگونه متوجه می شود که عمل جمع 10 بار باید تکرار شود. این سوال را به شکل دیگری میتوان مطرح کرد . چگونه به ساختار For بگوییم که عمل جمع کردن را 10 بار تکرار کند.

برای پاسخگویی به این سوال ، به شمارنده ای نیاز داریم که تعداد دفعات اجرای دستورات را شمارش کند.

این شمارنده باید مقدار اولیه ، مقدار نهایی و گام افزایش داشته باشد . در این مثال باید به ساختار For بگوییم که مقدار اولیه را یک در نظر بگیرد و با هر بار اجرای دستورات تکراری ، یک واحد به شمارنده اضافه کند تا به 10 (مقدار نهایی) برسد . وقتی شمارنده به 10 رسید عمل جمع کردن 10 بار تکرار شده است . یک واحد دیگر نیز به شمارنده اضافه می شود تا به 11 تبدیل گردد و چون این مقدار نهایی (10) بیشتر است ، کار حلقه For به پایان می رسد. بنابراین ساختار For را می توان به صورت زیر به کار برد:

 


گام افزایشی Step   مقدار نهایی To  مقدار اولیه = شمارنده For


مجموعه دستورات 


شمارنده Next


نکاتی در مود حلقه For

·         در حلقه تکرار For مقدار اولیه ، مقدار نهایی و گام افزایشی حلقه می توانند اعداد صحیح ، اعشاری ، عبارت یا فرمول خاص باشند.

 

·         اگر مقدار اولیه از مقدار نهایی کوچکتر باشد ، گام افزایش باید مثبت در نظر گرفته شود، وگرنه دستورات حلقه هیچ گاه اجرا نمیشود.

 

 

·         اگر مقدار اولیه شمارنده از مقدار نهایی شمارنده بزرگتر باشد گام افزایش باید منفی در نظر گرفته شود، وگرنه دستورات حلقه اجرا نمی گردد.

 

 

در حلقه تکرار  For چنانچه کله Step و گام افزایشی ذکر نشود ، به طور پیش فرض ، 1 در نظر گرفته می شود ، به عنوان مثال ، مجموعه دستورات زیر را در نظر بگیرید:


Sum = 0

For I = 1 To 200

  Sum = Sum + I

Next I

Text1 . Text = Str (Sum)

 

این دستورات ، مجموع اعداد 1 تا 100 را در عنصر Text1 نمایش می دهد . مجموعه دستورات زیر ، اعداد مضرب 3 را تا 100 به عنصر List1 می افزاید.


List1 . Clear

For I = 3 To 100 Step 3

List1 . Additem Str(I)

Next I


دانلود پروژه مربوط به همین پست

 


تعداد بازديد : 170
ليست صفحات
تعداد صفحات : 3