HiAsm
HiAsm
Вверх ↑
ФорумыСхемыЕщё одни часики ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 1376
Рейтинг: 197
#16: 2012-10-26 18:59:32 ЛС | профиль | цитата
nesco писал(а):
Не, не работает
И дополнительная схема? Судя о том, что схема не работоспособна, то можно утверждать, что те схемы на форуме, которые скриншотят или копируют часть экрана или окна, тоже не работоспособны... А может и работоспособны, но всё дело в синхронизации с экраном
карма: 1

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#17: 2012-10-26 19:14:46 ЛС | профиль | цитата
Да ни первая, ни последняя не работают
foksov, ты бы лучше показал, что должно получится
карма: 22

0
Ответов: 1173
Рейтинг: 49
#18: 2012-10-26 19:22:15 ЛС | профиль | цитата
Извините, сразу не сказал: работает только с классическим стилем в Windows.
карма: 0

0
Ответов: 1376
Рейтинг: 197
#19: 2012-10-26 19:23:02 ЛС | профиль | цитата
Ex_ показал, а я описал, что должно видется:
Принцип работы схемы:
Копируется копируемое окно само в себя, при событии перемещения копируемого окна, и рандомно добавляются сообщения (в схеме это явственно визиуализировано (во загнул (на раслабоне)))
карма: 1

0
Ответов: 490
Рейтинг: 162
#20: 2012-10-26 19:30:58 ЛС | профиль | цитата
foksov писал(а):
хоть бы как-то намяукнули, работают или нет
Работает
Ex_ писал(а):
работает только с классическим стилем в Windows.
и стиль ХР.. Win XP SP3
и даже поигрался с примером,все работает, микро мод.code_29390.txt
карма: 4

1
файлы: 1code_29390.txt [6KB] [426]
Голосовали:foksov
Ответов: 1376
Рейтинг: 197
#21: 2012-10-26 19:35:49 ЛС | профиль | цитата
tig-rrr писал(а):
микро мод.
Браво tig-rrr, Вас дальше понесло, а я о таком даже не задумывался!
карма: 1

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#22: 2012-10-26 19:47:29 ЛС | профиль | цитата
Ex_ писал(а):
работает только с классическим стилем в Windows

Нууу, я так не играю
карма: 22

0
Ответов: 490
Рейтинг: 162
#23: 2012-10-26 19:48:12 ЛС | профиль | цитата
foksov писал(а):
Баловался... Получились часики

До кучи, тоже часики. code_29391.txt
карма: 4

0
файлы: 1code_29391.txt [7.1KB] [404]
Ответов: 1376
Рейтинг: 197
#24: 2012-10-26 20:02:17 ЛС | профиль | цитата
[offtop]
tig-rrr писал(а):
До кучи, тоже часики
пусть лежат, тема не удаляется, вновьприбывшим полезно[/offtop]
------------ Дoбавленo в 20.02:
[offtop]
nesco писал(а):
Нууу, я так не играю
к Вам выехала бригада для устранения несоответствия с соответствием, соответственно, соответствуйте согласно соответствия [/offtop]
карма: 1

0
Ответов: 1731
Рейтинг: 68
#25: 2012-10-26 21:39:08 ЛС | профиль | цитата
Самая первая схема работает у меня только на FPC.
И с любой темой.
карма: 1

0
Ответов: 1841
Рейтинг: 369
#26: 2012-10-26 23:31:08 ЛС | профиль | цитата
попытка воспроизведения эффекта по скриншоту Cosinus

