HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуПомогите по решить задачу по логике ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 10
Рейтинг: 0
#1: 2017-05-03 11:53:55 ЛС | профиль | цитата
Пытаюсь сделать генератор случайных чисел с параметрами:
1. Количество слагаемых (например шесть случайных чисел).
2. Интервал (сек.) (через сколько секунд меняются числа).
3. Число не больше (числа не должны быть более определенной в этой графе).
4. Вычитание

По определенным параметрам (выше) появляется число и по интервалу меняется на другое число, человек должен в уме все подсчитать и сказать ответ до нажатия кнопки решения. Если поставить галочку вычитание (пункт 4), то появляются числа с минусом. Все это должно автоматически решаться, по нажатию кнопки ответ или решение появляется сумма чисел. Количество чисел (пункт 1), интервал смены (пункт 2), максимальное показываемое число (пункт 3) указываем в параметре.

В точь как здесь:
https://www.youtube.com/watch?v=ppWsEx-_BTA

Как это возможно сделать? Я новичок) Попытался более подробно объяснить, в видео все показано

Редактировалось 2 раз(а), последний 2017-05-03 17:33:50
карма: 0
Новичок Я
0
Ответов: 8926
Рейтинг: 823
#2: 2017-05-03 13:26:59 ЛС | профиль | цитата
7rm012,
здесь


Add(MainForm,2953706,63,154)
{
 Height=132
 Caption="Первый раз в первый класс!"
 link(onCreate,3226392:doRandomize,[(457,174)(457,265)])
}
Add(Edit,3421245,413,196)
{
 Left=75
 Top=5
 Text="6"
 DataType=2
 link(onChange,12305315:doCompare,[])
}
Add(Label,10535381,364,196)
{
 Left=10
 Top=10
 Width=66
 Height=17
 Caption="Кол - во [шт]"
}
Add(Label,11215073,357,294)
{
 Left=10
 Top=35
 Width=34
 Height=17
 Caption="Макс."
}
Add(Edit,1004421,406,294)
{
 Left=75
 Top=30
 Text="10"
 DataType=2
 link(onChange,3226392:doMax,[(458,300)(458,279)])
}
Add(Label,2463147,119,266)
{
 Left=10
 Top=60
 Width=64
 Height=17
 Caption="Время [сек]"
}
Add(Edit,6883629,161,266)
{
 Left=75
 Top=55
 Text="30"
 DataType=2
 link(onChange,16240659:doOperation,[])
}
Add(Button,272013,63,210)
{
 Left=140
 Top=55
 Caption="Пуск"
 Point(doCaption)
 link(onClick,15207824:doNext,[])
}
Add(Edit,7754895,812,245)
{
 Left=205
 Top=45
 Width=95
 Height=30
 Font=[MS Sans Serif,12,1,0,1]
 Text=""
 ClearAfterEnter=1
 Point(doSetFocus)
 link(onEnter,7891473:doCompare,[])
}
Add(Label,14996047,735,294)
{
 Left=160
 Top=10
 Width=4
 Height=4
 Font=[MS Sans Serif,12,1,0,1]
 Caption=""
}
Add(Counter,15207824,112,210)
{
 Max=1
 link(onNext,12199532:doEvent,[])
}
Add(IndexToChanel,12199532,161,210)
{
 link(onEvent1,4892058:doEvent1,[])
 link(onEvent2,573428:doEvent1,[(207,223)(207,237)])
}
Add(Hub,4892058,217,210)
{
 link(onEvent1,11348986:doClear,[])
 link(onEvent2,13633120:doStop,[(242,223)(242,258)])
}
Add(Hub,573428,217,231)
{
 OutCount=3
 link(onEvent1,7070058:doClear,[(305,237)(305,216)])
 link(onEvent2,5072399:doWork1,[(354,244)])
 link(onEvent3,13633120:doTimer,[])
}
Add(Memory,11348986,266,203)
{
 Default=String(Пуск)
 link(onData,7070058:doValue,[])
}
Add(Memory,7070058,315,203)
{
 Default=String(Стоп)
 link(onData,272013:doCaption,[(354,209)(354,195)(53,195)(53,216)])
}
Add(Timer,13633120,315,245)
{
 Interval=30000
 Enable=1
 Point(doInterval)
 link(onTimer,5072399:doWork2,[])
}
Add(For,7960498,406,252)
{
 IncludeEnd=1
 link(onEvent,3226392:doRandom,[])
 link(onStop,15014415:doData,[(445,265)(445,314)])
 link(End,3421245:Text,[])
}
Add(HubEx,5072399,350,245)
{
 link(onEvent,15316148:doEvent1,[])
}
Add(Hub,15316148,364,245)
{
 link(onEvent1,14742725:doEvent1,[(389,251)(389,230)])
 link(onEvent2,7960498:doFor,[])
}
Add(Math,16240659,217,266)
{
 OpType=2
 Op2=1000
 ResultType=0
 link(onResult,13633120:doInterval,[(263,272)(263,265)])
}
Add(If_else,12305315,462,196)
{
 Type=1
 Op2=Integer(2)
 link(onTrue,10971891:doClear,[])
}
Add(Memory,10971891,511,189)
{
 Default=Integer(2)
 link(onData,3421245:doText2,[(550,195)(550,181)(403,181)(403,209)])
}
Add(Random,3226392,476,252)
{
 Min=1
 Max=10
 Point(doMax)
 link(onRandom,9673797:doString,[])
}
Add(FormatStr,9673797,539,252)
{
 Mask="%1 + %2"
 link(onFString,169037:doValue,[])
 link(Str2,8212379:Var1,[(552,243)(580,243)(580,292)])
}
Add(Memory,169037,595,252)
{
 Default=String()
}
Add(DoData,15014415,595,308)
{
 link(onEventData,16764089:doDelete,[])
 link(Data,8212379:Var2,[])
}
Add(GetDataEx,8212379,595,287)
{
 link(Data,169037:Value,[])
}
Add(Delete,16764089,644,308)
{
 Count=3
 Direction=1
 link(onDelete,1774488:doEvent1,[(683,314)(683,258)])
}
Add(MathParse,587192,735,245)
{
 Point(doMathStr)
}
Add(Hub,1774488,693,252)
{
 OutCount=3
 link(onEvent1,587192:doMathStr,[])
 link(onEvent2,587192:doCalc,[(718,265)(718,251)])
 link(onEvent3,14996047:doText,[(718,272)(718,300)])
}
Add(Hub,14742725,518,224)
{
 link(onEvent1,5138657:doData,[])
 link(onEvent2,169037:doClear,[(585,237)(585,265)])
}
Add(DoData,5138657,630,224)
{
 link(onEventData,9147874:doEvent1,[])
}
Add(If_else,7891473,861,252)
{
 link(onTrue,13676342:doClear,[])
 link(onFalse,6296818:doClear,[(956,265)(956,258)])
 link(Op1,587192:Result,[(867,243)(853,243)(853,285)(741,285)])
}
Add(Memory,13676342,917,245)
{
 Default=String(Да!)
 link(onData,6296818:doValue,[])
}
Add(Memory,6296818,966,245)
{
 Default=String(Нет!)
 link(onData,3226811:doWork2,[])
}
Add(Label,11361716,1022,245)
{
 Left=315
 Top=50
 Width=4
 Height=4
 Font=[MS Sans Serif,12,1,0,1]
 Caption=""
}
Add(Hub,9147874,672,224)
{
 link(onEvent1,3226811:doWork1,[(1012,230)])
 link(onEvent2,13112510:doEvent1,[(777,237)(777,258)])
}
Add(HubEx,3226811,1008,245)
{
 link(onEvent,11361716:doText,[])
}
Add(Hub,13112510,784,252)
{
 link(onEvent1,7754895:doText2,[])
 link(onEvent2,7754895:doSetFocus,[])
}
карма: 19

