مسافت سنج

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

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

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

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

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

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