1) как переделать схему так, чтобы картинки не повторялись подряд (т. е. условно если у меня была надпись "карандаш", то при следующем нажатии будет 100% другая) (у меня около 150 картинок в моей схеме). - это основной вопрос
2 - добавочный) как сделать так, чтобы картинки не повторялись, в цикле? Т. е. допустим у меня там 150 строк с разными надписями и нужно сделать , чтобы они не только не попадались 2 раза подряд одно за другим, но и не повторялись, скажем так, в цикле. То есть у меня допустим будет условие при котором начинается цикл и условие при котором он завершается, и вот когда он снова начинается, то там смогут появляться снова все картинки, но не те, которые уже в нем появлялись до этого. (кол-во картинок за цикл меньше, чем кол-во всех картинок, т. е. цикл завершится раньше, чем будут показаны все возможные картинки).

Add(MainForm,2953706,119,273)
{
Width=261
Height=326
Position=1
link(onCreate,2476299:doRandomize,[])
}
Add(Button,3272711,189,301)
{
Left=15
Top=10
Width=200
link(onClick,3980929:doEvent1,[])
}
Add(Image,6566424,609,210)
{
Left=15
Top=60
Width=200
Height=200
Color=16777215
ViewStyle=0
}
Add(Jpeg,9896000,560,210)
{
Quality=100
Point(doBitmap)
Point(FileName)
link(onBitmap,6566424:doLoad,[])
}
Add(Hub,7362224,525,210)
{
link(onEvent1,9896000:doLoad,[])
link(onEvent2,9896000:doBitmap,[(549,223)(549,230)])
}
Add(StrCat,14212699,476,210)
{
Str2=".jpg"
link(onStrCat,7362224:doEvent1,[])
}
Add(StrList,3164099,343,196)
{
Strings=#6:солнце|6:камень|8:карандаш|
Point(EndIdx)
Point(doGetString)
Point(onGetString)
link(onGetString,2150770:doEvent1,[])
}
Add(Random,2476299,364,280)
{
Point(doMax)
Point(Max)
link(onRandom,3164099:doGetString,[(408,286)(408,258)(331,258)(331,230)])
link(Max,3164099:EndIdx,[])
}
Add(Label,10911830,476,140)
{
Left=15
Top=35
Width=200
}
Add(Hub,2150770,413,203)
{
link(onEvent1,10911830:doText,[(445,209)(445,146)])
link(onEvent2,14212699:doStrCat,[])
}
Add(Hub,3980929,245,301)
{
link(onEvent1,2476299:doMax,[])
link(onEvent2,2476299:doRandom,[(311,314)(311,286)])
}

На схеме выдели компонент Random и нажми F1.
В открывшемся окне найди

Или так:

Это вообще не вопрос.
Сам догадаешься почему ?

Редактировалось 2 раз(а), последний 2019-09-03 23:16:33