Проблема с отправкой данных в Com Port

BlackPhreaker · 23 Фев 2016

Может кто сталкивался???
Почему не отправляются данные в Com Port???

Код:

#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <CommMG.au3>

conecta(4,9600)
HotKeySet("q","exitt")
;_CommSetDllPath("C:\Archivos de programa\AutoIt3\Include\commg.dll")
Local $hDLL = DllOpen("user32.dll")

While 1
    If _IsPressed("26", $hDLL) or _IsPressed(57) Then ; Вверх или W
		$v = 1
		;_CommSendString("1")

    ElseIf _IsPressed("28", $hDLL) or _IsPressed(53) Then ; Вниз или S
     	$v = 2
		;_CommSendString("2")
    ElseIf _IsPressed("27", $hDLL) or _IsPressed(44) Then ; Вправо или D
     	$v = 3
		;_CommSendString("3")
    ElseIf _IsPressed("25", $hDLL) Or _IsPressed(41) Then ; Влево или A
     	$v = 4
		;_CommSendString("4")
	Else
	    $v = 0
		;_CommSendString("0")
    EndIf

_CommSendString($v&@CRLF) ;~ Отправка данных в Com Port
  ConsoleWrite($v&@CRLF) ;~ Отправка данных в Console

Sleep(50)
WEnd

DllClose($hDLL)


Func conecta($port,$baud) ; Настройка Com Port
   If $baud = "" Then $baud = 9600
   Local $sportSetError
   ConsoleWrite(_CommListPorts(0))
   _CommSetPort($port, $sportSetError, 9600, 8, "none",2,1)
   if $sportSetError = '' Then
      Return 1
      ConsoleWrite("using " & _CommGetVersion(1))
   Else
      ConsoleWrite("error")
      return $sportSetError
   EndIf
EndFunc

 Func Beeps() ; Пищалка
	Beep(1976,800)
	Sleep(50)
 EndFunc

 Func exitt() ; Закрываем Com Port
   _CommCloseport()
   Exit
EndFunc

BlackPhreaker · 23 Фев 2016

Вот так заработал код но только с буквенными кнопками... :scratch:

Странное поведение кода... :stars: :stars: :stars:

Код:

#include <CommMG.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>

;FileInstall("C:\Documents and Settings\USUARIO\Mis documentos\samuel\co.jpg",@TempDir&"\co.jpg")
HotKeySet("q","exitt")
;_CommSetDllPath("C:\AutoIt3\Include\commg.dll")

Local $hDLL = DllOpen("user32.dll")
conecta(4,9600)

While 1
    If _IsPressed("26", $hDLL) or _IsPressed(57) Then ; Вверх или W
		$v = 1
		;_CommSendString("1")
    ElseIf _IsPressed("28", $hDLL) or _IsPressed(53) Then ; Вниз или S
     	$v = 2
		;_CommSendString("2")
    ElseIf _IsPressed("27", $hDLL) or _IsPressed(44) Then ; Вправо или D
     	$v = 3
		;_CommSendString("3")
    ElseIf _IsPressed("25", $hDLL) Or _IsPressed(41) Then ; Влево или A
     	$v = 4
		;_CommSendString("4")
	Else
	    $v = 0
		;_CommSendString("0")
    EndIf

_CommSendString($v&@CRLF) ;~ Отправка данных в Com Port
 ConsoleWrite($v&@CRLF) ;~ Отправка данных в Console

Sleep(50)
WEnd

DllClose($hDLL)

Func conecta($port,$baud) ; Настройка Com Port
   If $baud = "" Then $baud = 9600
   Local $sportSetError
   ConsoleWrite(_CommListPorts(0))
   _CommSetPort($port, $sportSetError, 9600, 8, "none",2,1)
   if $sportSetError = '' Then
      Return 1
      ConsoleWrite("using " & _CommGetVersion(1))
   Else
      ConsoleWrite("error")
      return $sportSetError
   EndIf
EndFunc

 Func Beeps() ; Пищалка
	Beep(1976,800)
	Sleep(50)
 EndFunc

 Func exitt() ; Закрываем Com Port
   _CommCloseport()
   Exit
EndFunc

Добавлено:
Сообщение автоматически объединено: 23 Фев 2016

Выкладываю библиотеку если кто захочет проверить у себя...
Добавлено:
Сообщение автоматически объединено: 23 Фев 2016

Разобрался Сам :IL_AutoIt_1: :IL_AutoIt_1: :IL_AutoIt_1:

Вот рабочий код 8)

Код:

#include <CommMG.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>

HotKeySet("{ESC}","exitt")

Local $hDLL = DllOpen("user32.dll")
conecta(4,9600)

While 1
    If _IsPressed("26") or _IsPressed(57) Then ; Вверх или W
		$v = 1
		;_CommSendString("1")
    ElseIf _IsPressed("28") or _IsPressed(53) Then ; Вниз или S
     	$v = 2
		;_CommSendString("2")
    ElseIf _IsPressed("27") or _IsPressed(44) Then ; Вправо или D
     	$v = 3
		;_CommSendString("3")
    ElseIf _IsPressed("25") or _IsPressed(41) Then ; Влево или A
     	$v = 4
		;_CommSendString("4")
    ElseIf _IsPressed("0D")  Then ; Действие или Enter
     	$v = 5
		;_CommSendString("5")
    ElseIf _IsPressed("20") Then ; Действие или Space
     	$v = 6
	  ;_CommSendString("6")
	Else
	    $v = 0
		;_CommSendString("0")
    EndIf

_CommSendString($v&@CRLF) ;~ Отправка данных в Com Port
 ConsoleWrite($v&@CRLF) ;~ Отправка данных в Console

Sleep(50)
WEnd

DllClose($hDLL)

Func conecta($port,$baud) ; Настройка Com Port
   If $baud = "" Then $baud = 9600
   Local $sportSetError
   ConsoleWrite(_CommListPorts(0))
   _CommSetPort($port, $sportSetError, 9600, 8, "none",2,1)
   if $sportSetError = '' Then
      Return 1
      ConsoleWrite("using " & _CommGetVersion(1))
   Else
      ConsoleWrite("error")
      return $sportSetError
   EndIf
EndFunc

 Func Beeps() ; Пищалка
	Beep(1976,800)
	Sleep(50)
 EndFunc

 Func exitt() ; Закрываем Com Port
   _CommCloseport()
   Exit
EndFunc

Автор темы	Похожие темы	Форум	Ответы	Дата
	Проблема с отправкой почты	Общие вопросы по AutoIt	3	15 Май 2015
G	[Сеть, интернет] Проблема с отправкой POST запроса.	Общие вопросы по AutoIt	1	6 Май 2013
M	[Сеть, интернет] Проблема с отправкой пакетов на сервер.	Стол заказов	0	26 Мар 2013
Z	Неявный Submit формы / Проблема с отправкой данных	Автоматизация IE и Web-интерфейса	3	18 Май 2012
M	Проблема с отправкой символов в цикле	Общие вопросы по AutoIt	12	6 Май 2012

Поиск

Поиск

Проблема с отправкой данных в Com Port

BlackPhreaker

Новичок

BlackPhreaker

Новичок

Вложения