VB上位机设置时间 51单片机DS1302时钟的proteus仿真程序

VB上位机通过串口控制设置51单片机ds1302时钟时间，附件有上位机VB源码、proteus仿真文件和51单片机c程序源码。


51单片机部分代码

1. #include <reg52.h>
   
2. 
   
3. sbit T_CLK = P2^4; /*实时时钟时钟线引脚 */
   
4. sbit T_IO = P2^3; /*实时时钟数据线引脚 */
   
5. sbit T_RST = P2^2; /*实时时钟复位线引脚 */
   
6. sbit ACC0=ACC^0;
   
7. sbit ACC7=ACC^7;
   
8. sbit rs=P2^0;
   
9. sbit rw=P2^1;
   
10. sbit e=P2^7;
    
11. sbit setd=P3^2;
    
12. sbit sett=P3^3;
    
13. sbit add=P2^5;
    
14. sbit enter=P2^6;
    
15. sbit speaker=P3^7;
    
16. unsigned char code tab[]={0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39};
    
17. 
    
18. 
    
19. void v_RTInputByte(unsigned char ucDa)
    
20. {
    
21. unsigned char i;
    
22. ACC = ucDa;
    
23. for(i=8; i>0; i--)
    
24. {
    
25. T_IO = ACC0; /*相当于汇编中的 RRC */
    
26. T_CLK = 1;
    
27. T_CLK = 0;
    
28. ACC = ACC >> 1;
    
29. }
    
30. }
    
31. 
    
32. unsigned char uc_RTOutputByte(void)
    
33. {
    
34. unsigned char i;
    
35. for(i=8; i>0; i--)
    
36. {
    
37. ACC = ACC >>1; /*相当于汇编中的 RRC */
    
38. ACC7 = T_IO;
    
39. T_CLK = 1;
    
40. T_CLK = 0;
    
41. }
    
42. return(ACC);
    
43. }
    
44. 
    
45. void v_W1302(unsigned char ucAddr, unsigned char ucDa)
    
46. {
    
47. T_RST = 0;
    
48. T_CLK = 0;
    
49. T_RST = 1;
    
50. v_RTInputByte(ucAddr); /* 地址，命令 */
    
51. v_RTInputByte(ucDa); /* 写1Byte数据*/
    
52. T_CLK = 1;
    
53. T_RST =0;
    
54. }
    
55. 
    
56. unsigned char uc_R1302(unsigned char ucAddr)
    
57. {
    
58. unsigned char ucDa;
    
59. T_RST = 0;
    
60. T_CLK = 0;
    
61. T_RST = 1;
    
62. v_RTInputByte(ucAddr); /* 地址，命令 */
    
63. ucDa = uc_RTOutputByte(); /* 读1Byte数据 */
    
64. T_CLK = 1;
    
65. T_RST =0;
    
66. return(ucDa);
    
67. }
    
68. 
    
69. void v_BurstW1302T(unsigned char *pSecDa)
    
70. {
    
71. unsigned char i;
    
72. v_W1302(0x8e,0x00); /* 控制命令,WP=0,写操作?*/
    
73. T_RST = 0;
    
74. T_CLK = 0;
    
75. T_RST = 1;
    
76. v_RTInputByte(0xbe); /* 0xbe:时钟多字节写命令 */
    
77. for (i=8;i>0;i--) /*8Byte = 7Byte 时钟数据 + 1Byte 控制*/
    
78. {
    
79. v_RTInputByte(*pSecDa);/* 写1Byte数据*/
    
80. pSecDa++;
    
81. }
    
82. T_CLK = 1;
    
83. T_RST =0;
    
84. }
    
85. 以上为部分代码，完整源码请见附件

复制代码

源码_VB上位机程序_51mcuDS1302_proteus仿真.zip (729.33 KB, 售价: 10 E币)

2020-11-30 16:07 上传

点击文件名下载附件

【必读】版权免责声明

1、本主题所有言论和内容纯属会员个人意见，与本论坛立场无关。2、本站对所发内容真实性、客观性、可用性不做任何保证也不负任何责任，网友之间仅出于学习目的进行交流。3、对提供的数字内容不拥有任何权利，其版权归原著者拥有。请勿将该数字内容进行商业交易、转载等行为，该内容只为学习所提供，使用后发生的一切问题与本站无关。 4、本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。 5、本网站所有软件和资料均为网友推荐收集整理而来，仅供学习用途使用，请务必下载后两小时内删除，禁止商用。6、如有侵犯你版权的，请及时联系我们（电子邮箱1370723259@qq.com）指出，本站将立即改正。