Add(MainForm,1447383,448,92)
{
 Width=200
 Height=200
 Color=16777215
 BorderStyle=1
 TaskBar=1
 Position=1
 Point(Handle)
 Point(Height)
 Point(Width)
}
Add(Img_Copy,423875,434,196)
{
 X=-5
 Y=-10
 DrawSource=1
 Point(Height)
 Point(Width)
 link(onCopy,6991831:doEvent1,[])
 link(Source,1447383:Handle,[(440,149)(454,149)])
 link(Height,1447383:Height,[])
 link(Width,6495496:Result,[])
}
Add(Img_Text,2286630,644,196)
{
 X=15
 Y=85
 Font=[Tahoma,28,3,32768,204]
 Point(doFont)
 link(onDraw,2818762:doLoad,[])
 link(Text,15425992:Var,[])
}
Add(Hub,6991831,497,196)
{
 OutCount=3
 link(onEvent1,2286630:doDraw,[])
 link(onEvent2,13256847:doRandom,[(535,209)(535,146)])
 link(onEvent3,16288053:doFont,[])
}
Add(Font,16288053,553,210)
{
 Font=[Tahoma,26,3,65280,204]
 link(onFont,2286630:doFont,[(615,216)(615,209)])
 link(Color,13256847:Random,[])
}
Add(Random,13256847,560,140)
{
 Min=100000
 Max=2000000
 link(onRandom,9392504:doRandom,[])
}
Add(VisualStrings,8755173,665,105)
{
 Lines=#5:HiAsm|
 Width=10
}
Add(Random,9392504,608,140)
{
 link(onRandom,15425992:doIndex,[])
}
Add(GetIndexData,15425992,651,140)
{
 Count=7
 link(Data1,2930078:Text,[])
 link(Data2,15271252:Var1,[(664,131)])
 link(Data3,8755173:Text,[])
 link(Data4,15271252:Var2,[])
 link(Data5,3188360:Var2,[])
 link(Data6,6067344:Var2,[])
 link(Data7,6067344:Var3,[(699,131)])
}
Add(VisualStrings,2930078,651,105)
{
 Lines=#6:foksov|
 Width=11
}
Add(Time,488481,672,91)
{
 Format="h:m:s"
}
Add(GetDataEx,15271252,672,126)
{
 link(Data,488481:FormatTime,[])
}
Add(GetDataEx,3188360,679,126)
{
 Angle=3
 link(Data,15271252:Var3,[])
}
Add(GetDataEx,6067344,686,126)
{
 Angle=3
 link(Data,3188360:Var3,[])
}
Add(Timer,14137203,183,189)
{
 @Hint=#4:Такт|18:Подбирать по вкусу|
 Interval=60
 link(onTimer,10485054:doEvent1,[])
 AddHint(-40,42,101,26,@Hint)
}
Add(Image,2818762,700,196)
{
 Width=200
 Height=200
 Align=5
 Font=[MS Sans Serif,8,0,-16777203,1]
 ViewStyle=1
 Point(onMouseDown)
 Point(Width)
}
Add(Hub,10485054,231,189)
{
 link(onEvent1,3567457:doNext,[(260,195)(260,160)])
 link(onEvent2,423875:doCopy,[])
}
Add(Math,6495496,462,154)
{
 ResultType=0
 link(Op1,1447383:Width,[])
}
Add(CounterEx,3567457,282,154)
{
 Max=50
 Point(doDirect)
 link(onNext,12875787:doCase,[])
}
Add(Switch,1153271,378,161)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 link(onSwitch,3567457:doDirect,[(425,167)(425,148)(270,148)(270,167)])
}
Add(Case,12875787,329,154)
{
 link(onNextCase,6495496:doOperation,[])
 link(onTrue,1153271:doSwitch,[])
}
------------ Дoбавленo в 23.31:
попытка воспроизведения эффекта по скриншоту Cosinus №2

