單片機應用實例一個液晶顯示的數(shù)字式電腦溫度計doc(編輯修改稿)
2025-08-13 23:34 本頁面
【文章內(nèi)容簡介】 call wbyt1(0f2h,ab(1))。 call wbyt1(0f4h,ab(2))。 call wbyt1(0f6h,ab(3))。 call wbyt1(0f8h,ab(4))。 call wbyt1(0fah,ab(5))。 call wbyt1(0fch,ab(6))。 call wbyt1(8eh,80h)。 /* write disable */end wbyt6。rbyt8:procedure。/*時鐘多字節(jié)突發(fā)模式讀過程*/ declare (i,j) byte。 call clear。 rst=1。 call send1302(mand)。 io=1。 do j=1 to 8。 do i=0 to 7。 sclk=1。 call time(1)。 sclk=0。 cy=io。 n=scr(n,1)。 end。 a(j)=n。 end。 call clear。 a(0)=a(6)。a(6)=A(7)。 a(0)=a(0) and 0fh。 if a(0)6 then a(0)=0。 CALL RBYT1。 if (a(1)=0 and a(2)=0 and a(3)=0) then do。 do num=0 to 35。 call time(250)。 end。 temp1=1。 end。 if temp1=1 then do。 temp1=0。 ab(4)=ab(4)+1。 if ab(4)99h then do。 ab(4)=0。 ab(5)=ab(5)+1。 if ab(5)99h then ab(5)=0。 end。 call wbyt6。 end。end rbyt8。display:procedure。 /*jieya,yima,fasong*/ declare (i,n,m) byte。 n=a(0) and 0fh。 /* send week */ data=week(n)。 call send595。 n=a(4)。 /* send date */ n=n and 0fh。 data=aco(n)。 call send595。 n=a(4)。 n=shr(n,4)。 data=aco(n)。 call send595。 do i=1 to 3。 /* send second,minute,hour */ n=a(i)。 n=n and 0fh。 data=aco(n)。 call send595。 n=a(i)。 n=shr(n,4)。 data=aco(n)。 call send595。 end。 do i=5 to 6。 /* send month,year */ n=a(i)。 n=n and 0fh。 data=aco(n)。 call send595。 n=a(i)。
職業(yè)教育相關(guān)推薦
鄂ICP備17016276號-1