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

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

نمایش مقدار حافظه فیزیکی با ویژوال بیسیک.

این برنامه با استفاده از API مقدار حافظه فیزیکی را برایتان نمایش می ده . این برنامه خیلی ساده است و

توضیحی هم ندارم که براش بدم چون اگه یه نگاه به کدها بندازید می فهمید که چیز خاصی نداره .

فقط یک تایمر و يك فريم و 4 تا Label می خواد.

Private Type Memory
Length As Long
MemoryLoad As Long
TotalPhysMemory As Long
AvailablePhysMemory As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (M As Memory)

Private Sub Timer1_Timer()
Dim M As Memory
GlobalMemoryStatus M
'*************************************************
LblAvlMem.Caption = Format(CDbl(مقدار حافظه فیزیکی موجود:/ 1048576), "#.## MB")
LblTotalPhMem.Caption = Format(CDbl(کل حافظه فیزیکی: / 1048576), "#.## MB")
LblUsedMemory.Caption = Format(CDbl((مقدار حافظه مورد استفاده / 1048576), "#.## MB")
LblPercentPhMem.Caption = Format(CDbl((/مقدار حافظه فیزیکی بر حسب درصد), "##.#%")
End Sub

 

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

امروز آموزش ساخت منو در VB را به شما ياد مي دم.

قبل از اين بگم كه من به خاطر امتحانات تا چند روز نمي تونم بيام اينجا.

اگه كسي لطف كنه و به جاي من فعلا ادامه بده.

ساخت منو:

منوها : برای قراردادن و طراحی منو برای فرم از منویtools/menu editor را انتخاب میکنیم.

برای افزودن گزینه ای جدید به منو عنوان آن را در کادر caption و نام آن را در کادر name تایپ میکنیم

برای آنکه گزینه فعلی زیر منوی گزینه قبلی شود کلید جهت راست را فشرده و برای لغو آن از کلید جهت

سمت چپ استفاده میکنیم.

برای ترتیب گزینه ها در منو از فلش بالا و پایین استفاده میکنیم و برای آنکه کنار گزینه علامت تیک گذاشته

شود از کادر checked برای فعال کردن گزینه از کادر enabled و برای قابل رویت بودن گزینه از کادر

vizible استفاده میشود .

برای استفاده کردن گزینه ای بین گزینه های دیگر از insert و برای حذف یک گزینه از delete استفاده میشود .

برای آنکه بین گزینه های منو خطی قرار گیرد که مثلا بعضی گزینه ها را از بعضی دیگر جدا کند , گزینه

ای با caption خط فاصله ایجاد میکنیم و برای قرار دادن خط زیر برای یکی از حروف گزینه به منظور

انتخاب گزینه به کمک alt قبل از حرف مورد نظر در caption کاراکتر &را قرار میدهیم :

مثال: &file

خاصیت enabled : در حین اجرای برنامه تغیر این خاصیت به true و false باعث غیر فعال شدن گزینه میشود .

خاصیت visible : اختصاص مقدار false به این خاصیت گزینه را پنهان میکند .

خاصیت checked : خاصیت مقدار true به این خاصیت باعث میشود تا کنار گزینه علامت تیک ظاهر شود.

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

 

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

مثال:

برنامه زير گزینه open را غیر فعال میکند :

mnuopen.enabeld=false

که در اینجا mnuopen نام گزینه است.

 

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

یک نمونه حلقه تکرار: 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 را به ما نشان مي دهد.

 

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

برنامه ساخت timer :

بر روي form يك timer يك label و دو command رسم مي كنيم.

سپس مراحل زير را انجام مي دهيم.

در بخش جنرل كد زير را قرار مي دهيم.

Dim k As Integer

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

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

Private Sub Timer1_Timer( )
k = k + 1
Label1.Caption = k
End Sub


3.در داخل يكي از command ها بنام دكمه start كد زير را قرار مي دهيم.

Private Sub Command1_Click( )
Timer1.Enabled = True
End Sub

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

Private Sub Command2_Click( )
Timer1.Enabled = False
End Sub

 

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

برنامه ساخت ساعت :

اول در داخل form يك label و timer رسم كرده ودر داخل خصوصيات timer گزينه interval را 1 قرار

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

Private Sub Timer1_Timer( )
Label1.Caption = Time
End Sub

توجه:

اگر بخواهید ساعت را به تایمر تغییر دهید کافی است که در آخر کد قسمت time یک R به آن اضافه کنید

ویا اگر دوست داشته باشید که تاریخ را برای شما نشان دهد میتوانید به جای time در کد بالا date بنویسید

در ابن صورت ساعت به تاریخ تغییر می کند.

 

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

حروف الفبای انگلیسی :

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

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

Private Sub Command2_Click()
For k = 97 To 122
Print Chr(k);" ";
Next k
End Sub

 

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

بر روي 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

 

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

ساخت دكمه خروج :

براي ساخت دكمه خروج ( فقط يك جمله) و 3 راه حل :

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

Private Sub Command1_Click( )
End
End Sub

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

Private Sub Command1_Click( )
Me.Hide
End Sub

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

Private Sub Command1_Click( )
Unload me
End Sub

 

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

برنامه ای براي ساخت گل رز:

اول در داخل 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 شماره اي را

به دلخواه خود وارد كنيد سپس شكل گل شما تغيير مي كند.