Вверх ↑
Этот топик читают: Гость
Ответов: 199
Рейтинг: 44
#1: 2010-05-23 22:28:24 ЛС | профиль | цитата
indikator.sha
карма: 0

1
файлы: 1indikator.sha [85.3KB] [292]
Голосовали:petrocan
Разработчик
Ответов: 4698
Рейтинг: 426
#2: 2010-05-24 15:47:45 ЛС | профиль | цитата
Вот то же самое, только в раз 10 меньше, помогает простая математика
Add(MainForm,2953706,21,105)
{
Width=406
}
Add(ListBox,10654304,168,189)
{
Left=285
Top=5
Width=115
Height=180
Strings=#9:0 0 0 0 0|9:8 8 8 8 8|13:127 8 8 8 127|11:0 0 125 0 0|16:124 18 17 18 124|14:24 84 84 84 48|15:124 4 124 4 120|9:0 0 0 0 0|14:70 73 73 73 49|12:4 63 68 64 0|15:60 64 64 64 124|15:48 72 72 72 127|11:0 0 125 0 0|14:56 68 68 68 56|9:8 8 8 8 8|9:0 0 0 0 0|
AddType=1
DataType=1
Point(String)
link(onClick,10355328:doRefresh,[])
}
Add(PaintBox,10355328,217,196)
{
Width=250
Height=250
ClearBeforeDraw=0
link(onBeforeDraw,16206930:doEvent1,[])
}
Add(Img_Gradient,16593387,448,196)
{
Point(Point1)
Point(Point2)
link(Bitmap,7911903:Var1,[(454,181)(251,181)])
link(Point1,3542876:Point,[(461,175)(426,175)])
link(Point2,11180498:Point,[(468,175)(524,175)])
}
Add(Str_Enum,2415720,301,196)
{
Delimiter=" "
link(onEnum,4330652:doConvert,[])
link(String,10654304:String,[(307,184)(257,184)(257,249)(195,249)])
}
Add(Convertor,4330652,350,196)
{
Mode=8
Digits=8
link(onResult,1552500:doEnum,[])
}
Add(Str_Enum,1552500,399,196)
{
Delimiter=""
link(onEnum,16593387:doDraw,[])
}
Add(PointXY,11180498,518,133)
{
link(X,4701006:reCalc,[(524,125)(503,125)])
link(Y,2564262:reCalc,[(531,125)(559,125)])
}
Add(PointXY,3542876,420,133)
{
link(X,14986388:reCalc,[(426,125)(405,125)])
link(Y,4220476:reCalc,[(433,125)(454,125)])
}
Add(MathParse,14986388,392,84)
{
DataCount=3
MathStr="%2 * ((%1 - 1) * 30)"
ResultType=0
Point(reCalc)
link(X1,1552500:NumSubStr,[(398,77)(385,77)(385,249)(405,249)])
link(X2,13671530:Var1,[(405,65)(382,65)(382,240)])
}
Add(MathParse,4220476,441,84)
{
MathStr="%2 * ((%1 - 1) * 30)"
ResultType=0
Point(reCalc)
link(X1,2415720:NumSubStr,[(447,72)(377,72)(377,240)(307,240)])
link(X2,9344098:Var1,[(454,67)(434,67)])
}
Add(GetDataEx,13671530,406,235)
{
link(Data,1552500:Part,[])
}
Add(MathParse,4701006,490,84)
{
MathStr="(%1 + 30) * (%2 > 0)"
ResultType=0
Point(reCalc)
link(X1,14986388:Result,[(496,72)(475,72)(475,130)(398,130)])
link(X2,5129254:Var1,[(503,65)])
}
Add(MathParse,2564262,546,84)
{
MathStr="(%1 + 30) * (%2 > 0)"
ResultType=0
Point(reCalc)
link(X1,4220476:Result,[(552,68)(483,68)(483,127)(447,127)])
link(X2,5129254:Var2,[])
}
Add(GetDataEx,9344098,428,235)
{
Angle=3
link(Data,13671530:Var3,[])
}
Add(GetDataEx,5129254,553,60)
{
Angle=1
link(Data,9344098:Var3,[(573,65)(573,240)])
}
Add(Img_Rotate,9380954,301,259)
{
Angle=270
link(onResult,4492714:doDraw,[])
link(Bitmap,3320404:Var2,[])
}
Add(Hub,16206930,266,196)
{
link(onEvent1,2415720:doEnum,[])
link(onEvent2,9380954:doRotate,[(290,209)(290,265)])
}
Add(GetDataEx,7911903,245,239)
{
Angle=3
link(Data,10355328:Bitmap,[(223,244)])
}
Add(Img_Bmp,4492714,350,259)
{
TransparentColor=2565927
link(Bitmap,3320404:Var3,[(356,244)])
}
Add(GetDataEx,3320404,301,239)
{
Angle=3
link(Data,7911903:Var3,[])
}
карма: 10
0
2
Сообщение
...
Прикрепленные файлы
(файлы не залиты)