那個.....不知道有那個大大會8051這個東東
..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

不會吧........沒有大大會喔
我死定了......

不是沒有大大會～而是您題目這樣問～人家根本不知道該怎麼答 ^^"
請問您是要人家提供想法給您，還是要人家直接給您改成有聲音的鬧鐘程式碼呢？
但問題是～您的 8051 線路是怎麼接的～原本的 led 程式碼是怎麼寫的？您完全沒有提供～
而且您問說不知道那個大大有～您認為別人現有的提供給您～您的硬體就適用嗎 ^^"
8051 是硬體+程式的～故就算直接給您程式～我想您的硬體也不見得能跑的呢 ^^"

如果有人因為您這樣問就可以提供給您您所要的～那麼那個人就可以稱之為神了～您說是吧 ^_^

喔喔...
原來是這樣.....
好的.....
我去找程式出來

8051喔~是小會一點~不過困難的我都直接跟同學copy給老師檢查

RS     REG   P2.0
RW     REG   P2.1
EN     REG   P2.2
CURSOR EQU   36H
;
    ORG   00H
    AJMP   START
    ORG   0BH
    AJMP   TIMER0
;------
; MAIN
;------
START: MOV   SP,#60H
    SETB   P2.7         ;OFF LED
    SETB   F0         ;DISPLAY TIME
    ACALL   INIT         ;INITIAL RAM & LCD
    ACALL   SET         ;SET TIMER 0
LOOP:   JNB   TR0,S0
    ACALL   CONV         ;BCD TO ASCII
    MOV   A,#84H       ;SET ROW ADDRESS
    ACALL   W_INS
    ACALL   DISP         ;LCD DISPLAY DATA
    ACALL   COMP         ;COMPARE TIME & ALARM
S0:   ACALL   SCAN
    CJNE   R4,#0,S1
    ACALL   KEY1
S1:   CJNE   R4,#1,S2
    ACALL   KEY2
S2:   CJNE   R4,#2,S3
    ACALL   KEY3
S3:   CJNE   R4,#3,LOOP
    ACALL   KEY4
    SJMP   LOOP
;------
; KEY1
;------
KEY1:   PUSH   A           ;TIME/ALARM
    JB     P2.7,K1
    SETB   P2.7
    SJMP   K2
K1:   CPL   F0         ;F0=1/0,TIME/ALARM
K2:   POP   A
    RET
;------
; KEY2
;------
KEY2:   PUSH   A           ;UP
    JB     TR0,T7
    MOV   A,#30H
    JB     F0,TIME
    ADD   A,#3
TIME:   MOV   R0,A         ;R0=30H or 33H
    MOV   R1,CURSOR
    CJNE   R1,#84H,T1
    MOV   A,#10H       ;ADJUST HOUR10
    ADD   A,@R0
    MOV   @R0,A
    ANL   A,#F0H
    CJNE   A,#20H,T0
    MOV   A,@R0
    ANL   A,#0FH
    MOV   @R0,A
T0:   CJNE   A,#30H,T6
    MOV   A,@R0
    ANL   A,#0FH
    MOV   @R0,A
T1:   CJNE   R1,#85H,T2
    MOV   A,@R0       ;ADJUST HOUR
    ADD   A,#1
    DA     A
    MOV   @R0,A
    CJNE   A,#24H,T6
    MOV   @R0,#0
T2:   INC   R0         ;R0=31H or 34H
    CJNE   R1,#87H,T3
    MOV   A,#10H       ;ADJUST MIN10
    ADD   A,@R0
    MOV   @R0,A
    ANL   A,#F0H
    CJNE   A,#60H,T6
    MOV   A,@R0
    ANL   A,#0FH
    MOV   @R0,A
T3:   CJNE   R1,#88H,T4
    MOV   A,@R0       ;ADJUST MIN
    ADD   A,#1
    DA     A
    MOV   @R0,A
    CJNE   A,#60H,T6
    MOV   @R0,#0
T4:   INC   R0         ;R0=32H or 35H
    CJNE   R1,#8AH,T5
    MOV   A,@R0       ;ADJUST SEC10
    MOV   A,#10H
    ADD   A,@R0
    MOV   @R0,A
    ANL   A,#F0H
    CJNE   A,#60H,T6
    MOV   A,@R0
    ANL   A,#0FH
    MOV   @R0,A
