设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 单片机仿真论坛 › 单片机C语言与VB语言联合在proteus上仿真
返回列表 发新帖
查看: 3122|回复: 0
打印 上一主题 下一主题
收起左侧

单片机C语言与VB语言联合在proteus上仿真

[复制链接]
跳转到指定楼层
楼主
ID:301862 发表于 2019-3-13 01:03 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
C与VB语言联合在proteus上仿真


单片机源程序如下:
  1. //http://proteus.5d6d.com
  2. #include <reg52.h>

  4. sbit T_CLK = P2^4; /*实时时钟时钟线引脚 */
  5. sbit T_IO = P2^3; /*实时时钟数据线引脚 */
  6. sbit T_RST = P2^2; /*实时时钟复位线引脚 */
  7. sbit ACC0=ACC^0;
  8. sbit ACC7=ACC^7;
  9. sbit rs=P2^0;
  10. sbit rw=P2^1;
  11. sbit e=P2^7;
  12. sbit setd=P3^2;
  13. sbit sett=P3^3;
  14. sbit add=P2^5;
  15. sbit enter=P2^6;
  16. sbit speaker=P3^7;
  17. unsigned char code tab[]={0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39};


  20. void v_RTInputByte(unsigned char ucDa)
  21. {
  22. unsigned char i;
  23. ACC = ucDa;
  24. for(i=8; i>0; i--)
  25. {
  26. T_IO = ACC0; /*相当于汇编中的 RRC */
  27. T_CLK = 1;
  28. T_CLK = 0;
  29. ACC = ACC >> 1;
  30. }
  31. }

  33. unsigned char uc_RTOutputByte(void)
  34. {
  35. unsigned char i;
  36. for(i=8; i>0; i--)
  37. {
  38. ACC = ACC >>1; /*相当于汇编中的 RRC */
  39. ACC7 = T_IO;
  40. T_CLK = 1;
  41. T_CLK = 0;
  42. }
  43. return(ACC);
  44. }

  46. void v_W1302(unsigned char ucAddr, unsigned char ucDa)
  47. {
  48. T_RST = 0;
  49. T_CLK = 0;
  50. T_RST = 1;
  51. v_RTInputByte(ucAddr); /* 地址，命令 */
  52. v_RTInputByte(ucDa); /* 写1Byte数据*/
  53. T_CLK = 1;
  54. T_RST =0;
  55. }

  57. unsigned char uc_R1302(unsigned char ucAddr)
  58. {
  59. unsigned char ucDa;
  60. T_RST = 0;
  61. T_CLK = 0;
  62. T_RST = 1;
  63. v_RTInputByte(ucAddr); /* 地址，命令 */
  64. ucDa = uc_RTOutputByte(); /* 读1Byte数据 */
  65. T_CLK = 1;
  66. T_RST =0;
  67. return(ucDa);
  68. }

  70. void v_BurstW1302T(unsigned char *pSecDa)
  71. {
  72. unsigned char i;
  73. v_W1302(0x8e,0x00); /* 控制命令,WP=0,写操作?*/
  74. T_RST = 0;
  75. T_CLK = 0;
  76. T_RST = 1;
  77. v_RTInputByte(0xbe); /* 0xbe:时钟多字节写命令 */
  78. for (i=8;i>0;i--) /*8Byte = 7Byte 时钟数据 + 1Byte 控制*/
  79. {
  80. v_RTInputByte(*pSecDa);/* 写1Byte数据*/
  81. pSecDa++;
  82. }
  83. T_CLK = 1;
  84. T_RST =0;
  85. }

  87. void v_BurstR1302T(unsigned char *pSecDa)
  88. {
  89. unsigned char i;
  90. T_RST = 0;
  91. T_CLK = 0;
  92. T_RST = 1;
  93. v_RTInputByte(0xbf); /* 0xbf:时钟多字节读命令 */
  94. for (i=8; i>0; i--)
  95. {
  96. *pSecDa = uc_RTOutputByte(); /* 读1Byte数据 */
  97. pSecDa++;
  98. }
  99. T_CLK = 1;
  100. T_RST =0;
  101. }

  103. void v_BurstW1302R(unsigned char *pReDa)
  104. {
  105. unsigned char i;
  106. v_W1302(0x8e,0x00); /* 控制命令,WP=0,写操作?*/
  107. T_RST = 0;
  108. T_CLK = 0;
  109. T_RST = 1;
  110. v_RTInputByte(0xfe); /* 0xbe:时钟多字节写命令 */
  111. for (i=31;i>0;i--) /*31Byte 寄存器数据 */
  112. {
  113. v_RTInputByte(*pReDa); /* 写1Byte数据*/
  114. pReDa++;
  115. }
  116. T_CLK = 1;
  117. T_RST =0;
  118. }

  120. void v_BurstR1302R(unsigned char *pReDa)
  121. {
  122. unsigned char i;
  123. T_RST = 0;
  124. T_CLK = 0;
  125. T_RST = 1;
  126. v_RTInputByte(0xff); /* 0xbf:时钟多字节读命令 */
  127. for (i=31; i>0; i--) /*31Byte 寄存器数据 */
  128. {
  129. *pReDa = uc_RTOutputByte(); /* 读1Byte数据 */
  130. pReDa++;
  131. }
  132. T_CLK = 1;
  133. T_RST =0;
  134. }

  136. void v_setd1302(unsigned char *pSecDa)
  137. {
  138. unsigned char i;
  139. unsigned char ucAddr = 0x80;
  140. v_W1302(0x8e,0x00); /* 控制命令,WP=0,写操作?*/
  141. for(i =7;i>0;i--)
  142. {
  143. v_W1302(ucAddr,*pSecDa); /* 秒 分 时 日 月 星期 年 */

  145. pSecDa++;
  146. ucAddr +=2;
  147. }
  148. v_W1302(0x8e,0x80); /* 控制命令,WP=1,写保护?*/
  149. }


  152. void delay()
  153. { unsigned char y;
  154. for(y=0;y<0xff;y++)
  155. {;}
  156. }


  159. void wc51r(unsigned char j)//写命令
  160. {
  161. e=0;rs=0;rw=0;
  162. e=1;
  163. P1=j;
  164. e=0;
  165. delay();
  166. }

  168. void init()//初始化
  169. {
  170. wc51r(0x01);
  171. wc51r(0x38);
  172. wc51r(0x38);
  173. wc51r(0x0e);
  174. wc51r(0x06);
  175. wc51r(0x0c);
  176. }


  179. void wc51ddr(unsigned char j)//写数据
  180. {
  181. e=0;rs=1;rw=0;
  182. e=1;
  183. P1=j;
  184. e=0;
  185. delay();
  186. }

  188. void write1602(unsigned char add,unsigned char da)//写入显示数据
  189. {wc51r(add);wc51ddr(da);}



  193. void main(void)
  194. {
  195. unsigned char ucCurtime[7];
  196. unsigned char i,yearh,yearl,monh,monl,dah,dal,hoh,hol,mih,mil,seh,sel;
  197. unsigned char ucAddr;
  198. unsigned int c;

  200. init();
  201. write1602(0x85,0x35);
  202. for(c=0;c<30000;c++);
  203. write1602(0x86,0x32);
  204. for(c=0;c<30000;c++);
  205. write1602(0x87,0x4D);
  206. for(c=0;c<30000;c++);
  207. write1602(0x88,0x43);
  208. for(c=0;c<30000;c++);
  209. write1602(0x89,0x55);
  210. for(c=0;c<30000;c++);
  211. write1602(0xC2,0x51);
  212. write1602(0xC3,0x51);
  213. write1602(0xC4,0x3A);
  214. write1602(0xC5,0x35);
  215. write1602(0xC6,0x39);
  216. write1602(0xC7,0x37);
  217. write1602(0xC8,0x33);
  218. write1602(0xC9,0x38);
  219. write1602(0xCA,0x35);
  220. write1602(0xCB,0x33);
  221. write1602(0xCC,0x36);
  222. write1602(0xCD,0x39);
  223. for(c=0;c<50000;c++);
  224. init();//LCD初始化





  230. TMOD=0X20;
  231. TH1=0XF3;
  232. TL1=0XF3;
  233. SCON=0X50;
  234. PCON=0X00;
  235. IT0=1;
  236. EX0=1;
  237. IT1=1;
  238. EX1=1;
  239. TR1=1;
  240. EA=1;
  241. ES=1;
  242. while(1)
  243. {ucAddr = 0x81;
  244. for (i=0;i<7;i++)
  245. {
  246. ucCurtime[i] = uc_R1302(ucAddr);/*格式为: 秒 分 时 日 月 星期 年 */
  247. ucAddr += 2;
  248. }


  251. yearh=ucCurtime[6]/16;
  252. yearl=ucCurtime[6]%16;
  253. monh=ucCurtime[4]/16;
  254. monl=ucCurtime[4]%16;
  255. dah=ucCurtime[3]/16;
  256. dal=ucCurtime[3]%16;

  258. hoh=ucCurtime[2]/16;
  259. hol=ucCurtime[2]%16;
  260. mih=ucCurtime[1]/16;
  261. mil=ucCurtime[1]%16;
  262. seh=ucCurtime[0]/16;
  263. sel=ucCurtime[0]%16;



  267. write1602(0x80,0x44);
  268. write1602(0x81,0x61);
  269. write1602(0x82,0x74);
  270. write1602(0x83,0x65);
  271. write1602(0x84,0x3a);//显示date:

  273. write1602(0x85,tab[yearh]);
  274. write1602(0x86,tab[yearl]);
  275. write1602(0x87,0x2d);//显示年
  276. write1602(0x88,tab[monh]);
  277. write1602(0x89,tab[monl]);
  278. write1602(0x8a,0x2d);//显示月
  279. write1602(0x8b,tab[dah]);
  280. write1602(0x8c,tab[dal]);

  282. write1602(0xc0,0x54);
  283. write1602(0xc1,0x69);
  284. write1602(0xc2,0x6d);
  285. write1602(0xc3,0x65);
  286. write1602(0xc4,0x3a);//显示time:

  288. write1602(0xc5,tab[hoh]);
  289. write1602(0xc6,tab[hol]);
  290. write1602(0xc7,0x3a);//显示小时
  291. write1602(0xc8,tab[mih]);
  292. write1602(0xc9,tab[mil]);
  293. write1602(0xca,0x3a);//显示小时
  294. write1602(0xcb,tab[seh]);
  295. write1602(0xcc,tab[sel]);

  297. if((ucCurtime[1]==0)&(ucCurtime[0]==0|ucCurtime[0]==1|ucCurtime[0]==2))//3秒整点报时
  298.   speaker=0;
  299. else speaker=1;

  301. }
  302. }




  307. serint() interrupt 4
  308. { //EA=0;
  309.   static unsigned char k;
  310.   unsigned char temp,year,month,date,hour,min,sec,week;
  311.   unsigned char stemp[7]={0};
  312.   RI=1;
  313.   temp=SBUF;
  314.   RI=0;
  315.   k++;
  316.   switch (k)
  317.   { case 1:sec=temp;
  318.            break;
  319.         case 2:min=temp;
  320.                break;
  321.         case 3:hour=temp;
  322.                break;
  323.         case 4:date=temp;
  324.                break;
  325.         case 5:month=temp;
  326.                break;
  327.         case 6:week=temp;
  328.                break;
  329.         case 7:year=temp;
  330.                stemp[0]=(sec/10)*16+sec%10;
  331.                    stemp[1]=(min/10)*16+min%10;
  332.                    stemp[2]=(hour/10)*16+hour%10;
  333.                    stemp[3]=(date/10)*16+date%10;
  334.                    stemp[4]=(month/10)*16+month%10;
  335.                    stemp[5]=(week/10)*16+week%10;
  336.                    stemp[6]=(year/10)*16+year%10;
  337.            v_setd1302(stemp);//设定值
  338.                    k=0;
  339.                break;
  340.   }
  341. }
复制代码

所有资料51hei提供下载:
0007、VB上位机程序控制DS1302时钟的proteus仿真.rar (682.27 KB, 下载次数: 25)


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶顶 踩踩
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表