Вверх ↑
Этот топик читают: Гость
Ответов: 1376
Рейтинг: 198
#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] [593]
Ответов: 16884
Рейтинг: 1239
#2: 2012-10-25 20:19:12 ЛС | профиль | цитата
foksov, класные часики : пустая форма, периодически на 0.1 сек появляется или время, или "foksov",или "Hiasm". Win7.
foksov писал(а):
Приятного наблюдения за временем!
ничего приятного.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1376
Рейтинг: 198
#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
Рейтинг: 198
#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
Рейтинг: 198
#10: 2012-10-26 17:52:17 ЛС | профиль | цитата
Ex_ писал(а):
вы это нам хотели показать?
Ну вот, у кого-то что-то заработало!!! Это и есть, так оно и видется, с добавлением всякой херни, типа актуального времени. Сама идея и была (давно замеченная), чтоб копировать ранее скопированное, это же, окно и добавлять текущеее (получается "прошедшее") время, в итоге получился уходящий случайный тоннель
карма: 1

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

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

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

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

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

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

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

карма: 22

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