0
Ответов: 10
Рейтинг: 0
#3: 2017-05-03 17:19:05 ЛС | профиль | цитата
Леонид писал(а):
7rm012,
здесь


Add(MainForm,2953706,63,154)
{
Height=132
Caption="Первый раз в первый класс!"
link(onCreate,3226392:doRandomize,[(457,174)(457,265)])
}
Add(Edit,3421245,413,196)
{
Left=75
Top=5
Text="6"
DataType=2
link(onChange,12305315:doCompare,[])
}
Add(Label,10535381,364,196)
{
Left=10
Top=10
Width=66
Height=17
Caption="Кол - во [шт]"
}
Add(Label,11215073,357,294)
{
Left=10
Top=35
Width=34
Height=17
Caption="Макс."
}
Add(Edit,1004421,406,294)
{
Left=75
Top=30
Text="10"
DataType=2
link(onChange,3226392:doMax,[(458,300)(458,279)])
}
Add(Label,2463147,119,266)
{
Left=10
Top=60
Width=64
Height=17
Caption="Время [сек]"
}
Add(Edit,6883629,161,266)
{
Left=75
Top=55
Text="30"
DataType=2
link(onChange,16240659:doOperation,[])
}
Add(Button,272013,63,210)
{
Left=140
Top=55
Caption="Пуск"
Point(doCaption)
link(onClick,15207824:doNext,[])
}
Add(Edit,7754895,812,245)
{
Left=205
Top=45
Width=95
Height=30
Font=[MS Sans Serif,12,1,0,1]
Text=""
ClearAfterEnter=1
Point(doSetFocus)
link(onEnter,7891473:doCompare,[])
}
Add(Label,14996047,735,294)
{
Left=160
Top=10
Width=4
Height=4
Font=[MS Sans Serif,12,1,0,1]
Caption=""
}
Add(Counter,15207824,112,210)
{
Max=1
link(onNext,12199532:doEvent,[])
}
Add(IndexToChanel,12199532,161,210)
{
link(onEvent1,4892058:doEvent1,[])
link(onEvent2,573428:doEvent1,[(207,223)(207,237)])
}
Add(Hub,4892058,217,210)
{
link(onEvent1,11348986:doClear,[])
link(onEvent2,13633120:doStop,[(242,223)(242,258)])
}
Add(Hub,573428,217,231)
{
OutCount=3
link(onEvent1,7070058:doClear,[(305,237)(305,216)])
link(onEvent2,5072399:doWork1,[(354,244)])
link(onEvent3,13633120:doTimer,[])
}
Add(Memory,11348986,266,203)
{
Default=String(Пуск)
link(onData,7070058:doValue,[])
}
Add(Memory,7070058,315,203)
{
Default=String(Стоп)
link(onData,272013:doCaption,[(354,209)(354,195)(53,195)(53,216)])
}
Add(Timer,13633120,315,245)
{
Interval=30000
Enable=1
Point(doInterval)
link(onTimer,5072399:doWork2,[])
}
Add(For,7960498,406,252)
{
IncludeEnd=1
link(onEvent,3226392:doRandom,[])
link(onStop,15014415:doData,[(445,265)(445,314)])
link(End,3421245:Text,[])
}
Add(HubEx,5072399,350,245)
{
link(onEvent,15316148:doEvent1,[])
}
Add(Hub,15316148,364,245)
{
link(onEvent1,14742725:doEvent1,[(389,251)(389,230)])
link(onEvent2,7960498:doFor,[])
}
Add(Math,16240659,217,266)
{
OpType=2
Op2=1000
ResultType=0
link(onResult,13633120:doInterval,[(263,272)(263,265)])
}
Add(If_else,12305315,462,196)
{
Type=1
Op2=Integer(2)
link(onTrue,10971891:doClear,[])
}
Add(Memory,10971891,511,189)
{
Default=Integer(2)
link(onData,3421245:doText2,[(550,195)(550,181)(403,181)(403,209)])
}
Add(Random,3226392,476,252)
{
Min=1
Max=10
Point(doMax)
link(onRandom,9673797:doString,[])
}
Add(FormatStr,9673797,539,252)
{
Mask="%1 + %2"
link(onFString,169037:doValue,[])
link(Str2,8212379:Var1,[(552,243)(580,243)(580,292)])
}
Add(Memory,169037,595,252)
{
Default=String()
}
Add(DoData,15014415,595,308)
{
link(onEventData,16764089:doDelete,[])
link(Data,8212379:Var2,[])
}
Add(GetDataEx,8212379,595,287)
{
link(Data,169037:Value,[])
}
Add(Delete,16764089,644,308)
{
Count=3
Direction=1
link(onDelete,1774488:doEvent1,[(683,314)(683,258)])
}
Add(MathParse,587192,735,245)
{
Point(doMathStr)
}
Add(Hub,1774488,693,252)
{
OutCount=3
link(onEvent1,587192:doMathStr,[])
link(onEvent2,587192:doCalc,[(718,265)(718,251)])
link(onEvent3,14996047:doText,[(718,272)(718,300)])
}
Add(Hub,14742725,518,224)
{
link(onEvent1,5138657:doData,[])
link(onEvent2,169037:doClear,[(585,237)(585,265)])
}
Add(DoData,5138657,630,224)
{
link(onEventData,9147874:doEvent1,[])
}
Add(If_else,7891473,861,252)
{
link(onTrue,13676342:doClear,[])
link(onFalse,6296818:doClear,[(956,265)(956,258)])
link(Op1,587192:Result,[(867,243)(853,243)(853,285)(741,285)])
}
Add(Memory,13676342,917,245)
{
Default=String(Да!)
link(onData,6296818:doValue,[])
}
Add(Memory,6296818,966,245)
{
Default=String(Нет!)
link(onData,3226811:doWork2,[])
}
Add(Label,11361716,1022,245)
{
Left=315
Top=50
Width=4
Height=4
Font=[MS Sans Serif,12,1,0,1]
Caption=""
}
Add(Hub,9147874,672,224)
{
link(onEvent1,3226811:doWork1,[(1012,230)])
link(onEvent2,13112510:doEvent1,[(777,237)(777,258)])
}
Add(HubEx,3226811,1008,245)
{
link(onEvent,11361716:doText,[])
}
Add(Hub,13112510,784,252)
{
link(onEvent1,7754895:doText2,[])
link(onEvent2,7754895:doSetFocus,[])
}

