Preisrätsel: Warum funtioniert's hier!
Code: Alles auswählen
t, dt: [Uhr], UhrzeitFeierabend, s: [Zeichen], Ticker: Objekt [Zeichen] (mehrzeilig)
t := SONNENUNTERGANG
dt:= t-UHRZEIT
wenn dt <= t dann
sprachausgabe("Warte bis Sonnenuntergang")
warte(dt)
s:= UHRZEIT + " Sonnenuntergang!<<"
Ticker:= s + Ticker
Sprachausgabe(s)
wenn TAG =+ "0111110" dann
t := UhrzeitFeierabend
dt:= t-UHRZEIT
sonst
dt:= ZUFALLSZEIT("00:45:00")
endewenn
LichtAussenEingangHaupt einschalten für dt
s:= "Aussenbeleuchtung Haupteingang einschalten für " + dt
Sprachausgabe(s)
endewenn
Die Homeputer "Software" hat noch
etliche andere Bugs und Macken dieses Kalibers! Einige will ich hier noch einstellen. Ein neues Projekt werde ich aber wohl kaum mehr mit dieser Bastler-"Software" angehen!
btw:
Verbesserungswunsch
Bei Objekten besteht regelmäßig der Bedarf, ihre
Bezeichnung auch an anderer Stelle als in ihrer Objekt-Darstellung im Visualisierungsfenster auszugeben. Naheliegend(st) wäre ja wohl, mit
Objekt.Bezeichnung darauf zugreifen zu können! (Was aber "natürlich" nicht geht!)
Im obigen Beispiel also
Code: Alles auswählen
LichtAussenEingangHaupt einschalten für dt
s:= LichtAussenEingangHaupt.Bezeichnung + " einschalten für " + dt
Als Würg-around vereinbare ich in den betreffenden Objekten immer eine Zeichenfolge-Variable
Name, in die ich dann als Startwert das Gleiche eintrage wie in
Bezeichnung. Dann muss ich bei einer Änderung nicht mühsam an zahlreichen Stellen Litteral-Konstanten ändern!
FHZ 1000 PC, Homeputer Studio V2.0 Rel. 120301
FHT80b-Raumregler, Windows XP (SP3)
Bugs? - Das sind keine Bugs! Das sind Features!