Помогите со слайдером

Страница 1 из 1 1
Модератор форума: as-master

Форум MMB » Всё о программе Multimedia Builder » Сценарии в MMB » Помогите со слайдером

Dordex

Дата: Четверг, 22 Мая 2008, 12:02 | Сообщение # 1

Необукер

Группа: Проверенные

Сообщений: 533

Репутация: 16

Награды: 9

Статус: Offline

Ничего не понимаю уже мозги кипят как только я не менял X и Y

Необходимо чтобы это всё работало в горизонтальном положении.

КАКОГО ЧЁРТА НЕ ЗАГРУЖАЮТСЯ ФАЙЛЫ!!!

Код объекта "MoveTrackSlider" (Script):

If (MouseUp) Then
Return()
End
Show("track$")
MState=MouseLButton()
If (MState=0) Then
MouseUp=TRUE
Hide("status$")
Return()
End
x=MouseX()
y=MouseY()
y2 = (MouseY()-handleoff)
If (y>posmin) Then
y2 = posmin
End
If (y2<posmax) Then
y2 = posmax
End
MoveObject("track$","xpos,y2")
MoveObject("status$","xpos+35,y2")
Refresh("")
percent= INT((posmin-y2)/((h-sldrH)/59))
VolumeUp("percent")
percent$= CHAR(percent)
percent$= percent$+'%'
LoadText("status$","percent$")
ScriptTimer("TimerA=MoveTrackSlider","50")

Код ползунка:

MouseUp=FALSE
xpos=ObjectX(track$)
ypos=ObjectY(track$)
sldrH=ObjectHeight(track$)
handleoff = ObjectHeight(track$)/2
w=ObjectWidth(back$)
h=ObjectHeight(back$)
l=ObjectX(back$)
t=ObjectY(back$)
posmin=t + h - sldrH
posmax=t
Show("status$")
ScriptTimer("TimerA=MoveTrackSlider","50")

Сообщение отредактировал Омар - Четверг, 22 Мая 2008, 12:10

Alex3A

Дата: Четверг, 22 Мая 2008, 12:19 | Сообщение # 2

Друг клуба ММВ

Группа: Проверенные

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

Посмотри мой скрипт для слайдеров, там все расписано по бубочкам!

Добавлено (22 Май 2008, 12:19)
---------------------------------------------
И работает для всех слайдеров, горизонтальный или вертикальный определяеться всего одной переменной.

Dordex

Дата: Четверг, 22 Мая 2008, 12:22 | Сообщение # 3

Необукер

Группа: Проверенные

Сообщений: 533

Репутация: 16

Награды: 9

Статус: Offline

Alex при всём уважение к тебе мне необходимо что бы именно по этому типу кода всё работало.

Alex3A

Дата: Четверг, 22 Мая 2008, 12:50 | Сообщение # 4

Друг клуба ММВ

Группа: Проверенные

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

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

Добавлено (22 Май 2008, 12:50)
---------------------------------------------
Когда чето не получаеться, в сложном скрипте, раздели его на части.
Сначала, протестируй как у тебя определяються и ограничеваються относительные координаты,
затем перемещение движка, затем получение результата.

Dordex

Дата: Четверг, 22 Мая 2008, 12:51 | Сообщение # 5

Необукер

Группа: Проверенные

Сообщений: 533

Репутация: 16

Награды: 9

Статус: Offline

Неужели так сложно немного изменить выше приведённый скрипт

as-master

Дата: Четверг, 22 Мая 2008, 16:09 | Сообщение # 6

Разводящий

Группа: Модераторы

Сообщений: 2337

Репутация: 101

Награды: 5

Статус: Offline

Омар, изучать твой скрипт - это дорого в смысле потраченного времени.
Неужели ты не можешь взять готовый работающий сценарий из любого
проекта, выложенного на сайте? Хотя бы мой последний мр3-плеер там -
работает безукоризненно.

И еще - проверь, не забыл ли ты прописать сценарии на активных объектах,
запускающих этот скрипт перемещения? Там должно быть назначено действие
и на MouseUP, и на MouseDOWN.

Да пребудет с вами ММВ!