Вверх ↑
Этот топик читают: Гость
Ответов: 10
Рейтинг: 0
#1: 2019-08-25 11:56:45 ЛС | профиль | цитата
Как сделать так, чтобы при нажатии на кнопку появлялась случайная картинка из 157?
карма: 0

0
Ответов: 321
Рейтинг: 10
#2: 2019-08-25 12:48:14 ЛС | профиль | цитата
В папку с программой необходимо положить те картинки, которые будут в вашем списке.
Имена картинок должны соответствовать наименованию строки...
Если в списке "солнце", то картинку называем "солнце.jpg".

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)])
}


Редактировалось 2 раз(а), последний 2019-08-25 12:54:47
карма: 1

0
Ответов: 10
Рейтинг: 0
#3: 2019-08-25 14:05:34 ЛС | профиль | цитата
Не совсем понимаю что Вы подразумеваете под словами "В папку с программой необходимо положить те картинки, которые будут в вашем списке". Что за папка с программой?
карма: 0

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#4: 2019-08-25 14:27:02 ЛС | профиль | цитата
K0ndar писал(а):
Не совсем понимаю

Жать сюда
offtop

В начале было слово и слово было... размером восемь бит. Так могла бы начинаться книга новейшего завета для программистов.

Редактировалось 4 раз(а), последний 2019-08-25 14:32:32
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 10
Рейтинг: 0
#5: 2019-08-25 18:29:03 ЛС | профиль | цитата
Друзья, помогите, что делать дальше? Я не понял что за папка с программой. Куда мне нужно поместить мои фото? На схеме нужно еще что-то добавлять или только добавить фото в какую-то папку? Я ламер в hiasm, только недавно начал. Мне только узнать последний шаг. Буду очень благодарен если поможете понять эту схему (схема отправлена пользователем Master4eG выше). Просто реально не понимаю какую папку, в которую нужно кидать фотографии имеет ввиду Master4eG. Я уже почти доделал все, остался этот последний шаг.
карма: 0

0
Ответов: 875
Рейтинг: 322
#6: 2019-08-25 19:09:54 ЛС | профиль | цитата
K0ndar, выложи свою схему, посмотрим на последний шаг.
карма: 1

0
Ответов: 10
Рейтинг: 0
#7: 2019-08-25 19:39:45 ЛС | профиль | цитата


--- Добавлено в 2019-08-25 19:41:24

извините, я не знаю как сделать так, чтобы код схемы можно было развернуть

Редактировалось 3 раз(а), последний 2019-08-25 19:41:24
карма: 0

0
Ответов: 875
Рейтинг: 322
#8: 2019-08-25 20:07:07 ЛС | профиль | цитата
K0ndar, читай справку к элементам и особенно, вдумчиво и не торопясь просмотри все примеры. Наверное будешь удивлен но в примерах есть почти все ответы на твои вопросы а после прочтения wiki (подчеркиваю - действительного ПРОЧТЕНИЯ wiki ) можно уже и самому отвечать на вопросы. Дерзай.
карма: 1

0
Ответов: 10
Рейтинг: 0
#9: 2019-08-25 20:10:39 ЛС | профиль | цитата
ладно, спасибо на этом, просто уже второй раз пишу очень много текста и случайно или сам удаляю или удаляется из-за бага и уже не хочется ничего писать. Я выше писал, что не могу скинуть схему, потому, что в imgbtn уже стояли картинки. Ладно, мне не к спеху делать мою прогу, почитаю еще, поучусь и сам допру наверное потом. Хотя хотелось бы чтоб мне кто-то объяснил что имел ввиду пользователь скинувший схему выше под словами "В папку с программой необходимо положить те картинки, которые будут в вашем списке".
карма: 0

0
Ответов: 1926
Рейтинг: 172
#10: 2019-08-25 20:19:25 ЛС | профиль | цитата
K0ndar писал(а):
В папку с программой необходимо положить те картинки, которые будут в вашем списке


Что-то вроде этого:


Простите, а сколько вам лет?
карма: 9
0
файлы: 1papka.png [9.8KB] [1651]
Ответов: 10
Рейтинг: 0
#11: 2019-08-25 21:00:01 ЛС | профиль | цитата
Вау, 3042, вы просто гений (без сарказма с отрицательным подтекстом). Крч я слегка поехал, потому что я естественно сначала кинул все в папку, но картинку называл условно не "солнце", а "солнце.png", я думал именно это и имел ввиду тот кто скинул данную конструкцию. Поэтому ничего не работало. Огромное спасибо, что направили меня на истинный путь

--- Добавлено в 2019-08-25 21:08:13

а возможно сделать так чтобы при открытии программы создавалась эта папка, чтобы если я допустим скачал ее с другого компа, то мог использовать ее, не имея там этих изображений с названиями?

--- Добавлено в 2019-08-25 21:40:00

Все, тема закрыта, я добился нужного результата. Спасибо всем кто откликнулся : )

Редактировалось 2 раз(а), последний 2019-08-25 21:40:00
карма: 0

0
Ответов: 632
Рейтинг: 4
#12: 2019-08-25 22:08:04 ЛС | профиль | цитата
K0ndar, вообще-то можно было все автоматизировать! Скомпилируете программу и рядом с программой положите все свои изображения (.jpg) формата.

Add(MainForm,3551160,49,217)
{
Width=261
Height=326
Position=1
link(onCreate,3226726:doSearch,[(128,237)(128,174)])
}
Add(Button,3272711,119,245)
{
Left=15
Top=10
Width=200
link(onClick,3980929:doEvent1,[])
}
Add(Image,6566424,539,154)
{
Left=15
Top=60
Width=200
Height=200
Color=16777215
ViewStyle=1
}
Add(Jpeg,9896000,490,154)
{
Quality=100
Point(doBitmap)
Point(FileName)
link(onBitmap,6566424:doLoad,[])
}
Add(Hub,7362224,455,154)
{
link(onEvent1,9896000:doLoad,[])
link(onEvent2,9896000:doBitmap,[(479,167)(479,174)])
}
Add(StrList,3164099,273,140)
{
Point(EndIdx)
Point(doGetString)
Point(onGetString)
link(onGetString,2150770:doEvent1,[])
}
Add(Random,2476299,294,224)
{
Point(doMax)
Point(Max)
link(onRandom,3164099:doGetString,[(338,230)(338,209)(261,209)(261,188)])
link(Max,3164099:EndIdx,[])
}
Add(Label,10911830,406,84)
{
Left=15
Top=35
Width=200
}
Add(Hub,2150770,343,147)
{
link(onEvent1,2941623:doPart,[(369,153)(369,121)(345,121)(345,90)])
link(onEvent2,7362224:doEvent1,[])
}
Add(Hub,3980929,175,245)
{
link(onEvent1,2476299:doMax,[])
link(onEvent2,2476299:doRandom,[(241,258)(241,230)])
}
Add(FileSearch,3226726,175,168)
{
Ext="*.jpg"
Dir="\"
link(onSearch,3164099:doAdd,[(240,174)(240,146)])
link(onEndSearch,2476299:doRandomize,[(251,181)(251,237)])
link(Dir,3898168:CurrentDir,[])
}
Add(Dir,3898168,182,63)
{
}
Add(FilePartElm,2941623,357,84)
{
Mode=2
link(onPart,10911830:doText,[])
}

карма: 0

0
12
Сообщение
...
Прикрепленные файлы
(файлы не залиты)