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

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

متحرک سازی رشته ها:


ياد آوري:

برای اینکه توی ویژوال بیسیک بتونیم تشخیص بدیم که حرف مثلا پنجم یه رشته چیه

می تونیم از دستور زیر استفاده کنیم:
mid(string,5,1)
دستور mid در واقع به صورت زیره:
mid(string,m,n)

این دستور یه رشته رو دریافت می کنه و از کاراکتر m ام به بعد به اندازه n کارکتر رو بر

میگردونه. حالا اگه n=1 باشه حرف m ام رشته رو برمی گردونه.

اگه بخواهیم با استفاده از تایمر، رشته رو به صورت حرف به حرف به نمایش در بیاریم،

باید یه رشته کمکی داشته باشیم و همچنین باید یه متغییر تعریف کنیم که هر دفعه

یه دونه زیاد بشه، مثلا i . بعد کاراکتر i ام رو به رشته کمکی اضافه کنیم. اگه i از طول

رشته بیشتر شد، همه چیز از اول شروع میشه. یعنی i میشه صفر و رشته کمکی

هم خالی میشه.

البته این کار رو می تونیم با استفاده از یه تابع دیگه هم انجام بدیم. تابع left که به

صورت زیره:
left(string,n)

این تابع از سمت چپ رشته به اندازه n کاراکتر رو بر میگردونه. پس تنها کاری که باید

بکنیم اینه که یه متغییر تعریف کنیم مثل i و اون متغییر رو یکی یکی اضافه کنیم. بعد

با استفاده از این دستور تا کراکتر i ام رو نمایش بدیم. اگه i از طول رشته بیشتر شد،

i رو صفر می کنیم.

متحرک سازی دوم هم همینطوریه با این تفاوت که وقتی به آخر رشته رسید دوباره

یکی یکی از حروف کم میکنه تا به اولین حرف برسه.


متحرک سازی سوم مثل اون چیزیه که توی برنامه هایی مثل JetAudio می بینید. این

روش رشته رو به سمت چپ حرکت میده. روش کار هم به این صورته که از کاراکتر i

ام به بعد یه رشته، به اندازه مثلا 10 تا کاراکتر نمایش بده. بعد به i یکی اضافه کنه.

برای اینکه اون 10 تا کاراکتر رو نمایش بده باید از حلقه for استفاده کنیم. از i تا i+10

و برای اینکه متغییر این حلقه از طول رشته بیشتر نشه از mod استفاده می کنیم.

 

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

این هم برنامه اش:

3 تا Timer بگيريد.

کد:

Dim str As String
Dim strtemp1 As String, strtemp2 As String, strtemp3 As String
Dim i As Integer, j As Integer, k As Integer, sign As Integer, lenght As Integer

Private Sub Form_Load()
str = "Sinbad 68"
strtemp1 = ""
strtemp2 = ""
strtemp3 = ""
i = 1
j = 1
k = 1
lenght = 20
sign = 1
End Sub

Private Sub Timer1_Timer()
strtemp1 = strtemp1 & Mid(str, i, 1)
LBLstr1.Caption = strtemp1
i = i + 1
If i = Len(str) + 1 Then
i = 1
strtemp1 = ""
End If
End Sub

Private Sub Timer2_Timer()
strtemp2 = Left(str, j)
LBLstr2.Caption = strtemp2
j = j + sign
If j = Len(str) + 1 Then
sign = -1
j = j - 1
Timer2.Interval = 50
ElseIf j = 0 Then
sign = 1
j = j + 1
Timer2.Interval = 200
End If
End Sub

Private Sub Timer3_Timer()
strtemp3 = ""
For z = 1 To lenght
strtemp3 = strtemp3 & Mid(str, (k + z) Mod Len(str) + 1, 1)
Next z
LBLstr3.Caption = strtemp3
k = k + 1
If k = Len(str) + 1 Then k = 1
End Sub

 

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

روش دسترسی به نام و تعریف ومتغیر های توابع api :

براي استفاده از توابع API در ويژوال بيسيك مي توان از ابزار API VIEWER استفاده كرد.

پس از نصب ويژوال بيسيك به مسير زير رجوع ميكنيم.

start menu -->allprograms-->microsoft visual studio 6-->microsoft visual studio 6 tools-->api text viewer
حال از منوي فايل load text file انتخاب كنيد.درپنجره اي كه باز مي شود فايلwin32api.txt را باز كنيد.

فايل win32api.txt در مسير microsoft visual studio-->common-->tools-->winapi قرار دارد.

در قسمت api type گزينه declares را انتخاب مي كنيم.

در قسمت availabl items نام تمام توابع api را مشاهده مي كنيد.روي نام هر تابع كه دابل كليك كنيد ميتوانيد
نحوه فراخواني و پارامترهاي ورودي و خروجي تابع را در قسمت selected item مشاهده نماييد.

دكمه كپي به منظور كپي كردن تابع انتخابي در قسمت selected item در كليپ برد مي باشد.

اگه مسير برعكسه كپي كنيد درست ميشه.

 

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

اينم چند تا برنامه با استفاده از توابع api :

باز و بسته كردن درب سي دي رام

براي اين كار ابتدا تابع زير را در قسمت general فرم كد در vb كپي كرده
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

حال دو command بر روي فرم ايجاد كنيد.

در command1 كد &mciSendString "set cdaudio door open wait", 0&, 0&,0
در command2 كد &mciSendString "set cdaudio door closed wait", 0&, 0&,

مي تونيد برنامه رو اجرا كنيد.

 

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

