یادگیری ویژوال بیسیک به روشی بسیار آسان

اول برنامه نوشتن یک مطلب در فرم مورد نظر را می نویسم

ابتدا باید یک label را از قسمت toolbox انتخاب کنیم و در قسمت alphabeticچک کنیم که name ما چیه و آنرا مساوی مطلب مورد نظرمان می گذاریم

() Private Sub Command1_Click
                 " Label = "welcome
                               End Sub  

دقت کنید که حتما مطلب مورد نظرتان داخل گیومه باشد

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

            () Private Sub Command1_Click

(" Name = InputBox("what is your name
                                            End Sub

name یک چیز دلخواه است و شما می توانید چیز دیگری بگذارید در اینجا مهم این است که بدانید name یک کلمه معرف برای visual basic است

تابع هشدار msgbox

این جا هم یک معرف مثل a من گذاشتم

                 Private Sub Command1_Click
( a = MsgBox("are you student", vbCritical
                                               End Sub

در این جا به این نکته توجه داشته باشید که بعد از علامت " ویرگول را قرار دهید تا بتوانید دکمه های ok,cancel,retry و ..... راانتخاب کنید

دستور select case

بیانگر شرط می باشد که اگر a درست بود اون وقت b هم درست هست و....

Private Sub Command1_Click

(" a = InputBox("what is your name         

                                              Select Case a (انتخاب کن a را) 

                            " Case Is = "hamidاگر حمید بود

( a = MsgBox("true", vbCritical       

                                   Case Else    وگرنه

( a = MsgBox("false", vbCritical         
                                             End Selectپایان انتخاب         

                     End Sub

 آنهایی را که با رنگ سبز کشیدم دستورات اصلی select case هستند

تابع while و wend

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

           Private Sub Command1_Click

("a=inputbox("enter your password

                       "while a<>"hamid

      ( a = MsgBox("false", vbCritical 

                                        wend

           ( a = MsgBox("true", vbCritical       

                                  end sub

wend یعنی اگر مورد درست بود دیگر حلقه تکرار نشود علامت <>هم یعنی اگر پسورد حمید نبود

ادامه مطالب را در روز های بعدی می نویسم                                                       

/ 4 نظر / 57 بازدید
فروشگاه تکتاز

سلام، می خوام بهتون یه فروشگاه توپ معرفی کنم: فروشگاه ارزان و قدرتمند تکتاز جدیدترین سریال ها، DVD و CD. فیلم های Divx را از ما بخواهید. در خانه خرید کنید، در خانه تحویل بگیرید و در خانه بپردازید. سریال 24 سریال 4400 سریال فرار از زندان سریال زنان سرسخت افسانه جومونگ سی دی آموزش زبان انگلیسی سی دی تبدیل گفتار به نوشتار taktazmarket.com

عاشورا

بسم الله الرحمن الرحیم سلام، واقعه ی کربلا گذشت ... دیروز در کربلا یزیدیان سر حسین (ع) را به نیزه کردند و امروز نیز همان یزید منشان تیشه بر اسلام ناب میزند و افسوس که بر این ستمگران خیال نابودی اسلام ناب هنوز پابرجاست ... و امروز عاشورا افتتاح شد . www.ashoora.ir عاشورا فقط از عاشورا نمی گوید ! عاشورا از تفکر ناب عاشورا و عاشوراییان می گوید و می نگارد... از عشق ، ایثار ، سکوت ؛ از نگاه های بی انتها ... و از شهادت ... مفتخریم که در این راه در تمامی حوزه های مرتبط دینی و فرهنگی نیازهای شما را تامین کنیم . خواهشمندیم با عضویت در عاشورا و با بیان نظرات ارزشمندتان ما را در پیشبرد و گسترش فرهنگ عاشورا یاری نمایید . سیستم بی نظیر کاربری اعضا ، بانک جامع مقالات ، بانک کم نظیر و جامع صوتی و مجموعه تصاویر متنوع ، تنها بخشی از خدمات ماست. و در انتها ، خواهشمندیم ما را به لیست دوستانتان اضافه کنید. کربلا ادامه خواهد داشت ... به امید حضورتان پایگاه جامع عاشورا www.ashoora.ir

عرشیا

سلام دوست عزیز اگه دنبال فیلم و سریال خارجی با قیمت پایین و زیرنویس فارسی می گردی حتما یکسری به ما بزن در ضمن خرید به صورت پستی و می تونی پول رو به مامور پست بدی. با تشکر فروشگاه بیا تو سریال www.bia2serial.com