Визначення швидкості за введеними часом та відстанню - Форум
Страница 1 из 11
Форум » Программирование » Visual Basic » Визначення швидкості за введеними часом та відстанню
Визначення швидкості за введеними часом та відстанню
Администратор
Уровень 999
Сообщений: 2093
Дата: Среда, 05.06.2013, 22:22:34 | Сообщение # 1
Offline

Код
Dim S, t, v
Sub Division()
     S = Val(Sheets("d").EditBoxes("a1").Text)
     t = Val(Sheets("d").EditBoxes("a2").Text)
     v = S / t
     Sheets("d").Labels("a3").Caption = v
End Sub
Sub Scroll()
     Sheets("d").EditBoxes("a1").Text = Sheets("d").ScrollBars("a4").Value
End Sub
Sub Spin()
     Sheets("d").EditBoxes("a2").Text = Sheets("d").Spinners("a5").Value
End Sub
Sub Save()
     With Sheets("Лист1")
         .Cells("1,1").Value = "Швидкість"
         .Cells("2,1").Value = v
         .Cells("3,1").Value = "Км/Год"
     End With
End Sub
Sub ini()
     Sheets("d").ScrollBars("a4").Min = 1
     Sheets("d").ScrollBars("a4").Max = 100
     Sheets("d").Spinners("a5").Min = 1
     Sheets("d").Spinners("a5").Max = 100
     Sheets("d").Show
End Sub
Подпись пользователя
Форум » Программирование » Visual Basic » Визначення швидкості за введеними часом та відстанню
Страница 1 из 11
Поиск: