На ввод времени суток вывести соответствующие пожелания доброго утра, дня, вечера и спокойной ночи

@Katara45 · Регистрация: 23.05.2013

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

Помогите! Сколько вожусь уже с этим кодом, никак не выходит то, что требуется в задании..

"Составить программу, которая на ввод времени суток выводит соответствующие пожелания доброго утра, дня, вечера и спокойной ночи."

У меня получается только ввод чисел соответственно времени суток: 1 = утро, 2 = день, ...

@Апострофф · 23.05.2013, 09:25

Katara45, приведите свой код, будем править и укажите границы между ночью и утром, утром и днем и т.д.

@Katara45 · 23.05.2013, 09:27 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim m As Single
m = Val(InputBox("Введите число времени суток соответственно: утро, день, вечер, ночь"))
Select Case m
Case Is = 1
MsgBox " Доброго утра"
Case Is = 2
MsgBox " Доброго дня"
Case Is = 3
MsgBox " Доброго вечера"
Case Is = 4
MsgBox " Спокойной ночи"
Case Else
MsgBox "ошибочный ввод значения"
End Select
End Sub

@gaw · 23.05.2013, 09:28

Visual Basic
1
Print Choose(1 + DatePart("h", "19:12:8") \ 6, "ночь", "утро", "день", "вечер")

@Katara45 · 23.05.2013, 09:46 **[ТС]**

Разобралась)) Спасибо)))

У Вас шикарный сайт))

13.11.2013, 22:35

подскажите пожалуйста как будет выглядеть полностью код к этому заданию - написать программу которая при вводе времени суток выдает соответствующие пожелания доброго дня, ночи, вечера и утра не могу разобраться((

@JoraVoenyjHaker · 14.11.2013, 00:53

жаль я в это время спал...
я бы подсказал...

не стал архив делать
на форме нужен компонент с именами Timer1 и Text1
вот строчки

Модуль формы...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Private Sub Form_Load()
    Timer1.Interval = 1000 'Интервал вызова события таймера 1 сек
End Sub
 
Private Sub Timer1_Timer()
    Select Case Format(Time, "h")
    Case Is >= 8
        Text1 = "Доброе утро"
    Case Is >= 12
        Text1 = "Добрый день"
    Case Is >= 18
        Text1 = "Добрый вечер"
    Case Is >= 22
        Text1 = "Доброй ночи"
    Case Else
        Text1 = "Ночь ...."
    End Select
End Sub

Добавлено через 19 минут
Жаль что проверить и заценить
сможете не сразу, а в течении 24-х часов наблюдения

@njeriu · 14.11.2013, 01:44

Круто!
От 0 до 7 будет "Ночь ....", а от 8 до 23 всегда "Доброе утро"

@JoraVoenyjHaker · 14.11.2013, 03:58

извиняюсь

Откройте... Вот как надо !

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
    Select Case Format(Time, "h")
    Case 6 To 11
        Text1 = "Доброе утро"
    Case 12 To 17
        Text1 = "Добрый день"
    Case 18 To 21
        Text1 = "Добрый вечер"
    Case 22 To 23
        Text1 = "Доброй ночи"
    Case Else
        Text1 = "Ночь ...."
    End Select
End Sub

njeriu спасибо что указали на ошибку
а то кто-нибудь бы сначало прождал 24 часа....
затем, не дождавшись результатов написал бы
не-лицеприятный отзыв, а я бы так и не понял
за что меня критикуют, потому-что удалил исходники....

@njeriu · 14.11.2013, 04:53

Всегда пожалуйста!

@JoraVoenyjHaker · 14.11.2013, 05:40

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

чет фантазия разыгралась...

Добавлено через 12 минут
Я наверное доберусь...
сделаю такую программку

@njeriu · 15.11.2013, 16:12

В Слаке нечто-подобное уже есть. При каждом логине анекдоты травят.

@JoraVoenyjHaker · 15.11.2013, 18:12

Сообщение от njeriu

В Слаке нечто-подобное уже есть. При каждом логине анекдоты травят.

это где такое ?

@njeriu · 24.11.2013, 11:19

В консоли.

@Pro_grammer · 24.11.2013, 13:25

Сообщение от JoraVoenyjHaker

Я наверное доберусь...
сделаю такую программку

У меня есть, только не стихи, а время суток говорит. ну тем голосом, что в прикольных кодах я приводил. И по-русски и по-английски, два варианта.
Сами часы тоже симпатичные, в стиле Win7

@JoraVoenyjHaker · 24.11.2013, 13:40

Жаль у меня нет такова плагина, чтоб можно на русском проговаривать
у меня XP-юшка, возможно микрософты не предусмотрели слепых русских юзеров )))

@The trick · 24.11.2013, 13:52

Сообщение от JoraVoenyjHaker

Жаль у меня нет такова плагина, чтоб можно на русском проговаривать
у меня XP-юшка, возможно микрософты не предусмотрели слепых русских юзеров )))

Можно сделать базу слов и проигрывать их, так можно более качественней сделать.

@Pro_grammer · 24.11.2013, 13:53

Сообщение от JoraVoenyjHaker

у меня XP-юшка, возможно микрософты не предусмотрели слепых русских юзеров )))

