Z-Wave Forum

Allt inom Z-wave och IoT
https://zwaveforum.se/

LUA för nybörjare - Del 2.2 - Uppdaterad

https://zwaveforum.se/viewtopic.php?t=4962

Page 1 of 1

LUA för nybörjare - Del 2.2 - Uppdaterad

Posted: 13 Nov 2014, 20:56
by Bamsefar
Variabler som är listor och "loopar" eller hur man bearbetar listor...

Uppdaterad med lite bättre syntaxbeskrivning...

Jag hade ursprungligen tänkt att detta skulle ha varit i Del 2 - men tiden sprang iväg och jag bestämde mig för att dela upp variabler i två delar. Så nu kommer vi till variabler i form av listor 8-)

En lista med värden, ibland kallas det för vektor eller array i andra programmeringsspråk, kan ibland vara lämplig. Man kan t.ex. tänka sig att man definierar en lista med DeviceIDs som man vill kanske tända eller släcka, och för att slippa koda varje sådan rad så skapar man en lista och sedan "loopar" (bearbetar) man igenom denna lista. Koden blir lite mindre och smidigare - enklare att se vad man gör helt enkelt. Samma sak om man vill, som efterfrågades nyligen, slumpa fram ordningen. Och det var när jag skrev i den tråden som jag insåg att detta borde man nog ta med trots allt.

Listor kan mycket snabbt bli väldigt komplexa saker, med index och "linked lists" - men jag kommer inte gå igenom det - det är helt klart överkurs, och inte direkt något som man behöver sådär jätteofta i hemautomatiseringsbranschen ;-)

Låt oss börja med hur man definierar en lista (och i alla exempel nedan kommer jag använda samma grundtanke, en lista med DeviceIDs som man vill bearbeta):

Code: Select all

local DeviceList = { 7, 9, 13, 17 }
Som ni ser är syntaxen lite annorlunda. Varje element (siffra i detta fall) står för sig, och start/stopp utgörs av { resp }. Alltså:

Code: Select all

<variabelnamn> = { värde1, värdeN }
För att skriva ut ett av dessa element så skriver man t.ex.

Code: Select all

local DeviceList = { 7, 9, 13, 17 }
fibaro:debug(Device nummer 3 har ID: "..DeviceList[4])
Observera alltså att när vi vill åt ett av värdena i listan så är syntaxen:

Code: Select all

<variabelnamn>[<vilket element som motsvarar värdets plats i listan>]
En av poängerna med listor är dock inte att adressera en fast plats, utan att få flexibiliteten av en eller flera värden i listan. Att bara hantera ETT värde kan vi lika gärna använda en fast lokal variabel.

Således så har vi nu alltså skapat en LOKAL list variabel, för det går (såvitt jag vet) bara att skapa lokala listor som variabler.

Om man vill se vad som finns i listan så skriver man lämpligen:

Code: Select all

for loop,Device in pairs(DeviceList) do
	fibaro:debug("Index: "..loop.." DeviceID: "..Device)
end
Och nu börjar det dyka upp lite nya ord här. Vi försöker ta det steg för steg.

Först och främst, och detta gäller inte bara vid listor utan så fort man vill göra något x antal gånger, så måste man på något sätt "loopa" igenom bearbetningsmängden. Det sker lämpligen med en "for" sats, och för att förenkla det hela så kan vi titta på denna kodsnutt:

Code: Select all

for loop = 1, 10 do
	fibaro:debug("Loop: "..loop)
end
Kör vi denna snurra så får vi följande resultat:
[DEBUG] 19:03:41: Loop: 1
[DEBUG] 19:03:41: Loop: 2
[DEBUG] 19:03:41: Loop: 3
[DEBUG] 19:03:41: Loop: 4
[DEBUG] 19:03:41: Loop: 5
[DEBUG] 19:03:41: Loop: 6
[DEBUG] 19:03:41: Loop: 7
[DEBUG] 19:03:41: Loop: 8
[DEBUG] 19:03:41: Loop: 9
[DEBUG] 19:03:41: Loop: 10
Dvs vi köra samma kod 10 gånger - enkel loop. Observera syntaxen, alltså hur det är skrivet:

Code: Select all

for loop = startvärde, slutvärde do
	<gör någonting>
end
Det finns en variant på denna:

Code: Select all

for loop = startvärde, slutvärde, uppräkningsvärde do
	<gör någonting>
end
Dvs om man skriver:

Code: Select all

for loop = 1, 10, 2 do
	fibaro:debug("Loop: "..loop)
end
Så får man inte samma resultat som ovan:
[DEBUG] 19:05:40: Loop: 1
[DEBUG] 19:05:40: Loop: 3
[DEBUG] 19:05:40: Loop: 5
[DEBUG] 19:05:40: Loop: 7
[DEBUG] 19:05:40: Loop: 9
Som ni ser så har vi nu enbart ojämna värden. Och det har att göra med att man startar på värdet 1 (som är det man angivet som startvärde, och till skillnad från t.ex. programspråket C som alltid startar på noll, så rekommenderar jag att ni startar på värdet 1 - det är mera "integrerat" i LUA om man senare får för sig att vara mera extrem i sin programmering ;-) ). Sedan för varje varv så räknas värdet upp med 2, eftersom det är det vi angivet. Och vi fortsätter alltså räknar upp så länge som värdet på loop är mindre än eller lika med slutvärdet. Alltså får vi nummerserien 1,3,5,7,9 - 11 som skulle bli nästa värde är mer än 10 och alltså avbryts beräkningen.

