Всем привет.Помогите пожалуйста написать программу в Visual basic. Нужно по информатике.
Условие : Дано время в секундах . Определите сколько времени прошло в часах , минутах и секундах.
Помогите написать программу в Visual basic
Модератор: syned
Правила форума
Если Вы хотите, чтобы Вам быстрее помогли в вашей проблеме, пожалуйста сообщите след. информацию, которая будет очень полезна для тех кто собирается Вам помочь:
1) конфигурация компьютера
2) как давно переустанавливался windows и какой антивирус; firewall используется (какие послед. обновления баз на них используются)
3) какое используется ус-во, тип соединения (если проблема касается Интернета)
4) как давно проводилась чистка от пыли
5) какая температура процессора без нагрузки (можно использовать Everest)
Если Вы хотите, чтобы Вам быстрее помогли в вашей проблеме, пожалуйста сообщите след. информацию, которая будет очень полезна для тех кто собирается Вам помочь:
1) конфигурация компьютера
2) как давно переустанавливался windows и какой антивирус; firewall используется (какие послед. обновления баз на них используются)
3) какое используется ус-во, тип соединения (если проблема касается Интернета)
4) как давно проводилась чистка от пыли
5) какая температура процессора без нагрузки (можно использовать Everest)
-
Alex_Turba
- Всех знаю в лицо
- Сообщения: 343
- Зарегистрирован: 24 мар 2009 11:34
- Откуда: Курчатов
- Контактная информация:
Re: Помогите написать программу в Visual basic
Наверное, как-то так :)
Sub TimeConverter ()
Dim tTotal as Long
Dim tHour as Long
Dim tMin as Long
Dim tSec as Long
tTotal=InputBox ("Введите число")
tHour=Int(tTotal/3600)
tMin=Int((tTotal-tHour*3600)/60)
tSec=Int(tTotal-tHour*3600-tMin*60)
Print tTotal;"секунд составляет"
Print tHour;"ч ,";tMin;"мин ,";tSec;"сек";
End Sub
Sub TimeConverter ()
Dim tTotal as Long
Dim tHour as Long
Dim tMin as Long
Dim tSec as Long
tTotal=InputBox ("Введите число")
tHour=Int(tTotal/3600)
tMin=Int((tTotal-tHour*3600)/60)
tSec=Int(tTotal-tHour*3600-tMin*60)
Print tTotal;"секунд составляет"
Print tHour;"ч ,";tMin;"мин ,";tSec;"сек";
End Sub