قفل كردن صفحه كليد و ماوس به مدت دلخواه :

براي اين كار ابتدا تابع زير را در قسمت جنرال برنامه قرار دهيد.

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

حال يك command ايجاد كرده و در قسمت رويداد كليك آن كد زير را وارد كنيد:

DoEvents
BlockInput True 'True=1
Sleep 20000
BlockInput False 'False=0

عدد جلوي sleep مدت زمان قفل بودن صفحه كليد و ماوس را نشان مي دهد.كه در اينجا به طور پيش فرض 20 ثانيه
است.

 

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

آموزش ساخت برنامه WindowsMediaPlayer با vb :

ابتدا Ctrl+T را زده و سپس و 2 تا كنترل به نام هاي WindowsMediaPlayer و Common Dialog

انتخاب كرده.سپس يك Command گرفته و كد هاي زير را در آن وارد كنيد.

Private Sub Command1_Click()
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub

 

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

چگونگی گذاشتن موزیک در فرم با دکمه های کنترل کننده :

ابتدا دکمه Ctrl + T را بزنيد و بعد از کادر باز شده گزینه Microsft Multimedia Control را انتخاب
كنيد .

حالا آن را داخل فرم بزاريد و نام آن را به mm تغیر دهيد . و کد زیر را شروع بنويسيد .

()Private sub form_load
mm.visible=true
end sub
()Private Sub form_Click
"mm.filename="C:\myMp3.mp3
"mm.Command="Open
"mm.Command="Play
end sub

در اين قسمت "mm.filename="C:\myMp3.mp3 نام آهنگ و آدرس آهنگ خودتان را بدهيد.

 

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

امروز سورس يك برنامه رو براتون مي زارم كه با راست كليك روي فرم مي توانيد رنگ دلخواه خود را

برگزينيد.

البته بايد بگم كه بايد منو درست كنيد.

کد:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnucolour
End If
End Sub

Private Sub mnublack_Click()
frmpop.BackColor = vbBlack
End Sub

Private Sub mnublue_Click()
frmpop.BackColor = vbBlue
End Sub

Private Sub mnugreen_Click()
frmpop.BackColor = vbGreen
End Sub

Private Sub mnured_Click()
frmpop.BackColor = vbRed
End Sub

Private Sub mnuwhite_Click()
frmpop.BackColor = vbWhite
End Sub

Private Sub mnuyellow_Click()
frmpop.BackColor = vbYellow
End Sub

 

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

کنترل های Check Box و Option Button

از زمانی که با ويندوز کار می کنيد، از کنترلهای Check Box و Option Box استفاده بسياری برده‌ايد.اگر بخواهيم به کاربر (User) اين امکان را بدهيم که از بين چند گزينه، يک ، دو يا چند مورد را انتخاب کند و يا حتی هيچ يک را انتخاب نکند از کنترل Check Box و اگر بخواهيم کاربر، از ميان چند گزينه، يک و فقط يک گزينه را انتخاب کند، از کنترل Option Button (کليدهای راديويی).

اين دو کنترل مشخصه ای به نام Value دارند که از صفر يا يک بودن مقدار آن، می توانيم به انتخاب نشده بودن و انتخاب شده بودن آن گزينه خاص، پی ببريم. لذا اگر برروی يک فرم چند Check Box وجود داشت، می تواند Value هر يک از آنها صفر يا يک باشد، اما اگر برروی فرمی، چند Option Button وجود داشت، تنها يکی از آنها می تواند Value برابر يک داشته باشد و وقتی کاربر، يکی ديگر را انتخاب می کند، به طور خودکار، Value قبلی صفر و Value کنترل انتخاب شده، يک می شود.

VB دارای دو ثابت (Constant) به نامهای VBChecked و VBUnchecked می باشد که به ترتيب برابر يک و صفر می باشند که می توانيم مقدار Value کنترلهای ذکر شده را با اين ثوابت مقايسه کنيم.
کنترل Check Box ، علاوه بر دو مقدار صفر و يک برای مشخصه Value ، مقدار برابر 2 نيز برای آن دارد که اگر به آن Set شود، اين کنترل، خاکستری رنگ (Gray) می شود که معمولاً در ويندوز نشان از پيش فرض بودن دارد. همچنين کنترل مذکور، مشخصه ای هم به نام Style دارد که اگر مقدار آن را از صفر به يک تغيير دهيم، شکل Check Box به شکل دکمه ای در می آيد که يک بودن مقدار Value، باعث فشرده شدن کليد و صفر بودن آن باعث بالا بودن کليد می‌شود.

 

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

مثالی از کنترل های Check Box و Option Button

فرمی شامل يک Text Box و دو Check Box با عنوانهای Bold و Italic درست كنيد که اگر Bold، مارک
خورده بود، متن داخل Text Box به صورت Bold درآيد و اگر Italic مارک خورده بود به صورت Italic.
نام Check Box ها chk بگيريد.
اينم سورس برنامه.
کد:

Private Sub chkBold_Click ()
IF chkBold.Value = VBchecked then
Text1.FontBold = True
Else
Text1.FontBold = False
End IF
End Sub
Private Sub chkItalic_Click ()
If chkItalic.Value = VBchecked Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End IF
End Sub
توجه داشته باشيد که هرگاه کاربر بر روی يک Check Box و يا يک Option Button کليک کند و يا بوسيله کليد Tab ، فوکوس را به آن دهد و روی آن کليد Space bar را بزند، رويداد Click از اين دو کنترل روی خواهد داد.