Add(MainForm,1447383,448,92)
{
 Width=200
 Height=200
 Color=16777215
 BorderStyle=1
 TaskBar=1
 Position=1
 Point(Handle)
 Point(Height)
 Point(Width)
}
Add(Img_Copy,423875,434,196)
{
 X=-5
 Y=-10
 DrawSource=1
 Point(Height)
 Point(Width)
 link(onCopy,6991831:doEvent1,[])
 link(Source,1447383:Handle,[(440,149)(454,149)])
 link(Height,1447383:Height,[])
 link(Width,6495496:Result,[])
}
Add(Img_Text,2286630,644,196)
{
 X=15
 Y=85
 Font=[Tahoma,28,3,32768,204]
 Point(doFont)
 link(onDraw,2818762:doLoad,[])
 link(Text,15425992:Var,[])
}
Add(Hub,6991831,497,196)
{
 OutCount=3
 link(onEvent1,2286630:doDraw,[])
 link(onEvent2,13256847:doRandom,[(535,209)(535,146)])
 link(onEvent3,16288053:doFont,[])
}
Add(Font,16288053,553,210)
{
 Font=[Tahoma,26,3,65280,204]
 link(onFont,2286630:doFont,[(615,216)(615,209)])
 link(Color,13256847:Random,[])
}
Add(Random,13256847,560,140)
{
 Min=100000
 Max=2000000
 link(onRandom,9392504:doRandom,[])
}
Add(VisualStrings,8755173,665,105)
{
 Lines=#5:HiAsm|
 Width=10
}
Add(Random,9392504,608,140)
{
 Max=40
 link(onRandom,15425992:doIndex,[])
}
Add(GetIndexData,15425992,651,140)
{
 Count=7
 link(Data1,2930078:Text,[])
 link(Data2,15271252:Var1,[(664,131)])
 link(Data3,8755173:Text,[])
 link(Data4,15271252:Var2,[])
 link(Data5,3188360:Var2,[])
 link(Data6,6067344:Var2,[])
 link(Data7,6067344:Var3,[(699,131)])
}
Add(VisualStrings,2930078,651,105)
{
 Lines=#6:foksov|
 Width=11
}
Add(Time,488481,672,91)
{
 Format="h:m:s"
}
Add(GetDataEx,15271252,672,126)
{
 link(Data,488481:FormatTime,[])
}
Add(GetDataEx,3188360,679,126)
{
 Angle=3
 link(Data,15271252:Var3,[])
}
Add(GetDataEx,6067344,686,126)
{
 Angle=3
 link(Data,3188360:Var3,[])
}
Add(Timer,14137203,183,189)
{
 @Hint=#4:Такт|18:Подбирать по вкусу|
 Interval=75
 link(onTimer,10485054:doEvent1,[])
 AddHint(-40,42,101,26,@Hint)
}
Add(Image,2818762,700,196)
{
 Width=200
 Height=200
 Align=5
 Font=[MS Sans Serif,8,0,-16777203,1]
 Point(onMouseDown)
 Point(Width)
}
Add(Hub,10485054,231,189)
{
 link(onEvent1,3567457:doNext,[(260,195)(260,160)])
 link(onEvent2,423875:doCopy,[])
}
Add(Math,6495496,462,154)
{
 ResultType=0
 link(Op1,1447383:Width,[])
}
Add(CounterEx,3567457,282,154)
{
 Max=50
 Point(doDirect)
 link(onNext,12875787:doCase,[])
}
Add(Switch,1153271,378,161)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 link(onSwitch,3567457:doDirect,[(425,167)(425,148)(270,148)(270,167)])
}
Add(Case,12875787,329,154)
{
 link(onNextCase,6495496:doOperation,[])
 link(onTrue,1153271:doSwitch,[])
}
Вроде более объёмно получилось
карма: 1
Альтернативная сборка HiAsm 4.
0
Ответов: 1731
Рейтинг: 68
#27: 2012-10-26 23:52:18 ЛС | профиль | цитата
[flood]Смотрю в теме раздают халявные плюсики, вот и скрин сделал (P.S. шутка)[/flood]
карма: 1

1
Голосовали:foksov
Ответов: 1376
Рейтинг: 197
#28: 2012-10-27 05:25:16 ЛС | профиль | цитата
CriDos, ненадо трогать узоту и низину наверно так хотели попыткнуться?
code_29393.txt
А если подзадуматься, то можно и любые картинки на любые стороны выводить, копируя из картинки столбцы или строки, в определенные промежутки времени [offtop](если время будет и не забуду, то попробую чего-нибудь такое сотворить, если меня более умные форумчане не опередят отплюсую, всяко-разно, соответствующих...)[/offtop]
[offtop]Cosinus, ещё раз так пошутите --- ещё получите!
Cosinus писал(а):
(P.S. шутка)

P.S. Я вас 2 раза плюсану, но плюсы будут непочетные, как уж они Вами будут пониматься - Ваши проблемы! Совет: Придерживайтесь меценатства![/offtop]
карма: 1

1
файлы: 1code_29393.txt [3.8KB] [370]
Голосовали:CriDos
Разработчик
Ответов: 26061
Рейтинг: 2120
#29: 2012-10-27 12:38:42 ЛС | профиль | цитата
foksov писал(а):
ещё раз так пошутите --- ещё получите!

Ты чего это сегодня не в духе, пугаешь тут всех
карма: 22

0
Ответов: 1376
Рейтинг: 197
#30: 2012-10-27 17:59:58 ЛС | профиль | цитата
[flood]
nesco писал(а):
Ты чего это сегодня не в духе, пугаешь тут всех
Да ни кого я не пугаю, просто хочу сказать, что о людях надо судить по делам, а не по плюсикам, т.к. плюсики покупаемы... Мне не жалко кого-либо плюсануть, но бывает обидно, что когда соберешься по делу оценить, то вот тут-то и лимит срабатывает, прям шлепает по рукам [/flood]
карма: 1

0
ФорумыСхемыЕщё одни часики ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика