ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение цвета текстового поля
25 сообщений из 50, страница 1 из 2
  1  все
Изменение цвета текстового поля
    #37314246
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
Создать программу, изменяющую цвета фона и символов в тексто-вом поле через постепенный переход цветов. Начальный цвет фона —
синий, конечный — красный, начальный цвет символов — белый, конеч-ный — зелёный.
Создать на форме две кнопки. Нажатие одной запускает плавное из-менение цвета фона текстового поля, нажатие другой — цвета символов. Для задания цвета фона и цвета символа использовать функцию RGB().
Для систематических сигналов на изменение цвета использовать объект Timer.
1. Разработать интерфейс пользователя. Привести в отчёте список объек-тов интерфейса и их назначение.
2. Для перехода цвета аргументы функции RGB() изменять в цикле с оп-ределённым шагом. В отчёте привести алгоритм перехода цвета.
3. Изменить программу так, чтобы цвет при первом щелчке на кнопке ме-нялся в одном направлении, а при следующем щелчке — в обратном. В отчёте описать сущность требуемых изменений.
...
Рейтинг: 0 / 0
18.06.2011, 19:32
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314263
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
Блин через день сдавать курсовую... помогите плиз
...
Рейтинг: 0 / 0
18.06.2011, 19:57
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314300
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
JeiDee, инфа - http://www.cyberforum.ru/visual-basic/thread35982.html
...
Рейтинг: 0 / 0
18.06.2011, 20:32
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314348
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ЦЭ, нафик там "Стандартные (тем более, графические) методы"?

Даже исходных данных мало. Задания пишут "аспиранты" для "стьюдентов"
Ну что такое:
- нет сведений о среде разработки (ветка VB форума - это инициатива ТС)
- нет сведений об используемой реализации языка, а также о множестве значений свойств .Font.Color(Index) и .Interior.Color(Index) соответствующих объектов
- объект Timer, вроде бы, должен однозначно указать на место преподавателя в изучении интерфейса...
1) - Без комментариев. Ибо стандартное требование...
2) промолчу
3) добивает выражение "сущность требуемых изменений" - преподу лет 20?
4) ну и "описать словами это усё" - конечно, это выше наших сил...

Аффтору - в работу , раз "горит" решение проблемы. Либо обратно к друзьям , - может, посоветуют, как быстро договориться по поводу "описания алгоритма в отчёте".
...
Рейтинг: 0 / 0
18.06.2011, 21:54
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314414
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JeiDeeБлин через день сдавать курсовую... помогите плиза задание когда выдано? интересно...
...
Рейтинг: 0 / 0
18.06.2011, 23:20
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314658
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
Shocker.ProJeiDeeБлин через день сдавать курсовую... помогите плиза задание когда выдано? интересно...

Задание было выдано месяца 2 назад. Проста я изучал Microsoft Visual C#, а тут совсем подругому все. И объектов мало очень в Microsoft Visual Basic 6.
...
Рейтинг: 0 / 0
19.06.2011, 13:59
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314662
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
JeiDee,
Элемент ActiveX: ProgressBar.
Чтобы приступить к использованию Progress Bar, его надо сперва добавить в панель инструментов нашего нового exe-проекта (по-скольку это средство управления ActiveX храниться в файле mscomctl.ocx). Сделать это - раз плюнуть.
...
Рейтинг: 0 / 0
19.06.2011, 14:04
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314670
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюЭлемент ActiveX: ProgressBar.Не умничай, сказали же уже


JeiDeeПроста я изучал Microsoft Visual C#, а тут совсем подругому все. И объектов мало очень в Microsoft Visual Basic 6.
А зачем тебе тут куча объектов?
Тут всего-то три нужно - текстовое поле, кнопка и таймер. Если шарп умеешь, то и тут проблем не возникнет, а синтаксис подскажем, если чего.

Цвета для текстбокса - свойства ForeColor и BackColor
Таймер - там есть Interval и Enabled, чтобы включать-выключать
Ну а кнопка - тебе от нее только событие Click нужно.
Так что же тогда затруднение-то вызывает?
...
Рейтинг: 0 / 0
19.06.2011, 14:14
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37314715
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
JeiDeeПроста я изучал Microsoft Visual C#, а тут совсем подругому все. И объектов мало очень в Microsoft Visual Basic 6.
А зачем тебе тут куча объектов?
Тут всего-то три нужно - текстовое поле, кнопка и таймер. Если шарп умеешь, то и тут проблем не возникнет, а синтаксис подскажем, если чего.

Цвета для текстбокса - свойства ForeColor и BackColor
Таймер - там есть Interval и Enabled, чтобы включать-выключать
Ну а кнопка - тебе от нее только событие Click нужно.
Так что же тогда затруднение-то вызывает?[/quot]

Сказать умеешь очень сложно))) я его поверхностно изучал) ну что то конечно делал и в дипломных проектах... время прошло не много подзабыл... как по таймеру событие менять через определенное время даже не помню
...
Рейтинг: 0 / 0
19.06.2011, 15:17
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316279
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
сможете подсказать как решить задачу. Мне повезло сроки сдачи курсовой продлили. Как решить подскажите
...
Рейтинг: 0 / 0
20.06.2011, 16:50
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316290
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JeiDeeсможете подсказать как решить задачу. Мне повезло сроки сдачи курсовой продлили. Как решить подскажитеТут уже все подсказано. Остается просто написать программу за тебя.
...
Рейтинг: 0 / 0
20.06.2011, 16:54
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316590
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
Shocker.ProJeiDeeсможете подсказать как решить задачу. Мне повезло сроки сдачи курсовой продлили. Как решить подскажитеТут уже все подсказано. Остается просто написать программу за тебя.
Программу могу и я написать... меня очень затруднил такой вопрос:
1. постепенный переход цветов
Как это сделать ? я знаю что RGB (0,0,255) - Синий, как сделать что бы постепенно переходило к красному... как к этому значению вообще шаг задавать
...
Рейтинг: 0 / 0
20.06.2011, 19:04
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316611
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Постепенно уменьшать красный и увеличивать синий, логично?

Шаг можно экспериментально подобрать, многое зависит от интервала таймера
...
Рейтинг: 0 / 0
20.06.2011, 19:17
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316624
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
Shocker.ProПостепенно уменьшать красный и увеличивать синий, логично?

Шаг можно экспериментально подобрать, многое зависит от интервала таймера
Например как...
...
Рейтинг: 0 / 0
20.06.2011, 19:26
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316631
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JeiDeeНапример как...Что как?
...
Рейтинг: 0 / 0
20.06.2011, 19:30
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316650
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
Shocker.ProJeiDeeНапример как...Что как?
У меня идея только такая
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim R As Integer
Dim G As Integer
Dim B As Integer
R =  0 
G =  0 
B =  255 
if R =  0  and G =  0   and B =!  0  Them B = B -  20 
Text1.BackColor = RGB(R, G, B)
Только вот как не равно нулю писать... ппц))) я не знаю)
...
Рейтинг: 0 / 0
20.06.2011, 19:44
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316651
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JeiDeeкак не равно нулю писать
Код: plaintext
1.
2.
a <>  0 
Not a =  0 
(a =  0 ) = False
можно много напридумывать
...
Рейтинг: 0 / 0
20.06.2011, 19:46
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316656
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
Shocker.ProJeiDeeкак не равно нулю писать
Код: plaintext
1.
2.
a <>  0 
Not a =  0 
(a =  0 ) = False
можно много напридумывать
Код: plaintext
if R =  0  And G =  0  And Not B =  0  Them B = B -  20
Какой то касяк пишется в этой строке
...
Рейтинг: 0 / 0
20.06.2011, 19:52
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316659
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
JeiDee,

А все нашел. По слуйчайности Them написал)))
...
Рейтинг: 0 / 0
20.06.2011, 19:54
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316661
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А может попытаться перевести сообщение?
Мне кажется, оно переводится не "какой-то косяк", а, к примеру, If без Then
...
Рейтинг: 0 / 0
20.06.2011, 19:54
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316674
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
JeiDeeJeiDee,

А все нашел. По слуйчайности Them написал)))

Блин я с этим таймером так запарился... запустить то я понял как его
Код: plaintext
Timer1.Enabled = True
Timer1.Interval = 1
как я понимаю через каждую секунду будут меняться какие то значения...
как мне эти значения выловить что бы выполнялся процесс когда будет определенное время
...
Рейтинг: 0 / 0
20.06.2011, 20:02
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316739
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
JeiDee,

Во-первых, не секунда, а миллисекунда.
Чтобы получить обработчик таймера - даблклик на контроле.
...
Рейтинг: 0 / 0
20.06.2011, 20:59
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316757
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Напиши, например, так :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim r , g, b As Byte
For b =  0  To  255  Step  2 
    For g =  0  to  255  Step  4 
        For r =  0  to  255  Step  8 
            Text1.Interior.ColorIndex = RGB(R, G, B)
            t = Timer
            Do While Timer-t< 0 . 01 
            Loop
        Next
    Next
Next
НО это всё, друг мой, на VBA

А действия по твоему ТЗ вообще невозможны. Смотрим:
автор...
Для систематических сигналов на изменение цвета использовать объект Timer.
...
2. Для перехода цвета аргументы функции RGB() изменять в цикле с определённым шагом.
...Так как же изменять цвета - "систематически по таймеру" или "в цикле с определенным шагом"?

Впрочем, я об этом вроде уже...
...
Рейтинг: 0 / 0
20.06.2011, 21:09
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316787
JeiDee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JeiDee
Гость
AndreTMНапиши, например, так :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim r , g, b As Byte
For b =  0  To  255  Step  2 
    For g =  0  to  255  Step  4 
        For r =  0  to  255  Step  8 
            Text1.Interior.ColorIndex = RGB(R, G, B)
            t = Timer
            Do While Timer-t< 0 . 01 
            Loop
        Next
    Next
Next
НО это всё, друг мой, на VBA

А действия по твоему ТЗ вообще невозможны. Смотрим:
автор...
Для систематических сигналов на изменение цвета использовать объект Timer.
...
2. Для перехода цвета аргументы функции RGB() изменять в цикле с определённым шагом.
...Так как же изменять цвета - "систематически по таймеру" или "в цикле с определенным шагом"?

Впрочем, я об этом вроде уже...

Зачем мне язык VBA
Толку если он не работает в VB. Блин проста пример приведите в VB. Хоть даже пусть не будет почти относиться... главное с таймером и изменением через определенный интервал
...
Рейтинг: 0 / 0
20.06.2011, 21:34
| Ответить | Цитировать | Написать  
Изменение цвета текстового поля
    #37316794
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Вы не поняли - соль вопроса была в
AndreTMТак как же изменять цвета - "систематически по таймеру" или "в цикле с определенным шагом"?Ибо это основополагающе для разработки алгоритма.

А пример вашей задачи я хоть сейчас нарисую, но об этом, я, вроде, тоже уже...
...
Рейтинг: 0 / 0
20.06.2011, 21:40
| Ответить | Цитировать | Написать  
25 сообщений из 50, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение цвета текстового поля
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37314414&tid=2158598]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 91ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 10ms
total:  202ms
созд. / загр.: 202ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]