历史上的今天

今天是：2025年01月10日（星期五）

正在发生

CES 2025：VicOne和P3展示安全的AI基驾驶舱解决方案

2018年01月10日 | TLC1549数字电压表程序

2018-01-10 来源：eefocus

;TLC1549数字电压表程序数字电压表：量程为 5V,精度为0.1V (不带字库12864显示)
CS1     BIT     P2.3
CS2     BIT     P2.4
D_I     BIT     P3.6   ;4

R_W     BIT     P2.5   ;5
E       BIT     P2.6   ;6
DB0_DB7 EQU     P0
X       EQU     22H ;页地址
Y       EQU     23H ;列地址
COM     EQU     24H
DAT     EQU     24H
COUNT   EQU     25H      ;代码倒计数单元
CODE0   EQU     26H     ;表格起始地址，赋0值后与DPTR合成查表指针地址
MUL_    EQU     26H  ;显示数字时，暂存单元(要显示的数是几就在里面存几)
   CLK1 BIT P3.4
   DATA1 BIT P3.5
   CS    BIT P3.7

         ORG 0000H
         JMP MAIN
      ORG 0030H
MAIN:    MOV SP,#60H
   ACALL INT
         SETB CS1
      SETB CS2
         ACALL CLEAR
   ACALL SY
BEGIN:   ACALL TLC1549
         MOV R3,58H  ;;********
   MOV R2,59H
         MOV R7,#0AH
   MOV R6,#00H
   ACALL MULD
   MOV R7,#0CCH
    ACALL D457
   MOV A,R3
   ACALL HBCD
   MOV R3,A
   CALL TUBCD
   CALL  DSP1
   ACALL DEL
   JMP   BEGIN
TUBCD:   MOV A,R3
         ANL A,#0FH
   MOV 30H,A   ;低位

   MOV A,R3
   SWAP A
   ANL A,#0FH
   MOV 31H,A
   RET
HBCD: MOV B,#100 ;分离出百位，存放在R3中
DIV AB
MOV R3,A
MOV A,#10 ;余数继续分离十位和个位
XCH A,B
DIV AB
SWAP A
ORL A,B ;将十位和个位拼装成ＢＣＤ码
RET
HB2: CLR A          ; 双字节十六进制转BCD码
     MOV R3,A
     MOV R4,A
     MOV R5,A
     MOV R2,#10H    ; 转换双字节十六进制整数
HB3: MOV A,R7       ; 从高端移出待转换数的一位到CY中
     RLC A
     MOV R7,A
     MOV A,R6
     RLC A
     MOV R6,A
     MOV A,R5      ;ＢＣＤ码带进位自身相加，相当于乘２
     ADDC A,R5;
     DA A          ; 十进制调整
     MOV R5,A
     MOV A,R4
     ADDC A,R4
     DA A
     MOV R4,A
     MOV A,R3
     ADDC A,R3
     MOV R3,A       ; 双字节十六进制数的万位数不超过６，不用调整
     DJNZ R2,HB3    ; 处理完１６ｂｉｔ
     RET
MULD: MOV A,R3 ;计算R3乘R7
MOV B,R7
MUL AB
MOV R4,B ;暂存部分积
MOV R5,A
MOV A,R3 ;计算R3乘R6
MOV B,R6
MUL AB
ADD A,R4 ;累加部分积
MOV R4,A
CLR A
ADDC A,B
MOV R3,A
MOV A,R2 ;计算R2乘R7
MOV B,R7
MUL AB
ADD A,R4 ;累加部分积
MOV R4,A
MOV A,R3
ADDC A,B
MOV R3,A
CLR A
RLC A
XCH A,R2 ;计算R2乘R6
MOV B,R6
MUL AB
ADD A,R3 ;累加部分积
MOV R3,A
MOV A,R2
ADDC A,B
MOV R2,A
RET
D457: CLR C
MOV A,R4
SUBB A,R7
JC DV50
SETB OV ;商溢出
RET
DV50: MOV R6,#8 ;求平均值（R4R5／R7－→R3）
DV51: MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RLC A
MOV R4,A
MOV F0,C
CLR C
SUBB A,R7
ANL C,/F0
JC DV52
MOV R4,A
DV52: CPL C
MOV A,R3
RLC A
MOV R3,A
DJNZ R6,DV51
MOV A,R4 ;四舍五入
ADD A,R4
JC DV53
SUBB A,R7
JC DV54
DV53: INC R3
DV54: CLR OV
RET
TLC1549:    SETB    CLK1             ;读AD数据
            SETB    CS
            SETB    DATA1
            CLR     CS
            CLR     CLK1
            MOV      C,DATA1
            MOV      22H.1,C

            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      22H.0,C

            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.7,C
            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.6,C
            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.5,C
            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.4,C
            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.3,C
            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.2,C
            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.1,C
            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            MOV      C,DATA1
            MOV      ACC.0,C

            SETB    CLK1
            NOP
            NOP
            CLR     CLK1
            NOP
            NOP
            SETB    CS
            CLR     CLK1
            CLR     CLK1
            MOV      58H,A        ;低位送入58H

            CLR     A
            MOV      C,22H.0
            MOV      ACC.0,C
            MOV      C,22H.1
            MOV      ACC.1,C
      ANL A,#03H
    MOV      59H,A        ;高位送入59H
            RET