Да нет, всё они предусмотрели. Просто надо голосовые движки ставить самому. У меня к примеру один их лучших поставлен на XP - Acapela Alyona. Погугли и найдешь не менее десятка разных движков, как платных, так и бесплатных.
От Мелкософта тоже есть русский, вроде Светлана и Борис, но он отвратительно говорит.

Голосовой движок от известного производителя Acapela с русским голосом Alyona.
Поддержка SAPI4 и SAPI5 стандартных программных интерфейсов, чтобы гарантировать мгновенную совместимость с тысячами приложений, использующих речь, таких, как для чтения с экрана, экранные лупы и так далее.
Полный контроль над голосом, такие параметры, как скорость чтения, объем, высота, паузы, настройки эквалайзера и режим чтения (предложение за предложением, слово за словом и правописание).
Voice Manager легко создаёт собственные голоса с любимыми настройками.
Лексикон менеджер для настройки и и тонкой настройки произношения аббревиатур, имен и любых других слов.
KeySpeaker - приложение для написания и чтения в реальном времени во время набора текста в любом приложении для Windows.
SpeechPad - приложение для чтения вслух любого текстового файла.
SAPI4 теги для контроля чтения на лету, в том числе поддержка переключения языка в середине предложения.
Улучшено распознавание числительных, единиц измерения, показаний времени и даты, валют и интернет-адресов.

@JoraVoenyjHaker · 24.11.2013, 15:05

Сообщение от Запрос в гугл

Голосовой движок от известного производителя Acapela с русским голосом Alyona.
Поддержка SAPI4 и SAPI5 стандартных программных интерфейсов, чтобы гарантировать мгновенную совместимость с тысячами приложений, использующих речь, таких, как для чтения с экрана, экранные лупы и так далее.
Полный контроль над голосом, такие параметры, как скорость чтения, объем, высота, паузы, настройки эквалайзера и режим чтения (предложение за предложением, слово за словом и правописание).
Voice Manager легко создаёт собственные голоса с любимыми настройками.

И ответ гугла )))

@JoraVoenyjHaker · 24.11.2013, 15:09

Вообщето это тема меня заинтерисовала...
думаю спрос на программки с качественным проговором текста
будет только наростать...

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	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 - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@Katara45 0 / 0 / 1 Регистрация: 23.05.2013 Сообщений: 11

	На ввод времени суток вывести соответствующие пожелания доброго утра, дня, вечера и спокойной ночи 23.05.2013, 09:10. Показов 9438. Ответов 19 Метки нет (Все метки) Помогите! Сколько вожусь уже с этим кодом, никак не выходит то, что требуется в задании.. "Составить программу, которая на ввод времени суток выводит соответствующие пожелания доброго утра, дня, вечера и спокойной ночи." У меня получается только ввод чисел соответственно времени суток: 1 = утро, 2 = день, ... 0

@Апострофф 9908 / 3919 / 742 Регистрация: 11.10.2011 Сообщений: 5,903
	23.05.2013, 09:25
	Katara45, приведите свой код, будем править и укажите границы между ночью и утром, утром и днем и т.д. 1

@Katara45 0 / 0 / 1 Регистрация: 23.05.2013 Сообщений: 11
	23.05.2013, 09:46 [ТС]
	Разобралась)) Спасибо))) У Вас шикарный сайт)) 0

ildar1108
	13.11.2013, 22:35
	подскажите пожалуйста как будет выглядеть полностью код к этому заданию - написать программу которая при вводе времени суток выдает соответствующие пожелания доброго дня, ночи, вечера и утра не могу разобраться((

@njeriu 1 / 1 / 0 Регистрация: 20.09.2013 Сообщений: 23
	14.11.2013, 01:44
	Круто! От 0 до 7 будет "Ночь ....", а от 8 до 23 всегда "Доброе утро" 1

@njeriu 1 / 1 / 0 Регистрация: 20.09.2013 Сообщений: 23
	14.11.2013, 04:53
	Всегда пожалуйста! 0

@JoraVoenyjHaker Заблокирован
	14.11.2013, 05:40
	Я вот тут подумал.... девушки очень любят, неожиданные, приятные комплименты, с сердечками-цветочками можно закинуть запасной файл в программу со списком самых приятнейших стишков и комплиментов для текущего юзера подставляя его доменное имя.... в определенное время суток +неожиданный комплимент.... чет фантазия разыгралась... Добавлено через 12 минут Я наверное доберусь... сделаю такую программку 0

@njeriu 1 / 1 / 0 Регистрация: 20.09.2013 Сообщений: 23
	15.11.2013, 16:12
	В Слаке нечто-подобное уже есть. При каждом логине анекдоты травят. 0

@njeriu 1 / 1 / 0 Регистрация: 20.09.2013 Сообщений: 23
	24.11.2013, 11:19
	В консоли. 0

@JoraVoenyjHaker Заблокирован
	24.11.2013, 13:40
	Жаль у меня нет такова плагина, чтоб можно на русском проговаривать у меня XP-юшка, возможно микрософты не предусмотрели слепых русских юзеров ))) 0

@JoraVoenyjHaker Заблокирован
	24.11.2013, 15:09
	Вообщето это тема меня заинтерисовала... думаю спрос на программки с качественным проговором текста будет только наростать... 0

На ввод времени суток вывести соответствующие пожелания доброго утра, дня, вечера и спокойной ночи

Решение