国产免费AV|泡泡玛特欧洲总部将设在伦敦|中文天堂网www新版资源在线|一本久道综合在线中文|国精产品一二三产区的使用方法|香蕉鱼在线观看|www.27eee

ELEOK

標題: VB上位機設置時間 51單片機DS1302時鐘的proteus仿真程序 [打印本頁]
作者: coolfire    時間: 2020-11-30 16:08
標題: VB上位機設置時間 51單片機DS1302時鐘的proteus仿真程序
VB上位機通過串口控制設置51單片機ds1302時鐘時間，附件有上位機VB源碼、proteus仿真文件和51單片機c程序源碼。


51單片機部分代碼
  1. #include <reg52.h>

  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};


  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. }

  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. }

  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. }

  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. }

  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幣)



歡迎光臨 ELEOK (http://m.afoofa.cn/) Powered by Discuz! X5.0