پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال @ کار با Word : کار با این برنامه هم مانند کار با Excel است و تفاوت آنها بیشتر در قسمت وارد کردن داده ها و اطلاعات می باشد . مانند قبل تعریفات زیر را در قسمت General قرار دهید : Dim X_Word As Word.Application Dim X_Doc As Word.Document حال برای ایجاد یا باز کردن یک فایل از نوع Word دستور زیر را به کار ببرید : Set X_Word = New Word.Application سپس شما باید یک پرونده ) Document ) جدید ایجاد کنید : Set X_Doc = X_Word.Documents.Add پس از انجا این کارها نوبت به وارد کردن داده ها و اطلاعات است که برای این کار شما بیشتر باید از متد Selection مربوط به X_Word استفاده نمایید : X_Word.Selection.Borders.OutsideLineStyle = wdLineStyleInset X_Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter X_Word.Selection.Font.Bold = True X_Word.Selection.Font.Size = 20 "X_Word.Selection.Text = "VB Is For All در این مثال پس از تنظیمات دلخواه در صفحه پرونده نوشته ای را در آن قرار می دهیم . البته این متدها فقط تعداد اندکی از امکانات کار با فایل های پرونده ای است و شما باید خودتان آنها را بررسی کنید . حال مانند مثال قبل نوبت به ذخیره کردن پرونده کاری می رسد که روش آن مانند مثال قبل است : "X_Doc.SaveAs FileName:="C:\Sample.Doc برای نمایش پرونده کاری خود توسط برنامه Word دستور زیر استفاده کنید : X_Word.Visible = True منبع:سايت سياره ويژوال بيسيك
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال برنامه مسافت سنج ساده. توي اين برنامه نوع وسيله رو انتخاب مي كني و به برنامه ميگي كه مسافت شما چند كيلومتر ست بعد برنامه به شما ميگه كه چند دقيقه صرف اين مسافت ميشه. اجزاي اين برنامه شامل زير است: يك عدد label يك عددCommand يك عدد Textbox چهار عدد دكمه راديويي ياOption. سورس برنامه: کد: Private Sub Command1_Click() Dim q As Integer q = Text1.Text If Option1.Value = True Then Label1.Caption = q * 0.5 Else If Option2.Value = True Then Label1.Caption = q * 2 Else If Option3.Value = True Then Label1.Caption = q * 5 Else If Option4.Value = True Then Label1.Caption = q * 10 End If End If End If End If End Sub
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال يك برنامه ساده. اين برنامه معدل يه دانش آموز يا دانشجو رو دريافت مي كنه وبه شما ميگه كه خوبه يا بده . اين موضوع رو به صورت نوشتاري و رنگ به كاربر اعلام ميكنه. اجزاي اين برنامه شامل زير است: يك عدد Command سه عدد label کد: Private Sub Command2_Click() Dim num As Variant num = InputBox("Please enter your average") If num >= 1 And num <= 10 Then Label3.BackColor = vbRed Label1.BackColor = vbWhite Label2.BackColor = vbWhite Else If num > 10 And num <= 15 Then Label2.BackColor = vbYellow Label1.BackColor = vbWhite Label3.BackColor = vbWhite Else If num > 15 Then Label1.BackColor = vbGreen Label2.BackColor = vbWhite Label3.BackColor = vbWhite End If End If End If End Sub
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال نحوه نگاتيو کردن عکس، در يک خط! می دونستید که شما با یک خط کد می تونید یک عکس رو نگاتیو (Invert) کنید!؟ يک Picture Box ايجاد کنيد (با اسم Picture1) و عکسي رو هم براش انتخاب کنيد. حالا کافيه که کد زير رو وارد برنامه کنيد: Picture1.PaintPicture Picture1.Picture, 0, 0, , , , , , , vbDstInvert به جاي vbDstInvert مي شه چيز هاي ديگه هم گذاشت تا افکت هاي ساده ي ديگه اي هم اعمال بشه!
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال فرمان Shell فرمان Shell يکي از فرمان هاي مهم است که در VB پر کاربرد است. با کمک آن مي توانيد هر پرونده اي رو باز کنيد تقريبا ً مثل RUN ويندوز. حالا چند نکته و چند دستور رو اينجا ياد آوري مي کنيم: نکات: Shell فقط پرونده های اجرایی را اجرا می کند مثل: EXE;COM;BAT که باز کردن پسوند هاي ديگه هم راه حل خودشونو دارن. در قبل و بعد آدرس بايد علامت کاما (") گذاشته شود دستور ها: شکل استفاده از دستور: "Shell "Command در قسمت Command، نام برنامه را مي گذاريد. از اين دستور مي تونين اکثر برنامه هاي ويندوز را فقط با دادن نام آنها، اجرا کنيد، مثل Explorer.exe و Notepad.exe. اما براي ديگر برنامه ها بايد نام و مسير کامل آنها داده بشه.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال Filenameنام پرونده اي با پسوند cpl هست که مي خواهيد اجرا کنيد. اين پرنده ها مربوط به خود ويندوز هستن. و در قسمت t آخر، شماره tab يا همون سربرگ رو مي ذاريم. براي اينکه بهتر درک کنيد اين آدرس رو امتحان کنيد: Rundll32.exe shell32.dll,Control_RunDLL main.cpl,@0,1 حالا چند تا از همين مثال ها را براتون ميذارم تا بهتر بفهميد: باز کردن پوشه system32 rundll32.exe shell32.dll,ShellExec_RunDLL باز کردن اضافه يا حذف برنامه ها در صفحه تنظيم: RUNDLL32.EXE shell32.dll,Control_RunDLL appwiz.cpl,,0 اگه خواستيد فايل هاي بيشتري رو باز کنيد بريد توي پوشه سيستم 32 (C:\Windows\System32) اونجا دنبال فايلهاي cpl بگرديد.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال امروز یک لیست از برنامه هایی که با فرمان Shell اجرا می شن رو براتون می زارم. Calc Write Notepad Spider Winmine Mshearts freecell Regedit Taskmgr control fonts control desktop control mouse control keyboard osk magnify utilman mstsc cmd control admintools cleanmgr winchat clipbrd dcomcnfg control printers charmap eudcedit perfmon control netconnections dxdiag cliconfg sysedit ddeshare diskpart chkdsk verifier sigverif packager iexpress fsquirt drwtsn32
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال Shutdown –l –t 0 Shutdown –s –t 0 Shutdown –r –t 0 به این سه دستور توجه کنید. شما میتونید از این دستورات برای Log Off ، Restart و یا Shutdown کردن ویندوزتون استفاده کنید. فقط کافیه که دستور دلخواه رو جلوی دستور Shell تایپ کنید. دستور زیر باعث میشه که ویندوز Shutdown بشه : Shell "Shutdown –s –t 0" و امّا اون عدد صفر که آخر دستور نوشته شده مدّت زمانیه که تعیین میکنه چند ثانیه بعد از اجرای دستور ویندوز Shutdown بشه که در اینجا اونو صفر قرار دادیم تا بلافاصله اینکار انجام بشه.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال ساعت عقربه ای (آنالوگ) یک پروژه جدید باز کنید و تو فرمتون یک Timer بذارید و Interval اونو 1000 بذارید، حالا کد زیر رو تو قسمت جنرال فرمتون کپی کنید : کد: Private Sub Form_Load() Me.BackColor = vbBlack End Sub Private Sub Timer1_Timer() Form1.Refresh X = Form1.Width / 2 Y = Form1.Height / 2.2 Circle (X, Y), Y - 200, vbWhite Circle (X, Y), Y - 220, vbWhite For i = 1 To 12 Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed Next h = Hour(Time()) If h > 12 Then h = h - 12 End If m = Minute(Time()) s = Second(Time()) Line (X, Y)-(X + (Y - 600) * Cos((66 / 14 + s * (44 / 420))), Y + (Y - 600) * Sin((66 / 14 + s * (44 / 420)))), vbBlue Line (X, Y)-(X + (Y - 800) * Cos((66 / 14 + m * (44 / 420))), Y + (Y - 800) * Sin((66 / 14 + m * (44 / 420)))), vbYellow Line (X, Y)-(X + (Y - 1200) * Cos(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420)), Y + (Y - 1200) * Sin(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420))), vbWhite End Sub
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال برنامه ای که سه عدد را دریافت کرده و بزرگترین آن را نمایش دهد. کد: If val(text1)<val(text2)Then I=text2 Text4=i Else I=text1 Text4=i End if If i<val(text3) then I=text3 Text4=i End if برنامه ای که روزهای ماه را دریافت کرده و ایام هفته را مشخص کند. کد: Dim a as integer Dim b as integer A=val(text1) B=a mod 7 If b=0 then Text2="جمعه" End if If b=1 then Text2="شنبه" End if If b=2 then Text2="یکشنبه" End if If b=3 then Text2="دوشنبه" End if If b=4 then Text2="سه شنبه" End if If b=5 then Text2="چهارشنبه" End if If b=6 then Text2="پنجشنبه"