Вверх ↑
Этот топик читают: Гость
Ответов: 1376
Рейтинг: 197
#1: 2012-10-25 19:00:05 ЛС | профиль | цитата
Баловался... Получились часики, наглядно показывающие как безвозвратно уходит время... Куда-нибудь можно применить, наверное.
ПКМ - меню для закрытия окна
ЛКМ - для таскать по экрану
При выходе координаты запоминаются
WindowsXP SP3 NVidia
code_29382.txt
Добавил Application для обработки сообщений в очереди, возможно его и не хватало. Вкючается СКМ

Add(MainForm,2953706,441,196)
{
Left=800
Top=500
Width=200
Height=200
Name="f"
Caption=""
BorderStyle=6
TaskBar=1
DragForm=0
SavePosName="HiClock"
Point(Left)
Point(Top)
Point(Handle)
link(onCreate,8730968:doEvent1,[])
}
Add(Image,12120925,483,252)
{
Width=200
Height=200
Align=5
ViewStyle=1
Point(onMouseDown)
Point(Width)
link(onMouseDown,12274948:doEvent,[])
}
Add(ChildForm,15156356,441,252)
{
FirstUsage=0
link(onEvent1,12120925:doLoad,[])
link(Data1,2953706:Left,[])
link(Data2,2953706:Top,[])
}
BEGIN_SDK
Add(EditMulti,5888192,25,74)
{
EventCount=1
WorkCount=2
DataCount=2
Width=664
Height=319
link(doWork1,13397555:doEvent1,[(12,80)(12,174)])
link(doWork2,15889664:doSwitch,[(565,87)(565,181)])
}
Add(MainForm,4226016,273,140)
{
Width=200
Height=200
Color=16777215
BorderStyle=0
TaskBar=1
Picture=[ZIP7E06000078DA73F2AD636300033B20D600E21428660442107080CA83001382C9F0FFFF7F1086830F10B151FE287F943FCA1FE58FF209F20195A20EE4]
Point(Handle)
Point(onMove)
Point(doLeft)
Point(doTop)
Point(Left)
Point(Top)
Point(Width)
Point(Height)
link(onMove,15416528:doCopy,[(321,167)(321,259)(266,259)(266,223)])
}
Add(Img_Copy,15416528,273,217)
{
DrawSource=1
Point(Width)
Point(Height)
link(onCopy,8908202:doEvent1,[])
link(Source,4226016:Handle,[])
link(Width,4226016:Width,[])
link(Height,4226016:Height,[])
}
Add(Random,11299315,182,294)
{
Min=-1
Max=1
link(onRandom,1339345:doOperation,[])
}
Add(Timer,10602716,35,294)
{
@Hint=#4:Такт|18:Подбирать по вкусу|
Interval=40
link(onTimer,580015:doNext,[])
AddHint(-35,-48,101,26,@Hint)
}
Add(Math,1339345,231,294)
{
ResultType=0
link(onResult,552744:doWork3,[(275,300)(275,277)(214,277)])
link(Op1,4226016:Left,[(237,197)(286,197)])
}
Add(Img_Text,16347123,483,217)
{
X=15
Y=85
Font=[Tahoma,28,3,32768,204]
Point(doFont)
link(onDraw,4109435:doEvent1,[])
link(Text,4973698:Var,[])
}
Add(Hub,13397555,133,168)
{
InCount=2
link(onEvent1,14050087:doData,[])
link(onEvent2,4298210:doData,[])
}
Add(Hub,8908202,336,217)
{
OutCount=3
link(onEvent1,16347123:doDraw,[])
link(onEvent2,2993570:doRandom,[(374,230)(374,167)])
link(onEvent3,8446226:doFont,[])
}
Add(Font,8446226,392,231)
{
Font=[Tahoma,26,3,0,204]
link(onFont,16347123:doFont,[(447,237)(447,230)])
link(Color,2993570:Random,[])
}
Add(Random,2993570,399,161)
{
Max=4294967295
link(onRandom,149914:doRandom,[])
}
Add(VisualStrings,6897782,504,126)
{
Lines=#5:HiAsm|
Width=10
}
Add(Hub,15366706,154,294)
{
OutCount=3
link(onEvent1,11299315:doRandom,[])
link(onEvent2,11299315:doRandomize,[])
link(onEvent3,5323986:doRandom,[(175,314)(175,356)])
}
Add(Random,5323986,182,350)
{
Min=-1
Max=1
link(onRandom,5233090:doOperation,[])
}
Add(Math,5233090,245,350)
{
OpType=1
ResultType=0
link(onResult,7871592:doWork3,[(292,356)(292,268)(221,268)])
link(Op1,4226016:Top,[(251,205)(293,205)])
}
Add(Random,149914,441,161)
{
Max=250
link(onRandom,4973698:doIndex,[])
}
Add(GetIndexData,4973698,490,161)
{
Count=7
link(Data1,15193489:Text,[])
link(Data2,13467449:Var1,[(503,152)])
link(Data3,6897782:Text,[])
link(Data4,13467449:Var2,[])
link(Data5,10277243:Var2,[])
link(Data6,674488:Var2,[])
link(Data7,674488:Var3,[(538,152)])
}
Add(VisualStrings,15193489,490,126)
{
Lines=#6:foksov|
Width=11
}
Add(Time,6494967,511,112)
{
Format="h:m:s"
}
Add(GetDataEx,13467449,511,147)
{
link(Data,6494967:FormatTime,[])
}
Add(GetDataEx,10277243,518,147)
{
Angle=3
link(Data,13467449:Var3,[])
}
Add(GetDataEx,674488,525,147)
{
Angle=3
link(Data,10277243:Var3,[])
}
Add(HubEx,552744,210,168)
{
link(onEvent,4226016:doLeft,[])
}
Add(HubEx,7871592,217,175)
{
link(onEvent,4226016:doTop,[])
}
Add(CounterEx,580015,84,294)
{
Max=33
Point(onThroughMax)
link(onNext,15366706:doEvent1,[])
link(onThroughMax,13397555:doEvent2,[(124,307)(124,181)])
}
Add(DoData,14050087,161,168)
{
link(onEventData,552744:doWork2,[])
link(Data,5888192:Data1,[(167,121)(31,121)])
}
Add(DoData,4298210,168,175)
{
link(onEventData,7871592:doWork2,[])
link(Data,5888192:Data2,[(174,113)(38,113)])
}
Add(Hub,4109435,525,217)
{
link(onEvent1,5888192:onEvent1,[(558,223)(558,80)])
link(onEvent2,12844876:doEvent,[])
}
Add(Application,4702780,644,224)
{
}
Add(Switch,15889664,581,175)
{
DataOn=Integer(1)
DataOff=Integer(0)
Default=0
Point(State)
}
Add(IndexToChanel,12844876,581,224)
{
Count=1
Point(Index)
link(onEvent1,4702780:doProcessMessages,[])
link(Index,15889664:State,[])
}
END_SDK
Add(PopupMenu,1154173,595,266)
{
Menu=#7:Закрыть|
link(onClick,8900037:doTimer,[])
}
Add(Hub,8730968,497,210)
{
link(onEvent1,9096777:doPopup,[])
link(onEvent2,15156356:doWork1,[(529,223)(529,294)(429,294)(429,258)])
}
Add(WinTools,9096777,588,203)
{
link(Handle,2438259:Var1,[(594,191)(633,191)])
}
Add(Timer,8900037,644,266)
{
Interval=3000
Enable=1
link(onTimer,2953706:doClose,[(691,272)(691,314)(420,314)(420,223)])
}
Add(IndexToChanel,12274948,546,259)
{
Count=3
link(onEvent1,2527619:doMove,[])
link(onEvent2,1154173:doPopupHere,[])
link(onEvent3,15156356:doWork2,[(586,279)(586,304)(434,304)(434,265)])
}
Add(MoveWindow,2527619,700,259)
{
link(Handle,2438259:Var3,[(706,246)])
}
Add(GetDataEx,2438259,627,241)
{
Angle=3
link(Data,2953706:Handle,[(461,246)])
}


