Ответ
 
Опции вопроса Поиск в этом вопросе Опции просмотра
  #1  
Старый 04.09.2011, 22:52
Аватар для Guest
Guest
Вопрос
Сообщений: n/a
По умолчанию

Братцы, помогите не выполняется команда Output. Руками через прогу RS232Pro все фурычит, а так нет Private Sub Command1_Click()'Attribute VB_Name = "Module1"Dim TimeStartPort$ = "COM1"With MSComm1.InBufferCount = 0 ' .Output = "a"TimeStart = TimeEnd WithEnd SubPrivate Sub Command2_Click()Port$ = "COM1"With MSComm1.Output = "q"End WithEnd SubPrivate Sub Form_Load()Call InitComPrint MSComm1.CommIDEnd SubPrivate Sub InitCom()' With MSComm1'On Error GoTo ErrInit.CommPort = 1 ' .Settings = "9600,N,8,1".InputLen = 1.PortOpen = True.DTREnable = True.RThreshold = 1.Handshaking = comRTS.RTSEnable = True'expBegin.Caption = .Settings'expBegin.Caption = .CommIDPrint .SettingsDebug.Print MSComm1.CommIDOn Error GoTo 0End WithEnd Sub
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
КАК МНЕ Узнавать свой порт на кс 1.6. немогу узнать свой порт на кс 1.6 знаю ип а порт нет погмогите Guest Новый архив 4 0 16.03.2012 16:01
расстояние порт Анадырь-порт Владивосток Guest Новые вопросы и ответы 5 0 04.01.2012 19:52
Что делать если когда перекачиваешь с сотика на комп фотки через ик порт а ик порт на сотике дает сбой отправки в чем Guest Четвертый архив 0 10.12.2011 00:31



© www.otvetnemail.ru - Форум вопросов и ответов.