Что то не получается как в видео, числа появляются сразу, а не последовательно по интервалу и ответа нет. Спасибо за ответ, попробую дальше покопаться

Редактировалось 1 раз(а), последний 2017-05-03 17:19:40
карма: 0
Новичок Я
0
Ответов: 8926
Рейтинг: 823
#4: 2017-05-03 20:19:07 ЛС | профиль | цитата
7rm012, не смотрю youtube Ну тогда чуть похожее:
ещё


Add(MainForm,7871042,427,119)
{
 Width=310
 Height=160
 Caption="Первый раз в первый класс!"
 link(onCreate,3226392:doRandomize,[(520,139)(520,223)])
}
Add(Edit,3421245,126,252)
{
 Left=75
 Top=5
 Text="6"
 DataType=2
 link(onChange,12305315:doCompare,[])
}
Add(Label,10535381,77,252)
{
 Left=10
 Top=10
 Width=66
 Height=17
 Caption="Кол - во [шт]"
}
Add(Label,11215073,427,259)
{
 Left=10
 Top=35
 Width=34
 Height=17
 Caption="Макс."
}
Add(Edit,1004421,469,259)
{
 Left=75
 Top=30
 Text="10"
 DataType=2
 link(onChange,3226392:doMax,[(521,265)(521,237)])
}
Add(Label,2463147,77,196)
{
 Left=10
 Top=60
 Width=64
 Height=17
 Caption="Время [сек]"
}
Add(Edit,6883629,119,196)
{
 Left=75
 Top=55
 Text="1,5"
 link(onChange,11299494:doReplace,[])
}
Add(Button,272013,77,147)
{
 Left=170
 Top=90
 Caption="Пуск"
 Point(doCaption)
 link(onClick,5585141:doWork2,[])
}
Add(Label,14996047,812,217)
{
 Left=135
 Top=30
 Width=120
 Height=34
 Font=[MS Sans Serif,18,1,0,1]
 Caption="1111"
 AutoSize=1
}
Add(Counter,15207824,140,147)
{
 Max=1
 link(onNext,12199532:doEvent,[])
}
Add(IndexToChanel,12199532,189,147)
{
 link(onEvent1,4892058:doEvent1,[])
 link(onEvent2,573428:doEvent1,[(235,160)(235,174)])
}
Add(Hub,4892058,245,147)
{
 link(onEvent1,11348986:doClear,[])
 link(onEvent2,13633120:doStop,[(270,160)(270,195)])
}
Add(Hub,573428,245,168)
{
 OutCount=3
 link(onEvent1,7070058:doClear,[(333,174)(333,153)])
 link(onEvent2,5213580:doEvent1,[])
 link(onEvent3,13633120:doTimer,[])
}
Add(Memory,11348986,294,140)
{
 Default=String(Пуск)
 link(onData,7070058:doValue,[])
}
Add(Memory,7070058,343,140)
{
 Default=String(Стоп)
 link(onData,272013:doCaption,[(382,146)(382,125)(67,125)(67,153)])
}
Add(Timer,13633120,294,182)
{
 Interval=1500
 Enable=1
 AutoStop=6
 Point(doInterval)
 Point(doAutoStop)
 Point(onStop)
 link(onTimer,14594308:doEvent1,[(431,188)(431,209)])
 link(onStop,749223:doTimer,[])
}
Add(Math,16240659,203,196)
{
 OpType=2
 Op1=1000
 ResultType=0
 link(onResult,13339051:doEvent1,[])
}
Add(If_else,12305315,175,252)
{
 Type=1
 Op2=Integer(2)
 link(onTrue,10971891:doClear,[])
 link(onFalse,13633120:doAutoStop,[(281,265)(281,209)])
}
Add(Memory,10971891,224,245)
{
 Default=Integer(2)
 link(onData,3421245:doText,[(263,251)(263,237)(116,237)(116,258)])
}
Add(Random,3226392,532,210)
{
 Min=1
 Max=10
 Point(doMax)
 link(onRandom,9647612:doRandom,[])
}
Add(MathParse,587192,630,210)
{
 DataCount=3
 MathStr="%1*(1-%2*%3*2)"
 Point(doMathStr)
 link(onResult,2447104:doEvent1,[])
 link(X1,3226392:Random,[(636,201)(622,201)(622,250)(538,250)])
 link(X2,3063466:Checked,[])
}
Add(CheckBox,3063466,637,119)
{
 Left=20
 Top=85
 Width=95
 Caption="Вычитание"
}
Add(Replace,11299494,161,196)
{
 SubStr=","
 DestStr="."
 link(onReplace,16240659:doOperation,[])
}
Add(HubEx,5585141,119,147)
{
 link(onEvent,15207824:doNext,[])
}
Add(Random,9647612,581,210)
{
 Max=1
 link(onRandom,587192:doCalc,[])
}
Add(Hub,2447104,672,210)
{
 link(onEvent1,2790209:doOperation,[(697,216)(697,118)])
 link(onEvent2,6558888:doCompare,[])
}
Add(If_else,6558888,707,217)
{
 Type=2
 Op2=Integer(0)
 link(onTrue,16181566:doStrCat,[])
 link(onFalse,6865705:doWork3,[(795,230)])
}
Add(StrCat,16181566,749,217)
{
 Str1="+"
 link(onStrCat,6865705:doWork2,[])
}
Add(HubEx,6865705,791,217)
{
 link(onEvent,14996047:doText,[])
}
Add(Hub,14594308,441,203)
{
 link(onEvent1,15103996:doWork3,[(466,209)])
 link(onEvent2,5161885:doTimer,[])
}
Add(Timer,5161885,476,210)
{
 Interval=50
 Enable=1
 AutoStop=1
 link(onTimer,3226392:doRandom,[])
}
Add(Math,2790209,735,112)
{
 Point(doClear)
 link(Op1,6096831:Var1,[(741,103)(727,103)(727,152)])
}
Add(Timer,749223,343,189)
{
 Interval=1500
 Enable=1
 AutoStop=1
 link(onTimer,12663507:doEvent1,[])
}
Add(Hub,13339051,245,196)
{
 link(onEvent1,13633120:doInterval,[])
 link(onEvent2,749223:doStop,[(270,209)(270,223)(333,223)(333,202)])
}
Add(Hub,12663507,385,189)
{
 link(onEvent1,5585141:doWork1,[(410,195)(410,132)(123,132)])
 link(onEvent2,14620672:doStrCat,[(417,202)(417,167)])
}
Add(GetDataEx,6096831,735,147)
{
 link(Data,2790209:Result,[])
}
Add(HubEx,7342929,791,189)
{
 Angle=1
 link(onEvent,6865705:doWork1,[])
}
Add(StrCat,14620672,728,161)
{
 Str1="Ответ  "
 link(onStrCat,7342929:doWork1,[(795,167)])
 link(Str2,6096831:Var2,[])
}
Add(Hub,5213580,441,175)
{
 link(onEvent1,2790209:doClear,[(707,181)(707,125)])
 link(onEvent2,15103996:doWork1,[(466,188)])
}
Add(HubEx,15103996,462,189)
{
 link(onEvent,7342929:doWork2,[])
}
карма: 19

