HI
Also es geht um folgendes.
Ich versuche einen Led fader zu Programmieren.
Eine Led faden klappt ganz gut über einen Port.
Jetzt wollte ich aber weitere Leds über einen anderen Port zusätlich faden lassen. Also langsamer als die erste und die andere schneller
Nur hab ich grad nen gedanken fehler. Ich weiß einfach nicht was ich in dem Programm ändern muß damit andere Ports angesprochen werden.
Vielleicht kann mir da mal einer auf die sprünge helfen.
MFG
Hier mal der code
Code:
$regfile = "m8def.dat"
$crystal = 4000000
Dim A As Word
Dim B As Word
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 8
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Do
For A = 255 To 10 Step -1
Pwm1a = A
Waitms 10
Next
For A = 10 To 255
Pwm1a = A
Waitms 10
Next
For A = 255 To 100 Step -1
Pwm1a = A
Waitms 10
Next
For A = 100 To 255
Pwm1a = A
Waitms 10
Next
For A = 255 To 50 Step -1
Pwm1a = A
Waitms 10
Next
For A = 50 To 255
Pwm1a = A
Waitms 10
Next
For A = 255 To 200 Step -1
Pwm1a = A
Waitms 10
Next
For A = 200 To 255
Pwm1a = A
Waitms 10
Next
Loop
End
Lesezeichen