ویژوال بیسیک6

برنامه ای که حروف الفبای انگلیسی را بر روی form چاپ کند.

در داخل form یک command رسم کرده سپس کد زیر را در داخل آن تایپ می کنیم.

Private Sub Command2_Click()

       For k = 97 To 122

       Print Chr(k);" ";

       Next k

End Sub

برنامه ای که خروجی زیر را چاپ کند

                                                                   {{,,,,,,}}

                                                                    *| - - |*

                                                                    (| 0 0 |)

                                                                      |  -  |

                                                                       (o) 

                                                                       \_/ 

رسم کرده و کد زیر را در داخل آن تایپ کنید  command یک form  در داخل

Private Sub Command1_Click()
   Print k; "  {{,,,,,,}} "; vbCrLf _
            ; "   *| - - |* "; vbCrLf _
            ; "   (| 00 |)"; vbCrLf _
            ; "     |  -  |"; vbCrLf _
             ; "      (o)  "; vbCrLf _
        ; "     \_/  "; vbCrLf
End Sub

در داخل form جاهای خالی را از بین برده و سایز font را بیشتر کنید.

ساخت دکمه های Restart ، Shutdown، Log off

بر روی form سه command رسم کرده  سپس کدهای زیر را در داخل آنها قرار می دهیم

اول ازهرچیز کد زیر را در بالی همه ای کد ها قرا میدهیم .

Const EWX_LOGOFF = 0

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Const EWX_POWEROFF = 8

Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long

2.در داخل دکمه (command) به نام دکمه Restart کد زیر را قرار میدهیم.

Private Sub cmdRestart_Click()

          SHRestartSystemMB Me.hWnd, vbNullString, EWX_REBOOT

End Sub

3.در داخل دکمه (command ) به نام دکمه Shutdown  کد زیر را قرار می دهیم.

Private Sub cmdShutdown_Click()

          SHRestartSystemMB Me.hWnd, vbNullString, EWX_SHUTDOWN

End Sub

4. در داخل دکمه (command ) به نام دکمهLog off   کد زیر را قرار می دهیم.

Private Sub cmdLogOff_Click()

          SHRestartSystemMB Me.hWnd, vbNullString, EWX_LOGOFF

End Sub

برنامه ساخت جدول ضرب با استفاده از حلقه for

بر روي form يك command رسم كرده و در داخل آن كد زير را مي نويسيم.

Private Sub Command1_Click( )

     Dim x As Integer

    For i = 1 To 10 

     For k = 1 To 10

     Print k * I;

     Next k

     Print

     Next i

End Sub

برنامه ساخت  timer

بر روي form يك timer يك label و دو command رسم مي كنيم سپس مراحل زير را انجام مي دهيم .

1.در بالاي همه اي كدها كد زير را قرار مي دهيم.

Dim k As Integer

2.وارد خصوصيات timer شده وگزينه enabled را به false وگزينه interval را 1000 قرار مي دهيم

سپس كد زير را در داخل timer تايپ مي كنيم.

Private Sub Timer1_Timer( )

      k = k + 1

      Label1.Caption = k

End Sub 

Private Sub Command1_Click( )

      Timer1.Enabled = True

End Sub

4.در داخل command دوم به نام دكمه stop كد زير را قرار مي دهيم.

Private Sub Command2_Click( )

      Timer1.Enabled = False

End Sub

 حلقه تكرار do   loop

اول بر روي form يك command ويك textbox رسم مي كنيم.

سپس در داخل coomand كد زير را تايپ مي كنيم.

Private Sub Command1_Click( )

         Dim k As Integer

      x = Val(Text1.Text)

         k = 2

         Do While k < x

         Print k

        k = k + 2 

         Loop

End Sub

در پايان وقتي كه form را باز كنيم در داخل textbox  هرعددي را بنويسيم به فرض مثال اگر 15 را بنويسيم و بر روي command  كليك كنيم اعداد زوج از 1 تا 15 را به ما نشان مي دهد.

براي ساخت برنامه اي كه خروجي زير را چاپ كند

@

@@

@@@

@@@@

@@@@@

@@@@

@@@

@@

@

اول بر روي form يك command رسم كرده سپس كد زير را در داخل آن مي نويسيم.

Private Sub Command1_Click()

     For i = 1 To 4

     For k = 1 To i

     Print "@";

    Next k 

     Print

  Next i                                                                                                                           

     For j = 5 To 1 Step -1

     For m = 1 To j

     Print "@";

     Next m

     Print

     Next j

