$regfil$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Config Portc.4 = Output
Config Portc.5 = Output
Config Pina.7 = Input
Porta.7 = 1
Do
If Pina.7 = 1 Then
Porta.0 = 0.4 'Pin soll auf 2 Volt gestellt werden (rot) 1.Led
Porta.1 = 0 'Pin soll auf 0 Volt gestellt werden (grün) 1. Led Farbe Pink
Porta.2 = 0.64 'Pin soll auf 3,2 Volt gestellt werden (blau) 1.Led
Porta.3 = 0.4 'Pin soll auf 2 Volt gestellt werden (rot) 2.Led
Porta.4 = 0.64 'Pin soll auf 3,2 Volt gestellt werden (grün) 2.Led Farbe Gelb
Porta.5 = 0 'Pin soll auf 0 Volt gestellt werden (blau) 2.Led
Portc.0 = 0.64 'folgende Pins sind wie die für die 2. Led eingestellt, also Gelb
Portc.1 = 0.4
Portc.2 = 0
Portc.3 = 0.64
Portc.4 = 0.4
Portc.5 = 0
Else
Porta.0 = 0.25 'Pin soll auf 1 Volt gestellt werden (rot) 1. Led
Porta.1 = 0 'Pin soll auf 0 Volt gestellt werden (grün) 1. Led Farbe Violett
Porta.2 = 0.64 'Pin soll auf 3,2 Volt gestellt werden (blau) 1.Led
Porta.3 = 0.4
Waitms 100
Porta.3 = 0
Waitms 200
Porta.4 = 0
Waitms 100
Porta.4 = 0.64 'Hier soll ein Farbwechel
Waitms 200 von Pink -> Türkis -> Blau
Porta.5 = 0.64 enstehen (bei Led 2 und 4)
Portc.0 = 0.4
Portc.1 = 0.64 'Led 3 hat die Farbe Gelb
Portc.2 = 0
Waitms 100
Portc.3 = 0
Waitms 200
Portc.4 = 0
Waitms 100
Portc.4 = 0.64 'Hier soll ein Farbwechel von
Waitms 200 Pink -> Türkis -> Blau
Portc.5 = 0.64 enstehen (bei Led 2 und 4)
End If
End
Lesezeichen