0
Ответов: 10
Рейтинг: 0
#5: 2017-05-04 05:21:47 ЛС | профиль | цитата
Леонид писал(а):
7rm012, не смотрю youtube Ну тогда чуть похожее:
ещё

Вы настоящий гуру, спасибо вам большое Все так как хотелось.
Я уже не смею у вас что либо спросить, вы и так многое сделали, но как сделать что бы ответ сразу не показывался, а только по нажатию кнопки "Ответ", т.е. по определенным параметрам числа показались по интервалу и в конце пусто, а кнопка пуск изменился на напдись или кнопку ответ и при нажатии на него появляется ответ.
карма: 0
Новичок Я
0
Ответов: 10
Рейтинг: 0
#6: 2017-05-04 11:31:50 ЛС | профиль | цитата
Все запутнано, учу матчасть по HiAsm (форумы, справки, видео)

Точно так должно быть:
1
2
3
4
карма: 0
Новичок Я
0
Ответов: 8926
Рейтинг: 823
#7: 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
Ответов: 10
Рейтинг: 0
#8: 2017-05-04 14:50:43 ЛС | профиль | цитата
Леонид писал(а):
вариант

Идеально, не хватает только после показа чисел - "=", а то ребенок может запутаться, т.к. последнее число не исчезает, лучше в место него сразу бы это показалось "=",
вот это

Спасибо вам большое! Вы мне очень помогли! Карму не забуду.

Редактировалось 4 раз(а), последний 2017-05-04 14:53:00
карма: 0
Новичок Я
0
Ответов: 8926
Рейтинг: 823
#9: 2017-05-04 16:20:20 ЛС | профиль | цитата
7rm012, издание третье, дополненное и исправленное
3


