Сложение времени

@sawa · Регистрация: 11.05.2020

Студворк — интернет-сервис помощи студентам

помогите, я даже не знаю как сказать. не программист, думал в простеньком VB6 составлю маааленькую облегчающую програмульку. ан нет, застрял на глухо.
1.Есть время в секундах, я его перевожу во временной формат(если правильно назвал), потом складываю. но.... не получается. Второй вопрос, как вводить в текстбокс цифрами время(121212), а видеть (12:12:12)? сори если что то не так.

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
Label1.Caption = Text1.Text
sec# = Label1.Caption
Label1.Caption = CDate(sec# / 86400)
Text2.Text = a
Label2.Caption = Label1.Caption + a
End Sub

@vedunasv · 14.05.2020, 21:05

можно и так.
А экзешник - пара секунд, из меню ФАЙЛ

@sawa · 14.05.2020, 21:11 **[ТС]**

Label3 = CDate((sek1& + sek2&) / 86400)
If Len(Label3) > 8 Then
Label3 = Mid$(Label3, 12)
End If
значение в label3 не сформировывается, он пустое. а что означает условие >8 и 12?

Добавлено через 3 минуты
Спасибо ОГРОМНОЕ за помощь. получилось то что надо. посмотрите

Добавлено через 1 минуту
файл что то не прилип

@sawa · 14.05.2020, 21:15 **[ТС]**

вот

@vedunasv · 14.05.2020, 21:29

у меня формировалось время, я проверяю, прежде чем сообщить.

Label3 сначала формировалось так: 31.12.1899 1:20:45 (пример).
Длина этого поля получается больше 8 символов - само время не больше 8 символов (14:21:02)
1. поэтому если больше 8 - значит, там есть и дата.
2. поэтому отсекаем первые 11 символов (дата с пробелом "31.12.1899 "),и остается последня часть с 12 символа - то есть само время
3. можно было б и по команде RIGHT$(Label3,8) - то есть взять правые 8 символов,
но тут возникает ловушка в виде часов с одним знаком - до 10 часов или с двумя знаками - с 10 час. до 24 час.
и тогда пришлось бы дополнительно делать корректировку...на признак "0" перед цифрой 0-9 час

наверное, немного запутано ))))

обещаю подумать над нормальным сложением.

Добавлено через 8 минут
пытаюсь глянуть... Но раз Вас это удовлетворило. то это хорошо...

@sawa · 14.05.2020, 21:35 **[ТС]**

спасибо, понятно, приму на вооружение.
vedunasv, скажите пожалуйста, в скрине, есть поля в виде строк, там будет одинаковые вычисление, абсолютно одинаковое.
можно ли для одной строки вычислений, присвоить какую нить фунцию и последующие строки вставлять ее, избегая грамозкого переписывания одних и тех же формул.

@sawa · 14.05.2020, 21:45 **[ТС]**

вот таких вычислений будет к каждой строке, а их планируется до 35, вот отсюда и вопрос?
как к этим вычислением присвоить что то там и использовать к любой последующим строкам
Label4.Caption = (Text3.Text * 1000) / 400
Label4.Caption = Format(Label4.Caption, "0.0")
Dim a As Double
a = Val(Text2.Text)
If a > 70 Then
Else
s = 11.5
Label9.Caption = "" & s
End If
If a < 70 Then
Else
s = 10.8
Label9.Caption = "" & s
End If
Label15.Caption = (Label4.Caption * Label9.Caption) / 200
Label20.Caption = (Text4.Text / Label15.Caption)
Label20.Caption = Format(Label20.Caption, "0")

@vedunasv · 14.05.2020, 21:47

Конечно, можно....
Любые повторяющие расчеты можно подготовить в виде отдельной SUB имя модуля или функции END SUB
а потом из нужного места вызывать этот модуль или функцию.

счас напишу пример...
а вы сделайте снова архив экзешника, но с английским именем ---- что-то не могу открыть.
написал сообщение администрации форума проверить тот архив, но не знаю когда ответ.
и направте его снова.

ага уже есть готовый образец у вас ... счас подумаю...

@sawa · 14.05.2020, 21:53 **[ТС]**

вот

@vedunasv · 14.05.2020, 22:01

Вижу новый архив, все равно не идет.
если есть возможность, пришлите на почту предварительно поменяв и имя єкзешника на английское
у меня операционка ХР, иногда глючит на русские имена

Комментарий модератора

Не стоит просить или предлагать выслать ответ в icq, e-mail и другие средства общения. Эта просьба все равно не будет выполнена, а сообщение будет отредактировано модератором.

@sawa · 14.05.2020, 22:24 **[ТС]**

отправил

@vedunasv · 14.05.2020, 22:41

