Domoticz, impostare un rilevatore PIR

Mi diverto con domoticz e gli script lua. Con questo semplicissimo script LUA ho gestito il PIR 433 mhz per gestire un presa radio comandata sempre 433 mhz.

nome script script_device_sensore1on.lua mentre la dir dove inserire lo script è ~/domoticz/scripts/lua

local motion_switch = ‘sensore1on’
local status_switch = ‘TelevisStanzaLetto’
commandArray = {}
if (devicechanged[motion_switch] == ‘On’ and otherdevices[status_switch]) == ‘Off’ then –motion detected, so there is someone home
commandArray[status_switch]=’On’
end
return commandArray

Quello che voglio far notare è come si scrive il nome di una script in domoticz es.: script_trigger_name.lua

il Trigger può essere come valore ‘time’, ‘device’, ‘variable’ or ‘security’, Name può essere qualsiasi nome del sensore che vuoi gestire, script_device_MyOtherDeviceNameOnWhenMyDeviceNameOn.lua per essere istanziato.

importare esportare in Excel in VBA

ho scritto questo codice….

Public Sub ImportaTxtFile(FName As String, Sep As String)

Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Dim n As Integer

Application.ScreenUpdating = False
'On Error GoTo EndMacro:

SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row

Open FName For Input Access Read As #1

While Not EOF(1)
Line Input #1, WholeLine
If Sheets("Tracciato").Cells(2, 6).Value > 0 Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
End If
ColNdx = SaveColNdx
Pos = 1
n = 1
'    NextPos = InStr(Pos, WholeLine, Sep)
NextPos = Sheets("Tracciato").Cells(1, 1).Value

While NextPos >= 1
If n = 1 Then
TempVal = Mid(WholeLine, 1, NextPos)
Cells(RowNdx, ColNdx).Value = TempVal
n = n + 1
Pos = NextPos
ColNdx = ColNdx + 1
'NextPos = InStr(Pos, WholeLine, Sep)
NextPos = Sheets("Tracciato").Cells(n, 1).Value
Else
TempVal = Mid(WholeLine, Pos + Len(Sep) + 1, NextPos - Pos - Len(Sep))
Cells(RowNdx, ColNdx).Value = TempVal
n = n + 1
Pos = NextPos
ColNdx = ColNdx + 1
'NextPos = InStr(Pos, WholeLine, Sep)
NextPos = Sheets("Tracciato").Cells(n, 1).Value
End If
Wend
RowNdx = RowNdx + 1
Wend

EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Fine Importazione Txt File
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Scegli file Txt e carattere di separazione
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub finestraImportazione()
Dim FileName As Variant
Dim Sep As String
FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
If FileName = False Then
'lascia perdere
Exit Sub
End If
Sep = Application.InputBox("Inserisci il carattere di separazione, se presente:", Type:=2)
If Sep = vbNullString Then
End If
' controllo se esiste un carattere di separazione e valorizza il foglio 2 cella f2
If CInt(Len(Sep)) = 0 Then
Cells(2, 6).Value = 0
Else
Cells(2, 6).Value = Len(Sep)
End If
Debug.Print "FileName: " & FileName, "Separatore: " & Sep
ImportaTxtFile FName:=CStr(FileName), Sep:=CStr(Sep)
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Fine finestra scelta file e specificazione separatore
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

firma digitale su Ubuntu 16.10 con Aruba

Per firmare sotto ubuntu con firma digitale dovete:

a)  scaricare da https://www.pec.it/Download.aspx i driver per il lettore e per la carta. Nel mio caso 1) lettore smart card Bit4Id 2) smart card Oberthur (il chip dorato o SIM per capirci)

b) scaricare l’applicazione Aruba per la firma (io ho scaricato la versione a 64 bit per linux) da quest URL

https://ca.arubapec.it/downloads/ArubaSign-3.0.14-LINUX64.tar.bz2

c) decomprimete l’applicazione aruba sign e lanciate il comando install.bat, vi creerà una icona sulla vostra scrivania

d) dovete installare le lib del vostro lettore smartcard (nel mio caso una penna usb) nelle dir /usr/local/lib ovvero /usr/lib e poi dare il comando sudo ldconfig.

e) vi ricordoc he una volta lanciata l’applicazione prima dell’uso dovete andare nella voce “Opzioni e parametri” e poi nella scheda  avanzate e nel campo “Usa questo d…” inserire /usr/lib/libbit4xpki.so

f) salvate e chiudete

manuale-minilector-v1c

libminilector38u-ccid-bit4id-deb il file deve essere rinominato da TXT a DEB

Installare Netgear a6100 wifi usb

Ho comprato questa chiavetta come installarla su linux?

prima di tutto inseriamo la chiavetta nella porta USB diamo il comando:

sudo apt-get install linux-headers-generic build-essential git -y

git clone https://github.com/Grawp/rtl8812au_rtl8821au.git

cd rtl8812au_rtl8821au

make

sudo make all

sudo make install

poi con sudo modprobe 8812au carichiamo il modulo

per far caricare il modulo appena caricato al boot edita il file con nano /etc/modules ed inserisci 8812au

Domoticz configurazione e backup

Per fare domotica ho usato Domoticz. Il sito è domoticz.org. Per iniziare ho usato una raspberry b con 512mb di Ram e su una flask sd classe 10 (importantissimo) ho scaricato ed installato la immagine che ho trovato su sourceforge.net

nel file ho modificato la interfaccia di rete col seguente comando:

sudo nano /etc/network/interfaces

source-directory /etc/network/interfaces.d

auto lo
iface lo inet loopback

iface eth0 inet manual

auto eth0:1
iface eth0:1 inet static
address 192.168.1.111
gateway 192.168.1.1
netmask 255.255.255.0

allow-hotplug wlan0
iface wlan0 inet manual
wpa-conf /etc/wpa_supplicant/wpa_supplicant.conf

allow-hotplug wlan1
iface wlan1 inet manual
wpa-conf /etc/wpa_supplicant/wpa_supplicant.conf

Il file di backuo per tutta la configurazione è domoticz-db-txt_12102016-db

domoticz manual