Вверх ↑
Ответов: 632
Рейтинг: 16
#1: 2009-03-22 04:08:43 ЛС | профиль | цитата
так можно еще
если до точки 1. то лидирует 1., если 0. то 0.

code_2341.txt

а вообще лучше кенерировать вручную с таймером

Add(MainForm,1748941,28,154)
{
Left=20
Top=105
Width=196
Height=149
link(onCreate,12196662:doTimer,[])
}
Add(Button,9834731,119,210)
{
Left=28
Top=90
Width=125
Caption="OK"
link(onClick,13973654:doData,[])
}
Add(Hub,16712762,119,168)
{
link(onEvent1,4063129:doRandom,[])
link(onEvent2,4063129:doRandomize,[])
}
Add(Random,4063129,162,168)
{
Max=1
}
Add(Timer,12196662,75,168)
{
Interval=3
Enable=1
Point(doAutoStop)
link(onTimer,16712762:doEvent1,[])
}
Add(Label,14628689,243,245)
{
Left=65
Top=20
Width=55
Height=50
Font=[MS Sans Serif,18,0,0,1]
Caption="0"
}
Add(Label,5429462,336,210)
{
Left=24
Top=30
Width=25
Height=25
Font=[MS Sans Serif,14,0,0,1]
Caption="0"
}
Add(Label,14494346,336,259)
{
Left=130
Top=25
Width=25
Height=25
Font=[MS Sans Serif,14,0,0,1]
Caption="0"
}
Add(Case,1270019,245,210)
{
Value=String(1)
link(onNextCase,2955534:doNext,[])
link(onTrue,10541530:doNext,[(285,223)(285,265)])
}
Add(Counter,10541530,292,259)
{
Max=100000
link(onNext,14494346:doText,[])
}
Add(Counter,2955534,292,210)
{
Max=100000
link(onNext,5429462:doText,[])
}
Add(MathParse,10067894,334,308)
{
MathStr="%1/%2"
link(onResult,1133347:doText,[])
link(X1,14494346:Caption,[(340,303)(342,303)])
link(X2,5429462:Caption,[(347,279)(342,279)])
}
Add(Label,1133347,376,308)
{
Left=65
Top=75
Caption="0"
}
Add(Hub,5416662,203,210)
{
OutCount=3
link(onEvent1,1270019:doCase,[])
link(onEvent2,14628689:doText,[(239,223)(239,251)])
link(onEvent3,10067894:doCalc,[(238,230)(238,314)])
}
Add(Label,3511485,75,112)
{
Left=25
Top=5
Width=155
Caption="Нолик Единица"
}
Add(DoData,13973654,161,210)
{
link(onEventData,5416662:doEvent1,[])
link(Data,4063129:Random,[(167,205)(168,205)])
}
правда в самом начале пару ошибок т.к. 0 не делится на 0
карма: 0

0
файлы: 1code_2341.txt [1.8KB] [327]