Code:
'######################## Interrupts ###########################################
'######################### Timer1 Anfang #######################################
Takt:
Load Timer1 , 440 ' 440= Bei Prescale 1 und 10Mhz Q, = 20 Khz Takt
If Fahre > 0 Then 'ist was zum fahren da ?
If A < 255 Then A = A + 1 '---Rampe EIN ----
If A > 254 Then '---Rampe AUS ----
'------------------------------------------
Portd.0 = 0 '=======TAKT EIN===
If Rampe = 1 And B < 24 Then
'--nächsten Rampenwert holen---
A = Lookup(b , Rampe_rauf)
B = B + 1
End If
If Rampe = 0 And B < 24 Then
'--nächsten Rampenwert holen---
A = Lookup(b , Rampe_runter)
B = B + 1
End If
If Fahre < 24 Then ' Rampe umschalten
Rampe = 0
B = 0
A = 255
End If
'--Zählen---
Decr Fahre
Portd.0 = 1 '=======TAKT AUS===
'---------------------------------------------
If Fahre = 0 Then
Disable Timer1
B = 0
Rampe = 1 'Rampe RAUF vorwählen
End If
End If
End If
Return
'######################### Timer1 Ende #########################################
Rampe_rauf:
Data 10 , 20 , 30 , 40 , 50 , 60 , 70 , 80 , 90 , 100 , 110 , 120 , 130 , 140 , 150 , 160 , 170 , 180 , 190 , 200 , 210 , 220 , 230 , 240 , 250
Rampe_runter:
Data 250 , 240 , 230 , 220 , 210 , 200 , 190 , 180 , 170 , 160 , 150 , 140 , 130 , 120 , 110 , 100 , 90 , 80 , 70 , 60 , 50 , 40 , 30 , 20 , 10
Habe die Rampen jetzt in einer Data-Zeile abgelegt
Lesezeichen