Вверх ↑
Этот топик читают: Гость
Ответов: 45
Рейтинг: 3
#1: 2019-09-18 23:43:49 ЛС | профиль | цитата
Пытаюсь в элементе Random задать максимальное число, взятое из количества строк в ListBox, но срабатывает почему-то 0.
Если подскажете, как прикрепить схему - прикреплю. Спасибо.
Add(MainForm,2953706,49,140)
{
Width=573
Height=757
BorderStyle=1
Position=1
}
Add(ListBox,3667847,427,259)
{
Left=15
Top=35
Width=330
Height=585
Enabled=1
DataType=1
Point(doSelect)
Point(onSelect)
Point(String)
link(onChange,2123555:doText,[(471,265)(471,349)(422,349)(422,433)])
link(onSelect,4754903:doPart,[(481,279)(481,335)])
}
Add(Button,6150171,119,259)
{
Left=380
Top=35
Width=105
Caption="Вход"
link(onClick,3990286:doBrowse,[])
}
Add(Browse,3990286,203,259)
{
link(onBrowse,3452722:doValue,[])
}
Add(FileSearch,7682537,343,259)
{
Ext="*.mp3"
link(onSearch,3667847:doAdd,[])
link(Dir,3452722:Value,[(356,247)(314,247)(314,303)(272,303)])
}
Add(Memory,3452722,266,259)
{
link(onData,7682537:doSearch,[])
}
Add(Button,14473396,84,406)
{
Left=380
Top=125
Width=105
Height=45
Caption="ЕБАААААААААШЬ"
link(onClick,14913632:doFor,[])
}
Add(FileTools,11313971,630,413)
{
link(FileName,1245915:Var2,[(636,367)(461,367)])
link(NewFileName,5405835:Result,[(643,401)(609,401)(609,469)(573,469)])
}
Add(FilePartElm,4754903,504,329)
{
Point(Part)
link(onPart,5405835:doStrCatDlm,[(552,335)(552,426)])
link(FileName,1245915:Var3,[(510,316)])
}
Add(GetDataEx,1245915,455,311)
{
Angle=3
link(Data,3667847:String,[(454,316)])
}
Add(Button,10735603,189,147)
{
Left=385
Top=90
Width=95
Caption="Выход"
link(onClick,9286342:doBrowse,[])
}
Add(Browse,9286342,259,147)
{
link(onBrowse,13620598:doValue,[])
}
Add(Memory,13620598,567,147)
{
}
Add(Edit,2018672,154,308)
{
Left=390
Top=225
Width=90
Text="Сколько?"
}
Add(For,14913632,147,406)
{
IncludeEnd=1
link(onEvent,10878806:doRandom,[])
link(End,2018672:Text,[])
}
Add(Message,8581972,707,413)
{
}
Add(Label,2123555,434,427)
{
Left=400
Top=65
Width=82
Height=17
Caption="Хуй"
AutoSize=1
link(Text,11225144:Var2,[(440,383)(426,383)])
}
Add(Random,10878806,252,406)
{
Max=0
Mode=2
Point(Max)
link(onRandom,3667847:doSelect,[(392,412)(392,293)])
link(Max,11225144:Var1,[(258,335)])
}
Add(StrCatDelim,5405835,567,420)
{
Delimiter="\"
link(onStrCatDlm,11313971:doCopy,[])
link(Str1,13620598:Value,[])
link(Str2,4754903:Part,[(580,387)(510,387)])
}
Add(GetDataEx,11225144,420,330)
{
Angle=1
link(Data,3667847:Count,[(440,335)])
}

Редактировалось 3 раз(а), последний 2019-09-19 10:16:00
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 845
Рейтинг: 315
#2: 2019-09-19 05:33:04 ЛС | профиль | цитата

Add(ListBox,11512209,441,126)
{
Left=60
Top=5
Width=80
Height=190
Strings=#1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|
}
Add(Button,1549808,182,224)
{
Left=160
Top=165
link(onClick,15182527:doEvent1,[])
}
Add(Random,4318486,448,273)
{
Point(doMax)
Point(Max)
link(onRandom,13941077:doAdd,[(512,279)(512,223)])
link(Max,3455877:Var2,[])
}
Add(Hub,15182527,238,224)
{
OutCount=4
link(onEvent1,13941077:doClear,[])
link(onEvent2,4318486:doMax,[(379,237)(379,300)])
link(onEvent3,4318486:doRandomize,[(350,244)(350,286)])
link(onEvent4,9306300:doFor,[(270,251)(270,279)])
}
Add(For,9306300,287,273)
{
link(onEvent,4318486:doRandom,[])
link(End,3455877:Var1,[(300,208)])
}
Add(GetDataEx,3455877,448,203)
{
link(Data,11512209:Count,[])
}
Add(ListBox,13941077,545,217)
{
Left=245
Top=10
Width=80
Height=190
}

карма: 0

0
Ответов: 16884
Рейтинг: 1237
#3: 2019-09-19 05:58:07 ЛС | профиль | цитата
De_Cadanz писал(а):
как прикрепить схему

На поле HiAsm нажать F1
А если на схеме выделишь свой элемент Random и нажмёшь F1, то получишь и ответ на все свои какалки.
(И может быть поймёшь какую ошибку допустил kamakama в своём примере выше. )

Редактировалось 2 раз(а), последний 2019-09-19 06:27:12
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 45
Рейтинг: 3
#4: 2019-09-19 10:16:21 ЛС | профиль | цитата
Поправил первый пост.
А заодно и разобрался. Кто ж знал, что внешнее значение Max не берется автоматически.

Редактировалось 2 раз(а), последний 2019-09-19 11:04:17
карма: 1

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