1樓:
是不是測頻率?給你一個2.4g的程式
kg equ p3.1 ;檔位選擇控制
k equ p3.2 ;門控開關控制
res equ p3.3;4040復位
e equ p3.5 ;lcd rs
rw equ p3.6;lcd rw
rs equ p3.7;lcd e
org 0000h
mov sp,#60h
setb res ;4040清零
;顯示屏初始化
setb e
mov p1,#00000001b ;清屏acall enable
mov p1,#00001100b ;顯示器開、游標開、閃爍開acall enable
mov r0,#0efh
tt: nop
djnz r0,tt ;延時
mov tmod,#00000101b
;清計數器及計數ram
start: mov p0,#0ffh
mov p2,#0ffh
mov tl0,#00h
mov th0,#00h
jb kg,ghz ;讀檔位控制開關,為1轉為另一檔clr res ;使4040可計數
setb tr0 ;啟動計數器0
setb k ;開計數開關並延時1s,mcu時脈頻率為12.8mmov r1,#08h
time01:
mov r2,#0ffh
time02:
mov r3,#0ffh
time03:
djnz r3,time03
djnz r2,time02
djnz r1,time01
mov r1,#01h
time11:
mov r2,#027h
time12:
mov r3,#0ffh
time13:
djnz r3,time13
djnz r2,time12
djnz r1,time11
mov r1,#01h
time21:
mov r2,#01h
time22:
mov r3,#33h
time23:
djnz r3,time23
djnz r2,time22
djnz r1,time21
;nop ;時間精確調整
clr k ;關計數開關
nopnop
nopclr tr0 ;關計數器0
;讀入計數值
mov 20h,p0
mov 21h,p2
mov 22h,tl0
mov 23h,th0
mov a,22h
swap a
mov 22h,a
anl 21h,#0fh
anl a,#0f0h
orl 21h,a
mov a,23h
swap a
mov 23h,a
anl 22h,#0fh
anl a,#0f0h
orl 22h,a
anl 23h,#0fh
setb res
ajmp count
ghz:
clr res ;使4040可計數
setb tr0 ;啟動計數器0
setb k ;開計數開關並延時4s,mcu時脈頻率為12.8mmov r1,#020h
time01g:
mov r2,#0ffh
time02g:
mov r3,#0ffh
time03g:
djnz r3,time03g
djnz r2,time02g
djnz r1,time01g
mov r1,#01h
time11g:
mov r2,#09ch
time12g:
mov r3,#0ffh
time13g:
djnz r3,time13g
djnz r2,time12g
djnz r1,time11g
mov r1,#01h
time21g:
mov r2,#01h
time22g:
mov r3,#0dfh
time23g:
djnz r3,time23g
djnz r2,time22g
djnz r1,time21g
nop ;時間精確調整
clr k ;關計數開關
nopnop
nopclr tr0 ;關計數器0
;讀入計數值
mov 20h,p0
mov 21h,p2
mov 22h,tl0
mov 23h,th0
;將計數值乘16
mov a,21h
swap a
mov 21h,a
anl a,#0f0h
mov a,20h
swap a
mov 20h,a
anl 20h,#0f0h
anl a,#0fh
orl 21h,a
setb res
;多(四)位元組二轉十,入口r0為二進位制低位位元組地址指標,r7為位元組數,出口r1為bcd碼結果低位位元組地址指標
count: mov r0,#20hmov r1,#30h
mov r7,#04h
bmbcd: mov a,r0mov r5,a
mov a,r1
mov r6,a
mov a,r7
mov r3,a
inc r3
clr a
clbcd: mov @r1,ainc r1
djnz r3,clbcd
mov a,r7
mov b,#08h
mul ab
mov r3,a
lp0: mov a,r5mov r0,a
mov a,r7
mov r2,a
clr c
lp1: mov a,@r0rlc a
mov @r0,a
inc r0
djnz r2,lp1
mov a,r6
mov r1,a
mov a,r7
mov r2,a
inc r2
lp2: mov a,@r1addc a,@r1
da a
mov @r1,a
inc r1
djnz r2,lp2
djnz r3,lp0
mov r0,#30h
mov r1,#24h
abc:mov a,@r0
anl a,#00001111b
orl a,#30h
mov @r1,a
mov a,@r0
anl a,#11110000b
rl a
rl a
rl a
rl a
orl a,#30h
inc r1
mov @r1,a
inc r0
inc r1
cjne r0,#036h,abc
;從高往底判斷,不是0就開始顯示
mov 02eh,#20h
mov r1,#02dh
cjne @r1,#030h,mhz;2dmov @r1,#020h
dec r1
cjne @r1,#030h,mhz;2cmov @r1,#020h
dec r1
cjne @r1,#030h,mhz;2bmov @r1,#020h
dec r1
cjne @r1,#030h,mhz;2amov @r1,#020h
dec r1
cjne @r1,#030h,khz;29mov @r1,#020h
dec r1
cjne @r1,#030h,khz;28mov @r1,#020h
dec r1
cjne @r1,#030h,khz;27mov @r1,#020h
dec r1
cjne @r1,#030h,hz;26
mov @r1,#020h
dec r1
cjne @r1,#030h,hz;25
mov @r1,#020h
dec r1
cjne @r1,#030h,hz;24
ajmp no_ok
mhz:
mov r0,#23h
mov @r0,#4dh;23
dec r0
mov @r0,#48h;22
dec r0
mov @r0,#7ah;21
dec r0
mov @r0,#20h;20
mov a,02ch
mov 02dh,a
mov a,02bh
mov 02ch,a
mov a,02ah
mov 02bh,a
mov 02ah,#2eh
ajmp hz00
khz:
mov r0,#23h
mov @r0,#4bh;23
dec r0
mov @r0,#48h;22
dec r0
mov @r0,#7ah;21
dec r0
mov @r0,#20h;20
mov a,029h
mov 02ah,a
mov a,028h
mov 029h,a
mov a,027h
mov 028h,a
mov 027h,#2eh
ajmp hz00
hz:mov r0,#23h
mov @r0,#48h;23
dec r0
mov @r0,#7ah;22
dec r0
mov @r0,#20h;21
dec r0
mov @r0,#20h;20
hz00:mov 10h,#053h;
mov 011h,#49h;
mov 012h,#47h
mov 013h,#4eh
mov 014h,#41h
mov 015h,#4ch
mov 016h,#20h
mov 017h,#46h
mov 018h,#52h
mov 019h,#45h
mov 01ah,#51h
mov 01bh,#55h
mov 01ch,#45h
mov 01dh,#4eh
mov 01eh,#43h
mov 01fh,#59h
ajmp ok
no_ok:;沒有訊號時顯示的資料
mov 010h,#4eh
mov 011h,#4fh
mov 012h,#20h
mov 013h,#49h
mov 014h,#4eh
mov 015h,#50h
mov 016h,#55h
mov 017h,#54h
mov 018h,#20h
mov 019h,#53h
mov 01ah,#49h
mov 01bh,#47h
mov 01ch,#4eh
mov 01dh,#41h
mov 01eh,#4ch
mov 01fh,#21h
mov r0,#20h
bbb: mov @r0,#020h
inc r0
cjne r0,#030h,bbb
ok:acall display
ajmp start
display:
mov r0,#010h
;顯示第一行
mov p1,#00111000b ;8位2行5x7點陣acall enable
mov p1,#00000110b ;文字不動,游標自動右移acall enable
mov p1,#10000000b ;寫入顯示起始地址(第一行第一個位置)
acall enable
display1 :mov p1,@r0 ;第一行第n個位置acall write
inc r0
cjne r0,#020h,display1;顯示第二行
mov p1,#00000100b ;文字不動,游標自動左移acall enable
mov p1,#00111100b ;8位2行5x10點陣acall enable
mov p1,#0ceh ;寫入顯示起始地址(第二行第十五個位置)acall enable
display2: mov p1,@r0 ;第二行第15個位置acall write
inc r0
cjne r0,#02eh,display2retenable: clr rs ;寫入控制命令的子程式clr rw
clr e
acall delay
setb e
retwrite: clr rs ;顯示一個字元的子程式setb rs ;rs=1
clr rw ;rw=0
clr e ;e=0
acall delay
setb e ;e=1
retdelay: mov p1,#0ffh ;判斷液晶顯示器是否忙的子程式
clr rs
setb rw
clr e
nopsetb e
jb p1.7,delay ;如果p1.7為高電平表示忙就迴圈等待retend
各位大俠,想問一下關於SAP中,作業價格的計算的問題!十分感謝
財務做的。按人工 機器 其它 建三個成本要素組,然後在每個成本要素組中填加你需要的成本要素就可以了。作業型別對應的一般是內部作業分配型別的次級成本要素 1 需要先建立好次級成本要素,如作業成本 人工 作業成本 制費 2 做後臺配置 財務內部顧問處理的 如作業成本 人工對應的會計科目,作業成本 制費對...
我想問一下關於女生的問題我想問一下關於女生的問題
你們可以擺開來好好的聊聊,也許她就是這個性子呢,我當初與我老公結婚之前也是沒有什麼話說的啊,因為內向,所以話少。她是什麼性格,開朗嗎,內向嗎,你是什麼性格,你們的共同愛好多嗎,也許人家回去是真的有事呢,當然也不排除相親的可能。當一個人生你的氣的時候就會不理人,氣消了就又會理你了。哦的這個問題要看你怎...
查一下關於眼的成語,查一下關於眼的成語八十個
一無所有 y w su y u 釋義 什麼都沒有 一 一概 完全 語出 敦煌變文集 廬山遠公話 萬法皆無 一無所有。近義 空無所有 空空如也 兩手空空 身無長物 家徒四壁 反義 無所不有 無所不包 包羅永珍 應有盡有 用法 含貶義。一般作謂語 定語。結構 動賓式。關於一的成語 1 禮堂的人真多!一看...