Проблема написания программы "часы "

@dieman · Регистрация: 10.08.2011

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

У меня на форме 10 картинок типа image мне надо чтобы они работали как часы.Я смог заставить их идти при помощи Timer'а он вот в поцессе загрузки я не смог сделать так чтобы моя программа поняла что картинки надо раставить в соотвецтвии с часами

@Alexey Spirin · 10.08.2011, 16:00

сам то понял что сказал?
' в поцессе загрузки я не смог сделать так чтобы моя программа поняла что картинки надо раставить в соотвецтвии с часами'.
Пока не поставлен нормально вопрос - ты никогда не получишь нормального ответа.

@dieman · 10.08.2011, 16:07 **[ТС]**

допустим время 17:15
В это время была запущена программа.
0 1 2 3 4 5 6 7 8 9 - это отдельные картинки.
На форме есть поля отображения часов их четыри.
00:00 допустим вот они.
Как заставить программу понять какие именно картинки ставить вместо 00:00

@dieman · 10.08.2011, 17:15 **[ТС]**

Ну не кто мне не скажет понято !!! Бай

@VBMike · 10.08.2011, 18:11

Кидаешь на форму ImageList. А также Image или Picture, в которых будут выводиться цифры. Засасываешь в ImageList свои картинки с цифрами (по порядку). Остается проанализировать каждую цифру в строке со временем (например '17:15') и вывести картинку из ImageList с соответствующим индексом.

Image1.Picture = ImageList1.ListImages(<номер картинки>).Picture

Еще можно нужную картинку грузить динамически из файла:

Image1.Picture = LoadPicture('FileName')

@VBMike · 10.08.2011, 18:34

Получается, что если в Image1 и Image2 выводить две картинки с цифрами часов, а в Image3 и Image4 выводить минуты, то:

Dim strtime as string
strtime = str(time)
Image1.Picture = ImageList1.ListImages(mid(strtime,1,1)). Picture
Image2.Picture = ImageList1.ListImages(mid(strtime,2,1)). Picture
Image3.Picture = ImageList1.ListImages(mid(strtime,4,1)). Picture
Image4.Picture = ImageList1.ListImages(mid(strtime,5,1)). Picture

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@dieman 0 / 0 / 0 Регистрация: 10.08.2011 Сообщений: 25

	Проблема написания программы "часы " 10.08.2011, 15:40. Показов 1281. Ответов 5 Метки нет (Все метки) У меня на форме 10 картинок типа image мне надо чтобы они работали как часы.Я смог заставить их идти при помощи Timer'а он вот в поцессе загрузки я не смог сделать так чтобы моя программа поняла что картинки надо раставить в соотвецтвии с часами 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.08.2011, 16:00
	сам то понял что сказал? ' в поцессе загрузки я не смог сделать так чтобы моя программа поняла что картинки надо раставить в соотвецтвии с часами'. Пока не поставлен нормально вопрос - ты никогда не получишь нормального ответа. 0

@dieman 0 / 0 / 0 Регистрация: 10.08.2011 Сообщений: 25
	10.08.2011, 16:07 [ТС]
	допустим время 17:15 В это время была запущена программа. 0 1 2 3 4 5 6 7 8 9 - это отдельные картинки. На форме есть поля отображения часов их четыри. 00:00 допустим вот они. Как заставить программу понять какие именно картинки ставить вместо 00:00 0

@dieman 0 / 0 / 0 Регистрация: 10.08.2011 Сообщений: 25
	10.08.2011, 17:15 [ТС]
	Ну не кто мне не скажет понято !!! Бай 0

@VBMike 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 37
	10.08.2011, 18:11
	Кидаешь на форму ImageList. А также Image или Picture, в которых будут выводиться цифры. Засасываешь в ImageList свои картинки с цифрами (по порядку). Остается проанализировать каждую цифру в строке со временем (например '17:15') и вывести картинку из ImageList с соответствующим индексом. Image1.Picture = ImageList1.ListImages(<номер картинки>).Picture Еще можно нужную картинку грузить динамически из файла: Image1.Picture = LoadPicture('FileName') 0

@VBMike 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 37
	10.08.2011, 18:34
	Получается, что если в Image1 и Image2 выводить две картинки с цифрами часов, а в Image3 и Image4 выводить минуты, то: Dim strtime as string strtime = str(time) Image1.Picture = ImageList1.ListImages(mid(strtime,1,1)). Picture Image2.Picture = ImageList1.ListImages(mid(strtime,2,1)). Picture Image3.Picture = ImageList1.ListImages(mid(strtime,4,1)). Picture Image4.Picture = ImageList1.ListImages(mid(strtime,5,1)). Picture 0