LØST: Scripthjelp: hs.Speak

[Norseman]

Prøver å få Homeseer til å fortelle meg temperaturen ute, men har støtt på noen problemer.

 

Temperaturen som hentes fra sensoren vises som f.eks "-9,8" og TTS tolker da dette som "nine eight", mens hvis jeg maunelt legger inn "-9.8" (altså med punktum, ikke komma), snakkes det "negative nine point eight" som er mer ønskelig. 

 

Kan man hente device-verdien, konvertere den, og få denne sendt til TTS via et script?

Endret 6. januar 2017 av Norseman

[Moskus]

Sub Main (byval params as Object)
	Dim value as Double = hs.DeviceValue(26)
	hs.Speak("Outside temperature " & value.ToString.Replace(",", ".") & " degrees.")
End Sub

Det er mulig du til og med kan kjøre det som et immediate script, men det har litt spesielle kompileringsregler, så det er ikke sikkert at fungerer. Men du kan prøve:

&hs.Speak "Outside temperature " & hs.DeviceValue(26).ToString.Replace(",", ".") & " degrees"

 

 

[Norseman]

Takk! Det fungerer nesten :-) Det ser ut til at verdien blir avrundet til nærmeste hele grad.

 

Jeg endret den slik for å få det sendt ut via Sonos:

 

Sub Main (byval params as Object)
    Dim value as Double = hs.DeviceValue(26)
    hs.Speak("Outside temperature " & value.ToString.Replace(",", ".") & " degrees.", True, "$SONOS$ANNOUNCE$:*" )
End Sub

 

SpeakIn called for Device = 100, Text = Outside temperature -6 degrees., Wait=True, Host = $SONOS$ANNOUNCE$:*

[Moskus]

8 minutter siden, Norseman skrev:

Det ser ut til at verdien blir avrundet til nærmeste hele grad.

Sorry, my bad!

Tenkte meg ikke om!

 

Prøv dette:

Sub Main (byval params as Object)
	Dim value as Double = hs.DeviceValueEx(26)
	hs.Speak("Outside temperature " & value.ToString.Replace(",", ".") & " degrees.", True, "$SONOS$ANNOUNCE$:*")
End Sub

... merk at eneste forandring er "Ex" bak DeviceValue.  

[Norseman]

Takk, nå virker det! ?