Source Code
- ' Test für Einlass Ventil und Druckschalter
- $regfile = "m2560def.dat"
- $crystal = 16000000
- $hwstack = 40
- $swstack = 50
- $framesize = 100
- 'Config Portf = Output
- 'Ddrl = &B10101010
- 'Ddrb = &B00001010
- Config Portg = Output
- Config Portl = Output
- Config Porta = Input
- Config Portc = Input
- Led1 Alias Portl.0
- Led2 Alias Portl.1
- Led3 Alias Portl.2
- Led4 Alias Portl.3
- Led5 Alias Portl.4
- Led6 Alias Portl.5
- Led7 Alias Portl.6
- Rel Alias Portg.0 'Ausgang für den Externen Timer
- Taste1 Alias Pina.3 'Taste Links
- Porta.3 = 1
- Taste2 Alias Pina.5 'Taste OK
- Porta.5 = 1
- Taste3 Alias Pina.7 'Taste Runter
- Porta.7 = 1
- Taste4 Alias Pinc.6 'Taste OK
- Portc.6 = 1
- Taste5 Alias Pinc.4 'Taste OK
- Portc.4 = 1
- Config Pina.1 = Input 'Eingang vom Externen Timer als Zulaufsimulator
- Schalter Alias Pina.1
- Porta.1 = 1
- Do
- Debounce , Taste3 , 0 , Einfuellen , Sub 'Springe zum Untermenue Einfüllen um das Programm zu Starten
- If Schalter = 1 Then 'Wenn Schalter ist Eingeschalten dann soll die Led 3 Ausgeschalten werden
- Led3 = 0
- Else
- Led3 = 1
- End If
- If Led1 = 1 And Led3 = 1 And Schalter = 1 Then
- Gosub Waschen
- End If
- Loop
- End
- Einfuellen:
- Led1 = 1
- Rel = 1 'Impuls für den Externen Timer
- Waitms 20
- Rel = 0
- Return
- Waschen:
- 'Waschprogramm
- Led5 = 1
- Wait 2
- Led5 = 0
- Led1 = 0
- Return