مسافت سنج

اينم يه برنامه ساده ديگه كه يك مسافت سنج ساده است

توي اين برنامه نوع وسيله رو انتخاب مي كني و به

برنامه ميگي كه مسافت شما چند كيلومتر است بعد

برنامه به شما ميگه كه چند دقيقه صرف اين مسافت ميشه.

اجزاي اين برنامه شامل زير است:

1. يك عدد label

2.يك عددCommand

3.يك عدد Textbox

4. چهار عدد دكمه راديويي ياOption

Private Sub Command1_Click()

Dim q As Integer

q = Text1.Text

If Option1.Value = True Then

Label1.Caption = q * 0.5

Else

If Option2.Value = True Then

Label1.Caption = q * 2

Else

If Option3.Value = True Then

Label1.Caption = q * 5

Else

If Option4.Value = True Then

Label1.Caption = q * 10

End If

End If

End If

End If

End Sub

اينم يه برنامه جالب ديگه البته اين برنامه روخودم ننوشتم،اينو از توي يه سايت

خارجي دانلود كردم . توي اين برنامه شما آدرس يه فايل رو بهش ميدين ومشخصاتشو

مي گيرين.اگه بتونيدمفهوم اين كدهارويادبگيريدخيلي جاهابدردتون میخورن.

' Written exclusively for VB Center by Marco Cordero.
' Portions of this code sample were written by Randy Birch.

Private Sub Command1_Click()
 
  Dim r As Long
  Dim FileName As String
  
  ' Get the file name and path from txtFileName
  FileName = (txtFileName)
  
  ' Show the properties dialog, passing the filename
  ' and the owner of the dialog
  r = ShowProperties(FileName, Me.hwnd)
    
  ' Display an error if the properties dialog could
  ' not be displayed
  If r <= 32 Then MsgBox "Error"
 
End Sub

معدل گیری

امروز يه برنامه خيلي ساده رو براتون مي خوام توضيح بدم

اين برنامه معدل يه دانش آموز يا دانشجو رو دريافت مي كنه

وبه شما ميگه كه خوبه يا بده . اين موضوع رو به صورت

نوشتاري و رنگ به كاربر اعلام ميكنه.

اجزاي اين برنامه شامل زير است:

1.يك عدد Command

2. سه عدد label

Private Sub Command2_Click()

Dim num As Variant

num = InputBox("Please enter your average")

If num >= 1 And num <= 10 Then

Label3.BackColor = vbRed

Label1.BackColor = vbWhite

Label2.BackColor = vbWhite

Else

If num > 10 And num <= 15 Then

Label2.BackColor = vbYellow

Label1.BackColor = vbWhite

Label3.BackColor = vbWhite

Else

If num > 15 Then

Label1.BackColor = vbGreen

Label2.BackColor = vbWhite

Label3.BackColor = vbWhite

End If

End If

End If

End Sub

متغير ها

مطلب امروز ما نكاتي در مورد متغير ها هستند كه اميدوارم به دردتون بخوره

براي تعريف متغير ها از كلمه كليدي Dim استفاده مي كنيم

نوع متغير As نام متغير Dim

بچه ها سعي كنيد نام متغيررو نسبت به متغير مورد نظر

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

و همچنين نوع متغير كه اون بسيار مهم .به مثال هاي زير توجه كنيد

Dim number As Integer

Dim counter As Integer

مثال اولي به شما مي گويد متغير Number از نوع صحيح است و

اعدادي كه به اين متغير تخصيص داده مي شوندهم اعداد صحيح هستند

و همچنين مثال دومي كه يك شمارنده را از نوع صحيح تعريف كرده است

يك متغير وقتي مي تواند دركل برنامه استفاده شودكه درقسمت

General تعريف شده باشد

در غير اين صورت فقط در قسمتي كه در آنجا تعريف شده است مور

د استفاده قرار مي گيرد