Men om ni efter "loopen" försöker använda värdet av variabeln som ni använt för att veta vilket "varv" ni är i loopen, så kommer den variabel inte finnas kvar - den finns BARA under själva "for" bearbetningen!!! således ger följande kodsnutt:

Code: Select all

for loop = 1, 10, 2 do
	fibaro:debug("Loop: "..loop)
end

fibaro:debug("Loop: "..loop)
Följande irreterande feltext:
[ERROR] 19:10:57: line 39: attempt to concatenate global 'loop' (a nil value)
Variabel "loop" finns inte längre efter "end" kodordet. Bara så ni vet att ni inte rakt av kan utnyttja värdet ;-)

Det finns flera sätt att "loopa" runt, man kan t.ex. använda en s.k. "while"-loop. Den bygger på lite annan metodik. Den "loopar" tills dess att villkoret man specificerat uppfylles. Ett "klassiskt" villkor är att "loopa" för evigt, och det antagligen mest använda:

Code: Select all

while true do
<gör någonting>
end
Alltså kör <gör någonting> för evigt. Ja det normala är nog att man, iallafall i LUA sammanhang på HC2, kanske har denna "loop" varje minut för att t.ex. kolla status på något, och då blir det:

Code: Select all

LExecuteSecond = 60 -- Execute Every N-th second
while true do
<gör någonting>
--Sleep LExecuteSecond seconds
fibaro:sleep(LExecuteSecond*1000)
end
Dvs med "fibaro:sleep(x)" så kommer vi att låta scenen/VDn sova och inte göra något i x antal millisekunder, för att få det till sekunder får vi multiplicera med 1000. Men det är enbart dina krav och påhittighet som sätter gränser, t.ex. skulle man kunna "loopa" igenom en lista:

Code: Select all

local loop=1
while loop < 10 do
	fibaro:debug("Loop: "..loop)
	loop=loop+1
end
Med andra ord samma resultat som tidigare när vi använda "for" - men med en viktig skillnad, variablen "loop" har nu ett lokalt värde hela tiden, och således kan du komma åt värdet efter loopen är klar.

Oberoende av om ni använder "for" eller "while" så ser ni förhoppningsvis att det finns ett "do" på slutet av raden, och det ordet beskriver vad du avser göra (what will you DO). Och det man syftar på är att det som står mellan "do" och "end" är det som utföres:

Code: Select all

do
<gör något då>
end
Viktigt alltså att komma ihåg att man inleder med ett "do" och avslutar med ett "end".

Om vi nu återgår till där jag försökte börja:

Code: Select all

local DeviceList = { 7, 9, 13, 17 }

for loop,Device in pairs(DeviceList) do
	fibaro:debug("Index: "..loop.." DeviceID: "..Device)
end
Så ser vi alltså att vi har 4 värden i den lista som vi skapar, och döper till "DeviceList". För att bekräfta vilka värden som ligger lagrade så använder vi en lite speciell funktion i LUA som håller reda på hur listan "ser ut" - vi vet ju inte alltid hur stor (antal element) listan är. Just nu har jag definierat fyra värden, alltså 4 element. Jag skulle kunna skriva:

Code: Select all

local loop=1
while loop < 5 do
	fibaro:debug("Index: "..loop.." DeviceID: "..DeviceList[loop])
	loop=loop+1
end
Eller:

Code: Select all

for loop = 1, 4 do
	fibaro:debug("Index: "..loop.." DeviceID: "..DeviceList[loop])
end
Det ger samma slutresultat som ovan där ordet "pairs()" används. Men om vi har en lista med 5 element i så får vi alltså bara se de första 4 om vi inte använder "pairs()". Det är inte helt enkelt att förklara hur det hela hänger ihop, så jag avstår faktiskt från det, mer än att med "pairs()" så kommer man enbart bearbeta det antalet element som finns i den ordning de ligger i listan, och så som syntaxen fungerar så är det element i listan man bearbetar den som ligger i variable Device. Det hela styrs alltså av:

Code: Select all

for loop,Device in pairs(DeviceList) do
Variabel loop är den plats man befinner sig på, index i listan om man så vill. Variabel Device är i sin tur värdet i listan DeviceList. Dvs om loop är = 1 så är värdet i Device = 7 osv. Som ni ser finns flera varianter på samma sak, och det är i princip bara att välja den man själv känner sig mest bekväm med.

Det finns flera varianter och den funktion vi nyttjar med "pairs()" är delvis förknippad med index listor (och det tänker jag inte gå in på). Så vi nöjer oss med att ja detta fungerar för oss ;-)

Så vad kan man då göra med listan ovan. Ja om man tänker på frågan om man kan tända flera lampor men i slumpad ordning - för om man hårdkodar tändordningen så kan man inte direkt säga att det är slumpen som styr i vilken ordning som lamporna tänds eller hur? Dessvärre finns ingen superb metod att skapa en slumpad lista, så vi får ta vår lista och skapa en egen form av slumphantering:

Code: Select all

local DeviceList = { 7, 9, 13, 17 }

function fn_TableLength(T)
	local count = 0
	for _ in pairs(T) do count = count + 1 end
	return count
end

local NumberOfDevices = fn_TableLength(DeviceList)

for loop,Device in pairs(DeviceList) do
	IndexOne = math.random(1,NumberOfDevices)
	IndexTwo = math.random(1,NumberOfDevices)
	Temp = DeviceList[IndexOne]
	DeviceList[IndexOne] = DeviceList[IndexTwo]
	DeviceList[IndexTwo] = Temp   
end

for loop,Device in pairs(DeviceList) do
	fibaro:debug("Index: "..loop.." DeviceID: "..Device)
end
Och som ni ser så kommer nu även en ytterligare detalj fram, som iofs har med listor att göra, men som gör att ni även får testa på "funktioner". En funktion är ungefär vad det låter som, i detta fallet så räknar funktionen fram antalet element som finns i listan:

Code: Select all

local NumberOfDevices = fn_TableLength(DeviceList)
Det kallas för funktion eftersom funktionen returnerar ett värde, i detta fallet värdet 4 eftersom det finns 4 element i den lista jag skapat som heter "DeviceList".

Efter att jag tagit reda på antalet element, så försöker jag med slumptalens hjälp byta plats på två åt gången, i "antal element" varv. Dvs 4 gånger kommer "for"-loopen byta två värden i listan, och nu har vi fått en lista som inte längre är i samma ordning som när vi definierade den överst i koden. T.ex. så kan det se ut såhär:
[DEBUG] 19:10:57: Index: 1 DeviceID: 13
[DEBUG] 19:10:57: Index: 2 DeviceID: 9
[DEBUG] 19:10:57: Index: 3 DeviceID: 7
[DEBUG] 19:10:57: Index: 4 DeviceID: 17
Inte direkt samma fina ordning, men skall man tända eller släcka lampor, så är det kanske en bra variant att "förvirra" tjuven.

Re: LUA för nybörjare - Del 2.2

Posted: 13 Nov 2014, 23:48
by SirMaggot
Tackar så mycket, mycket intressant läsning.

Re: LUA för nybörjare - Del 2.2 - Uppdaterad

Posted: 17 Dec 2016, 15:36
by fjuppe
Hej,

Har med stort intresse läst LUA-skolan och faktiskt kunna få en del LUA-skript att hämta data osv....
Men nu har jag gått bet.

