Вверх ↑
Ответов: 30
Рейтинг: 2
#1: 2009-09-12 00:25:17 ЛС | профиль | цитата

Просто надо было написать


Пример на ввод и вывод в Edit


Add(MainForm,2953706,21,70)
{
Left=100
Top=100
Width=414
Height=208
Caption="Вычисления круга"
}
Add(Edit,7741042,91,140)
{
Left=268
Top=55
Width=105
Text="1"
link(onEnter,8053259:doEvent1,[])
}
Add(Edit,5683550,91,238)
{
Left=268
Top=90
Width=105
Text="1"
link(onEnter,11435864:doEvent1,[])
}
Add(Edit,2682130,91,371)
{
Left=268
Top=130
Width=105
Text="1"
link(onEnter,6616036:doEvent1,[])
}
Add(MathParse,13806430,273,147)
{
MathStr="%1 * %1 *3.14"
link(onResult,3643539:doWork1,[(326,153)(326,362)(81,362)])
}
Add(Hub,8053259,175,147)
{
link(onEvent1,13806430:doCalc,[])
link(onEvent2,6686342:doCalc,[(231,160)(231,195)])
}
Add(MathParse,6686342,273,189)
{
MathStr="%1 * 6.28"
link(onResult,11866147:doWork1,[(317,195)(317,227)(46,227)])
}
Add(MathParse,751264,273,245)
{
MathStr="%1 / 6.28"
link(onResult,4924087:doWork3,[(317,251)(317,234)(60,234)])
}
Add(MathParse,15472550,273,287)
{
MathStr="(%1 / 6.28) ^ 2 *3.14"
link(onResult,3643539:doWork2,[(318,293)(318,354)(59,354)(59,377)])
}
Add(Hub,11435864,182,245)
{
link(onEvent1,751264:doCalc,[])
link(onEvent2,15472550:doCalc,[(234,258)(234,293)])
}
Add(HubEx,4924087,56,133)
{
link(onEvent,7741042:doText,[])
}
Add(MathParse,7533571,266,378)
{
MathStr="sqrt( %1 / 3.14)"
link(onResult,4924087:doWork1,[(335,384)(335,133)(60,133)])
}
Add(MathParse,1113285,266,420)
{
MathStr="sqrt( %1 / 3.14) * 6.28"
link(onResult,11866147:doWork3,[(309,426)(309,461)(46,461)])
}
Add(Hub,6616036,175,378)
{
link(onEvent1,7533571:doCalc,[])
link(onEvent2,1113285:doCalc,[(227,391)(227,426)])
}
Add(HubEx,11866147,42,231)
{
link(onEvent,5683550:doText,[])
}
Add(HubEx,3643539,77,364)
{
link(onEvent,2682130:doText,[])
}
Add(Label,10812103,70,70)
{
Left=187
Top=55
Width=58
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Радиус"
}
Add(Label,2985436,119,70)
{
Left=105
Top=88
Width=145
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Длина окружности"
}
Add(Label,2033065,168,70)
{
Left=129
Top=130
Width=121
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Площадь круга"
}
Add(Label,15394461,217,70)
{
Left=7
Top=8
Width=389
Height=24
Font=[Arial Narrow,12,0,0,204]
Caption="Вычисления в любую сторону. Введите число, нажмите Enter"
}
Add(Image,970022,266,70)
{
Left=15
Top=40
Width=60
Height=60
ViewStyle=1
Picture=[ZIPC204000078DA73F23DC4C200064E40AC01C41250CCC820C0C00CA41BA0F228A08681E10150521EC8FC5F3FB4E15AD3EA7CE221483D0343B11F7110A69E38B389510F0A7C1889AE5E8001029159103DD8CC47A84425A9A51EDD3D84D563B78590F9A83611321FD9164498525B3D71F1457C7A201640D49302877AEEFD5F0F00F2922D26]
}



карма: 0

0
файлы: 1code_14904.txt [2.2KB] [735]