HiAsm
HiAsm
Вверх ↑
ФорумыСхемыОчередной HiAmp ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 877
Рейтинг: 101
#1: 2009-05-08 17:36:32 ЛС | профиль | цитата
Проигрыватель mp3-шек в гламурном стиле
делать было нечего, решил отрыть хиасму, собрал первое что в голову пришло
компилим схему, кидаем exe в папку с mp3-шками, ну и кидаем в меня помидоры,
закрытие двойной клик по форме, может кто то что полезно в схеме найдет, а может кто ошибки покажет тоже польза будет.
и про bass.dll не забываем таскать, а также шрифт в архиве виндовые шрифты такие ужасные
карма: 1

0
файлы: 2hiamp.sha [53.5KB] [423], eurof35.zip [61.4KB] [181]
Ответов: 4641
Рейтинг: 334
#2: 2009-05-08 17:47:53 ЛС | профиль | цитата
flud, первый помидор за то, что ты выложил в первом посту два вложения. А теперь посмотри в раздел Upload сколько там твоих Hiamp-ов ?
------------ Дoбавленo в 17.55:
а так, прикольное оформление.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 877
Рейтинг: 101
#3: 2009-05-10 13:57:25 ЛС | профиль | цитата
Помогите решить пару вопросов,

1. как приклеить дочернюю форму к главной или мож есть какая альтернатива например использовать регионы и сделать эффект появления как бы отдельной формы
2. 12345.98305 секунды перевести в 3часа 42минуты 94секунды
3. получить процент од адских цифр

вот тестовая схема, принципе со временем мож и сам разберусь, но скорей к концу лета, уже тепло по плескаться хочеться
карма: 1

0
файлы: 1question.sha [2.6KB] [171]
Ответов: 8930
Рейтинг: 823
#4: 2009-05-10 17:21:59 ЛС | профиль | цитата
flud, еле успел к началу лета code_13207.txt
карма: 19

0
файлы: 1code_13207.txt [4.2KB] [172]
Ответов: 223
Рейтинг: 24
#5: 2009-05-10 17:52:59 ЛС | профиль | цитата
Может ето пригодится в твоем проектеflud, 