Тяжело сразу разобраться....
1. Лучше всего вместо имён Label, Command, Text присваивать свои собственные имена по смыслу, понятные вам.
Потом поймете, что станет легче разбираться через пару деньку
например, есл в поле Label3 вводится фамилия пассажира, то придумайте imyaPasajir или что-то подобное
если в Text вводите № билета - то пусть будет nBilet
и так далее
2. Определение переменных лучше делать в начале модуля, если это локальные переменные, или перед модулем, если они для всех модулей ит.д.
3. в настройках VB сделайте установку ВСЕГДА ОБЪЯВЛЯТЬ ПЕРЕМЕННЫЕ
4. немножко все таки распишите -какой элемент что делает.

Я так понимаю, что у Label4 есть близнецы, тогда можно прикинуть так:
0. SUB RaschetDeneg ()
1. Dim a As Double
2. сейчас что-то отрабатываем по Label4
3. .....
4. теперь должны сформировать Label4
5. формируем его текст и его формат, поэтому идем по ссылке в 6-й строке
6. TekstFormat переменная1, .... 'если переменные нужны- то их задаем, но можно и без них
7. получаем ответ от TekstFormat переменная1, .... смотрим дальше строку 8
8. Label4.Caption=переменная1
9. Label4.Caption=переменная2 где переменная2 - это Format (по формат конечно надо подумать, как сделать, но дело
принципа)
10. еще что-то
11. теперь то же самое по Label9
12. сейчас что-то отрабатываем по Label9
13. .....
14. теперь должны сформировать Label9
15. формируем его текст и его формат, поэтому идем по ссылке в 16-й строке
16. TekstFormat переменная1, .... 'если переменные нужны- то их задаем, но можно и без них
17. получаем ответ от TekstFormat переменная1, .... смотрим дальше строку 8
18. Label9.Caption=переменная1
19. Label9.Caption=переменная2 где переменная2 - это Format (по формат конечно надо подумать, как сделать, но
дело принципа)
20. еще что-то
21. END SUB

а теперь сама подпрограмма TekstFormat переменная1, ....

22. SUB TekstFormat (переменная1, ....)
23. переменная1 = (Text3.Text * 1000) / 400
24. переменная2 = Format(Label4.Caption, "0.0")
25. END SUB

Вот примерно так. Но это очень упрощенно ))))). А возможностей куча.

@sawa · 14.05.2020, 22:47 **[ТС]**

ага, принцип понятен, буду разбираться. спасибо
прежде надо осознать в голове, а потом применять на практике.
попробуйте код ввести самостоятельно, и картинка же есть, и сами .exe сделайте
скажите, а могу ли я отправлять тут сообщение, лично вам, а то тему флудим?

@vedunasv · 14.05.2020, 23:00

где-то попадалось, что можно друг с другом....я же тоже несколько дней всего.... надо пройтись по настройкам...
пока всё.

если в голове все сложится, и постановка проекта сложится, и будет желание его расписать подробно,
то не возражаю помочь.... Лавров мне не надо, привлекатть соискателем Нобелевской премии - тоже не надо.
Просто я люблю бейсик от самых азов, от первого бейсика. И люблю программировать....

До побачення.

С уважением vedunasv

@sawa · 14.05.2020, 23:09 **[ТС]**

откуда вы территориально?
если не секрет

@vedunasv · 14.05.2020, 23:17

украина

@sawa · 14.05.2020, 23:25 **[ТС]**