End Sub

دانلود نرم افزار ویژوال بیسیک

دانلود انواع برنامه های ((ویژوال))

تغییر عکس دسکتاپ ویندوز

محاسبه ظرفیت درایوهای سیستم

عکس گرفتن از دسکتاپ ویندوز

عوض کردن حرکت نشانگر ماوس

راه اندازی و خاموش کردن ویندوز

بازی قشنگ سفینه جنگی ( سه بعدی )

سورس کامل MP3 پلیر به همراه Skin

ویروسی برای خاموش و Restart و Stand By کردن کامپیوتر

ساعت دیجیتالی واقعا جالب

برنامه فرستادن ایمیل به همراه فایل

حرکت دادن آیکونهای دسکتاپ

نمودارهاي مدل شي ء : (Object Model)
برنامه نويسي VBA مستلزم درك بسياري از وجوه دنياي برنامه نويسي است. برنامه نويسان امروز ، برنامه هاي بزرگ را به سري هايي از اشياء تقسيم كرده اند كه با همديگه كار مي كنن. يك برنامه نويس تقريباً توانايي هر كاري را حواهد داشت. مي تونيد متني را در Word گنجونيد، تماسهايي را در OutLook ذخيره كنيد و البته بسياري از قابليتهاي ديگه. شما مي توانيد از اين مدل ها در VB نير استفاده كنيد. مرجعي را كه در اين مورد ديدم كتاب آموزش و راهنماي ويژوال بيسيك 5و6 نوشته دان رامل و به ترجمه داريوش فرسائي است. از انتشارات مؤسسه علمي تحقيقاتي زند. البته يك مرجع است نه يك كتاب آموزش دهنده !!!
براي نمونه يك سورس مي نويسم كه شما مي تونيد با اون از طريق Internet Explorer به سايت مورد نظرتون از داخل برنامه خودتون وارد بشيد :
اين كد را در قسمت Form / General بنويسيد

بعد يك Command و يك Textbox روي صفحه بزاريد و خصوصيت Name اونها رو به ترتيب cmdGOو txtURLName قراربديد ، بعد هم مي تونيد با نوشتن كد زير در رويداد Click مربوط به cmdGo به هر صفحه اي كه در ابنترنت دوست داريد دسترسي داشته باشيد. به همين سادگي !

cmdGO_Click( ) Private Sub
 (     Call OpenUrl (txtURLName
End Sub

در اين كد شما از مدل شي ء Internet Explorer استفاده كرديد كه ما از دوصفت اون يعنيVisible براي نمابش IE و Navigate براي فراخواني URL مورد نظر استفاده كرديم. در فرصت هاي بعدي سعي مي كنم در مورد توابع API وبعد هم مجموعه كتابخانه قدرتمند WMI يا به عبارتي Windows Management Instrumentation يعني ابزار مديريت ويندوز صحبت كنم .

برنامه اي كه اعداد زوج از 2 تا 20 را چاپ كند.

اول در داخل form يك command رسم كرده و در داخل command  كد زير را تايپ مي كنيم.

Private Sub Command1_Click()

      For k = 2 To 20 Step 2 

       Print k;

       Next k

End Sub

براي ساخت گل رز

اول در داخل form يك timer رسم كرده و وارد خصوصيات آن مي شويم interval را 100 قرار ميدهيم

و enabled را به true تغيير مي دهيم

در داخل form كد زير را تايپ مي كنيم.

Private Sub Form_Load( )

       WindowState = 2

End Sub

 سپس كد زير را در داخل timer تايپ مي كنيم.

 

Private Sub Timer1_Timer()

     Call Randomize

     Scale (3, -3)-(-3, 3)

     b = 8 * Atn(1)

     ForeColor = QBColor(Rnd() * 15)

     g = 3 * Rnd()

     For l = 0 To b Step 0.01

     e = g * Sin(6 * l)

     x = e * Cos(l)

     y = e * Sin(l)

     Print "m"

     PSet (x, y)

     Next l

End Sub

 

توجه

 

اگر بخواهيد شكل گل را تغيير دهيد در كد بالا قسمت   e = g * Sin(6 * l)  به جاي شماره  6 شماره اي را به دلخواه خود وارد كنيد سپس شكل گل شما تغيير مي كند.

 

در قسمت ادامه مطلب عکسی از گل را قرار دادم اگه دوست دارید ببینید                     

 

ادامه مطلب