Вверх ↑
Этот топик читают: Гость
Ответов: 3
Рейтинг: 0
#1: 2007-06-22 18:33:08 ЛС | профиль | цитата
Хочу сделать что бы какое-либо действие совершалось заданное число раз, а затем уже делалась следующая задача...
Но не выходит...
Вот код, написанный мной, самая простое - что бы лампочка мигала заданное кол-во раз...
Но не работает - не хочет завершаться и после завершения выдает кучу ошибок:

Add(MainForm,4827438,63,126)
{
Left=20
Top=105
Width=320
Height=211
}
Add(Button,98586,119,147)
{
Left=80
Top=110
Width=125
Height=25
Caption="Старт"
link(onClick,11157371:doFor,[])
}
Add(Edit,16543246,224,63)
{
Left=160
Top=15
Width=85
Ctl3D=1
Font=[MS Sans Serif,10,0,0,1]
Text=""
DataType=1
}
Add(Label,16050548,154,84)
{
Left=15
Top=15
Width=143
Height=20
Font=[MS Sans Serif,10,0,0,1]
Caption="Количество миганий:"
}
Add(LED,337828,350,119)
{
Left=125
Top=65
}
Add(Sleep,15882394,280,140)
{
Delay=300000
link(onSleep,337828:doChangeValue,[(331,146)(331,125)])
}
Add(For,11157371,217,147)
{
link(onEvent,15882394:doSleepMks,[(264,153)(264,146)])
link(onStop,5460020:doMessage,[(275,160)(275,223)])
link(End,16543246:Text,[(230,97)(230,104)])
}
Add(Message,5460020,301,217)
{
Message="Конец цикла!"
Caption="ОК"
}

Подскажите пожалуйста что я неправильно делаю....
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 2060
Рейтинг: 28
#2: 2007-06-22 18:39:56 ЛС | профиль | цитата
medved, code_1590.txt
карма: 1

0
файлы: 1code_1590.txt [1KB] [273]
Администрация
Ответов: 15295
Рейтинг: 1519
#3: 2007-06-22 18:42:14 ЛС | профиль | цитата
medved, для начала поставить это http://dev.hiasm.com/xf/attach/Delphi.exe.

Схема собрана верна и работает верно как в Delphi так и в FPC. Под FPC элементы с прозрачностью, коим и является светодиод, работают с ошибками.
карма: 27
0
Ответов: 3
Рейтинг: 0
#4: 2007-06-22 18:59:29 ЛС | профиль | цитата
скачать не получается... (The page cannot be found)
а версия хайастма у меня 3.62 bild 160 и поставлено естественно Compiler_fpc ...больше я ничего не ставил...
подскажите что поставить?))
то что собрал Эдик у меня работает но с ошибками... вот...
..гм..эт плохо..
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Администрация
Ответов: 15295
Рейтинг: 1519
#5: 2007-06-22 19:00:59 ЛС | профиль | цитата
http://dev.hiasm.com/xf/attach/him/Delphi.exe
карма: 27
0
Ответов: 9906
Рейтинг: 351
#6: 2007-06-22 20:48:33 ЛС | профиль | цитата
Ну под 160 может и действительно "элементы с прозрачностью, коим и являЛся светодиод, работаЛ с ошибками"...
Не замечал, грубо говоря
карма: 9

0
Ответов: 3
Рейтинг: 0
#7: 2007-06-22 20:51:01 ЛС | профиль | цитата
Dilma, я скачал это)) запустил) все устоновилось...теперь то что я скачал нужно наверно выбрать в настройках программы если я не ошибаюсь? что теперь то делать, сорри за нубский вопрос(( ?
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 9906
Рейтинг: 351
#8: 2007-06-22 21:15:44 ЛС | профиль | цитата
medved, вопрос действительно "нубский"
По русски если: непонятно не фига в этом вопросе

Dilma, пора тебе все-таки интернет заводить
В том, чего ты положил в 163-й - светодиод и правда глючный под FPC
карма: 9

0
Ответов: 2060
Рейтинг: 28
#9: 2007-06-22 21:32:30 ЛС | профиль | цитата
medved писал(а):
Dilma, я скачал это)) запустил) все устоновилось...теперь то что я скачал нужно наверно выбрать в настройках программы если я не ошибаюсь? что теперь то делать, сорри за нубский вопрос(( ?

Есть такая кнопка "Компелировать" находиться справо от "Зелёного треугольника". Там нажми на "стрелочку вниз" и выбери не FPC, а Delphi.
карма: 1

0
Ответов: 9906
Рейтинг: 351
#10: 2007-06-22 22:10:20 ЛС | профиль | цитата
И, насколько я понимаю, установщик компилятора не должен ставить птичку в настройках пакета
карма: 9

0
Ответов: 3851
Рейтинг: 159
#11: 2007-06-22 23:23:39 ЛС | профиль | цитата
Galkov писал(а):
И, насколько я понимаю, установщик компилятора не должен ставить птичку в настройках пакета

Правильно-ли это?
карма: 0
начавший
0
Ответов: 9906
Рейтинг: 351
#12: 2007-06-22 23:51:39 ЛС | профиль | цитата
Да
карма: 9

0
Ответов: 3851
Рейтинг: 159
#13: 2007-06-23 00:00:06 ЛС | профиль | цитата
Свобода, конечно - великое дело, но зачем тогда узер его (компилер) ставил, если не для использования в пакете?
Интерфейс только выиграет, если будет дружественным IMHO.
карма: 0
начавший
0
Ответов: 9906
Рейтинг: 351
#14: 2007-06-23 00:19:39 ЛС | профиль | цитата
Например, для использования в другом пакете
Догадливый вы наш
карма: 9

0
Ответов: 3851
Рейтинг: 159
#15: 2007-06-23 00:34:25 ЛС | профиль | цитата
НУ - ЗА ПЕРСПЕКТИВУ!
карма: 0
начавший
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)