DSP1:    SETB CS2
      CLR CS1
         MOV X,#0BAH
         MOV Y,#50H
         MOV DPTR,#DDB
      MOV MUL_,31H
   ACALL DISP_
         MOV X,#0BAH
         MOV Y,#60H
      MOV MUL_,30H
   ACALL DISP_
         MOV X,#0BAH
         MOV Y,#58H
   MOV DPTR,#TAB1
   MOV MUL_,#00H
   ACALL DISP_
   RET

;************************8位字宽显示子程序： (CODE0待设)**********************
DISP_: MOV B,#10H    ;要显示的数是几就用几乘以16，得到基址起始地址
        MOV A,MUL_
  MUL AB
   MOV CODE0,A
        MOV 39H,#02H
     MOV COUNT,#08H
LP_:    MOV COM,X         ;设置页地址
     LCALL INST
     MOV COM,Y         ;设置列地址
     LCALL INST
W_:     MOV A,CODE0
        MOV C A,@A+DPTR
     MOV DAT,A
     LCALL DATA_
     INC CODE0
     DJNZ COUNT,W_
     DJNZ 39H,LP1_
     RET
LP1_:   INC X
     MOV COUNT,#08H
     AJMP LP_
;***************************16位字宽显示子程序**********************
DISP:   MOV 39H,#02H
     MOV CODE0,#00H
     MOV COUNT,#10H ;根据字宽及象素的不同而改变 DISP中的COUNT根据字高及象素改变CODE0
LP:     MOV COM,X         ;设置页地址
     LCALL INST
     MOV COM,Y         ;设置列地址
     LCALL INST
W:      MOV A,CODE0
        MOV C A,@A+DPTR
     MOV DAT,A
     LCALL DATA_
     INC CODE0
     DJNZ COUNT,W
     DJNZ 39H,LP1
     RET
LP1:    INC X
     MOV COUNT,#10H
     AJMP LP
;***********************以下为字符显示子程序块*************************
SY:     SETB CS1          ;开机
     CLR CS2
        MOV X,#0BAH
        MOV Y,#40H
        MOV      DPTR,#TAB2  ;
        CALL    DISP
        MOV X,#0BAH
        MOV Y,#50H
        MOV      DPTR,#TAB3  ;
        CALL    DISP
        MOV X,#0BAH
        MOV Y,#60H
        MOV      DPTR,#TAB4    ;
        CALL    DISP
        MOV X,#0BAH
        MOV Y,#70H
        MOV      DPTR,#TAB5  ;
        CALL    DISP
  CLR CS1
  SETB CS2
        MOV X,#0BAH
        MOV Y,#40H
        MOV      DPTR,#TAB6  ;
        CALL    DISP
        MOV X,#0BAH
        MOV Y,#70H
        MOV      DPTR,#TAB7  ;
        CALL    DISP
  RET
INST:   LCALL BUSY ;写指令
        SETB E
     CLR D_I
     CLR R_W
     MOV DB0_DB7,COM
     CLR E
     RET
DATA_: LCALL BUSY ;写数据
        SETB E
     SETB D_I
     CLR R_W
     MOV DB0_DB7,DAT
     CLR E
     RET
BUSY:   CLR D_I     ;测忙
        SETB R_W
