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