Приятного наблюдения за временем!
карма: 1

0
файлы: 1code_29382.txt [5.3KB] [550]
Ответов: 16884
Рейтинг: 1239
#2: 2012-10-25 20:19:12 ЛС | профиль | цитата
foksov, класные часики : пустая форма, периодически на 0.1 сек появляется или время, или "foksov",или "Hiasm". Win7.
foksov писал(а):
Приятного наблюдения за временем!
ничего приятного.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1376
Рейтинг: 197
#3: 2012-10-25 20:25:48 ЛС | профиль | цитата
Tad писал(а):
ничего приятного
Tad писал(а):
пустая форма, периодически на 0.1 сек появляется

У меня WinXP SP3 (забыл приписать)... Ну если у всех такое, то тему в Помойку
карма: 1

0
Ответов: 1173
Рейтинг: 49
#4: 2012-10-25 20:27:25 ЛС | профиль | цитата
Tad писал(а):
пустая форма, периодически на 0.1 сек появляется или время, или "foksov",или "Hiasm"
Подтверждаю. У меня ещё "2D+" показывает иногда.[flood]foksov, что за 25-ый кадр? [/flood]
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2012-10-25 20:34:13 ЛС | профиль | цитата
foksov писал(а):
Ну если у всех такое, то тему в Помойку
У меня уже в корзине.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1376
Рейтинг: 197
#6: 2012-10-26 12:48:27 ЛС | профиль | цитата
Значит моя медленная схема не для быстрых компьютеров, пока она собирается что-то отрисовать, то система уже 100 раз сотрёт
------------ Дoбавленo в 12.48:
Добавил другую схему, может она заработает у кого-то...
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#7: 2012-10-26 16:26:45 ЛС | профиль | цитата
foksov писал(а):
Добавил другую схему
Та же моргалка.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1731
Рейтинг: 68
#8: 2012-10-26 16:50:13 ЛС | профиль | цитата
У меня рекурсия и время иногда показывает.
карма: 1