BUSY1: MOV DB0_DB7,#0FFH
        SETB E
     MOV A,DB0_DB7
     CLR E
     JB ACC.7,BUSY1
     RET
CLEAR: MOV R4,#00H   ;清屏
CLEAR1: MOV A,R4
        ORL A,#0B8H
   MOV COM,A
  ACALL INST
   MOV COM,#40H
  ACALL INST
   MOV R3,#40H
CLEAR2: MOV DAT,#00H
        LCALL DATA_
  DJNZ R3,CLEAR2
  INC R4
  CJNE R4,#08H,CLEAR1
  RET
INT:    MOV COM,#0C0H ;初始化
        ACALL INST
   MOV COM,#3FH
  ACALL INST
  RET
;***********************************************
DEL: MOV R7,#01H
DEL1: MOV R6,#0FFH
DEL2: MOV R5,#0FFH
      DJNZ R5,$
      DJNZ R6,DEL2
   DJNZ R7,DEL1
   RET
DDB:
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H ; "0" 0
DB 000H,010H,010H,0F8H,000H,000H,000H,000H,000H,020H,020H,03FH,020H,020H,000H,000H ; "1" 1
DB 000H,070H,008H,008H,008H,088H,070H,000H,000H,030H,028H,024H,022H,021H,030H,000H ; "2" 2
DB 000H,030H,008H,088H,088H,048H,030H,000H,000H,018H,020H,020H,020H,011H,00EH,000H ; "3" 3
DB 000H,000H,0C0H,020H,010H,0F8H,000H,000H,000H,007H,004H,024H,024H,03FH,024H,000H ; "4" 4
DB 000H,0F8H,008H,088H,088H,008H,008H,000H,000H,019H,021H,020H,020H,011H,00EH,000H ; "5" 5
DB 000H,0E0H,010H,088H,088H,018H,000H,000H,000H,00FH,011H,020H,020H,011H,00EH,000H ; "6" 6
DB 000H,038H,008H,008H,0C8H,038H,008H,000H,000H,000H,000H,03FH,000H,000H,000H,000H ; "7" 7
DB 000H,070H,088H,008H,008H,088H,070H,000H,000H,01CH,022H,021H,021H,022H,01CH,000H ; "8" 8
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,000H,031H,022H,022H,011H,00FH,000H ; "9" 9
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H ; "0" 0
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H ; "0" 0
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H ; "0" 0
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H ; "0" 0
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H ; "0" 0
DB 000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,00FH,010H,020H,020H,010H,00FH,000H ; "0" 0
TAB1:
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,030H,030H,000H,000H,000H,000H,000H ; "." 0
TAB2:
DB 000H,000H,040H,042H,05CH,048H,040H,040H,07FH,040H,050H,04EH,044H,0C0H,000H,000H ;
DB 000H,000H,020H,022H,022H,022H,022H,022H,022H,022H,022H,022H,022H,07FH,000H,000H ; "当" 0
TAB3:
DB 008H,008H,0E8H,0A8H,0A9H,0AEH,0EAH,008H,008H,0C8H,00CH,00BH,0EAH,008H,008H,000H ;
DB 000H,000H,07FH,004H,024H,044H,03FH,000H,000H,01FH,040H,080H,07FH,000H,000H,000H ; "前" 1
TAB4:
DB 000H,000H,0F8H,048H,048H,048H,048H,0FFH,048H,048H,048H,048H,0F8H,000H,000H,000H ;
DB 000H,000H,00FH,004H,004H,004H,004H,03FH,044H,044H,044H,044H,04FH,040H,070H,000H ; "电" 2
TAB5:
DB 000H,000H,0FEH,002H,042H,042H,042H,042H,0FAH,042H,042H,042H,062H,042H,002H,000H ;
DB 020H,018H,027H,020H,020H,020H,020H,020H,03FH,020H,021H,02EH,024H,020H,020H,000H ; "压" 3
TAB6:
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H ;
DB 000H,000H,036H,036H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H ; "：" 0
TAB7:
DB 008H,078H,088H,000H,000H,0C8H,038H,008H,00H,00H,00H,00H,00H,00H,00H,00H; "V" 1
DB 000H,000H,007H,038H,00EH,001H,000H,000H,00H,00H,00H,00H,00H,00H,00H,00H

