Вверх ↑
Ответов: 5446
Рейтинг: 323
#1: 2008-07-23 04:19:36 ЛС | профиль | цитата
Повторы - если я правильно понял значение этого термина (повторное выпадение уже выпавшего номера) - в этой программе возможны. Введите проверку перед добавлением нового числа в список.

По сортировке: после добавления чисел вопспользуйтесь точкой doSort, правда там сортировка идёт не по числовому значению...

Общие замечания:
не очень понятна идея с двумя listbox-ами.

------------ Дoбавленo:

Сейчас выложу подправленный вариант...
------------ Дoбавленo:


Add(MainForm,3491091,70,98)
{
Left=20
Top=105
Width=659
Height=508
Caption=" 6 aus 49 + Super Zahl"
link(onCreate,10149846:doEvent1,[])
}
Add(Random,12789762,273,196)
{
Min=1
Max=49
link(onRandom,2110524:doCompare,[])
}
Add(Hub,10149846,168,112)
{
link(onEvent1,5007303:doRandomize,[(404,118)(404,146)])
link(onEvent2,12789762:doRandomize,[(256,125)(256,209)])
}
Add(For,15406465,182,210)
{
Start=1
End=6
link(onEvent,8231668:doWork2,[])
link(onStop,1609522:doEvent1,[(226,223)(226,265)(184,265)(184,321)])
}
Add(Hub,13096784,126,168)
{
InCount=2
OutCount=6
link(onEvent1,2721669:doClear,[])
link(onEvent2,5647412:doClear,[(300,181)(300,83)])
link(onEvent3,3280366:doClear,[(422,188)(422,195)])
link(onEvent4,5007303:doRandom,[(227,195)(227,139)])
link(onEvent5,7122427:doReset,[(233,202)(233,377)])
link(onEvent6,15406465:doFor,[(170,209)(170,216)])
}
Add(Button,4078862,63,168)
{
Left=20
Top=60
Caption="gen"
link(onClick,13096784:doEvent1,[])
}
Add(Label,11327569,504,539)
{
Left=330
Top=385
Font=[Times New Roman,20,0,255,1]
Caption=""
}
Add(Label,12646398,504,581)
{
Left=385
Top=385
Width=60
Font=[Times New Roman,20,0,255,1]
Caption=""
}
Add(Label,5986804,504,371)
{
Left=75
Top=385
Font=[Times New Roman,20,0,255,1]
Caption=""
}
Add(Label,10763763,504,413)
{
Left=145
Top=385
Font=[Times New Roman,20,0,255,1]
Caption=""
}
Add(IndexToChanel,7962782,441,476)
{
Count=6
Point(Index)
link(onEvent1,5986804:doText,[(489,482)(489,377)])
link(onEvent2,10763763:doText,[(489,489)(489,419)])
link(onEvent3,14007026:doText,[(489,496)(489,461)])
link(onEvent4,4277900:doText,[])
link(onEvent5,11327569:doText,[(489,510)(489,545)])
link(onEvent6,12646398:doText,[(489,517)(489,587)])
link(Index,7122427:Count,[(447,432)(314,432)])
}
Add(Label,14007026,504,455)
{
Left=210
Top=385
Font=[Times New Roman,20,0,255,1]
Caption=""
}
Add(Label,4277900,504,497)
{
Left=275
Top=385
Font=[Times New Roman,20,0,255,1]
Caption=""
}
Add(Label,13047464,497,133)
{
Left=545
Top=380
Font=[Times New Roman,20,0,255,1]
Caption=""
}
Add(Random,5007303,434,133)
{
Max=9
link(onRandom,13047464:doText,[])
}
Add(ListBox,2721669,665,161)
{
Left=125
Top=30
Width=165
Height=220
Sort=0
}
Add(Timer,4180062,259,357)
{
Interval=500
Enable=1
AutoStop=6
link(onTimer,7122427:doNext,[])
}
Add(If_else,2110524,343,196)
{
link(onTrue,8231668:doWork1,[(388,202)(388,165)(242,165)])
link(onFalse,3358211:doEnum,[(390,209)(390,279)])
link(Op2,5007303:Random,[(356,180)(440,180)])
}
Add(HubEx,8231668,238,203)
{
link(onEvent,12789762:doRandom,[(260,216)(260,202)])
}
Add(StrList,5647412,420,70)
{
}
Add(IntegerArray,3280366,469,175)
{
IntArray=[]
Point(doSort)
}
Add(ArrayRW,9093985,504,322)
{
link(Array,10307450:Var3,[(510,233)])
link(Value,15866870:Var2,[(524,294)(475,294)])
}
Add(ArrayEnum,3358211,399,273)
{
onBreakEnable=0
Point(onBreak)
link(onItem,9694794:doCompare,[])
link(onEndEnum,1492747:doEvent1,[(439,286)(439,342)])
link(Array,10307450:Var2,[])
link(onBreak,8231668:doWork3,[(443,293)(443,240)(242,240)])
}
Add(If_else,9694794,595,273)
{
link(onTrue,3358211:doStop,[(632,279)(632,316)(387,316)(387,286)])
link(Op2,1990640:Var3,[(608,261)])
}
Add(GetDataEx,10307450,392,224)
{
link(Data,3280366:Array,[(405,214)(475,214)])
}
Add(Hub,1492747,448,336)
{
link(onEvent1,9093985:doAdd,[])
link(onEvent2,6484761:doData,[])
}
Add(GetDataEx,15866870,462,252)
{
Angle=3
link(Data,12789762:Random,[(279,261)])
}
Add(Hub,1609522,196,315)
{
link(onEvent1,3280366:doSort,[(457,321)(457,202)])
link(onEvent2,4180062:doTimer,[(244,328)(244,363)])
}
Add(ArrayRW,2705767,357,357)
{
link(onRead,7962782:doEvent,[(415,363)(415,482)])
link(Array,10307450:Var1,[(363,233)])
}
Add(Counter,7122427,308,357)
{
Min=-1
Max=6
Default=-1
link(onNext,2705767:doRead,[])
}
Add(GetDataEx,1990640,518,252)
{
Angle=3
link(Data,15866870:Var3,[])
}
Add(DoData,6484761,581,343)
{
link(onEventData,2721669:doAdd,[(639,349)(639,167)])
link(Data,1990640:Var2,[(587,304)(531,304)])
}
------------ Дoбавленo:

Если будут вопросы - пиши, постараюсь объяснить.
карма: 1

0