Вверх ↑
Ответов: 29
Рейтинг: 0
#1: 2011-11-06 12:53:38 ЛС | профиль | цитата
ну ладно, поиграйтесь еще в vip-раскраску.
мне это не интересно.
------------ Дoбавленo в 12.53:
Хотел вставить скриншот из своего пакета - не получилось, поэтому сделал как пример на делфи пакете.


Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,28,21)
{
Width=162
Height=75
}
Add(Hub,14158387,196,119)
{
link(onEvent1,1973158:doEvent1,[(231,125)(231,76)])
link(onEvent2,16037598:doTimer,[])
}
Add(Beep,4104535,287,70)
{
link(onBeep,6159127:doNext,[])
}
Add(Timer,16037598,245,126)
{
Enable=1
link(onTimer,1973158:doEvent2,[(289,132)(289,108)(240,108)(240,83)])
}
Add(Hub,1973158,252,70)
{
InCount=2
OutCount=1
link(onEvent1,4104535:doBeep,[])
}
Add(CheckBox,15495628,147,119)
{
Left=5
Top=5
link(onCheck,14158387:doEvent1,[])
}
Add(Counter,6159127,343,70)
{
Max=100000
link(onNext,8465011:doText,[])
}
Add(Edit,8465011,399,70)
{
Left=75
Top=5
Width=70
}
Есть схема. Сама схема ни о чем, просто для визуальной наглядности. К верхнему по схеме Hub-у подключены три компонента. У первого компонента одна Work-точка с именем, допустим - doBeep.
Код компонента подключенного на эту точку оформлен как ассемблерная подпрограмма, и предварен меткой с именем совпадающим с именем Work-точки компонента.
doBeep:
ldi temp,255
out PortB,temp
// ну это типа код моего компонента Beep

А теперь сам вопрос: линк идущий с верхней точки Hub-а "doEvent1 - onEvent1" выведет в целевой код подпрограммы doBeep, doNext и doText, а мне нужно чтобы линк подключенный на точку хаба "doEvent2 - onEvent1", "doEvent3 - onEvent1", "doEvent4 - onEvent1" и т.д. не выводил повторно всю подпрограмму, а только делал обращение к ней по имени точки. Например так - RCALL doBeep >> doNext >> doText. Это ассемблерный вариант вызова подпрограммы. Это тоже самое, как многократно делать обращение к функции, прописанной где-то один раз. Как быть?

карма: 0

0