Hallo forum Bastler
Ich habe eine schaltung mit 4 ein / 4 out dazu ein lcd 20x4, beim code ist es inmoment soweit das er die schaltzustände anzeigt auf den lcd aber???
schalte ich noch einen ausgang dazu steht es nicht meher da, also ich möchte gern sehen wenn ich ein ausgang schalte das er an oder aus ist wie oder was musss ich denn da ändern bitte um rat und tipps
Hier der code
Code
$regfile "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
Ddrb = &B00111000 'Ports auf Ausgang setzen
Ddrd = &B00100000 'Ports auf Ausgang setzen
' Configgaration des LCD Anzeige Ports
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , _
Db7 = Portd.2 , E = Portd.1 , Rs = Portd.0
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "Melder"
Locate 2 , 1
Lcd "V1/Sch"
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portd.6 = Output
Config Portb.7 = Input
Portb.7 = 0
Config Pinb.6 = Input
Portb.6 = 0
Config Pinb.5 = Input
Portb.5 = 0
Config Pinb.4 = Input
Portb.4 = 0
Declare Sub Realis1
Declare Sub Realis2
Declare Sub Realis3
Declare Sub Realis4
Dim I As Byte
Do
Debounce Pinb.7 , 1 , Realis1 , Sub
Debounce Pinb.6 , 1 , Realis2 , Sub
Debounce Pinb.5 , 1 , Realis3 , Sub
Debounce Pinb.4 , 1 , Realis4 , Sub
Loop
End
Sub Realis1
Toggle Portb.0
Toggle Portd.6
Wait 1
Cls
Locate 1 , 1
Lcd "REALIS1 - AN"
Locate 2 , 1
Lcd "RE1"
End Sub
Sub Realis2
Toggle Portb.1
Toggle Portd.6
Wait 1
Cls
Locate 1 , 1
Lcd "REALIS2 - AN"
Locate 2 , 4
Lcd "RE2"
End Sub
Sub Realis3
Toggle Portb.2
Toggle Portd.6
Wait 1
Cls
Locate 1 , 1
Lcd "REALIS3 - AN"
Locate 2 , 7
Lcd "RE3"
End Sub
Sub Realis4
Toggle Portb.3
Toggle Portd.6
Wait 1
Cls
Locate 1 , 1
Lcd "REALIS4 - AN"
Locate 2 , 11
Lcd "RE4"
End Sub
Return
EndMit Freundlichen Grüßen Thorsten Sch.