Написать счетчик времени

@Ace · Регистрация: 13.12.2010

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

Нужно написать счетчик времени,ну точнее таймер чтоль,чтобы он шел на 1 високосный год,тоесть чтобы в нем были милисекунды,секунды,минуты,часы,дни,меся цы,недели и.т.д.
Я хз как это написать,прошу помогите пжл!

@Shkap · 14.12.2010, 14:28

недели полные, месяцы не знаю как так как в них разное количество дней

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
dney=366
chasov=23
minut=59
sek=60
DO UNTIL sek=0 AND chasov=0 AND minut=0 AND dney=0
sek=sek-1
IF sek=0 THEN sek=59
IF sek=0 THEN minut=minut-1
IF minut=0 THEN minut=59
IF minut=0 THEN chasov=chasov-1
IF chasov=0 THEN chasov=23
IF chasov=0 THEN dney=dney-1
nedel=dney\7
CLS
? "nedel", "dney", "chasov", "minut", "sekund"
? nedel, dney, chasov, minut, sek
SLEEP 1
LOOP

@Ace · 14.12.2010, 18:19 **[ТС]**

Это обратный счетчик,а мне нужен таймер которые при достижении 60 секунд высчитает 1 минуту,при 60 минут- 1 час,при 24 часов- 1 день,при 7 дней -1 неделя,при 4 недели -1 месяц(примерно),при 12 месяцев -1 високосный год

@Shkap · 14.12.2010, 18:20

подумай сам аналогично

@Ace · 14.12.2010, 18:36 **[ТС]**

