Hallo,
ich habe die Relaiskarte an RN-Control angeschlossen und ein wenig mit folgendem Progrämmchen gespielt:
Code:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Declare Sub Schalte_relais(byval Relaisnr As Byte , Byval Status As Byte)
Dim I As Byte
Dim Relaisstatus As Byte
Const Relaisport_adr = &H76
'Ports für I2C-Bus
Config Scl = Portc.0
Config Sda = Portc.1
'I2C-Bus initialisieren
I2cinit
Config Porta = Output
Main:
For I = 0 To 7
Porta.i = 0
Call Schalte_relais(i , 1)
Wait 1
Porta.i = 1
Call Schalte_relais(i , 0)
Wait 1
Next I
Goto Main
Sub Schalte_relais(byval Relaisnr As Byte , Byval Status As Byte)
Relaisstatus.relaisnr = Status
I2cstart
I2cwbyte Relaisport_adr 'Schreibbefehl an PCF
I2cwbyte Relaisstatus 'Datenbyte an PCF
I2cstop
End Sub
Weil die Relaiskarte über I2C läuft, habe ich die LED's mal an Port A "geklemmt". Ich frage mich nur, warum die LED's nach Übertragung des Programms oder Reset sofort allesamt leuchten. Nach meinem Verständnis sollte jeweils nur eine LED angehen, wenn ein Relais anzieht.
Und: kann man irgendwie vermeiden, das die Relais beim Einschalten der Betriebsspannung anziehen?
TIA: - Reinhard -
Lesezeichen