Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2008-08-17 18:00:40 ЛС | профиль | цитата
vovs, поработал на славу +1, сейчас как бы ещё это мне переварить
------------ Дoбавленo:

vovs, всё работает замечательно! У тебя случаем небыло идей по поводу как парсить циклы и делать ветвления. Я ксожелению пока другим занят но так сделал набросок на FOR-TO-STEP

вот схема

#sha
Add(MainForm,695824,28,35)
{
Left=20
Top=105
Height=163
}
Add(Hub,2389979,189,98)
{
OutCount=3
link(onEvent1,1040178:doSearch,[])
link(onEvent2,1987231:doData,[(572,111)(572,174)])
link(onEvent3,13029159:doFor,[(232,118)(232,160)])
}
Add(DoData,1987231,581,168)
{
link(onEventData,13029159:doStep,[])
link(Data,15470559:Var,[])
}
Add(For,13029159,637,154)
{
Point(doStep)
link(onEvent,2271116:doAdd,[])
link(Start,9637845:Var,[])
link(End,10170398:Var,[])
}
Add(GlobalVar,15470559,581,119)
{
Name="step"
Data=Integer(1)
}
Add(Replace,7474990,532,119)
{
SubStr=" "
Point(Skip)
link(onReplace,15470559:doValue,[])
}
Add(BlockFind,10323726,483,112)
{
Delete=0
StartBlock="for"
EndBlock="step"
link(onEndSearch,7474990:doReplace,[])
}
Add(BlockFind,1040178,238,98)
{
IncludeBlock=1
Delete=0
UserReplace=0
StartBlock="for"
EndBlock="to"
link(onSearch,10472365:doReplace,[])
link(onEndSearch,6642373:doSearch,[])
}
Add(Edit,1373663,84,42)
{
Left=130
Top=10
Width=245
Text="for a=0 to 154 step 1"
}
Add(Button,676813,28,98)
{
Left=10
Top=10
Caption="Start"
Data=Integer(3)
link(onClick,11901758:doData,[])
}
Add(DoData,11901758,84,98)
{
link(onEventData,16707959:doModify,[])
link(Data,1373663:Text,[])
}
Add(Replace,10472365,287,98)
{
SubStr=" "
Point(Skip)
link(onReplace,5343109:doSplit,[])
}
Add(StrPart,5343109,336,98)
{
Char="="
link(onSplit,9637845:doValue,[])
}
Add(GlobalVar,9637845,637,98)
{
Name="for"
}
Add(BlockFind,6642373,385,105)
{
IncludeBlock=1
StartBlock="to"
EndBlock="step"
link(onSearch,9275497:doReplace,[])
link(onEndSearch,10323726:doSearch,[])
}
Add(Replace,9275497,434,105)
{
SubStr=" "
Point(Skip)
link(onReplace,10170398:doValue,[])
}
Add(GlobalVar,10170398,644,105)
{
Name="to"
}
Add(StrCase,16707959,140,98)
{
link(onModify,2389979:doEvent1,[])
}
Add(Memo,2271116,700,154)
{
Left=10
Top=40
Width=365
ScrollBars=2
}
Add(Button,2748250,637,196)
{
Left=70
Top=10
Caption="Clear"
Data=Integer(3)
link(onClick,2271116:doClear,[(685,202)(685,167)])
}

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0