Add(MainForm,7871042,539,175)
{
 Left=200
 Top=200
 Width=310
 Height=160
 Caption="Первый раз в первый класс!"
 link(onCreate,3226392:doRandomize,[(611,195)(611,279)])
}
Add(Edit,3421245,217,308)
{
 Left=75
 Top=5
 Text="6"
 DataType=2
 link(onChange,12305315:doCompare,[])
}
Add(Label,10535381,168,308)
{
 Left=10
 Top=10
 Width=66
 Height=17
 Caption="Кол - во [шт]"
}
Add(Label,11215073,518,322)
{
 Left=10
 Top=35
 Width=34
 Height=17
 Caption="Макс."
}
Add(Edit,1004421,560,322)
{
 Left=75
 Top=30
 Text="10"
 DataType=2
 link(onChange,3226392:doMax,[(612,328)(612,293)])
}
Add(Label,2463147,168,252)
{
 Left=10
 Top=60
 Width=64
 Height=17
 Caption="Время [сек]"
}
Add(Edit,6883629,210,252)
{
 Left=75
 Top=55
 Text="1,5"
 link(onChange,11299494:doReplace,[])
}
Add(Button,272013,168,196)
{
 Left=155
 Top=85
 Caption="Пуск"
 Point(doCaption)
 Point(doEnabled)
 link(onClick,15207824:doNext,[])
}
Add(Label,14996047,903,273)
{
 Left=135
 Top=30
 Width=120
 Height=34
 Font=[MS Sans Serif,18,1,0,1]
 Caption=""
}
Add(Counter,15207824,224,196)
{
 Max=1
 link(onNext,12199532:doEvent,[])
}
Add(IndexToChanel,12199532,273,196)
{
 link(onEvent1,4892058:doEvent1,[])
 link(onEvent2,573428:doEvent1,[(326,209)(326,223)])
}
Add(Hub,4892058,336,196)
{
 link(onEvent1,11348986:doClear,[])
 link(onEvent2,14620672:doStrCat,[(809,209)(809,223)])
}
Add(Hub,573428,336,217)
{
 OutCount=4
 link(onEvent1,7070058:doClear,[(424,223)(424,202)])
 link(onEvent2,5213580:doEvent1,[(522,230)(522,244)])
 link(onEvent3,13633120:doTimer,[(375,237)(375,244)])
 link(onEvent4,7225863:doWork1,[(361,244)(361,188)(109,188)(109,209)])
}
Add(Memory,11348986,385,189)
{
 Default=String(Пуск)
 link(onData,7070058:doValue,[])
}
Add(Memory,7070058,434,189)
{
 Default=String(Ответ)
 link(onData,272013:doCaption,[(473,195)(473,174)(158,174)(158,202)])
}
Add(Timer,13633120,385,238)
{
 Interval=1500
 Enable=1
 AutoStop=6
 Point(doInterval)
 Point(doAutoStop)
 Point(onStop)
 link(onTimer,14594308:doEvent1,[(522,244)(522,265)])
 link(onStop,749223:doTimer,[])
}
Add(Math,16240659,294,252)
{
 OpType=2
 Op1=1000
 ResultType=0
 link(onResult,13339051:doEvent1,[])
}
Add(If_else,12305315,266,308)
{
 Type=1
 Op2=Integer(2)
 link(onTrue,10971891:doClear,[])
 link(onFalse,13633120:doAutoStop,[(372,321)(372,265)])
}
Add(Memory,10971891,315,301)
{
 Default=Integer(2)
 link(onData,3421245:doText,[(354,307)(354,293)(207,293)(207,314)])
}
Add(Random,3226392,623,266)
{
 Min=1
 Max=10
 Point(doMax)
 link(onRandom,9647612:doRandom,[])
}
Add(MathParse,587192,721,266)
{
 DataCount=3
 MathStr="%1*(1-%2*%3*2)"
 Point(doMathStr)
 link(onResult,2447104:doEvent1,[])
 link(X1,3226392:Random,[(727,257)(713,257)(713,306)(629,306)])
 link(X2,3063466:Checked,[])
}
Add(CheckBox,3063466,728,175)
{
 Left=20
 Top=85
 Width=95
 Caption="Вычитание"
}
Add(Replace,11299494,252,252)
{
 SubStr=","
 DestStr="."
 link(onReplace,16240659:doOperation,[])
}
Add(Random,9647612,672,266)
{
 Max=1
 link(onRandom,587192:doCalc,[])
}
Add(Hub,2447104,763,266)
{
 link(onEvent1,2790209:doOperation,[(788,272)(788,174)])
 link(onEvent2,6558888:doCompare,[])
}
Add(If_else,6558888,798,273)
{
 Type=2
 Op2=Integer(0)
 link(onTrue,16181566:doStrCat,[])
 link(onFalse,12894811:doWork2,[])
}
Add(StrCat,16181566,840,273)
{
 Str1="+"
 link(onStrCat,6865705:doWork2,[])
}
Add(HubEx,6865705,882,273)
{
 link(onEvent,14996047:doText,[])
}
Add(Hub,14594308,532,259)
{
 link(onEvent1,15103996:doWork3,[(564,265)])
 link(onEvent2,5161885:doTimer,[])
}
Add(Timer,5161885,567,266)
{
 Interval=50
 Enable=1
 AutoStop=1
 link(onTimer,3226392:doRandom,[])
}
Add(Math,2790209,826,168)
{
 Point(doClear)
 link(Op1,6096831:Var1,[(832,159)(818,159)(818,208)])
}
Add(Timer,749223,434,245)
{
 Interval=1500
 Enable=1
 AutoStop=1
 link(onTimer,12663507:doEvent1,[])
}
Add(Hub,13339051,336,252)
{
 link(onEvent1,13633120:doInterval,[])
 link(onEvent2,749223:doStop,[(361,265)(361,279)(424,279)(424,258)])
}
Add(Hub,12663507,476,245)
{
 OutCount=3
 link(onEvent1,13633120:doStop,[(501,251)(501,286)(375,286)(375,251)])
 link(onEvent2,7225863:doWork2,[(508,258)(508,181)(102,181)(102,216)])
 link(onEvent3,9878912:doData,[(508,265)(508,286)])
}
Add(GetDataEx,6096831,826,203)
{
 link(Data,2790209:Result,[])
}
Add(HubEx,7342929,882,245)
{
 Angle=1
 link(onEvent,6865705:doWork1,[])
}
Add(StrCat,14620672,819,217)
{
 Str1="Ответ  "
 link(onStrCat,7342929:doWork1,[(886,223)])
 link(Str2,6096831:Var2,[])
}
Add(Hub,5213580,532,238)
{
 link(onEvent1,2790209:doClear,[(795,244)(795,181)])
 link(onEvent2,15103996:doWork2,[])
}
Add(HubEx,15103996,560,245)
{
 link(onEvent,7342929:doWork2,[])
}
Add(ChanelToIndex,7225863,119,203)
{
 link(onIndex,272013:doEnabled,[])
}
Add(DoData,9878912,518,280)
{
 Data=String(=)
 link(onEventData,12894811:doWork3,[(606,286)(606,314)(886,314)])
}
Add(HubEx,12894811,882,280)
{
 Angle=3
 link(onEvent,6865705:doWork3,[])
}
карма: 19