END

TLC1549 数字电压表

上一篇:TLC1549驱动程序

下一篇:51单片机控制节拍产生示例程序

推荐阅读

2018年01月10日 | 传美国运营商AT&T放弃与华为合作华为手机入美受阻

新浪科技讯北京时间1月9日早间消息，据《华尔街日报》援引知情人士消息称，AT&T已经放弃了与华为合作，不在美国售卖华为智能手机。外界预计华为周二将在拉斯维加斯的CES大展上宣布与AT&T达成协议，标志着该公司首次与美国大型运营商合作销售手机。该公司目前是仅次于三星和苹果的全球第三大手机品牌，但却基本被隔绝在美国市场之外。华为也是全球最大电...

2019年01月10日 | 科沃斯携家用服务机器人完整产品线重磅亮相CES2019

新品DG70于CES2019全球率先面世 1月8日至11日，CES2019在美国拉斯维加斯拉开帷幕。家用服务机器人领导者科沃斯携家用服务机器人完整产品线重磅亮相。在此次展会上，行业内首款拥有VI视觉识别技术的科沃斯扫地机器人DG70全球首发，将其地板清洁领域的创新成果科沃斯AIVI视觉识别技术运用到家用服务机器人领域，充分展现科沃斯强大研发和创新力，给消费者...

2020年01月10日 | 国网宁夏电力高质量实施泛在电力物联网建设任务

2019年12月30日，宁夏宁东供电公司互联网办公室和营销部员工来到宁东能源化工基地新材料园区派克威生物科技公司，为客户安装智能采集终端，开展能效优化分析，加快推进泛在电力物联网智慧能源综合服务平台建设，更好地服务电力客户。 2019年，国网宁夏电力有限公司以“四个坚持”为指引，牢牢把握“抓主线、夯基础、强应用、树标杆”总体思路，全力...

2021年01月10日 | 韩国科学家研发透明光伏电池未来或可“融入”窗户和手机屏幕

透明太阳能电池并不是什么新鲜的概念，但由于其半导体层的材料问题，这一概念迟迟难以转化为实践。不过近日，韩国仁川国立大学的科学家通过将两种潜在的半导体材料相结合(二氧化钛和氧化镍)，研发出了一种高效且透明的太阳能电池。近年来，随着全球各国愈发关注气候问题、加速脱碳进程，太阳能电池也越来越受欢迎。不过，现有的太阳能电池都是不透明...

史海拾趣

Future Designs, Inc. (FDI)公司的发展小趣事

Future Designs, Inc.（FDI）成立于几十年前，最初由一群在电子设计领域拥有丰富经验的工程师创立。他们看到市场上对于高质量、快速响应的触摸屏LCD图形用户界面（GUI）解决方案的需求日益增长，于是决定成立一家公司，专注于提供此类产品和服务。初创时期，FDI面临诸多挑战，包括资金短缺、市场认可度低以及技术难关等。然而，凭借团队成员的坚持不懈和专业技术，他们逐步攻克难关，开发出了ELI™和罗德里格斯™GUI家族产品，为公司赢得了初步的市场地位。

Aplus Flash Technology Inc公司的发展小趣事

Aplus Flash Technology Inc公司自成立以来，一直致力于闪存技术的研发与生产。在电子行业的激烈竞争中，公司凭借对技术的深入理解和持续创新，成功研发出了一款高性能、低成本的闪存芯片，迅速占据了市场份额。这款芯片不仅满足了消费者对电子设备存储容量和速度的需求，还因其出色的稳定性和耐用性赢得了客户的广泛好评。Aplus Flash Technology Inc公司因此成为了闪存市场的佼佼者，为公司的进一步发展奠定了坚实基础。

Ava Electronics Corp公司的发展小趣事

在市场竞争日益激烈的情况下，AVA电子意识到单打独斗已经难以应对市场的挑战。于是，公司开始寻求与上下游企业的合作，通过产业链整合实现协同发展。AVA电子与供应商建立了长期稳定的合作关系，确保了原材料的稳定供应和质量保障；同时，公司还与多家销售渠道商建立了战略合作关系，共同开拓市场。这种产业链整合的模式不仅降低了公司的运营成本，也提高了公司的市场竞争力。

Fine Products Microelectronics Corp公司的发展小趣事

