LED顯示電腦電子鐘
加入技術(shù)交流群
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；本文引用地址：http://dyxdggzs.com/article/166492.htm
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)；
n=shr(n，4)；
data=aco(n)；
call send595；
end；
n=a(8)； /* send 19 or 20 */
n=n and 0fh；
data=aco(n)；
call send595；
n=a(8)；
n=shr(n，4)；
data=aco(n)；
call send595；
do m=0 to 5；
n=ab(m)；
n=n and 0fh；
data=aco(n)；
call send595_1；
n=ab(m)；
n=shr(n，4)；
data=aco(n)；
call send595_1；
end；
ale=0；
ale=1；
end display；
beginset：procedure；
a(0)=06h；a(1)=58h；a(2)=59h；a(3)=23h；
a(4)=30h；a(5)=06h；a(6)=97h；a(7)=00；
a(8)=19h； /* set date/time (1997，7，1，8：00：00，week 3) */
call wbyt1(8eh，0)； /* write enable*/
call wbyt1(80h，00h)；/* start colock */
call wbyt1(0beh，0abh)；/*兩個(gè)二極管與8K電阻串聯(lián)充電*/
command=0beh； /* write colock/date */
call wbyt8；
call wbyt1(0c0h，a(8))；
call wbyt1(8eh，80h)； /* set write protect bit */
end beginset；
key：procedure；
declare (i，time1，k1，tem) byte；
call time(100)；
k1=7；time1=30；
if mk=0 then
do；
do while time1>0；
week： if k1=0 then
do；
do i=0 to 5；
/* call hz(a(0))； */
end；
do i=0 to 3；
/* call hz0； */
end；
end；
評論