LED Sáng dồn từ phải qua trái

[qhai959]

Hệ thống quảng cáo SangNhuong.com

//==============================================================================
//Chuong trinh LED Sang don 
//==============================================================================
//
//Chu thich:
/*
   ket qua chuong trinh o portb la:
      00000001,00000010,00000100,00001000,....cuoi cung la 
      portb = 0xFF
*/
//CODE
#include <16f877a.h>
#include 
#device *=16 ADC=8
#FUSES NOWDT,HS,NOPUT,NOPROTECT,NODEBUG,NOBROWNOUT,NOLVP,NOCPD,NOWRT
#USE delay(clock=20000000)
//#use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7,bits=9)
//#use i2c(Master,Fast,sda=PIN_C4,scl=PIN_C3)
//------------------------------------------------------------------
//dinh nghia bien.
int8 sck,bienxoay;
//------------------------------------------------------------------
//khai bao bien
#define   LED1  RB7
#define   LED2  RB6
#define   CT1   RD7
//===================================
void main()
   {
   trisb=0;
   while(true){
     sck=0;
     portb=0;
     delay_ms(100);
     bienxoay=0xFF;
     while(sck<8)
      {
         portb=bienxoay;
         bienxoay=bienxoay>>1;
         delay_ms(100);
         sck++;
      }
   }
   
   }

[sangtrong2000]

Hệ thống quảng cáo SangNhuong.com

Một chút code ASM cho LED sáng tắt dần

LOOP1: MOV P1,#11111111BXUNGTD:
LCALL DELAY100MS
MOV R5,#8
TIEP1: CLR C
MOV A,P1
RLC A
MOV P1,A
LCALL DELAY100MS
DJNZ R5,TIEP1
SJMP LOOP1


DELAY100MS:
MOV R7,#250
MOV R6,#200
MOV R4,#10
LOOP: DJNZ R7,$
MOV R7,#250
DJNZ R6,LOOP
MOV R6,#200
DJNZ R4,LOOP
RET
END

[giangnt]

bai ni hay do co the gui ban goc qua mail of mih ko. thank hi