Jan-Jak
Новичок
- Сообщения
- 48
- Репутация
- 1
По многочисленным советам участников этого форума я приобрел Arduino Mega 2560 и вот теперь встал в ступоре как прикрутить это чудо к моей лампочкеhttp://autoit-script.ru/index.php/topic,14102.0.html и скрипт от мистера MnM
Пытаюсь взять за отправную точку пример разобранный на сайте http://digitalwrite.net/?p=637
Код:
#include <GUIConstantsEx.au3>
Local $iconOn=@ScriptDir&"\on.ico",$iconOff=@ScriptDir&"\off.ico"
AdlibRegister("__SetImageLamp",1500);Каждую полторы сек будет вызыватся эта функция
GUICreate("")
$On = GUICtrlCreateButton("Включить", 50, 150, 100, 25)
$Off = GUICtrlCreateButton("Выключить", 150, 150, 100, 25)
$ico=GUICtrlCreateIcon('',0,0,20,32,32)
GUISetState()
Func _LampSet($param)
Switch $param
Case "On"
RegDelete("HKEY_CURRENT_USER\Software\Houm\image\$image")
RegWrite( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'On')
Case "Off"
RegDelete("HKEY_CURRENT_USER\Software\Houm\image\$image")
RegWrite( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'Off')
EndSwitch
EndFunc
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $On
_LampSet("On")
Case $Off
_LampSet("Off")
EndSwitch
WEnd
Func __SetImageLamp()
Local $KeyRegister=RegRead("HKEY_CURRENT_USER\Software\Houm\image\$image","$image1")
If $KeyRegister="on" Then
GUICtrlSetImage($ico,$iconOn)
ElseIf $KeyRegister="off" Then
GUICtrlSetImage($ico,$iconOff)
EndIf
EndFunc
Пытаюсь взять за отправную точку пример разобранный на сайте http://digitalwrite.net/?p=637
Ну а я сам на воял примерно вот так. Но мой скрипт не возвращает команду на лампочку.sketch
Код:#define led1 10 #define led2 11 // variabile che conterrà il carattere ricevuto attraverso la seriale int ricevuto = ' '; void setup() { Serial.begin(9600); // apre la porta seriale e la setta a 9600 bps pinMode(led1, OUTPUT); // definisce il pin sul quale è collegato il led1 pinMode(led2, OUTPUT); // definisce il pin sul quale è collegato il led2 } void loop() { if (Serial.available() > 0) { // se il buffer seriale contiene dei dati ricevuto = Serial.read(); // leggo il dato ricevuto switch (ricevuto){ // interpreto il dato ricevuto e mi comporto di conseguenza case '0': digitalWrite(led1,LOW); // se ricevo 0 spengo il led1 Serial.print("1OFF"); break; case '1': digitalWrite(led1,HIGH); // se ricevo 1 accendo il led1 Serial.print("1ON"); break; case '2': digitalWrite(led2,LOW); // se ricevo 2 spengo il led2 Serial.print("2OFF"); break; case '3': digitalWrite(led2,HIGH); // se ricevo 3 accendo il led2 Serial.print("2ON"); break; }}}
Код:
#include <GUIConstantsEx.au3>
#include 'CommMG.au3'
Global $Com_Port = 3
Global $BitPerSecond = 9600
Global $BitDati = 8
Global $Parity = 0
Global $BitStop = 1
Global $FlowControl = 2
Global $sErr
_CommSetPort($Com_Port,$sErr,$BitPerSecond,$BitDati,$Parity,$BitStop,$FlowControl)
Local $iconOn=@ScriptDir&"\on.ico",$iconOff=@ScriptDir&"\off.ico"
AdlibRegister("__SetImageLamp",500);Каждую полторы сек будет вызыватся эта функция
GUICreate("")
$On = GUICtrlCreateButton("Включить", 50, 150, 100, 25)
$Off = GUICtrlCreateButton("Выключить", 150, 150, 100, 25)
$ico=GUICtrlCreateIcon('',0,0,20,32,32)
GUISetState()
Func _LampSet($param)
Switch $param
Case "On"
_CommSendString("1")
Case "Off"
_CommSendString("0")
EndSwitch
EndFunc
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $On
_LampSet("On")
Case $Off
_LampSet("Off")
EndSwitch
WEnd
Func __SetImageLamp()
Local $KeyRegister=_CommGetString()
Sleep(20)
If $KeyRegister="1" Then
GUICtrlSetImage($ico,$iconOn)
ElseIf $KeyRegister="0" Then
GUICtrlSetImage($ico,$iconOff)
EndIf
EndFunc