0
Ответов: 1173
Рейтинг: 49
#9: 2012-10-26 17:39:35 ЛС | профиль | цитата
foksov, вы это нам хотели показать?
20,2 Кб
карма: 0

1
Голосовали:foksov
Ответов: 1376
Рейтинг: 197
#10: 2012-10-26 17:52:17 ЛС | профиль | цитата
Ex_ писал(а):
вы это нам хотели показать?
Ну вот, у кого-то что-то заработало!!! Это и есть, так оно и видется, с добавлением всякой херни, типа актуального времени. Сама идея и была (давно замеченная), чтоб копировать ранее скопированное, это же, окно и добавлять текущеее (получается "прошедшее") время, в итоге получился уходящий случайный тоннель
карма: 1

0
Разработчик
Ответов: 26156
Рейтинг: 2127
#11: 2012-10-26 18:24:43 ЛС | профиль | цитата
foksov писал(а):
Это и есть, так оно и видется

Абстракционизм, однако
карма: 22

0
Ответов: 1376
Рейтинг: 197
#12: 2012-10-26 18:35:47 ЛС | профиль | цитата
nesco, хоть бы как-то намяукнули, работают или нет, блин, все, выложенные мной в этой теме, схемы Мне это важнее того, что они запускаются или нет
карма: 1

0
Ответов: 4630
Рейтинг: 749
#13: 2012-10-26 18:44:27 ЛС | профиль | цитата
foksov, значит пора осваивать виртуальные машины...
карма: 26

1
Голосовали:foksov
Ответов: 1376
Рейтинг: 197
#14: 2012-10-26 18:47:22 ЛС | профиль | цитата
Netspirit писал(а):
значит пора осваивать виртуальные машины...
Я уже такой старый и дальше физического ни чего не будет?
карма: 1

0
Разработчик
Ответов: 26156
Рейтинг: 2127
#15: 2012-10-26 18:54:34 ЛС | профиль | цитата
foksov писал(а):
работают или нет

Не, не работает
Tad писал(а):
Та же моргалка

карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)