Я в бейсике 0((

@Quiet Snow · 14.12.2010, 18:37

Он миллисекунды просил и месяцы, обратный отсчёт не упоминался.
SLEEP работает не везде. Использование ненадежных операторов.

@Shkap · 14.12.2010, 18:39

ну миллисекунды, я не увидел хотя там аналогично но 1000,
про sleep я не знал ((((
а месяцы только если все по 30 дней иначе не знаю как ну или не учитывая февраль

@Quiet Snow · 14.12.2010, 19:50

Shkap, легко всё:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
DEFINT A-Z
DIM Mes(12) AS INTEGER, Sec AS LONG, Mil AS STRING
 Mes(1) = 31
 Mes(2) = 29   ' Невисокосный 28
 Mes(3) = 31
 Mes(4) = 30
 Mes(5) = 31
 Mes(6) = 30
 Mes(7) = 31
 Mes(8) = 31
 Mes(9) = 30
 Mes(10) = 31
 Mes(11) = 30
 Mes(12) = 31
 CLS
 OT# = TIMER
 WHILE INKEY$ = ""
 T# = TIMER - OT#
  Sec = FIX(T#)
   Mil = STR$(T# - Sec): P = INSTR(Mil, ".")
   IF P <> 0 THEN Mil = RIGHT$(Mil, LEN(Mil) - P)
   Mil = LEFT$(Mil, 3)
  Day = 1 + (Sec / 86400)
  Week = 1 + (Day \ 7)
    SDay = 0: NDay = Day
    FOR Mn = 1 TO 12
     SDay = SDay + Mes(Mn)
     IF Day <= SDay THEN EXIT FOR
     NDay = NDay - Mes(Mn)
    NEXT
  LOCATE 1, 1
  PRINT "Millisec : "; Mil; "      "
  PRINT "Sec      :"; Sec; "      "
  PRINT "Day      :"; NDay; "("; Day; ")     "
  PRINT "Week     :"; Week; "   "
  PRINT "Month    :"; Mn; "   "
 WEND

Добавлено через 28 минут
Добавил время:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
DEFINT A-Z
DIM Mes(12) AS INTEGER, Sec AS LONG
DIM TSec AS LONG, Mil AS STRING
 Mes(1) = 31
 Mes(2) = 29   ' Невисокосный 28
 Mes(3) = 31
 Mes(4) = 30
 Mes(5) = 31
 Mes(6) = 30
 Mes(7) = 31
 Mes(8) = 31
 Mes(9) = 30
 Mes(10) = 31
 Mes(11) = 30
 Mes(12) = 31
 CLS
 OT# = TIMER
 WHILE INKEY$ = ""
 T# = TIMER - OT#
  Sec = FIX(T#)
   Mil = STR$(T# - Sec): P = INSTR(Mil, ".")
   IF P <> 0 THEN Mil = RIGHT$(Mil, LEN(Mil) - P)
   Mil = LEFT$(Mil, 3)
  Day = 1 + (Sec \ 86400)
  Week = 1 + (Day \ 7)
    SDay = 0: NDay = Day
    FOR Mn = 1 TO 12
     SDay = SDay + Mes(Mn)
     IF Day <= SDay THEN EXIT FOR
     NDay = NDay - Mes(Mn)
    NEXT
   TSec = Sec MOD 60
   TMin = ((Sec MOD 86400) \ 60) MOD 60
   Thour = (Sec MOD 86400) \ 3600
  LOCATE 1, 1
  PRINT "Millisec : "; Mil; "      "
  PRINT "Sec      :"; Sec; "      "
  PRINT "Day      :"; NDay; "("; Day; ")     "
  PRINT "Week     :"; Week; "   "
  PRINT "Month    :"; Mn; "   "
  PRINT STRING$(80, CHR$(196))
  PRINT "TIME : ";
  PRINT USING "##:##:##"; Thour; TMin; TSec
 WEND

Добавлено через 8 минут
Вся засада состоит в том что TIMER возвращает время, прошедшее с полуночи, кто пофиксит - конфетку с мясом, я копаться не хочу(сделать могу, но влом).

@Ace · 14.12.2010, 20:20 **[ТС]**

Спс очень помог)))Благодарен)
И вправду кто-нить пофиксите это,на будущее другим пригодиться же)Лучше щас закончить)

@Quiet Snow · 14.12.2010, 20:39

на будущее другим пригодиться же

Не знаю кому пригодится, на обычном компе следить за временем неэффективно, нужны астрономические приборы и точные кварцевые генераторы. За год на обычном ПК время убежит минут на 5, даже чуть больше, и это на CMOS, не говоря уже про работу в реалтайме программы, которая с другого кварца берёт сигналы, т.е. точности особой не ждите.

@Ace · 14.12.2010, 21:53 **[ТС]**

Не еби мозг,думаешь мне это нужно,просто нам информатик задал это сделать,а как не сказал,вот те и проблема!

@Quiet Snow · 14.12.2010, 21:58

Них.. се вы люди многолики то

прошу помогите пжл!

а то

Не еби мозг

@Ace · 14.12.2010, 22:09 **[ТС]**

чтож поделать жизнь такая)

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Ace 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 13

	Написать счетчик времени 13.12.2010, 23:28. Показов 4458. Ответов 12 Метки нет (Все метки) Нужно написать счетчик времени,ну точнее таймер чтоль,чтобы он шел на 1 високосный год,тоесть чтобы в нем были милисекунды,секунды,минуты,часы,дни,меся цы,недели и.т.д. Я хз как это написать,прошу помогите пжл! 0

@Ace 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 13
	14.12.2010, 18:19 [ТС]
	Это обратный счетчик,а мне нужен таймер которые при достижении 60 секунд высчитает 1 минуту,при 60 минут- 1 час,при 24 часов- 1 день,при 7 дней -1 неделя,при 4 недели -1 месяц(примерно),при 12 месяцев -1 високосный год 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	14.12.2010, 18:20
	подумай сам аналогично 0

@Ace 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 13
	14.12.2010, 18:36 [ТС]
	Я в бейсике 0(( 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	14.12.2010, 18:37
	Он миллисекунды просил и месяцы, обратный отсчёт не упоминался. SLEEP работает не везде. Использование ненадежных операторов. 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	14.12.2010, 18:39
	ну миллисекунды, я не увидел хотя там аналогично но 1000, про sleep я не знал (((( а месяцы только если все по 30 дней иначе не знаю как ну или не учитывая февраль 0

@Ace 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 13
	14.12.2010, 20:20 [ТС]
	Спс очень помог)))Благодарен) И вправду кто-нить пофиксите это,на будущее другим пригодиться же)Лучше щас закончить) 0

@Ace 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 13
	14.12.2010, 21:53 [ТС]
	Не еби мозг,думаешь мне это нужно,просто нам информатик задал это сделать,а как не сказал,вот те и проблема! 0

@Ace 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 13
	14.12.2010, 22:09 [ТС]
	чтож поделать жизнь такая) 0