Keel的单片机开发BLOG
个人信息
刘佩沙
日历
最新文章
最新评论
最新留言
相册
友情链接
访客
好友
“我的2008”徽章
公告
文章分类
龙图开发网
计数器
          
rss
 
推荐订阅:订阅到RSS阅读
内容
  •  
    2007-10-02 23:19:14
     

    /*======================================================================*/

    interrupt [TIM0_OVF] void Timer0_OVF_ISR( void )        // 计时器 0 中断服务程序
    {
            TCNT0 = 256 - ( SYSTEM_CLOCK * TIMER0_COUNT / CK_DIV_VALUE );

            // 声音产生器
            Sound_Gerater();
    }
    /*======================================================*/

    interrupt [TIM1_OVF] void Timer1_OVF_ISR( void )        // 计时器 1 中断服务程序
    {
            TCNT1 = 65536 - ( SYSTEM_CLOCK * TIMER1_COUNT / CK_DIV_VALUE );

            // 扫描数码管
            Scan_Led();

            // 扫描按键
            Key_01_Debounce();
            Key_02_Debounce();
            Key_03_Debounce();
            Key_04_Debounce();
    /*----------------------------------------------------*/

            // 计时 800us * 100 = 80ms
            Timer_Basic_Count_Rg ++;
            if( Timer_Basic_Count_Rg == 100 )
            {
                    // 计时时间 = 100 * 中断一次之时间
                    Timer_Basic_Count_Rg = 0;

  •  
    2007-10-02 23:12:25
     

    /*============================================================================*/
    /* 1. 本程序采用 CodeVision AVR C Ver 1.018 编译器.                           */
    /*                                                                            */
    /* 2. Chip: AT90S8515.                                                        */
    /*                                                                            */
    /* 3. Date  :  2002年04月30日.                                                */
    /* 4. Editor:  keel.    &

  •  
    2007-10-01 11:30:22
    标签:it/科技
    ;PIC单片机
    ;龙图开发网
    ;http://www.longtoo.com
    ;原创:转载请注明出处
    ;========================================== 

    ;variable  DECLARE
    ;可以用片内晶振,三条I/O线低电平选择条变速度。
    ;------------------
    ;INDF EQU  0
    ;TMR0 EQU  1
    ;PCL EQU 2
    ;STATUS EQU 3
    ;FSR EQU 4
    ;GPIO EQU 6
    COUNT EQU 8
    COUNT1 EQU 9
    count2 equ  0ah
    count3 equ  0bh
    count4 equ  0ch
    count5 equ  0dh
    count6 equ  0eh
    count7 equ  0fh
    ;------------------
        ORG 00H
        MOVWF OSCCAL
        GOTO MAIN
    ;-------------------
    ;子程序

    loop:
        movfw count2
        movwf count1
    loop1:
        CLRF TMR0
    loop2:
        MOVLW 08h
        SUBWF TMR0,0          ;TMRO-W=?,if zero back to main program
        SKPZ
        goto loop2
    DEC:
        decfsz  count1
        goto loop1
        retlw  0
    ;----------------------------
    ONE:
        BTFSC  GPIO,2
        GOTO   NEXT
        RETLW  00H
    NEXT:
        BTFSC  GPIO,1
        GOTO   NEXT1
        RETLW  01H
    NEXT1:
        BTFSC  GPIO,0
        GOTO   ONE
        RETLW  02H
    ;---------------------------
    TABLE:
          ADDWF   2,1           ; plc 内容加 w 的值,w 的值由call one 返回。
          RE

  •  
    2007-09-30 12:22:57
    标签:it/科技
    ;龙图开发网
    ;http://www.longtoo.com
    ;原创:转载请注明出处
    ;//////////////////////////////////////////////
    dmx1:
       MOV   PSW,#00H             ; 应用第一组寄存器
       MOV   R7 ,#01H             ;每一次只传送R7个8位数据(每一桢的数据数量)
       MOV   R5 ,#06H             ;用来决定颜色
       MOV   R3 ,#01H             ;传送R7个数据的次数,表示祯的数量。
       SETB  DG
       CALL  SCK
       CALL  SCK
       CLR   DG
       CALL  SCK
       CALL  RCK
    ;//////////////////////////////////////////////
       CALL    RISE              ;/渐亮
    ;//////////////////////////////////////////////        ?
       SETB   DG
       CALL   SCK
       CALL   SCK
       CALL   SCK
       CALL   RCK
    ;//////////////////////////////////////////////
       CALL   DOWN             ;/绿色渐暗
    ;///////////////////////////////////////////////
       MOV    PSW,#18H
       INC   R2
       DEC   R3
       DJNZ  R0,DMX1
    ;//////////////////////////////////////////////
    jianbian2:
       MOV   PSW,#18H
       MOV   R0,#010H
       MOV   R
  •  
    2007-09-30 12:14:30
    标签:it/科技
    ;龙图开发网
    ;http://www.longtoo.com
    ;原创:转载请注明出处
    ;本程序用于新数码灯灯控制。
    ;黑色----移位
    ;绿色----锁存
    ;黄色----数据
    ;红色----驶能
    ;低电平亮灯
     ORG  0000h
     EN   EQU P1.7;
     DG   EQU P1.0;  DIN
     RC   EQU P1.1;  LIN
     SC   EQU P1.2;  CLKIN
    ;/////////////
     AJMP  MAIN
    ;ORG   0003H  ;/外部中断/INT0入口地址
    ;ORG   000Bh  ;/定时器中断T0入口地址
    ;ORG   0013H  ;/外部中断/INT1入口地址
    ;ORG   001BH  ;/定时器中断T1入口地址
    ;ORG   0023H  ;/串行口中断地址
    ;/////////////////////////////////////////////////////////////////////////////////////////////////
    ZHONGFEN1:
    DB        00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,01H,01H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,;
    DB        00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,01H,01H,01H,01H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,;
    DB        00H,00H,00H,00H,00H,00H,00H,00H,00H,01H,01H,01H,01H,01H,01H,00H,00H,00H,00H,00H,00H,00H,00H,00H,;
    DB        00H,00H,00H,00H,00H,00H,00H,00H,01H,01H,01H,01H,01H,01H,01H,01H,00H,00H,00H,00H,00H,00H,00H,00H,;
    DB        00H,00H,00H,00H,00H,00H,00H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,00H,00H,00H,00H,00H,00H,00H,;
    DB        00H,00H,00H,00H,00H,00H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,00H,00H,00H,00H,00H,00H,;
    ZHONGFEN2:
    DB        00H,00H,00H,00H,00H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,01H,00H,00H,00H,00H,00H,;
    DB        00H,0
  •  
    2007-09-30 12:00:46



      我已经在新浪BLOG安家了,欢迎你“常过来看看”,大家多多交流哦。我们可以一起把这里变成共同的心灵家园,像家一样温暖的地方。
      我会把一些新鲜有趣的东西记录下来一块与你分享,也希望你能够记住我的
    BLOG地址,像老朋友一样经常过来做客——你可以把“她”添加到你的收藏夹中,也可以把“她”复制下来告诉你的朋友们。特别希望能通过你,让我认识更多的好朋友。如果还有不了解的,就跟着我一起来看看拥有所有博客知识和维护技巧的博客帮助站吧:http://blog.sina.com.cn/help/ :)

      我的BLOG地址:  http://blog.sina.com.cn/86loong