Вверх ↑
Ответов: 1397
Рейтинг: 50
#1: 2009-02-02 08:56:08 ЛС | профиль | цитата
Спасибо andrestudio, в потоках я еще не силен. Как раз хотел задать вопрос на эту тему, а то программка подтормаживала при движении формы. Единственное в твоей схеме нет автоматического повтора и запуска мелодии без использования кнопки стоп, что мне необходимо. И небольшая ошибочка - все же правую часть строки нужно подцепить как у меня в схеме.
------------ Дoбавленo:

Новая версия программы основанная на схеме andrestudio. Только не получается отказаться от таймера, а хотелось бы.
PS: А с поиском музыки результат нулевой.
Add(MainForm,5248099,266,189)
{
Width=143
Height=213
}
Add(Button,6127189,266,231)
{
Left=20
Top=15
Data=String(0)
link(onClick,12361286:doEvent1,[(304,237)(304,279)])
}
Add(Button,12983166,266,238)
{
Left=20
Top=40
Data=String(1)
link(onClick,12361286:doEvent2,[(304,244)(304,286)])
}
Add(Button,3835058,266,245)
{
Left=20
Top=65
Data=String(2)
link(onClick,12361286:doEvent3,[(304,251)(304,293)])
}
Add(Button,4106732,266,252)
{
Left=20
Top=90
Data=String(3)
link(onClick,12361286:doEvent4,[(304,258)(304,300)])
}
Add(Button,217949,266,259)
{
Left=20
Top=115
Data=String(5)
link(onClick,12361286:doEvent5,[(304,265)(304,307)])
}
Add(StrList,12429921,602,203)
{
Strings=#6:466 87|4:0 13|6:466 87|4:0 13|7:880 100|7:784 100|7:700 175|4:0 25|7:584 175|4:0 25|6:494 87|4:0 13|6:494 87|4:0 13|7:832 100|7:784 100|7:700 175|4:0 25|7:584 175|4:0 25|6:784 87|4:0 13|7:784 175|4:0 25|6:784 87|4:0 13|7:700 175|4:0 25|7:784 175|4:0 25|7:880 175|4:0 25|7:880 350|4:0 50|5:0 200|6:440 87|4:0 13|6:440 87|4:0 13|6:552 87|4:0 13|6:552 87|4:0 13|6:660 87|4:0 13|6:660 87|4:0 13|6:880 87|4:0 13|6:880 87|4:0 13|6:440 87|4:0 13|6:440 87|4:0 13|6:552 87|4:0 13|6:552 87|4:0 13|6:660 87|4:0 13|6:660 87|4:0 13|6:880 87|4:0 13|6:880 87|4:0 13|6:440 87|4:0 13|6:440 87|4:0 13|6:584 87|4:0 13|6:584 87|4:0 13|6:700 87|4:0 13|6:700 87|4:0 13|6:880 87|4:0 13|6:880 87|4:0 13|6:440 87|4:0 13|6:440 87|4:0 13|6:584 87|4:0 13|6:584 87|4:0 13|6:700 87|4:0 13|6:700 87|4:0 13|6:880 87|4:0 13|6:880 87|4:0 13|6:784 87|4:0 13|6:784 87|4:0 13|6:932 87|4:0 13|6:932 87|4:0 13|7:1168 87|4:0 13|7:1168 87|4:0 13|7:1568 87|4:0 13|7:1568 87|4:0 13|6:784 87|4:0 13|6:784 87|4:0 13|6:932 87|4:0 13|6:932 87|4:0 13|7:1168 87|4:0 13|7:1168 87|4:0 13|7:1568 87|4:0 13|7:1568 87|4:0 13|7:1760 87|4:0 13|7:1320 87|4:0 13|7:1104 87|4:0 13|6:880 87|4:0 13|7:1320 87|4:0 13|7:1104 87|4:0 13|6:880 87|4:0 13|6:660 87|4:0 13|7:1104 87|4:0 13|6:880 87|4:0 13|6:660 87|4:0 13|6:552 87|4:0 13|6:880 87|4:0 13|6:660 87|4:0 13|6:552 87|4:0 13|6:440 87|4:0 13|6:552 87|4:0 13|6:552 87|4:0 13|6:660 87|4:0 13|6:660 87|4:0 13|6:932 87|4:0 13|6:932 87|4:0 13|6:880 87|4:0 13|6:880 87|4:0 13|6:784 87|4:0 13|6:784 87|4:0 13|6:700 87|4:0 13|6:700 87|4:0 13|6:660 87|4:0 13|6:660 87|4:0 13|6:552 87|4:0 13|6:552 87|4:0 13|6:584 87|4:0 13|6:584 87|4:0 13|6:552 87|4:0 13|6:552 87|4:0 13|6:584 87|4:0 13|6:584 87|4:0 13|6:660 87|4:0 13|6:660 87|4:0 13|6:700 87|4:0 13|6:700 87|4:0 13|6:660 87|4:0 13|6:660 87|4:0 13|6:700 87|4:0 13|6:700 87|4:0 13|6:784 87|4:0 13|6:784 87|4:0 13|6:932 87|4:0 13|6:932 87|4:0 13|6:784 87|4:0 13|6:784 87|4:0 13|6:880 87|4:0 13|6:880 87|4:0 13|6:932 87|4:0 13|6:932 87|4:0 13|7:1168 87|4:0 13|7:1168 87|4:0 13|6:932 87|4:0 13|6:932 87|4:0 13|7:1048 87|4:0 13|7:1048 87|4:0 13|7:1168 87|4:0 13|7:1168 87|4:0 13|7:1568 87|4:0 13|7:1568 87|4:0 13|7:1320 87|4:0 13|7:1320 87|4:0 13|7:1400 87|4:0 13|7:1400 87|4:0 13|7:1568 87|4:0 13|7:1568 87|4:0 13|7:1760 87|4:0 13|7:1320 87|4:0 13|7:1104 87|4:0 13|6:880 87|4:0 13|6:660 87|4:0 13|6:552 87|4:0 13|6:440 87|4:0 13|6:330 87|4:0 13|7:350 255|7:330 255|7:292 255|8:292 255 |
}
Add(GetIndexData,1952703,427,273)
{
Count=7
link(Data1,14145259:Array,[])
link(Data2,14721096:Array,[(440,263)(482,263)])
link(Data3,4893061:Array,[(447,263)(524,263)])
link(Data4,14948018:Array,[(454,263)(573,263)])
link(Data6,12429921:Array,[(468,263)(622,263)])
}
Add(Beep,11800224,532,322)
{
Duration=100
Point(onBeep)
link(Freq,4518880:Left,[(538,310)(510,310)(510,366)(482,366)])
link(Duration,4518880:Right,[(545,310)(517,310)(517,366)(489,366)])
}
Add(StrList,14145259,413,203)
{
Strings=#7:587 75 |7:622 75 |7:587 75 |7:622 75 |7:587 75 |7:622 75 |7:587 75 |7:622 75 |7:587 75 |7:587 75 |7:622 75 |7:659 75 |7:699 75 |7:740 75 |7:784 75 |8:784 150 |6:0 300 |8:784 150 |6:0 300 |8:932 150 |6:0 150 |9:1047 150 |6:0 150 |8:784 150 |6:0 300 |8:784 150 |6:0 300 |8:699 150 |6:0 150 |8:740 150 |6:0 150 |8:784 150 |6:0 300 |8:784 150 |6:0 300 |8:932 150 |6:0 150 |9:1047 150 |6:0 150 |8:784 150 |6:0 300 |8:784 150 |6:0 300 |8:699 150 |6:0 150 |8:740 150 |6:0 150 |8:932 150 |8:784 150 |9:587 1200 |5:0 75 |8:932 150 |8:784 150 |9:554 1200 |5:0 75 |8:932 150 |8:784 150 |9:523 1200 |6:0 150 |8:466 150 |7:523 150|
}
Add(StrPart,4518880,476,322)
{
Char=" "
Point(Left)
Point(Right)
link(onSplit,11800224:doBeep,[])
}
Add(Hub,12361286,322,273)
{
InCount=7
OutCount=3
link(onEvent1,10539390:doStop,[(357,279)(357,335)])
link(onEvent2,1952703:doIndex,[(382,286)(382,279)])
link(onEvent3,11539632:doWork1,[(354,293)])
}
Add(ArrayEnum,5824737,427,322)
{
Point(onBreak)
link(onItem,4518880:doSplit,[])
link(onEndEnum,13144153:doTimer,[(471,335)(471,373)(296,373)(296,412)])
link(Array,1952703:Var,[])
}
Add(StrList,14948018,553,203)
{
@Hint=#5:Бумер|
Strings=#7:500 300|7:600 500|5:0 820|7:600 300|7:500 500|7:670 210|7:600 210|7:670 210|7:600 210|7:670 210|7:600 210|7:670 210|7:600 210|7:670 210|7:750 550|
}
Add(StrList,4893061,504,203)
{
Strings=#7:500 100|7:550 100|7:600 100|7:650 100|7:700 700|5:0 200|7:700 100|7:650 100|7:600 100|7:650 100|7:500 700|
}
Add(StrList,14721096,462,203)
{
Strings=#7:831 200|4:0 50|7:880 200|4:0 50|7:659 200|5:0 50 |7:880 200|4:0 50|7:659 200|4:0 50|7:880 200|4:0 50|7:831 200|4:0 50|7:831 200|5:0 300|7:831 200|4:0 50|7:659 200|4:0 50|7:831 200|4:0 50|7:659 200|4:0 50|7:831 200|4:0 50|7:880 200|4:0 50|7:880 200|5:0 300|7:880 200|4:0 50|7:659 200|4:0 50|7:880 200|4:0 50|7:659 200|4:0 50|7:880 200|7:0 50 |7:831 200|4:0 50|7:831 200|4:0 50|7:659 200|4:0 50|7:831 200|4:0 50|7:659 200|4:0 50|7:831 200|4:0 50|7:880 400|5:0 100|
}
Add(Thread,10539390,378,322)
{
Delay=1
FastStop=0
link(onExec,5824737:doEnum,[])
}
Add(HubEx,11539632,350,294)
{
Angle=1
link(onEvent,10539390:doStart,[(354,328)])
}
Add(Timer,13144153,308,406)
{
Interval=100
AutoStop=1
link(onTimer,11539632:doWork2,[(345,412)(345,307)])
}
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0