Chợ thông tin Thiết bị điện Việt Nam - LED Sáng dồn từ phải qua trái

Chợ thông tin Thiết bị điện Việt Nam (http://thietbidien.sangnhuong.com/index.php)

- Thiết bị điện tử và điều khiển (http://thietbidien.sangnhuong.com/forumdisplay.php?f=11)

- - LED Sáng dồn từ phải qua trái (http://thietbidien.sangnhuong.com/showthread.php?t=3993)

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

Mã:

//==============================================================================

//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++;

      }

   }

   

   }

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

Mã:

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

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