[Элементы GUI] Как правильно сделать лампочку?

[Jan-Jak]

Здрасти всем. Решил я переехать в деревню. Так вот встал вопрос: Научить дом уму. Но я совершенно не умею работать с окнами и GUI. Помогите нарисовать графический интерфейс. И первые для меня грабли это простая лампочка, но только она должна читать режим из реестра.

#include <GUIConstantsEx.au3>

Global $hButton, $hButton1
Local $icon
GUICreate("")
$hButton = GUICtrlCreateButton("Включить", 50, 150, 100, 25)
$hButton1 = GUICtrlCreateButton("Выключить", 150, 150, 100, 25)
GUISetState()
Func clip()
$f = RegWrite ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'\On.Ico')
        $icon  = @ScriptDir & RegRead ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1" )
      GUICtrlCreateIcon($icon, 20, 0, 20, 32, 32)          
EndFunc 
Func clip1()
$g = RegWrite ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'\Off.Ico')
        $icon  = @ScriptDir & RegRead ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1" )
      GUICtrlCreateIcon($icon, 20, 0, 20, 32, 32)          
EndFunc 


While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $hButton
            clip()
           Case $hButton1
            clip1()
        EndSwitch
WEnd

 

[MnM]

Попробуйте так

#include <GUIConstantsEx.au3>
Local $iconOn=@ScriptDir&"\on.ico",$iconOff=@ScriptDir&"\off.ico"
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.Ico');Зачем читать параметр после записи?
			If Not @error Then
				GUICtrlSetImage($ico,$iconOn)
			EndIf
		Case "Off"
			RegDelete("HKEY_CURRENT_USER\Software\Houm\image\$image")
			RegWrite( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'\Off.Ico')
			If Not @error Then
				GUICtrlSetImage($ico,$iconOff)
			EndIf
	EndSwitch
EndFunc
While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $On
				_LampSet("On")
			Case $Off
                _LampSet("Off")
        EndSwitch
WEnd

Добавлено:

Сообщение автоматически объединено: 3 Июл 2013

Осмелюсь спросить черным юморком:
Вам эта лампочка в саду или деревне, ночью хоть чем то помогает? :D

 

[Garrett]

MnM
Есть такая штука Arduino (любой AVR по сути), вот с ней и работайте через COM порт. У неё есть много выходов как цифровых, так и аналоговых плюс есть ШИМ. Ставите силовые выходы на ~250v 2-3A этого вполне достаточно, и управляете чем угодно. ;)

 

[MnM]

Есть такая штука Arduino

Не хило

 

[Garrett]

Почему советую? Потому что на Arduino можно возложить процессы, которые не будут требовать вмешательства из вне, лишь только для контроля корректировки и изменения ПО, с чем вполне справится Autoit!

 

[MnM]

Прекрасная штука=)
На досуге серьезно подумаю над этим.

OffTopic:
Умный дом построить на AutoIt :laugh:

 

[Garrett]

MnM [?]

Не хило

Да бросьте, собрать такую штуку 3 дня максимум, не напрягаясь после рабочего дня вечерами.
Кстати в исходной схеме есть небольшая ошибка, кроется она в сигнале DTR с COM порта. Если надумаете собирать, помогу её обойти. ;)

 

[MnM]

Не хило

Да бросьте, собрать такую штуку 3 дня максимум

Это я так удивился не "массивности" этой штуки, а то что такая есть ;D
Просто ни разу не слышал.(Как будто пещерный человек )

 

[_Lexa98_]

MnM
Я уже и серво-двигателями и лампочками и звуком управлял с помощью AutoIt через Arduino. Через com порт можно спокойно связывать язык и контроллер. И кстати, вполне просто и удобно

 

[MnM]

Эхх, если бы эта волшебная штучка могла запоминать все что я вижу\слышу\говорю и делаю, а потом если я начну(как всегда) забывать, она бы предоставляла доступ к памяти :whistle:(да и минимизировать её еще до крошечных размеров в ухо )

 

[Garrett]

OffTopic:
MnM [?]

да и минимизировать её еще до крошечных размеров в ухо

Билеты, учить нужно! :laugh:

 

[sss]

MnM
Ну, до состояния в ухо я не дорос, но до размеров 40мм \ 15мм \ 5мм - вполне реально Правда, не Arduino, а "чистый" AVR в SMD корпусах... Камера \ микрофон \ внешняя память цепляется легко...

А Arduino - вон она лежит, с поднятым Telnet и домашним беспроводным сервером для шушеры типа датчика температуры \ влажности... И правда отличная штука для умного дома, советую!

Для безопасного управления приборами типа лампочки \ чайника лучше использовать реле. Управляешь пятивольтовыми сигналами сетью ~220 В - красота, и стоит копейки.

Пример сессии с Telnet

 

[_Lexa98_]

Sky-WaLkeR
Attiny 2313 к примеру
Но там выходов маловато.

 

[sss]

_Lexa98_
Я для датчика использовал ATtiny24A в SO-14 корпусе - крохотулька, и ног прилично - 14 (только оперативки маловато, и памяти 2 Кб). А для станции - ATmega32A в TQFP-корпусе (44 вывода на площади чуть более сантиметра).

 

[_Lexa98_]

Sky-WaLkeR
Ну если брать не DIP, тогда сойдет.

 

[Jan-Jak]

Есть такая штука Arduino (любой AVR по сути), вот с ней и работайте через COM порт. У неё есть много выходов как цифровых, так и аналоговых плюс есть ШИМ. Ставите силовые выходы на ~250v 2-3A этого вполне достаточно, и управляете чем угодно.

это моя мечта. Только скажу прямо. Не по тяну я это. Первое - хроническая не хватка времени. Второе - знания на 0.1 из 100. как максимум переделать готовый пример.

 

[sss]

Jan-Jak [?]

Не потяну я это

Глупости. Если уже знаешь хотя бы один язык программирования (AutoIt например) - освоить Ардуину с нуля до уровня управления лампой - 2-3 часа чистого времени (час на язык, час на основы схемотехники), то есть два сильно загруженных вечера.

 

[Jan-Jak]

в том то и дело. я :IL_AutoIt_1: но знаю его на уровне чайника. то что ты делаешь за минуту. Я буду ковырять месяцы. Вот если я бы тебе расшарил свой рабочий стол и ты это реализовал мне удаленно, то тогда да. Я был бы просто счастлив.

 

[_Lexa98_]

Sky-WaLkeR
pinMode()
analogWrite/Read()
digitalWrite/Read()
If, else {}
Основные функции. Выучить очень легко, причем там синтакс очень прост

 

[sss]

Jan-Jak
Зря ты так говоришь... Я ведь тоже далеко не профессионал, но за Ардуинку взялся, и потом даже перешел на AVR... А удаленный рабочий стол тут не поможет - схему нужно руками собирать, проводок туда, проводок сюда...

Если возникнут вопросы - обращайся тут, или по аське 72471817, или по почте [email protected] - помогу чем смогу.

_Lexa98_
Да, так и есть. Но если совсем с нуля - нужно понять, как не перепутать плюс с минусом, что такое HIGH, LOW и Hi-Z состояние, чем вход отличается от выхода и т.д., отсюда и выходит пара часиков, плюс настройка интерфейса \ раскаповка коробочек \ чтение даташита. Это все только звучит страшновато, но на самом деле и правда легко ;)

Синтакс - транскрипция с английского (syntax), по-русски правильно синтаксис =)