Разыгрываем 100ћ за решение задачи "Остановка счетчика"

Вверх ↑

Форумы СоревнованияРазыгрываем 100ћ за решение задачи "Остановка счетчика" ← Ctrl1 2 34Ctrl →

Этот топик читают: Гость

Ответов: 3349

Рейтинг: 233

#46: 2010-09-01 20:05:11 ЛС | профиль | цитата

KisL()R()[), Вся задача заключается в том чтобы сделать на одном элементе

карма: 1

Ответов: 278

Рейтинг: 6

#47: 2010-09-01 20:42:22 ЛС | профиль | цитата

code_20355.txt

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

Add(IndexToChanel,2432883,224,189)
{
 Count=10
 Point(Index)
 link(onEvent1,12251930:doWork2,[])
 link(onEvent2,12251930:doWork3,[])
 link(onEvent3,12251930:doWork4,[])
 link(onEvent4,12251930:doWork5,[])
 link(onEvent5,12251930:doWork6,[])
 link(onEvent6,12251930:doWork7,[])
 link(onEvent7,12251930:doWork8,[])
 link(onEvent8,12251930:doWork9,[])
 link(onEvent9,12251930:doWork10,[])
 link(onEvent10,12251930:doWork11,[])
 link(Index,13165888:Caption,[])
}
Add(ChanelToIndex,12251930,273,182)
{
 Count=11
 link(onIndex,13165888:doText,[(317,188)(317,160)(212,160)(212,125)])
}
Add(Label,13165888,224,119)
{
 Left=115
 Top=65
 Width=22
 Height=41
 Font=[MS Sans Serif,24,0,0,1]
 Caption="0"
 link(onClick,2432883:doEvent,[(270,125)(270,164)(212,164)(212,195)])
}

------------ Дoбавленo в 20.42:
или так
------------ Дoбавленo в 20.42:

карма: 0

файлы: 1 code_20355.txt [507B] [619]

Ответов: 57

Рейтинг: 4

#48: 2010-09-05 00:20:53 ЛС | профиль | цитата

code_20404.txt

карма: 0

файлы: 1

code_20404.txt [837B] [379]

Ответов: 3349

Рейтинг: 233

#49: 2010-09-05 08:43:31 ЛС | профиль | цитата

Mihail88, у тебя аж 3 элемента

карма: 1

Ответов: 57

Рейтинг: 4

#50: 2010-09-07 02:10:50 ЛС | профиль | цитата

Все более мение накрученные элементы разобрали

.
Была идея использовать data кнопки (1*2*3 итд), разделение с изменеением данных, доступа для изменения из потока нету.

карма: 0

Администрация

Ответов: 15294

Рейтинг: 1518

#51: 2010-09-07 02:16:31 ЛС | профиль | цитата

есть еще пара не совсем честных решения на элементах For и StrPart, за нахождение которых будут поощрительные призы ввиде 50ћ

карма: 26

https://hiasm.com

Ответов: 278

Рейтинг: 6

#52: 2010-09-07 12:23:22 ЛС | профиль | цитата

Dilma писал(а):

не совсем честных

Это как?
Какое то из условий не выполняется!?

карма: 0

Администрация

Ответов: 15294

Рейтинг: 1518

#53: 2010-09-07 12:27:08 ЛС | профиль | цитата

igr писал(а):

Это как?

число визуально условия выполняются полностью (жмем на кнопку получаем цифру), но программно схема делает не совсем то, что задано по условию задачи

карма: 26

https://hiasm.com

Разработчик

Ответов: 4697

Рейтинг: 426

#54: 2010-09-07 14:16:13 ЛС | профиль | цитата

С элементом For:

Add(Button,8537583,252,301)
{
 Left=150
 Top=110
 link(onClick,3515135:doFor,[])
}
Add(For,3515135,301,301)
{
 Start=10
 Step=-1
 IncludeEnd=1
 link(onEvent,11854351:doText,[])
 link(End,11854351:Caption,[(314,289)(335,289)(335,345)(356,345)])
}
Add(Label,11854351,350,301)
{
 Left=220
 Top=115
 Caption="0"
}

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

Add(StrPart,7058563,301,301)
{
 Char=" "
 link(onSplit,11854351:doText,[])
 link(Str,11854351:Caption,[(307,289)(341,289)(341,344)(356,344)])
}
Add(Button,8537583,252,301)
{
 Left=150
 Top=110
 link(onClick,7058563:doSplit,[])
}
Add(Label,11854351,350,301)
{
 Left=220
 Top=115
 Width=12
 Caption="0 1 2 3 4 5 6 7 8 9 10"
 AutoSize=1
}

Как вариант

карма: 10

Мой сайт, Мои рассказы

Администрация

Ответов: 15294

Рейтинг: 1518

#55: 2010-09-07 19:22:43 ЛС | профиль | цитата

да, все верно, только в последнем варианте можно было вместо пробела использовать
- тогда бы не было ограничения на длину Label. Этот вариант был бы полностью честным, если бы элементы KOL буферизировали свои св-ва (как это сделано в VCL), и в качестве разделителя использовался бы (в С++, на котором сделан WinAPI, это символ окончания строки)

карма: 26

https://hiasm.com

Ответов: 301

Рейтинг: 11

#56: 2010-09-07 20:37:24 ЛС | профиль | цитата

Assasin писал(а):

С элементом For:

а поясните пожалуйста почему он считает до 10 а не например до 5 или 15?

карма: 0

Ответов: 1379

Рейтинг: 86

#57: 2010-09-07 20:57:03 ЛС | профиль | цитата

evgenyatam, условие задачи было таково.
Хочешь, меняй под себя.

карма: 0

Администрация

Ответов: 15294

Рейтинг: 1518

#58: 2010-09-07 21:18:50 ЛС | профиль | цитата

evgenyatam писал(а):

а поясните пожалуйста почему он считает до 10 а не например до 5 или 15?

при первом нажатии кнопки происходит итерация цикла от 10 до 0 с шагом -1 без включения правой границы, т.е. 10 9 8 7 6 5 4 3 2 1
при втором нажатии кнопки происходит итерация цикла уже от 10 до 1, т.к. элемент Label содержит 1 - последнюю цифру, выданную For на предыдущей итерации
и так до тех пор пока правая граница не станет равной 10 и условие Start > End перестанет выполняться

карма: 26

https://hiasm.com

Форумы СоревнованияРазыгрываем 100ћ за решение задачи "Остановка счетчика" ← Ctrl1 2 34Ctrl →


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