0
Ответов: 75
Рейтинг: 2
#10: 2017-05-15 20:11:16 ЛС | профиль | цитата
Тема заинтересовала. У меня дочь первый класс заканчивает, нужна такая программа, чтобы математику не забыла за лето. Написал сложение. Прикрепляю. Только с музыкой распаковываете, и оценку получайте))) Дочери понравилось, каждый день тренируется. С вычитанием проблемы. Там ведь нужно чтобы первое число было наибольшим и в итоге не получалось отрицательного числа. Ломаю голову, помогите) Умножение проще, таблицу умножения запихать, больше не нужно первоклашкам.А вот деление - тёмный лес. Нужны числа, чтобы без остатка делились. И небольшие, до 100 или даже до 50. Короче, помогите, люди добрые
P.S. На интерфейсе не экономил - это детская программа)
P.P.S Схема сумбурно нарисована. Прошу понять, простить. Потом упорядочу всё

Редактировалось 1 раз(а), последний 2017-05-15 20:18:53
карма: 2

0
файлы: 1New.rar [2.3MB] [422]
Ответов: 8926
Рейтинг: 823
#11: 2017-05-15 21:55:30 ЛС | профиль | цитата
Tri-j,
минус


Add(MainForm,2953706,224,154)
{
 link(onCreate,13257368:doRandSeed,[(265,174)(265,118)])
}
Add(Button,964109,217,98)
{
 Left=15
 Top=40
 link(onClick,13257368:doRandom,[])
}
Add(Label,1747400,518,63)
{
 Left=85
 Top=40
 Height=35
 Font=[MS Sans Serif,16,1,0,1]
 Caption=""
 AutoSize=1
}
Add(Label,197379,518,105)
{
 Left=170
 Top=40
 Height=35
 Font=[MS Sans Serif,16,1,0,1]
 Caption=""
 AutoSize=1
}
Add(Edit,3146255,273,119)
{
 Left=40
 Top=10
 Width=30
 Text="20"
 DataType=2
 link(onChange,13257368:doMax,[])
}
Add(Label,14078396,231,56)
{
 Left=10
 Top=15
 Width=31
 Height=17
 Caption="Макс"
 AutoSize=1
}
Add(Math,14732540,392,105)
{
 OpType=1
 Op2=1
 ResultType=0
 link(onResult,11999777:doMax,[(431,111)(431,132)])
}
Add(Random,13257368,322,98)
{
 Min=2
 Max=20
 Point(doMax)
 link(onRandom,8696735:doEvent1,[])
}
Add(Random,11999777,448,105)
{
 Min=1
 Max=19
 Point(doMax)
 link(onRandom,16368435:doEvent1,[])
}
Add(Hub,8696735,364,98)
{
 OutCount=3
 link(onEvent1,1747400:doText,[(466,104)(466,69)])
 link(onEvent2,14732540:doOperation,[])
 link(onEvent3,11999777:doRandom,[(438,118)(438,111)])
}
Add(Label,6052014,245,56)
{
 Left=145
 Top=40
 Width=25
 Height=35
 Font=[MS Sans Serif,16,1,0,1]
 Caption="-"
 AutoSize=1
}
Add(Label,16415694,259,56)
{
 Left=245
 Top=40
 Width=11
 Height=28
 Font=[MS Sans Serif,16,1,0,1]
 Caption="="
 AutoSize=1
}
Add(Label,2914761,518,161)
{
 Left=275
 Top=40
 Width=65
 Height=30
 Font=[MS Sans Serif,16,1,0,1]
 Caption=""
 AutoSize=1
}
Add(Hub,16368435,490,105)
{
 link(onEvent1,197379:doText,[])
 link(onEvent2,5039064:doOperation,[(557,118)(557,146)(431,146)(431,167)])
}
Add(Math,5039064,441,161)
{
 OpType=1
 link(onResult,2914761:doText,[])
 link(Op1,13257368:Random,[(447,152)(328,152)])
}
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#12: 2017-05-15 22:08:15 ЛС | профиль | цитата
Tri-j писал(а):
P.P.S Схема сумбурно нарисована. Прошу понять, простить. Потом упорядочу всё
Это для кого сказано ?
Не надо обманывать ни себя, ни людей - бардак в схеме так и останется. ИМХО.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#13: 2017-05-16 09:19:18 ЛС | профиль | цитата
Леонид, идею я понял. Но это для двух чисел. А надо для любого количества. Хотя, может хватит и трёх-четырёх чисел. Тогда годится)
Tad, неа, не останется
Я обычно сначала рисую программу, чтобы работала. Потом второй раз - чтобы было красиво
карма: 2

