Плавно движущийся текст

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Ответить
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Плавно движущийся текст

Сообщение JohnK » 14.12.2005 (Ср) 2:07

Как сделать шедевр?
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
Rostik Ultra (2)
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 159
Зарегистрирован: 10.05.2005 (Вт) 2:41
Откуда: Антарктическая республика

Сообщение Rostik Ultra (2) » 14.12.2005 (Ср) 3:07

Лови
Вложения
MoveText.zip
(3.14 Кб) Скачиваний: 43
Мой сайт http://mentalprograms.narod.ru/ - бесплатные развивающие программы
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 14.12.2005 (Ср) 8:15

Самый простой пример после Hello World! :lol:
Вложения
текст.rar
(1.06 Кб) Скачиваний: 41
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 14.12.2005 (Ср) 12:18

2 Format C:! Это то, о чем мечтало человечество! :x
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 14.12.2005 (Ср) 12:22

Не засоряйте форум всякой ерундой! Нет достойного ответа - не позорься! (2 Format C:! ). Тут в конце концов собрались люди с определеныыми целями, а не просто пустышки...
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Сообщение Antonariy » 14.12.2005 (Ср) 12:28

Тут в конце концов собрались люди с определеныыми целями, а не просто пустышки...

Это ты про себя что ли?
Нет достойного ответа - не позорься!

А как насчет достойного вопроса?
Как сделать шедевр?

Родиться гением.
Лучший способ понять что-то самому — объяснить это другому.
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 14.12.2005 (Ср) 12:46

2 Antonariy еще один флудер...
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 14.12.2005 (Ср) 13:09

Вот примерно так:

Private Sub Timer2_Timer()
Static CounterRun As Long, TextLen As Long
On Error Resume Next

If TextLen = 0 Then
TextLen = Me.Picture1.TextWidth(RunText) / 15
CounterRun = Me.Picture1.Width / 15
End If

Me.Picture1.Cls
TextOut Me.Picture1.hdc, CounterRun, 0, RunText, Len(RunText)
DoEvents

CounterRun = CounterRun - 1
If TextLen < -CounterRun Then _
CounterRun = Me.Picture1.Width / 15
End Sub
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 14.12.2005 (Ср) 14:40

JohnK просил передвижение текста - получи!!!! :x
Antonariy Я с тобой полностью согласен!
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 15.12.2005 (Чт) 16:46

Вот примерно то ч то я хотел. Пока сам не сделаешь....
Вложения
TextMoving.rar
Running text string
(1.93 Кб) Скачиваний: 34
TextMoving.rar
Text running string
(1.93 Кб) Скачиваний: 32
Последний раз редактировалось JohnK 15.12.2005 (Чт) 17:30, всего редактировалось 1 раз.
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 15.12.2005 (Чт) 17:31

Нет.
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 15.12.2005 (Чт) 17:35

А вот как исбавиться от этих мелких подергиваний?!!!
Хочется чтобы как по маслу равномерно двигался.
Может использовать APIшный таймер...
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
keks-n
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 15.12.2005 (Чт) 17:44

Нет, таймер тут не причём-проблема в скорости обновления...
Вообще, DirectDraw4 или DirectDraw7 - твой лучший друг...
Изображение
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 15.12.2005 (Чт) 18:15

Все это нонятно, но вот подключать к программе монстра 3D графики ради одного текста - ужас!
Еще варианты?

P.S. А вы наблюдали прикол в Win98? Когда мышкой перемещаешь над таскбаром или клавишей Пуск, то таймеры работают быстрее! :lol:
В XP и 2000 это эффект еле заметен.
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
keks-n
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 15.12.2005 (Чт) 18:43

JohnK писал(а):Все это нонятно, но вот подключать к программе монстра 3D графики ради одного текста - ужас!


Не знаю, монстор - не монстор, но DD4 работает в несколько раз быстрее, чем предложенные варианты.
Изображение
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 15.12.2005 (Чт) 19:04

Да не хотелось бы привязываться к компонентам, скорее через API придется юзать DirectX ....
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
Kovu
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 924
Зарегистрирован: 29.04.2005 (Пт) 17:38

Сообщение Kovu » 16.12.2005 (Пт) 12:54

А ты попробуй Memory Dc :) Может поможет :roll:
Если всё делать своими ручками, они скоро отвалятся !
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 16.12.2005 (Пт) 21:47

А ты мой код видел? Там я применил классический алгоритм анимации. Ну как вариант, спасибо.
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
JohnK
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 874
Зарегистрирован: 03.08.2002 (Сб) 0:35
Откуда: 48.02` 37.58`

Сообщение JohnK » 19.12.2005 (Пн) 17:32

Поэксперементировав с интервалом таймера нашел почти скользящий текст!!! 25 ms...
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
Вернуться к началу
Ответить

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 78

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Time : 0.107s | 17 Queries | GZIP : On
   TopList