vb.rar_VB 上位机_VB 单片机_vb七段数码管_七段VB数码管_上位机电压

AD_CLK EQU P3.5 AD_DAT EQU P1.0 AD_CS EQU P1.2 ORG 0000H LJMP START start:MOV SP,#60H MOV 47H,#3FH MOV 46H,#3FH MOV 45H,#5FH MOV 44H,#7FH MOV DPTR,#LED MOV A,#00H MOV R1,A MOV P0,#0FFH MOV TMOD,#22H MOV TH1,#0FDH MOV TL1,#0FDH MOV TH0,#38H MOV TH0,#38H SETB TR1 SETB TR0 SETB EA SETB ES SETB ET1 SETB ET0 MOV PCON,#00H MOV SCON,#50H MAIN: LCALL AD_CONV MOV A,R1 CLR T1 MOV SBUF,A JNB T1,$ CLR T1 MOV A,R1 CPL A MOV P0,A MOV A,R1 CALL ADZHHEXTOBCD LCALL LEDXS MOV A,#00H MOV R1,A MOV PO,#OFFH MOV TMOD,#22H MOV TH1,#0FDH MOV TL1,#OFDH MOV THO,#38H MOV TLO,#38H SETB TR1 SETB TRO SETB EA SETB ES SETS ETl SETB ETO MOV PCON,#0OH ; SMOD=O MOV SCON,#50H MAIN: LCALL AD CONV M0V A,R1 CLR TI MOV SBUF,A 7NB Tl,$ CLR TI MOV A,Bl CPL A MOV PO,A MOV A,Rl CALL ADZHHEXT013CD LCALL LEDXS MOV A,#00F MOV R1,A LIMP MAIN AD CONV: SETB AD_CS CLR AD_CLK CLR AD_CS SETB AD_DAT SETB AD_CLK CLR AD_DAT CLR AD_CLR SETB AD_DAT SETB AD_CLK CLR AD_DAT CLR AD_CLK CLR AD_DAT SETB AD_CLK SETB AD_DAT CLR AD_CLK SETB AD_CLK MOV 40H,#08H AD READ:CLR AD_CLK MOV C,AD_DAT RLC A SETB AD_CLK DJNZ 40H,AD_READ SETB AD_CS MOV R1,A RET ADZHHEXTOBCD: MOV B,#178 MUL AB MOV R6,B MOV R7,A CLR A MOV R3,A MOV R4,A MOV R5,A MOV R2,#10H HB: MOV A,R7 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,R7 MOV R3,A DJNZ R2,HB BCDTZ: MOV R0,#30H MOV A,R5 MOV B,#16 DIV AB MOV @R0,B INC R0 MOV @R0,A INC R0 MOV A,R3 MOV @R0,A RET LEDXS: MOV P1,#OFFH MOV A,34H MOVC A,@A+DPTR MOV P1;47H MOV P2,A CLR P2.7 CALL DELED MOV A,33H MOVC A,@A+DPTR MOV P1,46H MOV P2,A CALL DELED MOV A,32H MOVC A,@A+DPTR MOV P1;45H MOV P2,A CALL DELED MOV A,31H MOVC A,@A+DPTR MOV P1,44H MOV P2,A CALL DELED RET LED: DB 0C0H,OF9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H DELED:MOV 42H,#02H DL: MOV 43H,#0FFH DJNZ 43H,$ DJNZ 42,DL RET END