я догадливый, понял что с Украины. Она большая.)

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	14.05.2020, 21:05
	можно и так. А экзешник - пара секунд, из меню ФАЙЛ 0

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	14.05.2020, 21:11 [ТС]
	Label3 = CDate((sek1& + sek2&) / 86400) If Len(Label3) > 8 Then Label3 = Mid$(Label3, 12) End If значение в label3 не сформировывается, он пустое. а что означает условие >8 и 12? Добавлено через 3 минуты Спасибо ОГРОМНОЕ за помощь. получилось то что надо. посмотрите Добавлено через 1 минуту файл что то не прилип 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	14.05.2020, 21:29
	у меня формировалось время, я проверяю, прежде чем сообщить. Label3 сначала формировалось так: 31.12.1899 1:20:45 (пример). Длина этого поля получается больше 8 символов - само время не больше 8 символов (14:21:02) 1. поэтому если больше 8 - значит, там есть и дата. 2. поэтому отсекаем первые 11 символов (дата с пробелом "31.12.1899 "),и остается последня часть с 12 символа - то есть само время 3. можно было б и по команде RIGHT$(Label3,8) - то есть взять правые 8 символов, но тут возникает ловушка в виде часов с одним знаком - до 10 часов или с двумя знаками - с 10 час. до 24 час. и тогда пришлось бы дополнительно делать корректировку...на признак "0" перед цифрой 0-9 час наверное, немного запутано )))) обещаю подумать над нормальным сложением. Добавлено через 8 минут пытаюсь глянуть... Но раз Вас это удовлетворило. то это хорошо... 0

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	14.05.2020, 21:35 [ТС]
	спасибо, понятно, приму на вооружение. vedunasv, скажите пожалуйста, в скрине, есть поля в виде строк, там будет одинаковые вычисление, абсолютно одинаковое. можно ли для одной строки вычислений, присвоить какую нить фунцию и последующие строки вставлять ее, избегая грамозкого переписывания одних и тех же формул. Миниатюры 0

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	14.05.2020, 21:45 [ТС]
	вот таких вычислений будет к каждой строке, а их планируется до 35, вот отсюда и вопрос? как к этим вычислением присвоить что то там и использовать к любой последующим строкам Label4.Caption = (Text3.Text * 1000) / 400 Label4.Caption = Format(Label4.Caption, "0.0") Dim a As Double a = Val(Text2.Text) If a > 70 Then Else s = 11.5 Label9.Caption = "" & s End If If a < 70 Then Else s = 10.8 Label9.Caption = "" & s End If Label15.Caption = (Label4.Caption * Label9.Caption) / 200 Label20.Caption = (Text4.Text / Label15.Caption) Label20.Caption = Format(Label20.Caption, "0") 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	14.05.2020, 21:47
	Конечно, можно.... Любые повторяющие расчеты можно подготовить в виде отдельной SUB имя модуля или функции END SUB а потом из нужного места вызывать этот модуль или функцию. счас напишу пример... а вы сделайте снова архив экзешника, но с английским именем ---- что-то не могу открыть. написал сообщение администрации форума проверить тот архив, но не знаю когда ответ. и направте его снова. ага уже есть готовый образец у вас ... счас подумаю... 0

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	14.05.2020, 22:24 [ТС]
	отправил 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	14.05.2020, 22:41
	Тяжело сразу разобраться.... 1. Лучше всего вместо имён Label, Command, Text присваивать свои собственные имена по смыслу, понятные вам. Потом поймете, что станет легче разбираться через пару деньку например, есл в поле Label3 вводится фамилия пассажира, то придумайте imyaPasajir или что-то подобное если в Text вводите № билета - то пусть будет nBilet и так далее 2. Определение переменных лучше делать в начале модуля, если это локальные переменные, или перед модулем, если они для всех модулей ит.д. 3. в настройках VB сделайте установку ВСЕГДА ОБЪЯВЛЯТЬ ПЕРЕМЕННЫЕ 4. немножко все таки распишите -какой элемент что делает. Я так понимаю, что у Label4 есть близнецы, тогда можно прикинуть так: 0. SUB RaschetDeneg () 1. Dim a As Double 2. сейчас что-то отрабатываем по Label4 3. ..... 4. теперь должны сформировать Label4 5. формируем его текст и его формат, поэтому идем по ссылке в 6-й строке 6. TekstFormat переменная1, .... 'если переменные нужны- то их задаем, но можно и без них 7. получаем ответ от TekstFormat переменная1, .... смотрим дальше строку 8 8. Label4.Caption=переменная1 9. Label4.Caption=переменная2 где переменная2 - это Format (по формат конечно надо подумать, как сделать, но дело принципа) 10. еще что-то 11. теперь то же самое по Label9 12. сейчас что-то отрабатываем по Label9 13. ..... 14. теперь должны сформировать Label9 15. формируем его текст и его формат, поэтому идем по ссылке в 16-й строке 16. TekstFormat переменная1, .... 'если переменные нужны- то их задаем, но можно и без них 17. получаем ответ от TekstFormat переменная1, .... смотрим дальше строку 8 18. Label9.Caption=переменная1 19. Label9.Caption=переменная2 где переменная2 - это Format (по формат конечно надо подумать, как сделать, но дело принципа) 20. еще что-то 21. END SUB а теперь сама подпрограмма TekstFormat переменная1, .... 22. SUB TekstFormat (переменная1, ....) 23. переменная1 = (Text3.Text * 1000) / 400 24. переменная2 = Format(Label4.Caption, "0.0") 25. END SUB Вот примерно так. Но это очень упрощенно ))))). А возможностей куча. 0

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	14.05.2020, 22:47 [ТС]
	ага, принцип понятен, буду разбираться. спасибо прежде надо осознать в голове, а потом применять на практике. попробуйте код ввести самостоятельно, и картинка же есть, и сами .exe сделайте скажите, а могу ли я отправлять тут сообщение, лично вам, а то тему флудим? 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	14.05.2020, 23:00
	где-то попадалось, что можно друг с другом....я же тоже несколько дней всего.... надо пройтись по настройкам... пока всё. если в голове все сложится, и постановка проекта сложится, и будет желание его расписать подробно, то не возражаю помочь.... Лавров мне не надо, привлекатть соискателем Нобелевской премии - тоже не надо. Просто я люблю бейсик от самых азов, от первого бейсика. И люблю программировать.... До побачення. С уважением vedunasv 0

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	14.05.2020, 23:09 [ТС]
	откуда вы территориально? если не секрет 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	14.05.2020, 23:17
	украина 0

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	14.05.2020, 23:25 [ТС]
	я догадливый, понял что с Украины. Она большая.) 0