wurm
26.01.2010, 23:38
Hallo,
ich hab einen kleinen Umsetzer gebaut, der einen Handschalter und einen Fußschalter abfragt und dann Steuerinformationen an eine Steuerung sendet. Der Fußschalter hat einfach nur 4 Tasten, die direkt an die I/O´s des PICs angeschlossen sind. Dieser Umsetzer ist der Master.
Zusätzlich ist an dem Master via RS485-Bus noch ein Handschalter angeschlossen.
Der 485-Bus ist ca. 2 Meter lang und hat die erforderliche Terminierung etc.
Die Schaltung arbeitet auch einwandfrei. Nur ab und zu kommt es mal vor, dass der Slave beim Starten (zuschalten der Versorgungsspannung) nicht richtig startet. D.h. der Master arbeitet (LEDS am Fußschalter werden angeschaltet und über den Fußschalter ist eine Bedienung möglich). Nur der Handschalter (Slave) arbeitet manchmal nicht (die entsprechenden LEDs werden nicht angeschaltet).
Bei dem ersten Einschalten funktioniert die Kommunikation problemlos, nur nach einigen Unterbrechungen der Versorgungsspannung startet der Slave nicht korrekt.
Ich habe das Gefühl, dass es daran liegen könnte, dass beim Starten schon mal über den Bus noch undefinierte Daten gesendet werden, die die Slave-Uart zum Aufhängen bringen, quasi das der Empfangsbuffer überläuft.
Hier der Code des Masters (PIC16F873a):
'Configuration bits
@ DEVICE pic16F873a, hs_osc, wdt_on, pwrt_on, bod_on, lvp_off, cpd_off, wrt_off, protect_on
' Definitionen
define osc 4 ' Resonator 4 Mhz
include "modedefs.bas"
' Ports als Input bzw. Output definieren
TRISA = %00001111
TRISB = %00000000
TRISC = %10110001
' UART Definitionen
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 19200 ' 19200 Bauds
DEFINE HSER_CLOERR 1
' Port-Definitionen
adcon1 = 7 'Ports auf digital
' Ein- und Ausgänge definieren
m_data var portb.0
m_clk var portb.1
m_wordclk var portb.2
m_mpreached var portc.0 'Memoryposition erreicht
led3 var portc.3'Gelb
led2 var portc.2'Grün
led1 var portc.1'Rot
schalter1 var porta.2'Select
schalter2 var porta.1'Hoch
schalter3 var porta.0'Runter
schalter4 var porta.3'Memory
busrw var porta.4
' Variablen deklarieren
Bus_out var byte 'Ausgabepuffer für Bus
Ebene var word 'Ebene (rot, grün, gelb)
Benutzer var word 'Benutzerebene 1-4
bus_in var byte 'Eingangspuffer für Bus
c_funktion var word 'Counter zur Entprellung der Funktionstaste
c_benutzer var word 'Counter zur Entprellung des Benutzerwechsels
c_save var word 'Counter zur Entprellung der Speichertaste
c_run var byte 'Hilfsvariable, die nur einmal die Übertragung von Word1 und Word2 zulässt
c_word var byte 'Variable des Datenwortes
c_ebene var byte 'Blockiervariable der Ebene (unterbindet Weiterschaltung ohne Taste zu lösen)
c_user var byte 'Blockiervariable des Benutzers (unterbindet Weiterschaltung ohne Taste zu lösen)
c_speichern var byte 'Blockiervariable des Speicherns (unterbindet Weiterschaltung ohne Taste zu lösen)
m_bit0 var bit
m_bit1 var bit
m_bit2 var bit
m_bit3 var bit
m_bit4 var bit
m_bit5 var bit
c_holdmem var byte 'Selbsthaltungsvariable für Memoryfahrt
m_memstop var byte 'Stopvariable der Memory-Funktion
'Initialisierung Display
'Led1 an (Fußschalter)
Ebene = 0
high Led1
low Led2
low Led3
pause 2000
'Led1 an (Handschalter)
Bus_out = 112
gosub SendDisplay
Bus_out = 117
gosub SendDisplay
Bus_out = 121
gosub SendDisplay
'Benutzer1 darstellen (Handschalter)
Benutzer = 0
Bus_out = 130
gosub SendDisplay
' Hauptprogramm
'-----------------
Hauptschleife:
RCSTA.4 = 0
RCSTA.4 = 1
clearwdt
'Handschalter abfragen
Bus_in = 099
Bus_out = 100
gosub SendDisplay
pause 10
if PIR1.5 = 1 then Bus_in = RCREG
if Bus_in < 031 and Bus_in > 37 then Bus_in = 099
'Memory Unterbrechung
m_memstop = 0
if schalter1 = 1 or schalter2 = 1 or schalter3 = 1 then m_memstop = 1
if Bus_in > 30 and Bus_in < 37 then m_memstop = 1
if c_holdmem = 1 then
if m_mpreached = 1 then
'Stop Memory
high m_wordclk
c_holdmem = 0
endif
if m_memstop = 1 then
'User-Unterbrechung
high m_wordclk
c_holdmem = 0
Bus_in = 099
endif
endif
if c_holdmem <> 1 then
if schalter4 = 1 then Bus_in = 037
'Abfrage Tastendruck
if Bus_in = 031 then gosub Naechste_Ebene
if Bus_in = 035 then gosub Speichern
if Bus_in = 037 then gosub Memory
if Bus_in = 036 then gosub Naechste_Benutzer
if Bus_in = 032 and Ebene = 0 then gosub Hoehe_auf
if Bus_in = 033 and Ebene = 0 then gosub Hoehe_ab
if Bus_in = 032 and Ebene = 1 then gosub Becken_auf
if Bus_in = 033 and Ebene = 1 then gosub Becken_ab
if Bus_in = 032 and Ebene = 2 then gosub Ruecken_auf
if Bus_in = 033 and Ebene = 2 then gosub Ruecken_ab
if schalter1 = 1 then gosub Naechste_Ebene
'if schalter4 = 1 then gosub Memory
if schalter2 = 1 and Ebene = 0 then gosub Hoehe_auf
if schalter3 = 1 and Ebene = 0 then gosub Hoehe_ab
if schalter2 = 1 and Ebene = 1 then gosub Becken_auf
if schalter3 = 1 and Ebene = 1 then gosub Becken_ab
if schalter2 = 1 and Ebene = 2 then gosub Ruecken_auf
if schalter3 = 1 and Ebene = 2 then gosub Ruecken_ab
if Bus_in = 099 and schalter1 = 0 and schalter2 = 0 and schalter3 = 0 and schalter4 = 0 then gosub Zurueck
endif
goto Hauptschleife
'Unterprogramme
'----------------
'Höhe auf
Hoehe_auf:
if c_run = 0 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 141
gosub SendDisplay
return
'Höhe ab
Hoehe_ab:
if c_run = 0 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 140
gosub SendDisplay
return
'Becken auf
Becken_auf:
if c_run = 0 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 143
gosub SendDisplay
return
'Becken ab
Becken_ab:
if c_run = 0 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 142
gosub SendDisplay
return
'Rücken auf
Ruecken_auf:
if c_run = 0 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 145
gosub SendDisplay
return
'Rücken ab
Ruecken_ab:
if c_run = 0 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 144
gosub SendDisplay
return
'Ebenenwechsel
Naechste_Ebene:
c_funktion = c_funktion + 1
if c_funktion >= 10 then
if c_ebene = 0 then
Ebene = Ebene + 1
if Ebene = 3 then Ebene = 0
if Ebene = 0 then
high Led1
low Led2
Low Led3
Bus_out = 112
gosub SendDisplay
Bus_out = 117
gosub SendDisplay
Bus_out = 121
gosub SendDisplay
Bus_out = 147
gosub SendDisplay
endif
if Ebene = 1 then
low Led1
high Led2
low led3
Bus_out = 113
gosub SendDisplay
Bus_out = 116
gosub SendDisplay
Bus_out = 121
gosub SendDisplay
Bus_out = 135
gosub SendDisplay
endif
if Ebene = 2 then
low Led1
low Led2
high Led3
Bus_out = 113
gosub SendDisplay
Bus_out = 117
gosub SendDisplay
Bus_out = 120
gosub SendDisplay
Bus_out = 136
gosub SendDisplay
endif
c_ebene = 1
c_funktion = 0
endif
endif
return
'Benutzerwechsel
Naechste_Benutzer:
c_benutzer = c_benutzer + 1
if c_benutzer >= 10 then
if c_user = 0 then
Benutzer = Benutzer + 1
if Benutzer = 4 then Benutzer = 0
if Benutzer = 0 then
Bus_out = 130
gosub SendDisplay
endif
if Benutzer = 1 then
Bus_out = 131
gosub SendDisplay
endif
if Benutzer = 2 then
Bus_out = 132
gosub SendDisplay
endif
if Benutzer = 3 then
Bus_out = 133
gosub SendDisplay
endif
c_user = 1
c_benutzer = 0
endif
endif
return
'Memory speichern
Speichern:
c_save = c_save + 1
if c_save >= 100 then
if c_speichern = 0 then
Bus_out = 146
gosub SendDisplay
'Benutzer 0
if Ebene = 0 and Benutzer = 0 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 0 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 0 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
'Benutzer 1
if Ebene = 0 and Benutzer = 1 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 1 then
m_bit0=1
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 1 then
m_bit0=0
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
'Benutzer 2
if Ebene = 0 and Benutzer = 2 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 2 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 2 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
'Benutzer 3
if Ebene = 0 and Benutzer = 3 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 3 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 3 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
c_save = 0
c_speichern = 1
high m_clk
pause 10
low m_wordclk
pause 100
high m_wordclk
endif
endif
return
'Memory abrufen
Memory:
Bus_out = 138
gosub SendDisplay
'Benutzer 1
if Ebene = 0 and Benutzer = 0 then
m_bit0=1
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 0 then
m_bit0=0
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 0 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
'Benutzer 2
if Ebene = 0 and Benutzer = 1 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 1 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 1 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
'Benutzer 3
if Ebene = 0 and Benutzer = 2 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 2 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 2 then
m_bit0=1
m_bit1=0
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
'Benutzer 4
if Ebene = 0 and Benutzer = 3 then
m_bit0=0
m_bit1=0
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 3 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 3 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
c_holdmem = 1
high m_clk
pause 10
low m_wordclk
return
'Neutral-Programm (im Leerlauf)
Zurueck:
high m_data
high m_clk
high m_wordclk
c_run = 0
c_funktion = 0
c_save = 0
c_ebene = 0
c_user = 0
c_speichern = 0
Bus_out = 139
'Memorybild senden
' if Ausgang1 = 1 then Bus_out = 138
' if Ausgang2 = 1 then Bus_out = 138
' if Ausgang3 = 1 then Bus_out = 138
gosub SendDisplay
return
'Datenausgabe 485-Bus
SendDisplay:
high busrw ' Bus auf Schreiben
hserout [Bus_out] ' Handschalter ansprechen
while txsta.1 = 0
wend
pauseus 7
low busrw ' Bus auf Lesen
return
'Datenausgabe Magnetic-Schnittstelle
WordOut:
high m_clk
high m_wordclk
portb.0 = m_bit0
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit1
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit2
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit3
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit4
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit5
pause 10
low m_clk
pause 10
high m_clk
pause 10
low m_wordclk
return
Und hier der Code des Slaves:
'Configuration bits
@ DEVICE pic16F873a, hs_osc, wdt_on, pwrt_on, bod_on, lvp_off, cpd_off, wrt_off, protect_on
' Definitionen
define osc 4 ' Resonator 4 Mhz
include "modedefs.bas"
TRISC = %10000000 ' PORTC.7 is the RX input
' PORTC.6 is the TX output
' UART Definitionen
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 19200 ' 19200 Bauds
DEFINE HSER_CLOERR 1
' Port-Definitionen
adcon1 = 7 'Ports auf digital
p1 var portb.0'Pin 1
p2 var portb.1'Pin 2
p3 var portb.2'Pin 3
p4 var portb.3'Pin 4
p5 var portb.4'Pin 5
p6 var portb.5'Pin 6
p7 var portb.6'Pin 7
l1 var porta.0'Pin 8 LED 1
l3 var porta.1'Pin 9 LED 3
l5 var porta.2'Pin 10 LED 5
l2 var porta.3'Pin 11 LED 2 Rot
l4 var porta.4'Pin 12 LED 4 Grün
l6 var porta.5'Pin 13 LED 6 Gelb
l7 var portc.0'Pin 14 LED 7
'p15 vcc
ELEIN var portc.1
s1 var word'frei
s2 var word'Function
s3 var word'Hoch
s4 var word'Runter
s5 var word'frei
s6 var word'Pfeil
s7 var word'Benutzer
s8 var word'Memory
s9 var word'frei
s10 var word'frei
Bus_out var byte
zaehler var word
Bus_in var Byte
busrw var portc.5
'checksumme var byte
' Ports als Ein- bzw. Ausgang
input portb.0
input portb.1
input portb.2
input portb.3
input portb.4
input portb.5
input portb.6
output porta.0
output porta.1
output porta.2
output porta.3
output porta.4
output porta.5
output portc.0
output portc.1'Display
'----------------------------------------------------------------------------------
' Hauptprogramm
'----------------------------------------------------------------------------------
high ELEIN ' Display beim Einschalten aus
'high l1'LED beim Startem aus
high l2'LED beim Startem aus
'high l3'LED beim Startem aus
high l4'LED beim Startem aus
'high l5'LED beim Startem aus
high l6'LED beim Startem aus
'high l7'LED beim Startem aus
Schleife:
clearwdt
If PIR1.5 <> 1 Then goto Schleife'Zeichen in UART-Interrupt
'RCSTA.4 = 0
'RCSTA.4 = 1
' Zeichen liegt an UART an
Bus_in = RCREG
if Bus_in = 100 then gosub Taste ' Master fordert Tastendruck an
if Bus_in = 105 then gosub Power_on ' Master schaltet Hand/Säule ein
if Bus_in = 106 then gosub Power_off ' Master schaltet Hand/Säule aus
'if Bus_in = 110 then low l1'LED1 anschalten
'if Bus_in = 111 then high l1'LED1 ausschalten
if Bus_in = 112 then low l2'LED2 anschalten
if Bus_in = 113 then high l2'LED2 ausschalten
'if Bus_in = 114 then low l3'LED3 anschalten
'if Bus_in = 115 then high l3'LED3 ausschalten
if Bus_in = 116 then low l4'LED4 anschalten
if Bus_in = 117 then high l4'LED4 ausschalten
'if Bus_in = 118 then low l5'LED5 anschalten
'if Bus_in = 119 then high l5'LED5 ausschalten
if Bus_in = 120 then low l6'LED6 anschalten
if Bus_in = 121 then high l6'LED6 ausschalten
'if Bus_in = 122 then low l7'LED7 anschalten
'if Bus_in = 123 then high l7'LED7 ausschalten
Bus_in = 0
goto Schleife
'----------------------------------------------------------------------------------
' Unterprogramm Tastendruck ausgeben
'----------------------------------------------------------------------------------
Taste:
' Schalter auf Null setzen
s1=0
s2=0
s3=0
s4=0
s5=0
s6=0
s7=0
s8=0
s9=0
s10=0
' Ebene 1 abfragen (B4=1) S1, S4, S7, S10
high p5
low p6
low p7
'if p1 = 1 then s1 = 1
if p2 = 1 then s4 = 1
if p3 = 1 then s7 = 1
'if p4 = 1 then s10 = 1
' Ebene 2 abfragen (B5=1) S2, S5, S8
low p5
high p6
low p7
if p1 = 1 then s2 = 1
'if p2 = 1 then s5 = 1
if p3 = 1 then s8 = 1
' Ebene 3 abfragen (B6=1) S3, S6, S9
low p5
low p6
high p7
if p1 = 1 then s3 = 1
if p2 = 1 then s6 = 1
i'f p3 = 1 then s9 = 1
low p5
low p6
low p7
' Bus_out ausgeben
Bus_out = 099
zaehler = 0
if s1 = 1 then Bus_out=030:zaehler = zaehler +1
if s2 = 1 then Bus_out=031:zaehler = zaehler +1
if s3 = 1 then Bus_out=032:zaehler = zaehler +1
if s4 = 1 then Bus_out=033:zaehler = zaehler +1
if s5 = 1 then Bus_out=034:zaehler = zaehler +1
if s6 = 1 then Bus_out=035:zaehler = zaehler +1
if s7 = 1 then Bus_out=036:zaehler = zaehler +1
if s8 = 1 then Bus_out=037:zaehler = zaehler +1
if s9 = 1 then Bus_out=038:zaehler = zaehler +1
if s10 = 1 then Bus_out=039:zaehler = zaehler +1
if zaehler > 1 then Bus_out = 099
if s3 = 1 and s4 = 1 then Bus_out = 098
pauseus 7'???
high busrw
HSEROUT [Bus_out] ' Ausgabe des Tastendrucks auf UART
while txsta.1 <> 1
wend
pauseus 14'????
low busrw
return
'----------------------------------------------------------------------------------
' Unterprogramm POWER ON
'----------------------------------------------------------------------------------
' Sub POWER_ON
Power_on:
high ELEIN
return
'----------------------------------------------------------------------------------
' Unterprogramm POWER OFF
'----------------------------------------------------------------------------------
' Sub POWER_OFF
Power_off:
low ELEIN
return
Hat jemand eine Idee, woran dieses Kommunikationsproblem liegen könnte?
Mfg,
Thorsten Wurm
ich hab einen kleinen Umsetzer gebaut, der einen Handschalter und einen Fußschalter abfragt und dann Steuerinformationen an eine Steuerung sendet. Der Fußschalter hat einfach nur 4 Tasten, die direkt an die I/O´s des PICs angeschlossen sind. Dieser Umsetzer ist der Master.
Zusätzlich ist an dem Master via RS485-Bus noch ein Handschalter angeschlossen.
Der 485-Bus ist ca. 2 Meter lang und hat die erforderliche Terminierung etc.
Die Schaltung arbeitet auch einwandfrei. Nur ab und zu kommt es mal vor, dass der Slave beim Starten (zuschalten der Versorgungsspannung) nicht richtig startet. D.h. der Master arbeitet (LEDS am Fußschalter werden angeschaltet und über den Fußschalter ist eine Bedienung möglich). Nur der Handschalter (Slave) arbeitet manchmal nicht (die entsprechenden LEDs werden nicht angeschaltet).
Bei dem ersten Einschalten funktioniert die Kommunikation problemlos, nur nach einigen Unterbrechungen der Versorgungsspannung startet der Slave nicht korrekt.
Ich habe das Gefühl, dass es daran liegen könnte, dass beim Starten schon mal über den Bus noch undefinierte Daten gesendet werden, die die Slave-Uart zum Aufhängen bringen, quasi das der Empfangsbuffer überläuft.
Hier der Code des Masters (PIC16F873a):
'Configuration bits
@ DEVICE pic16F873a, hs_osc, wdt_on, pwrt_on, bod_on, lvp_off, cpd_off, wrt_off, protect_on
' Definitionen
define osc 4 ' Resonator 4 Mhz
include "modedefs.bas"
' Ports als Input bzw. Output definieren
TRISA = %00001111
TRISB = %00000000
TRISC = %10110001
' UART Definitionen
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 19200 ' 19200 Bauds
DEFINE HSER_CLOERR 1
' Port-Definitionen
adcon1 = 7 'Ports auf digital
' Ein- und Ausgänge definieren
m_data var portb.0
m_clk var portb.1
m_wordclk var portb.2
m_mpreached var portc.0 'Memoryposition erreicht
led3 var portc.3'Gelb
led2 var portc.2'Grün
led1 var portc.1'Rot
schalter1 var porta.2'Select
schalter2 var porta.1'Hoch
schalter3 var porta.0'Runter
schalter4 var porta.3'Memory
busrw var porta.4
' Variablen deklarieren
Bus_out var byte 'Ausgabepuffer für Bus
Ebene var word 'Ebene (rot, grün, gelb)
Benutzer var word 'Benutzerebene 1-4
bus_in var byte 'Eingangspuffer für Bus
c_funktion var word 'Counter zur Entprellung der Funktionstaste
c_benutzer var word 'Counter zur Entprellung des Benutzerwechsels
c_save var word 'Counter zur Entprellung der Speichertaste
c_run var byte 'Hilfsvariable, die nur einmal die Übertragung von Word1 und Word2 zulässt
c_word var byte 'Variable des Datenwortes
c_ebene var byte 'Blockiervariable der Ebene (unterbindet Weiterschaltung ohne Taste zu lösen)
c_user var byte 'Blockiervariable des Benutzers (unterbindet Weiterschaltung ohne Taste zu lösen)
c_speichern var byte 'Blockiervariable des Speicherns (unterbindet Weiterschaltung ohne Taste zu lösen)
m_bit0 var bit
m_bit1 var bit
m_bit2 var bit
m_bit3 var bit
m_bit4 var bit
m_bit5 var bit
c_holdmem var byte 'Selbsthaltungsvariable für Memoryfahrt
m_memstop var byte 'Stopvariable der Memory-Funktion
'Initialisierung Display
'Led1 an (Fußschalter)
Ebene = 0
high Led1
low Led2
low Led3
pause 2000
'Led1 an (Handschalter)
Bus_out = 112
gosub SendDisplay
Bus_out = 117
gosub SendDisplay
Bus_out = 121
gosub SendDisplay
'Benutzer1 darstellen (Handschalter)
Benutzer = 0
Bus_out = 130
gosub SendDisplay
' Hauptprogramm
'-----------------
Hauptschleife:
RCSTA.4 = 0
RCSTA.4 = 1
clearwdt
'Handschalter abfragen
Bus_in = 099
Bus_out = 100
gosub SendDisplay
pause 10
if PIR1.5 = 1 then Bus_in = RCREG
if Bus_in < 031 and Bus_in > 37 then Bus_in = 099
'Memory Unterbrechung
m_memstop = 0
if schalter1 = 1 or schalter2 = 1 or schalter3 = 1 then m_memstop = 1
if Bus_in > 30 and Bus_in < 37 then m_memstop = 1
if c_holdmem = 1 then
if m_mpreached = 1 then
'Stop Memory
high m_wordclk
c_holdmem = 0
endif
if m_memstop = 1 then
'User-Unterbrechung
high m_wordclk
c_holdmem = 0
Bus_in = 099
endif
endif
if c_holdmem <> 1 then
if schalter4 = 1 then Bus_in = 037
'Abfrage Tastendruck
if Bus_in = 031 then gosub Naechste_Ebene
if Bus_in = 035 then gosub Speichern
if Bus_in = 037 then gosub Memory
if Bus_in = 036 then gosub Naechste_Benutzer
if Bus_in = 032 and Ebene = 0 then gosub Hoehe_auf
if Bus_in = 033 and Ebene = 0 then gosub Hoehe_ab
if Bus_in = 032 and Ebene = 1 then gosub Becken_auf
if Bus_in = 033 and Ebene = 1 then gosub Becken_ab
if Bus_in = 032 and Ebene = 2 then gosub Ruecken_auf
if Bus_in = 033 and Ebene = 2 then gosub Ruecken_ab
if schalter1 = 1 then gosub Naechste_Ebene
'if schalter4 = 1 then gosub Memory
if schalter2 = 1 and Ebene = 0 then gosub Hoehe_auf
if schalter3 = 1 and Ebene = 0 then gosub Hoehe_ab
if schalter2 = 1 and Ebene = 1 then gosub Becken_auf
if schalter3 = 1 and Ebene = 1 then gosub Becken_ab
if schalter2 = 1 and Ebene = 2 then gosub Ruecken_auf
if schalter3 = 1 and Ebene = 2 then gosub Ruecken_ab
if Bus_in = 099 and schalter1 = 0 and schalter2 = 0 and schalter3 = 0 and schalter4 = 0 then gosub Zurueck
endif
goto Hauptschleife
'Unterprogramme
'----------------
'Höhe auf
Hoehe_auf:
if c_run = 0 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 141
gosub SendDisplay
return
'Höhe ab
Hoehe_ab:
if c_run = 0 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 140
gosub SendDisplay
return
'Becken auf
Becken_auf:
if c_run = 0 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 143
gosub SendDisplay
return
'Becken ab
Becken_ab:
if c_run = 0 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 142
gosub SendDisplay
return
'Rücken auf
Ruecken_auf:
if c_run = 0 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 145
gosub SendDisplay
return
'Rücken ab
Ruecken_ab:
if c_run = 0 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
c_run = 1
endif
' low m_wordclk
Bus_out = 144
gosub SendDisplay
return
'Ebenenwechsel
Naechste_Ebene:
c_funktion = c_funktion + 1
if c_funktion >= 10 then
if c_ebene = 0 then
Ebene = Ebene + 1
if Ebene = 3 then Ebene = 0
if Ebene = 0 then
high Led1
low Led2
Low Led3
Bus_out = 112
gosub SendDisplay
Bus_out = 117
gosub SendDisplay
Bus_out = 121
gosub SendDisplay
Bus_out = 147
gosub SendDisplay
endif
if Ebene = 1 then
low Led1
high Led2
low led3
Bus_out = 113
gosub SendDisplay
Bus_out = 116
gosub SendDisplay
Bus_out = 121
gosub SendDisplay
Bus_out = 135
gosub SendDisplay
endif
if Ebene = 2 then
low Led1
low Led2
high Led3
Bus_out = 113
gosub SendDisplay
Bus_out = 117
gosub SendDisplay
Bus_out = 120
gosub SendDisplay
Bus_out = 136
gosub SendDisplay
endif
c_ebene = 1
c_funktion = 0
endif
endif
return
'Benutzerwechsel
Naechste_Benutzer:
c_benutzer = c_benutzer + 1
if c_benutzer >= 10 then
if c_user = 0 then
Benutzer = Benutzer + 1
if Benutzer = 4 then Benutzer = 0
if Benutzer = 0 then
Bus_out = 130
gosub SendDisplay
endif
if Benutzer = 1 then
Bus_out = 131
gosub SendDisplay
endif
if Benutzer = 2 then
Bus_out = 132
gosub SendDisplay
endif
if Benutzer = 3 then
Bus_out = 133
gosub SendDisplay
endif
c_user = 1
c_benutzer = 0
endif
endif
return
'Memory speichern
Speichern:
c_save = c_save + 1
if c_save >= 100 then
if c_speichern = 0 then
Bus_out = 146
gosub SendDisplay
'Benutzer 0
if Ebene = 0 and Benutzer = 0 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 0 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 0 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
'Benutzer 1
if Ebene = 0 and Benutzer = 1 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 1 then
m_bit0=1
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 1 then
m_bit0=0
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
'Benutzer 2
if Ebene = 0 and Benutzer = 2 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 2 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 2 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
'Benutzer 3
if Ebene = 0 and Benutzer = 3 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 3 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 3 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=0
m_bit5=1
gosub WordOut
endif
c_save = 0
c_speichern = 1
high m_clk
pause 10
low m_wordclk
pause 100
high m_wordclk
endif
endif
return
'Memory abrufen
Memory:
Bus_out = 138
gosub SendDisplay
'Benutzer 1
if Ebene = 0 and Benutzer = 0 then
m_bit0=1
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 0 then
m_bit0=0
m_bit1=0
m_bit2=0
m_bit3=1
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 0 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
'Benutzer 2
if Ebene = 0 and Benutzer = 1 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 1 then
m_bit0=1
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 1 then
m_bit0=0
m_bit1=0
m_bit2=1
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
'Benutzer 3
if Ebene = 0 and Benutzer = 2 then
m_bit0=1
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 2 then
m_bit0=0
m_bit1=1
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 2 then
m_bit0=1
m_bit1=0
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
'Benutzer 4
if Ebene = 0 and Benutzer = 3 then
m_bit0=0
m_bit1=0
m_bit2=0
m_bit3=0
m_bit4=1
m_bit5=1
gosub WordOut
endif
if Ebene = 1 and Benutzer = 3 then
m_bit0=1
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
if Ebene = 2 and Benutzer = 3 then
m_bit0=0
m_bit1=1
m_bit2=1
m_bit3=1
m_bit4=0
m_bit5=1
gosub WordOut
endif
c_holdmem = 1
high m_clk
pause 10
low m_wordclk
return
'Neutral-Programm (im Leerlauf)
Zurueck:
high m_data
high m_clk
high m_wordclk
c_run = 0
c_funktion = 0
c_save = 0
c_ebene = 0
c_user = 0
c_speichern = 0
Bus_out = 139
'Memorybild senden
' if Ausgang1 = 1 then Bus_out = 138
' if Ausgang2 = 1 then Bus_out = 138
' if Ausgang3 = 1 then Bus_out = 138
gosub SendDisplay
return
'Datenausgabe 485-Bus
SendDisplay:
high busrw ' Bus auf Schreiben
hserout [Bus_out] ' Handschalter ansprechen
while txsta.1 = 0
wend
pauseus 7
low busrw ' Bus auf Lesen
return
'Datenausgabe Magnetic-Schnittstelle
WordOut:
high m_clk
high m_wordclk
portb.0 = m_bit0
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit1
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit2
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit3
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit4
pause 10
low m_clk
pause 10
high m_clk
pause 10
portb.0 = m_bit5
pause 10
low m_clk
pause 10
high m_clk
pause 10
low m_wordclk
return
Und hier der Code des Slaves:
'Configuration bits
@ DEVICE pic16F873a, hs_osc, wdt_on, pwrt_on, bod_on, lvp_off, cpd_off, wrt_off, protect_on
' Definitionen
define osc 4 ' Resonator 4 Mhz
include "modedefs.bas"
TRISC = %10000000 ' PORTC.7 is the RX input
' PORTC.6 is the TX output
' UART Definitionen
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 19200 ' 19200 Bauds
DEFINE HSER_CLOERR 1
' Port-Definitionen
adcon1 = 7 'Ports auf digital
p1 var portb.0'Pin 1
p2 var portb.1'Pin 2
p3 var portb.2'Pin 3
p4 var portb.3'Pin 4
p5 var portb.4'Pin 5
p6 var portb.5'Pin 6
p7 var portb.6'Pin 7
l1 var porta.0'Pin 8 LED 1
l3 var porta.1'Pin 9 LED 3
l5 var porta.2'Pin 10 LED 5
l2 var porta.3'Pin 11 LED 2 Rot
l4 var porta.4'Pin 12 LED 4 Grün
l6 var porta.5'Pin 13 LED 6 Gelb
l7 var portc.0'Pin 14 LED 7
'p15 vcc
ELEIN var portc.1
s1 var word'frei
s2 var word'Function
s3 var word'Hoch
s4 var word'Runter
s5 var word'frei
s6 var word'Pfeil
s7 var word'Benutzer
s8 var word'Memory
s9 var word'frei
s10 var word'frei
Bus_out var byte
zaehler var word
Bus_in var Byte
busrw var portc.5
'checksumme var byte
' Ports als Ein- bzw. Ausgang
input portb.0
input portb.1
input portb.2
input portb.3
input portb.4
input portb.5
input portb.6
output porta.0
output porta.1
output porta.2
output porta.3
output porta.4
output porta.5
output portc.0
output portc.1'Display
'----------------------------------------------------------------------------------
' Hauptprogramm
'----------------------------------------------------------------------------------
high ELEIN ' Display beim Einschalten aus
'high l1'LED beim Startem aus
high l2'LED beim Startem aus
'high l3'LED beim Startem aus
high l4'LED beim Startem aus
'high l5'LED beim Startem aus
high l6'LED beim Startem aus
'high l7'LED beim Startem aus
Schleife:
clearwdt
If PIR1.5 <> 1 Then goto Schleife'Zeichen in UART-Interrupt
'RCSTA.4 = 0
'RCSTA.4 = 1
' Zeichen liegt an UART an
Bus_in = RCREG
if Bus_in = 100 then gosub Taste ' Master fordert Tastendruck an
if Bus_in = 105 then gosub Power_on ' Master schaltet Hand/Säule ein
if Bus_in = 106 then gosub Power_off ' Master schaltet Hand/Säule aus
'if Bus_in = 110 then low l1'LED1 anschalten
'if Bus_in = 111 then high l1'LED1 ausschalten
if Bus_in = 112 then low l2'LED2 anschalten
if Bus_in = 113 then high l2'LED2 ausschalten
'if Bus_in = 114 then low l3'LED3 anschalten
'if Bus_in = 115 then high l3'LED3 ausschalten
if Bus_in = 116 then low l4'LED4 anschalten
if Bus_in = 117 then high l4'LED4 ausschalten
'if Bus_in = 118 then low l5'LED5 anschalten
'if Bus_in = 119 then high l5'LED5 ausschalten
if Bus_in = 120 then low l6'LED6 anschalten
if Bus_in = 121 then high l6'LED6 ausschalten
'if Bus_in = 122 then low l7'LED7 anschalten
'if Bus_in = 123 then high l7'LED7 ausschalten
Bus_in = 0
goto Schleife
'----------------------------------------------------------------------------------
' Unterprogramm Tastendruck ausgeben
'----------------------------------------------------------------------------------
Taste:
' Schalter auf Null setzen
s1=0
s2=0
s3=0
s4=0
s5=0
s6=0
s7=0
s8=0
s9=0
s10=0
' Ebene 1 abfragen (B4=1) S1, S4, S7, S10
high p5
low p6
low p7
'if p1 = 1 then s1 = 1
if p2 = 1 then s4 = 1
if p3 = 1 then s7 = 1
'if p4 = 1 then s10 = 1
' Ebene 2 abfragen (B5=1) S2, S5, S8
low p5
high p6
low p7
if p1 = 1 then s2 = 1
'if p2 = 1 then s5 = 1
if p3 = 1 then s8 = 1
' Ebene 3 abfragen (B6=1) S3, S6, S9
low p5
low p6
high p7
if p1 = 1 then s3 = 1
if p2 = 1 then s6 = 1
i'f p3 = 1 then s9 = 1
low p5
low p6
low p7
' Bus_out ausgeben
Bus_out = 099
zaehler = 0
if s1 = 1 then Bus_out=030:zaehler = zaehler +1
if s2 = 1 then Bus_out=031:zaehler = zaehler +1
if s3 = 1 then Bus_out=032:zaehler = zaehler +1
if s4 = 1 then Bus_out=033:zaehler = zaehler +1
if s5 = 1 then Bus_out=034:zaehler = zaehler +1
if s6 = 1 then Bus_out=035:zaehler = zaehler +1
if s7 = 1 then Bus_out=036:zaehler = zaehler +1
if s8 = 1 then Bus_out=037:zaehler = zaehler +1
if s9 = 1 then Bus_out=038:zaehler = zaehler +1
if s10 = 1 then Bus_out=039:zaehler = zaehler +1
if zaehler > 1 then Bus_out = 099
if s3 = 1 and s4 = 1 then Bus_out = 098
pauseus 7'???
high busrw
HSEROUT [Bus_out] ' Ausgabe des Tastendrucks auf UART
while txsta.1 <> 1
wend
pauseus 14'????
low busrw
return
'----------------------------------------------------------------------------------
' Unterprogramm POWER ON
'----------------------------------------------------------------------------------
' Sub POWER_ON
Power_on:
high ELEIN
return
'----------------------------------------------------------------------------------
' Unterprogramm POWER OFF
'----------------------------------------------------------------------------------
' Sub POWER_OFF
Power_off:
low ELEIN
return
Hat jemand eine Idee, woran dieses Kommunikationsproblem liegen könnte?
Mfg,
Thorsten Wurm