Kan jag få lite tips om hur jag hanterar och extraherar data ur tabellen som ser ut som nedan. Kommer från ett API och den har alltid samma utseende och längd. Behöver komma åt ett flertal värden ("value") i nedre halvan.....

Tänkte att det kunde bli lite "extraundervisning" i LUA skolan...:-))

/Torbjörn

{
"language" : "en",
"headers" : [
{
"id" : "00_0010_4221_0100",
"description" : "VBus 0: DeltaSol BS Plus",
"channel" : 0,
"destination_address" : 16,
"source_address" : 16929,
"protocol_version" : 16,
"command" : 256,
"info" : 0,
"destination_name" : "DFA",
"source_name" : "DeltaSol BS Plus",
"fields" : [
{
"id" : "000_2_0",
"name" : "Temperature sensor 1",
"unit" : " \u00B0C",
"unit_code" : "DegreesCelsius"
},
{
"id" : "002_2_0",
"name" : "Temperature sensor 2",
"unit" : " \u00B0C",
"unit_code" : "DegreesCelsius"
},
{
"id" : "004_2_0",
"name" : "Temperature sensor 3",
"unit" : " \u00B0C",
"unit_code" : "DegreesCelsius"
},
{
"id" : "006_2_0",
"name" : "Temperature sensor 4",
"unit" : " \u00B0C",
"unit_code" : "DegreesCelsius"
},
{
"id" : "008_1_0",
"name" : "Pump speed pump 1",
"unit" : "%",
"unit_code" : "Percent"
},
{
"id" : "009_1_0",
"name" : "Pump speed pump 2",
"unit" : "%",
"unit_code" : "Percent"
},
{
"id" : "010_1_0",
"name" : "Relay mask",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "011_1_0",
"name" : "Error mask",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "012_2_0",
"name" : "System time",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "014_1_0",
"name" : "Scheme",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "015_1_1",
"name" : "Option collector max.",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "015_1_2",
"name" : "Option collector min.",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "015_1_4",
"name" : "Option collector frost",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "015_1_8",
"name" : "Option tube collector",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "015_1_16",
"name" : "Option recooling",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "015_1_32",
"name" : "Option HQM",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "016_2_0",
"name" : "Operating hours relay 1",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "018_2_0",
"name" : "Operating hours relay 2",
"unit" : "",
"unit_code" : "None"
},
{
"id" : "020_2_0",
"name" : "Heat quantity",
"unit" : " Wh",
"unit_code" : "WattHours"
},
{
"id" : "026_2_0",
"name" : "Version",
"unit" : "",
"unit_code" : "None"
}
]
}
],
"headerset_stats" : {
"headerset_count" : 1,
"min_timestamp" : 1481972385.039000,
"max_timestamp" : 1481972385.039000
},
"headersets" : [
{
"timestamp" : 1481972385.039000,
"packets" : [
{
"header_index" : 0,
"timestamp" : 1481972384.430000,
"field_values" : [
{
"field_index" : 0,
"raw_value" : 5.000000,
"value" : "5.0"
},
{
"field_index" : 1,
"raw_value" : 38.000000,
"value" : "38.0"
},
{
"field_index" : 2,
"raw_value" : 51.800000,
"value" : "51.8"
},
{
"field_index" : 3,
"raw_value" : 23.600000,
"value" : "23.6"
},
{
"field_index" : 4,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 5,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 6,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 7,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 8,
"raw_value" : 782.000000,
"value" : "13:02"
},
{
"field_index" : 9,
"raw_value" : 1.000000,
"value" : "1"
},
{
"field_index" : 10,
"raw_value" : 1.000000,
"value" : "1"
},
{
"field_index" : 11,
"raw_value" : 1.000000,
"value" : "1"
},
{
"field_index" : 12,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 13,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 14,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 15,
"raw_value" : 1.000000,
"value" : "1"
},
{
"field_index" : 16,
"raw_value" : 1227.000000,
"value" : "1227"
},
{
"field_index" : 17,
"raw_value" : 0.000000,
"value" : "0"
},
{
"field_index" : 18,
"raw_value" : 2466434.000000,
"value" : "2466434"
},
{
"field_index" : 19,
"raw_value" : 1.030000,
"value" : "1.03"
}
]
}
]
}
]
}
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited