Передача информации

Форумы Помощь по пакетуПередача информации ← Ctrl1Ctrl →

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

Этот топик был перемещен из раздела "Помощь по среде"

Ответов: 5

Рейтинг: 0

#1: 2018-01-11 13:50:18 ЛС | профиль | цитата

Здравствуйте! Подскажите пожалуйста как из одной программы можно передать информацию в другую программу.
Например:
• в программе №1 - кнопка
• в программе №2 - светодиод
• если нажать кнопку --› загорится светодиод
Заранее всем благодарен!

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 4621

Рейтинг: 746

#2: 2018-01-11 15:14:39 ЛС | профиль | цитата

Пробуй эти компоненты: /topic/66399

карма: 26

Ответов: 8887

Рейтинг: 823

#3: 2018-01-11 15:22:52 ЛС | профиль | цитата

See, простое нажатие проще:

кнопка


Add(Button,5357157,154,112)
{
 Left=125
 Top=45
 link(onClick,2160341:doPress,[])
}
Add(KeyEvent,2160341,224,112)
{
 Code=255
}

светодиод


Add(MainForm,2953706,140,161)
{
 link(onCreate,5771558:doStartHotKey,[])
}
Add(LED,9274601,280,175)
{
 Left=180
 Top=95
}
Add(GHotKey,5771558,203,175)
{
 Key=255
 link(onEventHotKey,9274601:doChangeValue,[])
}

карма: 19

Ответов: 5

Рейтинг: 0

#4: 2018-01-11 16:37:36 ЛС | профиль | цитата

Netspirit, огромное спасибо! Как раз таки то что нужно!
Леонид, так же, большое спасибо.

карма: 0

Ответов: 1925

Рейтинг: 172

#5: 2018-01-17 20:28:37 ЛС | профиль | цитата

Ещё вариант на стандартных компонентах:


Add(MainForm,8839603,273,154)
{
 Position=1
 link(onCreate,2049712:doCreate,[])
}
Add(MailSlot_Server,2049712,413,168)
{
 Name="111"
 link(onRead,5882706:doCase,[])
}
Add(MailSlot_Client,5745686,413,238)
{
 Name="111"
}
Add(Button,6156267,308,238)
{
 Left=15
 Top=15
 Caption="вкл"
 Data=Integer(1)
 link(onClick,5484111:doWork2,[])
}
Add(Case,5882706,469,168)
{
 Value=Integer(1)
 link(onNextCase,9605282:doOff,[])
 link(onTrue,9605282:doOn,[])
}
Add(LED,9605282,539,161)
{
 Left=90
 Top=10
}
Add(Button,3128259,308,273)
{
 Left=15
 Top=40
 Data=Integer(0)
 link(onClick,5484111:doWork3,[(382,279)])
}
Add(HubEx,5484111,378,238)
{
 link(onEvent,5745686:doWrite,[])
}
Add(Label,6259071,371,91)
{
 Left=135
 Top=20
}

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

Форумы Помощь по пакетуПередача информации ← Ctrl1Ctrl →


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