Hallo,
ich habe jetzt versucht, die Interrupts zu enablen.
Leider nicht mit dem gewünschten Erfolg.
Jetzt habe ich meinen gesamten Code angehängt, da sich zwischenzeitlich einige bei mir gemeldet haben, die gerne etwas mehr über die RS485 Steuerung erfahren möchten.
Da das Programm weitestgehend ohne Probleme läuft, kann sich hier jeder etwas abkugen.
Verbesserungsvorschläge nehme ich gerne entgegen!
Vielleicht findet ja auch jemand den oben beschriebenen Fehler im Programm?!
Tobias
Code:
'***** RS-485 *************************
' RS485 Ansteuerung von 5 Relais mit Zeitschaltfunktion und manueller vor Ort Bedienung mit Tastern
' Erstellt von Tobias Riesbeck, Dezember 2006
'**************************************
$regfile = "m8def.dat"
$crystal = 7372800
$baud = 4800
'------------------------------------
Config Pind.4 = Input '1 Dil Schalter für Adresse
Config Pind.3 = Input '2 Dieser muss beim programmieren
Config Pinb.4 = Input '3 auf allen Positionen auf 0 stehen
Config Pinb.3 = Input '4
Config Pinc.0 = Input ' Schaltport
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Pinc.5 = Input ' N.N.
Config Portb.0 = Output ' Schaltport's
Config Portb.1 = Output
Config Portb.2 = Output
Config Portd.7 = Output
Config Portd.6 = Output
Config Portb.5 = Output ' Kontrollport
Dim T1 As Long
Dim T2 As Long
Dim T3 As Long
Dim T4 As Long
Dim T5 As Long
Dim Zeit1 As Long
Dim Zeit2 As Long
Dim Zeit3 As Long
Dim Zeit4 As Long
Dim Zeit5 As Long
Dim Sz As Long 'Sendezeit
Zeit1 = 20000000 'Flur EG
Zeit2 = 20000000 'Schlafzimmer
Zeit3 = 20000000 'Keller
Zeit4 = 10000000 'Gang
Zeit5 = 20000000 'Flur OG
Dim Myadress As Byte 'Variable Myadress wird für Adresse über Dip Schalter festgelegt
'"Hex(myadress)" gibt die Adresse in Hex-Format aus
Myadress.0 = Pind.4
Myadress.1 = Pind.3
Myadress.2 = Pinb.4
Myadress.3 = Pinb.3
Dim Db1_ As Byte ' db1 zur Aufnahme des Modulzustandes in Hex
T1 = 0
T2 = 0
T3 = 0
T4 = 0
T5 = 0
Sz = 0
Config Portd.2 = Output ' RS485
Config Debounce = 50
Dim I As Byte
Dim Key As Byte
Dim S As String * 10
Dim B(10) As Byte 'At S Overlay
Dim N As Byte
' Adresse festlegen -------------------------------------------------
Dim Preamble_ As Byte 'Preamble-Byte
Dim Sync_ As Byte 'Syncronisation-Byte
Dim Hdb2_ As Byte 'Kopf-Byte 1
Dim Hdb1_ As Byte 'Kopf-Byte 2
Dim Dab1_ As Byte
Dim Crc2_ As Byte 'CRC2
Preamble_ = &H55 'H55
Sync_ = &H54 'H54
Hdb2_ = &H51 'H51
Hdb1_ = &H42 'H42
Dab1_ = &H00
' Protokoll ---------------------------------------------------------
Dim Preamble As Byte 'Preamble-Byte
Dim Sync As Byte 'Syncronisation-Byte
Dim Hdb2 As Byte 'Kopf-Byte 1
Dim Hdb1 As Byte 'Kopf-Byte 2
Dim Dab1 As Byte 'Empfänger-Byte 1
Dim Sab1 As Byte 'Sender-Byte 1 Adresse
Dim Db1 As Byte 'Daten-Byte 1 (in diesem Modul als Hex)
Dim Db2 As Byte 'Date-Byte 2 fals erforderlich
Dim Crc2 As Byte 'CRC2
Dim Crc1 As Byte 'CRC1
Dim Aktion As Byte 'CRC1 als Sender
Const Keys = 5
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Portd.2 = 0 ' R/W für RS485
'---------- Programm ----------
Gosub Zustand
Prog_start:
N = 0
Do
If Sz > 0 Then Sz = Sz + 1
If Sz > 10000 Then Gosub Zustand
'Zeitschalter (Zähler)
If T1 > 0 Then T1 = T1 + 1
If T1 > Zeit1 Then
Portd.6 = 0
T1 = 0
Aktion = &H00
Sz = 1
Else
End If
If T2 > 0 Then T2 = T2 + 1
If T2 > Zeit2 Then
Portb.0 = 0
T2 = 0
Aktion = &H00
Sz = 1
Else
End If
If T3 > 0 Then T3 = T3 + 1
If T3 > Zeit3 Then
Portb.2 = 0
T3 = 0
Aktion = &H00
Sz = 1
Else
End If
If T4 > 0 Then T4 = T4 + 1
If T4 > Zeit4 Then
Portd.7 = 0
T4 = 0
Aktion = &H00
Sz = 1
Else
End If
If T5 > 0 Then T5 = T5 + 1
If T5 > Zeit5 Then
Portb.1 = 0
T5 = 0
Aktion = &H00
Sz = 1
Else
End If
For I = 1 To Keys
Key = I
Select Case Key
Case 1 : Debounce Pinc.0 , 0 , Key_o1 , Sub 'Port 1.
Case 2 : Debounce Pinc.1 , 0 , Key_o2 , Sub 'Port 2
Case 3 : Debounce Pinc.2 , 0 , Key_o3 , Sub 'Port 3
Case 4 : Debounce Pinc.3 , 0 , Key_o4 , Sub 'Port 4
Case 5 : Debounce Pinc.4 , 0 , Key_o5 , Sub 'Port 5
End Select
Next
Loop
End
Key_o1:
Toggle Portb.0 'Buchse 1
Aktion = &HFF
Sz = 1
If T2 = 0 Then
T2 = 1
Else
T2 = 0
End If
Return
Key_o3:
Toggle Portb.2 'Buchse 3
Aktion = &HFF
Sz = 1
If T3 = 0 Then
T3 = 1
Else
T3 = 0
End If
Return
Key_o5:
Toggle Portd.6 'Buchse 4
Aktion = &HFF
Sz = 1
If T1 = 0 Then
T1 = 1
Else
T1 = 0
End If
Return
Key_o4:
Toggle Portd.7 'Buchse 5
Aktion = &HFF
Sz = 1
If T4 = 0 Then
T4 = 1
Else
T4 = 0
End If
Return
Key_o2:
Toggle Portb.1 'Buchse 2
Aktion = &HFF
Sz = 1
If T5 = 0 Then
T5 = 1
Else
T5 = 0
End If
Return
'---------- Einlesen ----------
Onrxd:
Disable Interrupts
Incr N
B(n) = Udr
If N > 9 Then
Preamble = B(1) : Sync = B(2) : Hdb2 = B(3)
Hdb1 = B(4) : Dab1 = B(5)
Sab1 = B(6)
Db1 = B(7)
Db2 = B(8)
Crc2 = B(9)
Crc1 = B(10)
N = 0
Enable Urxc
Enable Interrupts
Gosub Pruefung
Else
End If
Return
'---------- Prüfung ----------
Pruefung: 'SNAP Prüfung der eingehenden Byte
If Sync <> Sync_ Then : Goto Prog_start
Elseif Hdb2 <> Hdb2_ Then : Goto Prog_start
Elseif Hdb1 <> Hdb1_ Then : Goto Prog_start
Elseif Dab1 <> Myadress Then : Goto Prog_start
End If
Gosub Steuerung
Return
'---------- Fernsteuerung Steuerung ----------
Steuerung:
Sz = 1
If Db1 = &H01 Then : Gosub Key_o1 : End If
If Db1 = &H02 Then : Gosub Key_o2 : End If
If Db1 = &H03 Then : Gosub Key_o3 : End If
If Db1 = &H04 Then : Gosub Key_o4 : End If
If Db1 = &H05 Then : Gosub Key_o5 : End If
If Db1 = &H06 Then : Sz = 1 : End If
Db1 = 0
Return
'---------- Übertragung des Zustandes --------
Zustand:
Db1_.0 = Portb.0 'Auswertung der Portzustände
Db1_.1 = Portb.1
Db1_.2 = Portb.2
Db1_.3 = Portd.7
Db1_.4 = Portd.6
Portb.5 = 1 ' Übertragungs LED an
Disable Urxc
Disable Interrupts
Portd.2 = 1 : Waitms 20 'RS485 PIN auf Senden
Print Chr(preamble_) ; Chr(sync_) ;
Print Chr(hdb2_) ; Chr(hdb1_) ;
Print Chr(dab1_) ; Chr(myadress);
Print Chr(db1_) ; Chr(db2);
Print Chr(crc2) ; Chr(aktion) ;
Waitms 100
Do
Loop Until Ucsra.txc = 1
Reset Ucsra.txc
Waitms 10 : Portd.2 = 0 'RS485 PIN auf Enpfang
Enable Urxc
Enable Interrupts
Aktion = ""
Sz = 0
Portb.5 = 0 ' Übertragungs LED aus
N = 0
Return
End
Zitieren
Berechtigungen
Lesezeichen