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

پاسخ : نمونه برنامه های 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

 

پاسخ : نمونه برنامه های 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

 

پاسخ : نمونه برنامه های 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}

 

پاسخ : نمونه برنامه های 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

 

پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

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

SHIFT +
CTRL ^
ALT %

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

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

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

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

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

 

پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

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

با سلام.

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

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

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

Dim ArrayName ( n ) as DataType

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

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

تذكر :‌

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

 

پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال

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

با سلام.

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

مثال :

a = Int(Rnd * 10)
Print a

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

 

پاسخ : نمونه برنامه های 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 هست.