Редактировалось 2 раз(а), последний 2025-01-09 15:09:27

Например так:
[code:1] Add(Random,12986755,210,383)
{
Max=4
link(onRandom,1209958:doEvent1,[(250,389)(250,389)])
}
Add(Button,1039658,98,390)
{
Left=20
Top=10
Caption="Start"
link(onClick,13762172:doEvent1,[])
}
Add(ListBox,2035279,399,383)
{
Left=250
Top=5
Width=140
Height=200
}
Add(Hub,13762172,154,390)
{
InCount=2
link(onEvent1,12986755:doRandomize,[])
link(onEvent2,12986755:doRandom,[(198,403)(198,389)])
}
Add(Hub,1209958,259,383)
{
OutCount=3
link(onEvent1,11349558:doRead,[(313,389)(313,389)])
link(onEvent2,14036502:doDelete,[(306,396)(306,326)])
link(onEvent3,7554244:doCompare,[(305,403)(305,452)])
}
Add(If_else,7554244,406,446)
{
Type=5
Op2=Integer(4)
link(onTrue,13762172:doEvent2,[(446,452)(446,439)(144,439)(144,403)])
link(Op1,2035279:Count,[])
}
Add(ListBox,14036502,322,306)
{
Left=100
Top=5
Width=140
Height=200
Strings=#1:1|1:2|1:3|1:4|
}
Add(ArrayRW,11349558,336,383)
{
link(onRead,2035279:doAdd,[(383,389)(383,389)])
link(Array,14036502:Array,[(342,364)(342,364)])
}
Add(Button,9475388,98,54)
{
Left=20
Top=40
Caption="New"
link(onClick,8604892:doEvent1,[(142,60)(142,60)])
}
Add(Hub,8604892,154,54)
{
OutCount=6
link(onEvent1,2035279:doClear,[(199,60)(199,20)(307,20)(307,301)(390,301)(390,396)])
link(onEvent2,14036502:doClear,[(200,67)(200,21)(306,21)(306,319)])
link(onEvent3,5885380:doData,[(198,74)(198,74)])
link(onEvent4,15526672:doData,[(198,81)(198,158)])
link(onEvent5,593644:doData,[(197,88)(197,242)])
link(onEvent6,14428460:doData,[(196,95)(196,326)])
}
Add(Edit,8209988,210,26)
{
Left=20
Top=70
Text="Раз"
}
Add(Edit,14427549,210,110)
{
Left=20
Top=95
Text="Два"
}
Add(Edit,15913984,210,194)
{
Left=20
Top=120
Text="Три"
}
Add(Edit,13263904,210,278)
{
Left=20
Top=145
Text="Четыре"
}
Add(DoData,5885380,210,68)
{
link(onEventData,1146675:doEvent1,[(252,74)(252,305)])
link(Data,8209988:Text,[(216,63)(216,63)])
}
Add(DoData,15526672,210,152)
{
link(onEventData,1146675:doEvent2,[(251,158)(251,312)])
link(Data,14427549:Text,[])
}
Add(DoData,593644,210,236)
{
link(onEventData,1146675:doEvent3,[(250,242)(250,319)])
link(Data,15913984:Text,[])
}
Add(DoData,14428460,210,320)
{
link(onEventData,1146675:doEvent4,[(292,326)(250,326)])
link(Data,13263904:Text,[])
}
Add(Hub,1146675,259,299)
{
InCount=4
link(onEvent2,14036502:doAdd,[(306,312)(306,312)])
}
[/code:1]
Единственное ограничение:
В компонентах Random (Max) и If_else (Op2) должно стоять одинаковое значение (у нас это четыре). Компонент ListBox(Strings) должен содержать такое же (четыре) количество элементов (можно больше, но не меньше - будут глюки).
Недостаток: при большом кол-ве элементов и плохой работе рандома ;) будет много промахов.

Alexanderpa, или так:
[code:1]Add(MainForm,2861347,91,105) {
Left=20
Top=105
Height=272
link(onCreate,6519951:doRandomize,[])
}
Add(Random,6519951,147,133)
{
Min=1
Max=24
link(onRandom,2364538:doRead,[(229,139)(173,139)])
}
Add(ArrayRW,2364538,196,133)
{
link(onRead,9241424:doText,[])
link(Array,6916006:Array,[])
}
Add(Label,9241424,238,133)
{
Left=135
Top=75
Width=95
Height=48
Font=[MS Sans Serif,24,1,0,1]
AutoSize=1
Alignment=2
}
Add(Button,11539510,49,56)
{
Left=40
Top=15
Width=320
Height=40
Font=[MS Sans Serif,14,1,0,1]
Caption="Нажми и будет тебе счастье!"
Data=String(Вот ОНО, твоё счастье!)
link(onClick,9028742:doEvent1,[])
}
Add(ListBox,6916006,182,70)
{
Left=465
Top=10
Height=255
Visible=1
Strings=#4:1234|4:1243|4:1324|4:1342|4:1423|4:1432|4:2134|4:2314|4:2341|4:2143|4:2413|4:2431|4:3124|4:3214|4:3241|4:3142|4:3412|4:3421|4:4123|4:4213|4:4231|4:4132|4:4312|4:4321|
DataType=1
}
Add(Memory,13075966,294,133)
{
Default=Integer(3214)
}
Add(Hub,9028742,91,56)
{
link(onEvent1,6519951:doRandom,[(135,62)(135,139)])
link(onEvent2,6287349:doCompare,[(129,69)(129,195)])
}
Add(If_else,6287349,259,189)
{
link(onTrue,3886318:doEvent1,[])
link(onFalse,11034952:doData,[(299,202)(299,209)])
link(Op1,9241424:Caption,[(265,177)(244,177)])
link(Op2,13075966:Value,[(272,177)(300,177)])
}
Add(Button,1218291,49,126)
{
Left=330
Top=210
Caption="Выход"
link(onClick,2861347:doClose,[])
}
Add(Label,14954254,406,189)
{
Left=30
Top=140
Width=325
Height=45
Font=[MS Sans Serif,24,1,0,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(DoData,11034952,308,203)
{
link(onEventData,3886318:doEvent2,[(348,209)(348,202)])
}
Add(Hub,3886318,357,189)
{
InCount=2
OutCount=1
link(onEvent1,14954254:doText,[])
}
[/code:1]

Редактировалось 2 раз(а), последний 2025-01-09 15:09:28

Alexanderpa, код получился большой, не для форума, см. в Upload "Викторина".