سلام من یه برنامه نوشتم در مورد فاصله یه شهر تا شهرهای دیگه بعد یه جاهاییش به مشکل برخوردم .توی این برنامه وقتی شهر مورد نظرو انتخاب میکنیم از ما سرعت حرکتمونو به کیلومتر میخواد، وقتی سرعتو وارد میکنیم به ما فاصله تا شهر مورد نظر و زمان رسیدن به اون شهرو میده، ولی مشکل اینجاست که وقتی زمانو بهم میده رندش میکنه مثلا وقتی 130 که فاصله هستو تقسیم بر سرعت که مثلا100 کیلومتر بر ساعت میکنه به جای اینکه جواب بشه 1.3 میده 1 و اینکه من میخوام زمان رسیدنو به طور دقیق بهم بده
Private Sub ejra_Click()
a = InputBox("سرعت تقریبی را وارد نمایید")
If sari Then
b1 = "130"
t = Val(b1) \ a
b2 = t
.
.
.
ElseIf yazd Then
b1 = "1074"
t = Val(b1) \ a
b2 = t
End If
End Sub
Private Sub ejra_Click()
a = InputBox("سرعت تقریبی را وارد نمایید")
If sari Then
b1 = "130"
t = Val(b1) \ a
b2 = t
.
.
.
ElseIf yazd Then
b1 = "1074"
t = Val(b1) \ a
b2 = t
End If
End Sub
کامنت