$regfile "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 32
$framesize = 40
Config Portd = Output
Lcd_db4 Alias Portd.4
Lcd_db5 Alias Portd.3
Lcd_db6 Alias Portd.2
Lcd_db7 Alias Portd.1
Lcd_e Alias Portd.5
Lcd_rs Alias Portd.6
Config Lcdpin = Pin , Db4 = Lcd_db4 , Db5 = Lcd_db5 , Db6 = Lcd_db6 , Db7 = Lcd_db7 , E = Lcd_e , Rs = Lcd_rs
Config Lcd = 20 * 4 'dies ist die Kennung für Lib Lcdpin was für ein LCD-Modul dran hängt.
Cursor Off 'Aus und nicht blinken
'Initlcd
Lcdinit
Waitms 10 'etwas warten LCD-Controller muss erst Anweisungen lesen. (Anpassen)
$regfile "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
Ddrb = &H00 ' alles auf Eingang (ist auch default)
Portb = &H00 ' PullUps ausschalten wegen Tastern nach Vcc
Ddrc = &HFF ' alles auf Ausgang
Ddrd = &HFF ' Port für LCD auf Ausgang
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.0 , Rs = Portd.1
Config Lcdbus = 4
Initlcd
Do
Debounce Pinb.1 , 1 , Kanal1 , Sub
Debounce Pinb.2 , 1 , Kanal2 , Sub
Debounce Pinb.3 , 1 , Kanal3 , Sub
Debounce Pinb.4 , 1 , Kanal4 , Sub
Loop
Kanal1:
Toggle Portc.1
Locate 1 , 1
If Portc.1 = 1 Then
Lcd "kanal1 an "
Else
Lcd "kanal1 aus"
End If
Return
Kanal2:
Toggle Portc.2
Locate 1 , 1
If Portc.2 = 1 Then
Lcd "kanal2 an "
Else
Lcd "kanal2 aus"
End If
Return
Kanal3:
Toggle Portc.3
Locate 1 , 1
If Portc.3 = 1 Then
Lcd "kanal3 an "
Else
Lcd "kanal3 aus"
End If
Return
Kanal4:
Toggle Portc.4
Locate 1 , 1
If Portc.4 = 1 Then
Lcd "kanal4 an "
Else
Lcd "kanal4 aus"
End If
Return
das hab ich dir doch schon nen paar Tage gesagt das die Richtung nun stimmt. Aber du hast dich ja noch zig mal mit den Befehlen verwickelt.Dino dein code wahr ja fast wie meiner......
Der code geht wunderbar alle PORTS richtig eingestellt und es klappt, somit ist das hier abgeschlossen das tehma.....