Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Макрос для COM порта
 
#1
06.04.2012 12:41:04
Воплощаю в жизнь следующую задачу:  
Необходимо создать макрос, управления реле, через com порт (два элемента управления – кнопка ВКЛ, кнопка ВЫКЛ).    
 
Алгоритм в сом порт:  
1. Устанавка  DTR в "HIGH" – включено (ножка 4)  
2. Устанавливаем DTR в "LOW" – выключено (ножка 4)  
 
Прошу помощи с кодом программы …
 
 
 
#2
06.04.2012 12:44:05
А из той идеи:   
http://www.planetaexcel.ru/forum.php?thread_id=39389  
что-нибудь вышло? Пользуетесь?
 
 
 
#3
06.04.2012 13:00:38
Перевожу в RGB, а CMYK пока через программку специальную (времени не хватает до ума довести). А так успешно у же на протяжении недели смешиваю красочки!!!!  
Проблемка есть... Минимальный доза краски у меня  - капля из шприца, чем более точное соотношение, соответственно больше нужно краски в объеме...А это не экономично.. Сейчас работаю над дозированием в объеме меньшей капли... (думаю собрать, что-то по типу дюзы стрйного принтера только большего размера Буду эксперементировать....эксперементировать...
 
 
 
#4
06.04.2012 13:14:09
Т.е. моим решением не пользуетесь.  
А почему, если не секрет? Неправильно раскладывает или что?  
 
"два элемента управления – кнопка ВКЛ, кнопка ВЫКЛ"  
А почему не переключатель (радиокнопка)?
 
 
 
#5
06.04.2012 13:20:56
1.Большое спасибо за предоставленную помощь!!!!  
Просто когда через ексель перевожу - есть некоторая "кривизна" по отношению с программкой.... (остаил на чуть, чуть попозже - все равно буду выстраивать всю цепочку автоматизации!)  
 
2. Можно и переключатель (нет в принципе ни какой разницы)... Просто с кнопками уже имел дело в VB. а переключатель надо осваивать... Но все же дело не в том дело с COM портом как написать макрос...
 
 
 
#6
06.04.2012 13:24:27
А вот это из нужной "оперы":  
На два вывода  СОМ порта - DTR и RTS можно вывести (+12В) или (-12В), и тем самым зажечь светодиод, включить реле или какой-то другой исполнительный механизм. Например, для вывода RTS, это команды:    
 
MSComm1.RTSEnable = False   (3)   выводит на 7 ножку +12Вольт.  
 
MSComm1.RTSEnable = True    (4)   выводит на 7 ножку  -12Вольт.
 
 
 
#7
06.04.2012 13:25:05
"есть некоторая "кривизна" по отношению с программкой"  
 
Так объясните - какая. Я в цветах ничего не соображаю, я же признался уже =)  
"дело с COM портом как написать макрос" Это читали уже?  
 http://forum.ru-board.com/topic.cgi?forum=33&topic=10166   
http://www.pcports.ru/articles/ke_usb10.php
 
 
 
#8
06.04.2012 13:31:01
Значения разняться (по отношению с програмкой) у пурпурного и желтого.... Черный в точку! (думаю, что там в формулке кака я то ошибка - незначительная)Я если честно еще глубоко туда не лез.. Но залезу!  
Рисковать немогу... красочка дорогая.. (но я еще раз повторюсь, что очень благодарен за помощь! Все файлики себе скопировал)
 
 
 
#9
06.04.2012 13:34:44
Хмм, дайте что ли ссылку на эту программу, вечером посмотрю, поправлю свою.
 
 
 
#10
06.04.2012 13:43:09
ссылки нет -есть название программы  
"Peacock Color Picker"
 
 
 
#11
06.04.2012 13:51:25
ActiveX элемент MSComm - необходим ясно!  
 
Настроить - более менее ясно (кромеVal(TextBox1.Value)  
 
Private Sub CommandButton1_Click()  
'Настраиваем порт  
   KeUSB.CommPort = Val(TextBox1.Value)  
   KeUSB.Settings = "9600,N,8,1"  
   KeUSB.Handshaking = comNone  
   KeUSB.InputLen = 0  
   KeUSB.InBufferSize = 40  
   KeUSB.OutBufferSize = 40  
   KeUSB.RThreshold = 0  
'Открываем порт  
   KeUSB.PortOpen = True  
End Sub  
 
Осталось записать в порт  
DTR в "HIGH"    
DTR в "LOW"    
 
А как...
 
 
 
#12
06.04.2012 13:55:52
Этого достаточно, вечером посмотрю.
 
 
 
#13
06.04.2012 14:10:35
может создать две кнопки, на одну  
KeUSB.Output ="HIGH"  
на другую  
KeUSB.Output ="Down"   
http://www.activexperts.com/serial-port-component/howto/vba/  
http://www.pencomdesign.com/support/relay_software/vba_software_example.htm  
http://www.tek-tips.com/viewthread.cfm?qid=560230
 
 
 
Страницы: 1
Читают тему
Наверх