0
Ответов: 10
Рейтинг: 0
#14: 2017-05-16 12:10:10 ЛС | профиль | цитата
Тема развивается
Можно ли сделать как у Tri-j с вводом ответа и результатами с оценкой (метод подсчета идеальная, Леонид сделал, хотелось бы не менять алгоритм)?
Схема

Add(MainForm,2953706,280,154)
{
 Left=150
 Top=150
 Width=1000
 Height=700
 Color=16777215
 Caption="Арифметика"
 BorderStyle=1
 Position=1
 Point(onResize)
 Point(doVisible)
}
Add(ChildForm,10664002,210,203)
{
 FirstUsage=0
 link(onEvent1,12296468:doWork2,[(254,209)(254,195)(184,195)(184,167)])
 link(onEvent2,2953706:doClose,[(328,216)(328,146)(272,146)(272,181)])
}
BEGIN_SDK
  Add(EditMulti,1816715,28,21)
  {
   EventCount=2
   WorkCount=1
   link(doWork1,7871042:doVisible,[(98,27)(98,160)])
  }
  Add(MainForm,7871042,168,126)
  {
   Left=150
   Top=150
   Width=1000
   Height=700
   Color=16777215
   Visible=1
   Caption="Ментальная арифметика"
   BorderStyle=1
   Position=1
   Point(doVisible)
   Point(doShowModal)
   Point(Close)
   link(onDeactivate,1816715:onEvent2,[(305,139)(305,34)])
   link(onCreate,3226392:doRandomize,[(548,146)(548,293)])
   link(Close,7103936:GetData,[])
  }
  Add(Edit,3421245,154,322)
  {
   Left=250
   Top=120
   Height=30
   Font=[Times New Roman,16,0,0,204]
   Text="6"
   Alignment=2
   DataType=2
   link(onChange,12305315:doCompare,[])
  }
  Add(Label,10535381,105,322)
  {
   Left=25
   Top=120
   Width=189
   Height=31
   Color=16777215
   Font=[Times New Roman,18,0,0,204]
   Ctl3D=0
   WinStyle=1
   Caption="Количество чисел"
   Alignment=1
  }
  Add(Label,11215073,455,336)
  {
   Left=35
   Top=160
   Width=179
   Height=31
   Color=16777215
   Font=[Times New Roman,18,0,0,204]
   Ctl3D=0
   WinStyle=1
   Caption="Максимум чисел"
   Alignment=1
  }
  Add(Edit,1004421,497,336)
  {
   Left=250
   Top=160
   Height=30
   Font=[Times New Roman,16,0,0,204]
   Text="10"
   Alignment=2
   DataType=2
   link(onChange,3226392:doMax,[(549,342)(549,307)])
  }
  Add(Label,2463147,105,266)
  {
   Left=85
   Top=200
   Width=131
   Height=31
   Color=16777215
   Font=[Times New Roman,18,0,0,204]
   Ctl3D=0
   WinStyle=1
   Caption="Время [сек.]"
   Alignment=1
  }
  Add(Edit,6883629,147,266)
  {
   Left=250
   Top=200
   Height=30
   Font=[Times New Roman,16,0,0,204]
   Text="1,5"
   Alignment=2
   link(onChange,11299494:doReplace,[])
  }
  Add(Button,272013,105,210)
  {
   Left=415
   Top=375
   Width=165
   Height=65
   Font=[Times New Roman,18,0,0,204]
   Caption="Пуск"
   Point(doCaption)
   Point(doEnabled)
   link(onClick,15207824:doNext,[])
  }
  Add(Label,14996047,840,287)
  {
   Left=430
   Top=95
   Width=324
   Height=199
   Color=16777215
   Font=[Times New Roman,126,1,8388608,0]
   Caption=""
   AutoSize=1
   Alignment=2
  }
  Add(Counter,15207824,161,210)
  {
   Max=1
   link(onNext,12199532:doEvent,[])
  }
  Add(IndexToChanel,12199532,210,210)
  {
   link(onEvent1,4892058:doEvent1,[])
   link(onEvent2,573428:doEvent1,[(263,223)(263,237)])
  }
  Add(Hub,4892058,273,210)
  {
   link(onEvent1,11348986:doClear,[])
   link(onEvent2,14620672:doStrCat,[(746,223)(746,237)])
  }
  Add(Hub,573428,273,231)
  {
   OutCount=4
   link(onEvent1,7070058:doClear,[(361,237)(361,216)])
   link(onEvent2,5213580:doEvent1,[(459,244)(459,258)])
   link(onEvent3,13633120:doTimer,[(312,251)(312,258)])
   link(onEvent4,7225863:doWork1,[(298,258)(298,202)(46,202)(46,223)])
  }
  Add(Memory,11348986,322,203)
  {
   Default=String(Пуск)
   link(onData,7070058:doValue,[])
  }
  Add(Memory,7070058,371,203)
  {
   Default=String(Ответ)
   link(onData,272013:doCaption,[(410,209)(410,188)(95,188)(95,216)])
  }
  Add(Timer,13633120,322,252)
  {
   Interval=1500
   Enable=1
   AutoStop=6
   Point(doInterval)
   Point(doAutoStop)
   Point(onStop)
   link(onTimer,14594308:doEvent1,[(459,258)(459,279)])
   link(onStop,749223:doTimer,[])
  }
  Add(Math,16240659,231,266)
  {
   OpType=2
   Op1=1000
   ResultType=0
   link(onResult,13339051:doEvent1,[])
  }
  Add(If_else,12305315,203,322)
  {
   Type=1
   Op2=Integer(2)
   link(onTrue,10971891:doClear,[])
   link(onFalse,13633120:doAutoStop,[(309,335)(309,279)])
  }
  Add(Memory,10971891,252,315)
  {
   Default=Integer(2)
   link(onData,3421245:doText,[(291,321)(291,307)(144,307)(144,328)])
  }
  Add(Random,3226392,560,280)
  {
   Min=1
   Max=10
   Point(doMax)
   link(onRandom,9647612:doRandom,[])
  }
  Add(MathParse,587192,658,280)
  {
   DataCount=3
   MathStr="%1*(1-%2*%3*2)"
   Point(doMathStr)
   link(onResult,2447104:doEvent1,[])
   link(X1,3226392:Random,[(664,271)(650,271)(650,320)(566,320)])
   link(X2,3063466:Checked,[])
  }
  Add(CheckBox,3063466,665,189)
  {
   Left=268
   Top=248
   Width=14
   Height=15
   Font=[Times New Roman,18,0,0,204]
   Caption=""
  }
  Add(Replace,11299494,189,266)
  {
   SubStr=","
   DestStr="."
   link(onReplace,16240659:doOperation,[])
  }
  Add(Random,9647612,609,280)
  {
   Max=1
   link(onRandom,587192:doCalc,[])
  }
  Add(Hub,2447104,700,280)
  {
   link(onEvent1,2790209:doOperation,[(725,286)(725,188)])
   link(onEvent2,6558888:doCompare,[])
  }
  Add(If_else,6558888,735,287)
  {
   Type=2
   Op2=Integer(0)
   link(onTrue,16181566:doStrCat,[])
   link(onFalse,12894811:doWork2,[])
  }
  Add(StrCat,16181566,777,287)
  {
   link(onStrCat,6865705:doWork2,[])
  }
  Add(HubEx,6865705,819,287)
  {
   link(onEvent,14996047:doText,[])
  }
  Add(Hub,14594308,469,273)
  {
   link(onEvent1,15103996:doWork3,[(501,279)])
   link(onEvent2,5161885:doTimer,[])
  }
  Add(Timer,5161885,504,280)
  {
   Interval=50
   Enable=1
   AutoStop=1
   link(onTimer,3226392:doRandom,[])
  }
  Add(Math,2790209,763,182)
  {
   Point(doClear)
   link(Op1,6096831:Var1,[(769,173)(755,173)(755,222)])
  }
  Add(Timer,749223,371,259)
  {
   Interval=1500
   Enable=1
   AutoStop=1
   link(onTimer,12663507:doEvent1,[])
  }
  Add(Hub,13339051,273,266)
  {
   link(onEvent1,13633120:doInterval,[])
   link(onEvent2,749223:doStop,[(298,279)(298,293)(361,293)(361,272)])
  }
  Add(Hub,12663507,413,259)
  {
   OutCount=3
   link(onEvent1,13633120:doStop,[(438,265)(438,300)(312,300)(312,265)])
   link(onEvent2,7225863:doWork2,[(445,272)(445,195)(39,195)(39,230)])
   link(onEvent3,9878912:doData,[(445,279)(445,300)])
  }
  Add(GetDataEx,6096831,763,217)
  {
   link(Data,2790209:Result,[])
  }
  Add(HubEx,7342929,819,259)
  {
   Angle=1
   link(onEvent,6865705:doWork1,[])
  }
  Add(StrCat,14620672,756,231)
  {
   link(onStrCat,7342929:doWork1,[(823,237)])
   link(Str2,6096831:Var2,[])
  }
  Add(Hub,5213580,469,252)
  {
   link(onEvent1,2790209:doClear,[(732,258)(732,195)])
   link(onEvent2,15103996:doWork2,[])
  }
  Add(HubEx,15103996,497,259)
  {
   link(onEvent,7342929:doWork2,[])
  }
  Add(ChanelToIndex,7225863,56,217)
  {
   link(onIndex,272013:doEnabled,[])
  }
  Add(DoData,9878912,455,294)
  {
   Data=String(=)
   link(onEventData,12894811:doWork3,[(543,300)(543,328)(823,328)])
  }
  Add(HubEx,12894811,819,294)
  {
   Angle=3
   link(onEvent,6865705:doWork3,[])
  }
  Add(Label,5275224,102,263)
  {
   Left=95
   Top=240
   Width=119
   Height=31
   Color=16777215
   Font=[Times New Roman,18,0,0,204]
   Ctl3D=0
   WinStyle=1
   Caption="Вычитание"
   Alignment=1
  }
  Add(EventFromData,7103936,168,70)
  {
   link(onEvent,11990419:doEvent1,[(226,76)(226,55)])
  }
  Add(Hub,11990419,252,49)
  {
   link(onEvent1,7871042:doClose,[(278,55)(278,41)(156,41)(156,153)])
   link(onEvent2,1816715:onEvent1,[(297,62)(297,27)])
  }
END_SDK
Add(Button,9825617,91,196)
{
 Left=415
 Top=450
 Width=165
 Height=65
 Font=[Times New Roman,18,0,0,204]
 Caption="НАЧАТЬ"
 link(onClick,164005:doEvent1,[])
}
Add(Hub,164005,154,196)
{
 link(onEvent1,12296468:doWork1,[(178,202)(178,160)])
 link(onEvent2,10664002:doWork1,[])
}
Add(ChanelToIndex,12296468,196,154)
{
 link(onIndex,2953706:doVisible,[(254,160)(254,188)])
}

Редактировалось 5 раз(а), последний 2017-05-17 08:38:14
карма: 0
Новичок Я
0
Ответов: 75
Рейтинг: 2
#15: 2017-05-16 17:01:11 ЛС | профиль | цитата
7rm012, попробуй сам соединить
А я продолжу свой путь
Выложу, когда будет окончательный вариант. Жаль, времени маловато
карма: 2

0
ФорумыПомощь по пакетуПомогите по решить задачу по логике ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика