VB上位機設(shè)置時間 51單片機DS1302時鐘的proteus仿真程序

VB上位機通過串口控制設(shè)置51單片機ds1302時鐘時間，附件有上位機VB源碼、proteus仿真文件和51單片機c程序源碼。


51單片機部分代碼

1. #include <reg52.h>
   
2. 
   
3. sbit T_CLK = P2^4; /*實時時鐘時鐘線引腳 */
   
4. sbit T_IO = P2^3; /*實時時鐘數(shù)據(jù)線引腳 */
   
5. sbit T_RST = P2^2; /*實時時鐘復(fù)位線引腳 */
   
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數(shù)據(jù)*/
    
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數(shù)據(jù) */
    
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:時鐘多字節(jié)寫命令 */
    
77. for (i=8;i>0;i--) /*8Byte = 7Byte 時鐘數(shù)據(jù) + 1Byte 控制*/
    
78. {
    
79. v_RTInputByte(*pSecDa);/* 寫1Byte數(shù)據(jù)*/
    
80. pSecDa++;
    
81. }
    
82. T_CLK = 1;
    
83. T_RST =0;
    
84. }
    
85. 以上為部分代碼，完整源碼請見附件

復(fù)制代碼

源碼_VB上位機程序_51mcuDS1302_proteus仿真.zip (729.33 KB, 售價: 10 E幣)

2020-11-30 16:07 上傳

點擊文件名下載附件
售價: 10 E幣  [記錄]  [購買]

【必讀】版權(quán)免責聲明

1、本主題所有言論和內(nèi)容純屬會員個人意見，與本論壇立場無關(guān)。2、本站對所發(fā)內(nèi)容真實性、客觀性、可用性不做任何保證也不負任何責任，網(wǎng)友之間僅出于學(xué)習(xí)目的進行交流。3、對提供的數(shù)字內(nèi)容不擁有任何權(quán)利，其版權(quán)歸原著者擁有。請勿將該數(shù)字內(nèi)容進行商業(yè)交易、轉(zhuǎn)載等行為，該內(nèi)容只為學(xué)習(xí)所提供，使用后發(fā)生的一切問題與本站無關(guān)。 4、本網(wǎng)站不保證本站提供的下載資源的準確性、安全性和完整性;同時本網(wǎng)站也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的損失或傷害。 5、本網(wǎng)站所有軟件和資料均為網(wǎng)友推薦收集整理而來，僅供學(xué)習(xí)用途使用，請務(wù)必下載后兩小時內(nèi)刪除，禁止商用。6、如有侵犯你版權(quán)的，請及時聯(lián)系我們（電子郵箱1370723259@qq.com）指出，本站將立即改正。