trisa=1
trisb=0
TUS1 VAR PORTA.0
TUS2 VAR PORTA.1
TUS3 VAR PORTA.2
YLED VAR PORTB.0
SLED VAR PORTB.1
KLED VAR PORTB.2
SAY1 VAR BYTE
SAY2 VAR BYTE
SAY3 VAR BYTE
PORTB=0
PORTA.0=1
PORTA.1=1
PORTA.2=1
SAY1=81
SAY2=181
SAY3=201
LED1:
IF TUS1=0 and yled=0 THEN SAY1=0
IF TUS2=0 and sled=0 THEN SAY2=0
IF TUS3=0 and kled=0 THEN SAY3=0
PAUSE 200
SAY1=SAY1+1
SAY2=SAY2+1
SAY3=SAY3+1
IF TUS1=0 AND yled=1 THEN GOTO SIFIR1
IF TUS2=0 and sled=1 THEN GOTO SIFIR2
IF TUS3=0 and kled=1 THEN GOTO SIFIR3
IF SAY1>80 THEN SAY1=81
IF SAY2>180 THEN SAY2=181
IF SAY3>200 THEN SAY3=201
IF SAY3>200 THEN LOW KLED
IF SAY3<199 THEN HIGH KLED
IF SAY2>180 THEN LOW SLED
IF SAY2<179 THEN HIGH SLED
IF SAY1>80 THEN LOW YLED
IF SAY1<79 THEN HIGH YLED
GOTO LED1
SIFIR1:
IF TUS1=0 THEN GOTO SIFIR1
PAUSE 100
SAY1=81
GOTO LED1
SIFIR2:
IF TUS2=0 THEN GOTO SIFIR2
PAUSE 100
SAY2=181
GOTO LED1
SIFIR3:
IF TUS3=0 THEN GOTO SIFIR3
PAUSE 100
SAY3=201
GOTO LED1
bunun gibi ben yaptım
ama tuslar tam oturaklı değil hata verir gibi burda ,pbp de button komutu ne işlev yapıyor acaba işime yararsa o komutu kullanıyım.