Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2017-05-04 11:41:36 ЛС | профиль | цитата
7rm012, в своё время для первоклассницы (сейчас первокурсницы ) делал программку для арифметики со звуком, в этом направлении отметился и коллега kamakama
вариант


Add(MainForm,7871042,525,112)
{
Left=200
Top=200
Width=310
Height=160
Caption="Первый раз в первый класс!"
link(onCreate,3226392:doRandomize,[(597,132)(597,216)])
}
Add(Edit,3421245,203,245)
{
Left=75
Top=5
Text="6"
DataType=2
link(onChange,12305315:doCompare,[])
}
Add(Label,10535381,154,245)
{
Left=10
Top=10
Width=66
Height=17
Caption="Кол - во [шт]"
}
Add(Label,11215073,504,252)
{
Left=10
Top=35
Width=34
Height=17
Caption="Макс."
}
Add(Edit,1004421,546,252)
{
Left=75
Top=30
Text="10"
DataType=2
link(onChange,3226392:doMax,[(598,258)(598,230)])
}
Add(Label,2463147,154,189)
{
Left=10
Top=60
Width=64
Height=17
Caption="Время [сек]"
}
Add(Edit,6883629,196,189)
{
Left=75
Top=55
Text="1,5"
link(onChange,11299494:doReplace,[])
}
Add(Button,272013,154,133)
{
Left=155
Top=85
Caption="Пуск"
Point(doCaption)
Point(doEnabled)
link(onClick,15207824:doNext,[])
}
Add(Label,14996047,889,210)
{
Left=135
Top=30
Width=120
Height=34
Font=[MS Sans Serif,18,1,0,1]
Caption=""
}
Add(Counter,15207824,210,133)
{
Max=1
link(onNext,12199532:doEvent,[])
}
Add(IndexToChanel,12199532,259,133)
{
link(onEvent1,4892058:doEvent1,[])
link(onEvent2,573428:doEvent1,[(312,146)(312,160)])
}
Add(Hub,4892058,322,133)
{
link(onEvent1,11348986:doClear,[])
link(onEvent2,14620672:doStrCat,[(795,146)(795,160)])
}
Add(Hub,573428,322,154)
{
OutCount=4
link(onEvent1,7070058:doClear,[(410,160)(410,139)])
link(onEvent2,5213580:doEvent1,[(508,167)(508,181)])
link(onEvent3,13633120:doTimer,[(361,174)(361,181)])
link(onEvent4,7225863:doWork1,[(347,181)(347,118)(96,118)(96,146)])
}
Add(Memory,11348986,371,126)
{
Default=String(Пуск)
link(onData,7070058:doValue,[])
}
Add(Memory,7070058,420,126)
{
Default=String(Ответ)
link(onData,272013:doCaption,[(459,132)(459,111)(144,111)(144,139)])
}
Add(Timer,13633120,371,175)
{
Interval=1500
Enable=1
AutoStop=6
Point(doInterval)
Point(doAutoStop)
Point(onStop)
link(onTimer,14594308:doEvent1,[(508,181)(508,202)])
link(onStop,749223:doTimer,[])
}
Add(Math,16240659,280,189)
{
OpType=2
Op1=1000
ResultType=0
link(onResult,13339051:doEvent1,[])
}
Add(If_else,12305315,252,245)
{
Type=1
Op2=Integer(2)
link(onTrue,10971891:doClear,[])
link(onFalse,13633120:doAutoStop,[(358,258)(358,202)])
}
Add(Memory,10971891,301,238)
{
Default=Integer(2)
link(onData,3421245:doText,[(340,244)(340,230)(193,230)(193,251)])
}
Add(Random,3226392,609,203)
{
Min=1
Max=10
Point(doMax)
link(onRandom,9647612:doRandom,[])
}
Add(MathParse,587192,707,203)
{
DataCount=3
MathStr="%1*(1-%2*%3*2)"
Point(doMathStr)
link(onResult,2447104:doEvent1,[])
link(X1,3226392:Random,[(713,194)(699,194)(699,243)(615,243)])
link(X2,3063466:Checked,[])
}
Add(CheckBox,3063466,714,112)
{
Left=20
Top=85
Width=95
Caption="Вычитание"
}
Add(Replace,11299494,238,189)
{
SubStr=","
DestStr="."
link(onReplace,16240659:doOperation,[])
}
Add(Random,9647612,658,203)
{
Max=1
link(onRandom,587192:doCalc,[])
}
Add(Hub,2447104,749,203)
{
link(onEvent1,2790209:doOperation,[(774,209)(774,111)])
link(onEvent2,6558888:doCompare,[])
}
Add(If_else,6558888,784,210)
{
Type=2
Op2=Integer(0)
link(onTrue,16181566:doStrCat,[])
link(onFalse,6865705:doWork3,[(872,223)])
}
Add(StrCat,16181566,826,210)
{
Str1="+"
link(onStrCat,6865705:doWork2,[])
}
Add(HubEx,6865705,868,210)
{
link(onEvent,14996047:doText,[])
}
Add(Hub,14594308,518,196)
{
link(onEvent1,15103996:doWork3,[(550,202)])
link(onEvent2,5161885:doTimer,[])
}
Add(Timer,5161885,553,203)
{
Interval=50
Enable=1
AutoStop=1
link(onTimer,3226392:doRandom,[])
}
Add(Math,2790209,812,105)
{
Point(doClear)
link(Op1,6096831:Var1,[(818,96)(804,96)(804,145)])
}
Add(Timer,749223,420,182)
{
Interval=1500
Enable=1
AutoStop=1
link(onTimer,12663507:doEvent1,[])
}
Add(Hub,13339051,322,189)
{
link(onEvent1,13633120:doInterval,[])
link(onEvent2,749223:doStop,[(347,202)(347,216)(410,216)(410,195)])
}
Add(Hub,12663507,462,182)
{
link(onEvent1,13633120:doStop,[(487,188)(487,223)(361,223)(361,188)])
link(onEvent2,7225863:doWork2,[(494,195)(494,104)(88,104)(88,153)])
}
Add(GetDataEx,6096831,812,140)
{
link(Data,2790209:Result,[])
}
Add(HubEx,7342929,868,182)
{
Angle=1
link(onEvent,6865705:doWork1,[])
}
Add(StrCat,14620672,805,154)
{
Str1="Ответ "
link(onStrCat,7342929:doWork1,[(872,160)])
link(Str2,6096831:Var2,[])
}
Add(Hub,5213580,518,175)
{
link(onEvent1,2790209:doClear,[(781,181)(781,118)])
link(onEvent2,15103996:doWork2,[])
}
Add(HubEx,15103996,546,182)
{
link(onEvent,7342929:doWork2,[])
}
Add(ChanelToIndex,7225863,105,140)
{
link(onIndex,272013:doEnabled,[])
}

карма: 19

0