Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Beleuchtung funktioniert! Kategorie: Programmierung Basic (von Dietmar, Homepage - 13.03.2023 15:26)
 Als Antwort auf Re: Pins vertauscht? von Walter - 13.03.2023 8:45
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station
Hallo Walter,

was lange w├Ąhrt wird endlich gut!

Dann lag es tats├Ąchlich am PCF-Baustein. Der unterst├╝tzt offenbar nicht das Auslesen des Portzustands. Da kannst Du Dich bei AZDelivery beschweren, denn die haben keinen vollwertigen PCF 8574 verbaut.

> Austausch 3x "i=i AND &h08"  auf "i=&h08"
> Die Displaybeleuchtung bleibt nach dem entfernen von 3x  "i AND", an. Das ist jetzt ein weiterer Erfolg, das Licht bleibt zumindest an!

Bist Du damit zufrieden? Oder willst Du die LCD-Beleuchtung auch ausschalten k├Ânnen? Im letzteren Fall mu├čt Du den Sourcecode folgenderma├čen um├Ąndern:

Define LCDBeleuchtung Bit[192]

[...]

LCDBeleuchtung=ON
gosub PCFLCD_init

[...]

#PCFLCD_SetLight
 print "#ON_IIC#";
 print "#STOP#";
 print "#START#";
 put PCFLCD
 put ((LCDData<>0) and &h08)
 LCDBeleuchtung=(LCDData<>0)
 print "#STOP#";
 print "#OFF#";
return

[...]

 i=((LCDBeleuchtung<>0) AND &h08)   ' 3x "i=i AND &h08" durch dieses ersetzen

Ich hoffe, da├č es so richtig ist. Ich konnte es mangels Hardware nicht ├╝berpr├╝fen.

> 3x  "i=&h08"  auf "i=&h02"  ├Ąndern

Das war nur eine Idee von mir. Diese Variante kannst Du vergessen.

Freundliche Gr├╝├če

Dietmar

Meine Homepage: http://ccintern.dharlos.de

 Antwort schreiben

Bisherige Antworten:

Re: Beleuchtung funktioniert! (von Walter - 13.03.2023 18:17)