T5:   CJNE   R1,#8BH,T6
    MOV   A,@R0       ;ADJUST SEC
    ADD   A,#1
    DA     A
    MOV   @R0,A
    CJNE   A,#60H,T6
    MOV   @R0,#0
T6:   ACALL   CONV
    MOV   A,#0CH       ;NO CURSOR
    ACALL   W_INS
    MOV   A,#84H       ;DISPLAY TIME/ALARM
    ACALL   W_INS
    ACALL   DISP
    MOV   A,#0EH       ;DISPLAY CURSOR
    ACALL   W_INS
    MOV   A,CURSOR
    ACALL   W_INS
T7:   POP   A
    RET
;------
; KEY3
;------
KEY3:   PUSH   A           ;SELECT
    JB     TR0,S7
    MOV   A,CURSOR
    DEC   A
    CJNE   A,#89H,S4
    DEC   A
S4:   CJNE   A,#86H,S5
    DEC   A
S5:   CJNE   A,#83H,S6
    MOV   A,#8BH
S6:   ACALL   W_INS
    MOV   CURSOR,A
S7:   POP   A
    RET
;------
; KEY4
;------
KEY4:   PUSH   A           ;ADJUST/EXCUTE
    CPL   TR0
    JNB   TR0,S8
    MOV   A,#0CH       ;NO CURSOR
    ACALL   W_INS
    SJMP   S9
S8:   MOV   A,#0EH       ;DISPLAY CURSOR
    ACALL   W_INS
    MOV   A,#8BH
    ACALL   W_INS
    MOV   CURSOR,A
S9:   POP   A
    RET
;----------
; SCAN KEY
;----------
SCAN:   MOV   R4,#0
    MOV   R7,#2       ;COLUME NUM
    MOV   R5,#11111110B
    MOV   A,R5
COL:   MOV   P3,A
    JB     P3.2,S10
    JNB   P3.2,$       ;DEBOUNCE
    SJMP   EXIT1
S10:   INC   R4
    JB     P3.3,S11
    JNB   P3.3,$       ;DEBOUNCE
    SJMP   EXIT1
S11:   INC   R4
    MOV   A,R5
    RL     A
    MOV   R5,A
    DJNZ   R7,COL
EXIT1: RET
;------------
; SET TIMER0
;------------
SET:   MOV   R3,#100
    MOV   TMOD,#01H
    MOV   IE,#10000010B
    MOV   TH0,#>(65536-10000)
    MOV   TL0,#<(65536-10000)
    SETB   TR0
    RET
;----------------
; INIT RAM & LCD
;----------------
INIT:   MOV   CURSOR,#8BH   ;CURSOR ADDRESS
    MOV   R0,#6
    MOV   R1,#30H
    CLR   A
NEXT0: MOV   @R1,A
    INC   R1
    DJNZ   R0,NEXT0
    MOV   R0,#8
    MOV   R1,#40H
    CLR   A
NEXT1: MOV   @R1,A
    INC   R1
    DJNZ   R0,NEXT1
;
    MOV   A,#38H
    ACALL   W_INS
    MOV   A,#38H
    ACALL   W_INS
    MOV   A,#38H
    ACALL   W_INS
    MOV   A,#38H
    ACALL   W_INS
    MOV   A,#08H ;FUNCTION SET
    ACALL   W_INS
    MOV   A,#01H ;CLEAR DISPLAY
    ACALL   W_INS
    MOV   A,#06H ;INPUT MODE SET
    ACALL   W_INS
    MOV   A,#0CH ;DISPLAY ON/OFF
    ACALL   W_INS
    RET
;--------------
; BCD TO ASCII
;--------------
CONV:   MOV   A,#30H
    JB     F0,S12
    ADD   A,#3
S12:   MOV   R0,A
    MOV   A,@R0
    SWAP   A
    ANL   A,#0FH
    ADD   A,#30H
    MOV   40H,A
    MOV   A,@R0
    ANL   A,#0FH
    ADD   A,#30H
    MOV   41H,A
    MOV   42H,#":"
    INC   R0
    MOV   A,@R0
    SWAP   A
    ANL   A,#0FH
    ADD   A,#30H
    MOV   43H,A
    MOV   A,@R0
    ANL   A,#0FH
    ADD   A,#30H
    MOV   44H,A
    MOV   45H,#":"
    INC   R0
    MOV   A,@R0
    SWAP   A
    ANL   A,#0FH
    ADD   A,#30H
    MOV   46H,A
    MOV   A,@R0
    ANL   A,#0FH
    ADD   A,#30H
    MOV   47H,A
    RET
