1. مهمان گرامی، جهت ارسال پست، دانلود و سایر امکانات ویژه کاربران عضو، ثبت نام کنید.
    بستن اطلاعیه

نمونه برنامه های VB6 -آموزش از روی مثال

شروع موضوع توسط hector2141 ‏28/9/12 در انجمن Visual Basic

  1. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    برنامه ای که شکل زیر را درست کند.

    *
    * *
    * * *
    * *
    *
    کد:

    For I =1 to 3
    For j =1 to i
    Print "*" spc (1);
    Next j
    Print
    Next i
    For I =2 to 1 step-1
    For j =1 to i
    Print "*" spc (1);
    Next j
    Print
    Next i
    برنامه ای که خروجی زیر را تولید کند.

    1 2 3 4 5 6 7
    1 2 3 4 5
    1 2 3
    1
    کد:

    K=30
    For I =7 to 1 step-2
    K=k+2
    Print ; tab (k);
    For j =1 to i
    Print j ;
    Next j
    Print
    Next i
     
  2. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    برنامه ای که خروجی زیر را تولید کند.

    1
    1 2 3
    1 2 3 4 5
    1 2 3 4 5 6 7
    1 2 3 4 5
    1 2 3
    1
    کد:

    K=29
    For I =1 to 3
    K= k-4
    Print ; tab (k) ;
    For j =1 to 2 * I -1
    Print j ; spc (1) ;
    Next
    Print
    Next
    K= 9
    For I =7 to 1 step-2
    K = k+4
    Print ; tab (k) ;
    For j =1 to i
    Print j ; spc (1) ;
    Next
    Print
    Next
    برنامه ای که خروجی زیر را تولید کند.

    1 2 3 4
    1 2 3
    1 2
    1
    1 2
    1 2 3
    1 2 3 4
    کد:

    For I =4 to 1 step-1
    For j =1 to i
    Print j ;
    Next j
    Print
    Next i
    For I =2 to 4
    For j =1 to i
    Print j ;
    Next j
    Print
    Next i
     
  3. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    تابع SendKeys

    سلام به همگی .

    در حالت عادی شما برای درج هر کراکتری و یا انجام هر عملی دکمه های مورد نظرتون رو از کیبورد تایپ می کنید.
    کار این تابع همونطور که از اسمش هم پیداست اینه که شما هر دکمه ای رو که می خواهید از صفحه کلید به سیستم عامل یا برنامه مورد نظر ارسال کنید رو از طریق کد نویسی ارسال می کنه.

    اینم شکل کلی تابع : SendKeys string

    اینم از مقادیری که که باید در آرگومان String قرار بدین :

    کلید در کیبورد کد

    BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
    BREAK {BREAK}
    CAPS LOCK {CAPSLOCK}
    DEL or DELETE {DELETE} or {DEL}
    DOWN ARROW {DOWN}
    END {END}
    ENTER {ENTER}or ~
    ESC {ESC}
    HELP {HELP}
    HOME {HOME}
    INS or INSERT {INSERT} or {INS}
    LEFT ARROW {LEFT}
    NUM LOCK {NUMLOCK}
    PAGE DOWN {PGDN}
    PAGE UP {PGUP}
    PRINT SCREEN {PRTSC}
    RIGHT ARROW {RIGHT}
    SCROLL LOCK {SCROLLLOCK}
    TAB {TAB}
     
  4. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    UP ARROW {UP}
    F1 {F1}
    F2 {F2}
    F3 {F3}
    F4 {F4}
    F5 {F5}
    F6 {F6}
    F7 {F7}
    F8 {F8}
    F9 {F9}
    F10 {F10}
    F11 {F11}
    F12 {F12}
    F13 {F13}
    F14 {F14}
    F15 {F15
     
  5. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    اینا هم مربوط به کلید های کنترلی میشه :

    SHIFT +
    CTRL ^
    ALT %

    حالا یه مثال می زنم کلی حال کنیم :

    دستور زیر کار کلید های ترکیبی Alt+F4 رو انجام میده یعنی هر پنجره ای رو که فعال باشه می بنده و نهایتا پنجره ShutDown رو نشون میده.
    SendKeys "%{F4}"

    مثلا این یکی یه متن رو داخل یه تکست باکس Select می کنه :

    Text1.SetFocus
    SendKeys "{Home}+{End}"

    که تو اینجا Text1 همون تکست باکسیه که می خوایم متنش Select بشه.
     
  6. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    آشنايي با آرايه در برنامه نويسي

    با سلام.

    امروز در مورد آرایه ها در VB براتون می نویسم.

    تعريف آرايه : به تعدادي متغير از يك نوع در حافظه را كه پشت سر هم قرار مي گيرند آرايه گفته مي شود.

    طرز تعريف آرايه :

    Dim ArrayName ( n ) as DataType

    با توجه به اعلان بالا :

    Dim : كليد واژه اعلان آرايه و متغير است.
    ArrayName : نام دلخواه تعريف آرايه است.
    n : تعداد خانه هاي آرايه است. ( يك عدد صحيح غير صفر ) ( تعداد خانه ها = n+۱ )
    DataType : نوع آرايه ( Integer و String و … )

    تذكر :‌

    پايين ترين شماره آرايه ( پايين ترين انديس ) صفر است كه اگر هيچ دستوري قبل از آن به نام Option Base تعريف نشده باشد. اين دستور پايين ترين انديس يك آرايه را مشخصي مي كند.
     
  7. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    توليد اعداد تصادفي ( Random ) :

    با سلام.

    براي توليد اين نوع اعداد از تابع RND استفاده مي شود.

    مثال :

    a = Int(Rnd * 10)
    Print a

    اگر هر بار دكمه را بفشاريد يك عدد صحيح بين صفر تا ۱۰ توليد مي شود. ( قطعه كد ذكر شده را در در يك دكمه بنويسيد )
     
  8. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

    امروز در باره ي اشياي FileListBox ، DirectoryListBox و DriveListBox صحبت مي كنيم.

    اين سه شي به ترتيب جعبه ليست هاي فايل و فهرست و درايو مي باشند.

    البته هيچ كدام به تنهايي كاربرد ندارند و بايد ميان آن ها ارتباط برقرار كرد و آن ها را به هم پيوند زد.

    طرز ارتباط اين سه شي :

    Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
    End Sub
    Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    End Sub

    دستور اول پيوند فهرست به درايو مربوطه و دستور دوم نسبت دهي فايل انتخابي به فولدري كه فايل در آن قرار دارد مي باشد.

    خواص مهم FileListBox :

    FileName : نام فايل انتخاب شده در جعبه فايل.
    Path : مسير فايل انتخابي.
    Pattern : الگو فايل را در جعبه فايل تعين مي كند.

    نمونه بارز کار با این برنامه ها در برنامه ACD See هست.