随着国内市场的逐渐饱和，AVA电子开始将目光投向国际市场。公司制定了详细的国际化战略，包括拓展海外市场、建立海外销售渠道、加强与国际同行的合作等。AVA电子积极参加国际性的行业展会和论坛，与国际客户建立了广泛的联系；同时，公司还加大了对海外市场的宣传力度，提高了品牌在国际市场的知名度。这些举措不仅为公司带来了更多的商机，也提升了公司在国际市场的地位。

请注意，以上故事是基于AVA电子的公开信息和一般电子科技公司的发展规律进行创作的，并非真实事件。如果需要更具体、更详细的故事，建议直接查阅AVA电子的官方资料或相关新闻报道。

GE公司的发展小趣事

AVA电子的创始人凭借对市场的敏锐洞察和对技术的深刻理解，于2004年决定成立这家以IT产品为主的新兴高科技企业。当时，中国的电子行业正迎来一轮发展高潮，而流媒体技术、网络控制技术和多媒体音视频切换及传输技术则被认为是未来行业发展的关键。然而，创业初期，公司面临着资金短缺、人才匮乏以及市场竞争激烈等多重挑战。创始人带领团队，通过不断研发创新产品，积极拓展市场，逐渐在行业中站稳脚跟。

GC Electronics公司的发展小趣事

定期清洁传感器和冷却系统，防止污垢或杂质影响传感器的正常工作。

问答坊 | AI 解惑

PCI驱动问怪异题请教

我们开发了一块pci9052芯片的PCI接口板，出现怪异问题，请帮忙分析下！基于PDC1000开发的接口板（使用PCI9052）。数据采集有两部分，第一部分较少数据读写；第二部分大量数据频繁读写（80ms定时器，每80ms有2048次*3*12位/次，时钟由2M晶振产 ...…

查看全部问答＞

0…

查看全部问答＞

Oops SIGSEGV错误，请教一下如何分析定位

Oops SIGSEGV: 0000 [#1] Modules linked in: embxmailbox(P) stgfb_core(P) led st7105_ks nandbm embxloopback(P) embxshell(P) mme_host(P) embxshm(P) stapi_ioctl(P) stapi_core(P) Pid : 5705, Comm: &nbs ...…

查看全部问答＞

为什么我的CEdit不显示啊~????

这几天刚刚装好EVC,连接板子上搞了半天,现在终于可以在板子上运行调试了,可是马上又有问题来了,我新开了个对话框,里面放了几个STATIC和几个Edit,刚刚开始的时候用中文的,Static里面的字是乱的,Edit不显示,改成英文的,Static那几个也可显示一个了``` ...…

查看全部问答＞

时钟问题，讨论，请教！

用到了5个时钟，19.2k、40k、80k、480k、960k、dc综合之后（用的umc库）做了一下后仿40k跟80k时钟总是没有，一直保持为0；我单独把40k和80k拿出来后仿时钟都能出来，可一到总模块就不行了，这是为什么啊？？我试着用smic库做了以下综合和后仿没有任 ...…

查看全部问答＞

硬件测试技术：没有规矩不成方圆

硬件测试概述 1、硬件测试的概念 2、硬件测试的目的 3、硬件测试的目标——产品的零缺陷 4、硬件测试的意义 5、目前业界硬 ...…

查看全部问答＞

lm3s811小问题

谁知道那个白色的长条的是什么？是液晶吗，为什么是粘上去了，今天被同学拿下来了，有知道的告诉我一声，谢谢了 …

查看全部问答＞

在单位遇到一个2B

刚才在写项目文档，居然我对面的一个2B突然站起来对我说让我敲键盘的声音小一点，说影响到他睡觉了，公司有规定12点到13点之间可以休息，但是都13.20了它还在睡觉，这个先不说，凭什么就让我打字的声音小点呀，我在工作，我做的是正当事情，难道正 ...…

查看全部问答＞

方波放大电路有过冲，不知如何解决

想把一个输入Vpp=500mV，频率等于200K的方波放大9倍，两级放大，但是出现了过冲（应该算是振铃吧），不知道该如何解决，求大神们讲解下过冲的由来及解决方案，不胜感激…

查看全部问答＞

CC2530的输出阻抗是多少

CC2530的输出阻抗是多少…

查看全部问答＞