;----------------------
; COMPARE TIME & ALARM
;----------------------
COMP:   PUSH   A
    MOV   R0,#30H
    MOV   R1,#33H
    MOV   R2,#3
NEXT2: CLR   C
    MOV   A,@R0
    SUBB   A,@R1
    JNZ   EXIT2
    INC   R0
    INC   R1
    DJNZ   R2,NEXT2
    CLR   P2.7
EXIT2: POP   A
    RET
;--------------------
; DISPLAY TIME/ALARM
;--------------------
DISP:   MOV   R1,#8
    MOV   R0,#40H
DSP:   MOV   A,@R0
    ACALL   W_DATA
    INC   R0
    DJNZ   R1,DSP
    RET
;------------------
; WRITE INS TO LCD
;------------------
W_INS: ACALL   CHECK
    CLR   RS
    CLR   RW
    SETB   EN
    MOV   P1,A
    CLR   EN
    RET
;-------------------
; WRITE DATA TO LCD
;-------------------
W_DATA: ACALL   CHECK
    SETB   RS
    CLR   RW
    SETB   EN
    MOV   P1,A
    CLR   EN
    RET
;----------------
; CHECK LCD BUSY
;----------------
CHECK: PUSH   A
BUSY:   CLR   RS
    SETB   RW
    SETB   EN
    MOV   A,P1
    CLR   EN
    JB     ACC.7,BUSY
    ACALL   DELAY
    POP   A
    RET
;-------
; DELAY
;-------
DELAY: MOV   R6,#20
D1:   MOV   R7,#150
    DJNZ   R7,$
    DJNZ   R6,D1
    RET
;-------
; JUDGE
;-------
JUDGE: MOV   A,32H
    ADD   A,#1
    DA     A
    MOV   32H,A
    CJNE   A,#60H,FIX
    MOV   32H,#00
    MOV   A,31H
    ADD   A,#1
    DA     A
    MOV   31H,A
    CJNE   A,#60H,FIX
    MOV   31H,#00
    MOV   A,30H
    ADD   A,#1
    DA     A
    MOV   30H,A
    CJNE   A,#24H,FIX
    MOV   30H,#00
FIX:   RET
;--------
; TIMER0
;--------
TIMER0: PUSH   A               ;TIMER 1 SEC
    MOV   TH0,#>(65536-10000)
    MOV   TL0,#<(65536-10000)
    DJNZ   R3,EXIT3
    MOV   R3,#100
    ACALL   JUDGE
EXIT3: POP   A
    RETI
    END


下面是引用=書無情=於2005-04-28 22:25發表的 :
RS     REG   P2.0
RW     REG   P2.1
EN     REG   P2.2
CURSOR EQU   36H
;
.......

版上沒大大會嗎......
死定了......這個星期就要交出來了....

我只會一點點的Keil C
組合語言的51我看不懂...
上課用的是實驗版...
(也就是不用自己接線路,,只要程式寫好燒進IC, 把IC插上實驗版就可了說)

下面是引用=書無情=於2005-05-1 17:13發表的 :

版上沒大大會嗎......
死定了......這個星期就要交出來了....

請問您的線路圖咧
連您的 Led(應該是 LCD 吧 :P) 和鍵盤是怎麼接的我們都不知道~~
您以為光看程式碼就可以猜的出來嗎 ><"
還有~~您說要改成有聲音的~~請問一下您的喇叭是要接在哪些腳~~
還有還有~~您所謂的有聲音是指~~按下按鍵時產生按鍵的嗶嗶聲嗎？？
這些資料您都沒提供～我想就算是有人想幫您～也是無從幫起吧 ><"

下面是引用夷希微於2005-05-3 08:07發表的 :

請問您的線路圖咧
連您的 Led(應該是 LCD 吧 :P) 和鍵盤是怎麼接的我們都不知道~~
您以為光看程式碼就可以猜的出來嗎 ><"
還有~~您說要改成有聲音的~~請問一下您的喇叭是要接在哪些腳~~
.......

DSLite代碼: 複製程式

這就是圖.......希望大大可以救救我