Add(MainForm,6490872,240,249)
{
 Left=100
 Top=100
 Width=586
 Height=160
 Color=3223857
 Font=[MS Sans Serif,8,0,255,1]
 Ctl3D=0
 WinStyle=1
 Caption="LK - 5"
 BorderStyle=3
 DragForm=0
 TransparentColor=0
 Position=1
 Point(Handle)
 Point(onMouseDown)
 Point(Close)
 Point(doHeight)
 Point(doWidth)
 Point(doEnabled)
 link(onCreate,8450492:doCreateRgn,[(287,269)(287,348)])
}
Add(MoveWindow,10566207,240,341)
{
 link(Handle,10008538:Var2,[])
}
Add(PointHint,8610476,120,245)
{
 Info=#9:
[size=9][color=gray]------------ Дoбавленo в 17.55:[/color][/size]
Извени с ошибкой :?: 
[size=9][color=gray]------------ Дoбавленo в 17.56:[/color][/size]
Извени с ошибкой :?: 
[size=9][color=gray]------------ Дoбавленo в 17.58:[/color][/size]
Извени с ошибкой :?: 
[size=9][color=gray]------------ Дoбавленo в 18.05:[/color][/size]
Вот так нормально :wink: 

Add(Button,5656987,56,232)
{
 Left=10
 Top=10
 Caption="1"
}
Add(Button,11752277,56,309)
{
 Left=10
 Top=50
 Caption="2"
}
Add(Button,6894497,56,232)
{
 Left=10
 Top=10
 Caption="1"
}
Add(Button,15142912,56,309)
{
 Left=10
 Top=50
 Caption="2"
}
Add(Button,16341672,56,232)
{
 Left=10
 Top=10
 Caption="1"
}
Add(Button,5749703,56,309)
{
 Left=10
 Top=50
 Caption="2"
}
Add(Button,5717140,56,232)
{
 Left=10
 Top=10
 Caption="1"
 link(onClick,4045170:doNext,[])
}
Add(Button,7484311,56,309)
{
 Left=10
 Top=50
 Caption="2"
 link(onClick,6844304:doNext,[])
}
Add(MainForm,6490872,177,75)
{
 Left=100
 Top=100
 Width=613
 Height=160
 Color=3223857
 Font=[MS Sans Serif,8,0,255,1]
 Ctl3D=0
 WinStyle=1
 Caption="1"
 DragForm=0
 TransparentColor=0
 Position=1
 Point(Handle)
 Point(onMouseDown)
 Point(Close)
 Point(doHeight)
 Point(doWidth)
 Point(doEnabled)
 link(onCreate,8450492:doCreateRgn,[(238,95)(238,174)])
}
Add(MoveWindow,10566207,177,167)
{
 link(Handle,10008538:Var2,[])
}
Add(Counter,4045170,115,232)
{
 Max=1
 Point(doValue)
 link(onNext,2949729:doEvent,[])
}
Add(IndexToChanel,2949729,157,232)
{
 link(onEvent1,1156126:doData,[])
 link(onEvent2,10495540:doData,[])
}
Add(DoData,1156126,248,232)
{
 Data=String(613)
 link(onEventData,1376151:doEvent1,[])
}
Add(DoData,10495540,328,239)
{
 Data=String(733)
 link(onEventData,5911512:doWork2,[(372,245)(372,210)])
}
Add(HubEx,5911512,316,197)
{
 Angle=2
 link(onEvent,6490872:doWidth,[(181,210)(181,116)])
}
Add(Hub,1376151,297,232)
{
 OutCount=3
 link(onEvent1,5911512:doWork3,[(320,238)])
}
Add(RGN_SetToWindow,4847611,318,168)
{
 link(Handle,10008538:Var3,[(324,150)])
}
Add(GetDataEx,10008538,170,141)
{
 link(Data,6490872:Handle,[])
}
Add(Counter,6844304,115,309)
{
 Max=1
 Point(doValue)
 link(onNext,2497565:doEvent,[])
}
Add(IndexToChanel,2497565,157,309)
{
 link(onEvent1,7223129:doData,[])
 link(onEvent2,10583185:doData,[])
}
Add(DoData,10583185,248,316)
{
 Data=String(502)
 link(onEventData,2435029:doWork3,[(334,322)])
}
Add(DoData,7223129,346,309)
{
 Data=String(160)
 link(onEventData,2435029:doWork2,[(390,315)(390,287)])
}
Add(HubEx,2435029,330,274)
{
 Angle=2
 link(onEvent,6490872:doHeight,[(165,287)(165,109)])
}
Add(RGN_Script,8450492,267,168)
{
 Script=#41:poly(800,0,800,160,0,160,160,160,0,160,0)|19:rect(613,165,0,613)|
 link(onCreateRgn,4847611:doSetRegion,[])
}
карма: 0

0
Ответов: 877
Рейтинг: 101
#6: 2009-05-11 02:06:06 ЛС | профиль | цитата
Леонид, спасибо что попытался но совсем не то, время не верное ну не как не может быть в 12840.335102 секунд 8 часов, а с процентами не чего нового я не увидел.
wasya схема супер, но она глючит, линий объединились так что не читабельное, мож у меня версия старая попробую обновить.
всеже идея с регионами мне больше нравиться чем приклеивать дочурку 


Add(DateConvertor,15452995,168,196)
{
 Mode=16
 Format="HH:mm:ss"
 Point(Data)
}

решил все проблемы
вот то что нужно 2% а не 4000% (нашел на форуме) 


Add(FastMathParse,9272792,651,140)
{
 MathStr="(%2*100)/%1"
}

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

Add(GProgressBar,14553334,399,95)
{
 Left=395
 Top=95
}
понимал real значения, а не тока Integer

карма: 1

0
Ответов: 223
Рейтинг: 24
#7: 2009-05-11 10:25:34 ЛС | профиль | цитата
лflud, Обновил схему
code_13219.txt
карма: 0

0
файлы: 1code_13219.txt [1.9KB] [152]
Ответов: 877
Рейтинг: 101
#8: 2009-05-11 12:56:29 ЛС | профиль | цитата
Тоже обновил, подправил пару багов, но всеже под лагивает иногда, не знаю как оптимизировать.
осталось сделать нормальный плайлист вот тока желание делать чую покидает.

надеюсь после лета, увидеть в хиасме рядом с OpenGL столбик DirectX
карма: 1

0
файлы: 1hiamp.sha [60.2KB] [179]
Ответов: 223
Рейтинг: 24
#9: 2009-05-11 13:25:49 ЛС | профиль | цитата
flud, вижу схема с регионами пригодилась выглядит не плохо
карма: 0

0
Ответов: 4641
Рейтинг: 334
#10: 2009-05-11 14:57:46 ЛС | профиль | цитата
flud, доработай схему до запуска под FPC
(rgn_script и FastMathParser )
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 877
Рейтинг: 101
#11: 2009-05-11 20:22:39 ЛС | профиль | цитата
Ravilr без подсказки не сделал бы доделать и можно продавать, удивительно антивирус молчит
карма: 1

0
файлы: 1hiamp_fpc.sha [60.8KB] [200]
Ответов: 4641
Рейтинг: 334
#12: 2009-05-11 20:41:41 ЛС | профиль | цитата
flud писал(а):
без подсказки

Примеры Wiki писал(а):
Для ввода координат,в панели свойств используйте кнопку " ... " напротив свойства Point

------------ Дoбавленo в 20.42:
это чтобы не захламлять схему компонентами PointXY
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
12
ФорумыСхемыОчередной HiAmp ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика