找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 4447|回复: 7
打印 上一主题 下一主题
收起左侧

单片机调频调压电路制作 附源程序

[复制链接]
跳转到指定楼层
楼主

我用STC15F2K60S2做的调频调压电路

下面是C语言代码
  1. #include "reg51.h"
  2. #include "intrins.h"
  3. #define GPIO_DIG P0
  4. #define GPIO_PLACE P2
  5. typedef unsigned char BYTE;
  6. typedef unsigned int WORD;
  7. sfr P0M1 = 0X93;
  8. sfr P0M0 = 0X94;
  9. sfr P2M1 = 0x95;
  10. sfr P2M0 = 0x96;
  11. sfr AUXR = 0x8e;
  12. sfr ADC_CONTR = 0xBC;
  13. sfr ADC_RES = 0xBD;
  14. sfr ADC_LOW2 = 0xBE;
  15. sfr P1ASF = 0x9D;   
  16. sfr auxr=0x8e;

  17. WORD uu=160,x,shu=60,xue=10000;
  18. BYTE anjian;
  19. unsigned int num;
  20. float vin;
  21. unsigned int ooo,qian,bai,shi,ge;
  22. unsigned char code DIG_PLACE[] = {0x07,0x0b,0x0d,0x0e };
  23. unsigned char code DIG_CODE[] = {0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x80};
  24. unsigned char j=0;
  25. unsigned int k;
  26. BYTE ch =0x01;
  27. sbit q35=P3^5;
  28. sbit q36=P3^6;
  29. sbit q34=P3^7;
  30. sbit q37=P3^4;
  31. sbit anjian2=P1^7;
  32. sbit anjian3=P1^6;
  33. bit flag=0;
  34. bit flag1;
  35. void Delay(WORD n)
  36. {
  37. WORD x;
  38. while (n--)
  39. {
  40. x = 5000;
  41. while (x--);
  42. }
  43. }

  44. void adc_isr() interrupt 5 using 1

  45. {
  46. ADC_CONTR &= !0x10;
  47. num=ADC_RES;
  48. num=num<<2|ADC_LOW2;
  49. ADC_CONTR = 0x80 | 0x00 | 0x08 | ch;
  50. }


  51. void InitADC()

  52. {
  53. P1ASF = 0x03;
  54. ADC_RES = 0;
  55. ADC_CONTR = 0x80 | 0x00 | 0x08 | ch;
  56. Delay(2);
  57. }
  58. void DigDisplay(unsigned char n, unsigned char number)
  59. {
  60. GPIO_PLACE = DIG_PLACE[n];
  61. GPIO_DIG = DIG_CODE[number];
  62. for(n=10;n--;n>0);
  63. GPIO_DIG = 0x00;
  64. }
  65. void main()
  66. {
  67.         q34=0;
  68.         q36=0;
  69.         q37=1;
  70.         q35=1;
  71.        
  72. P0M1 = 0x00;
  73. P0M0 = 0xFF;
  74. P2M1 = 0x00;
  75. P2M0 = 0xff;
  76. InitADC();
  77. IE = 0xa0;
  78. AUXR |= 0x80;
  79. TMOD = 0x00;  
  80.   TR0 = 1;  
  81. while (1)
  82. {
  83.         uu=xue/shu;
  84.         if(!anjian2)
  85. {
  86. Delay(10);
  87. if(!anjian2)
  88. {
  89.                 shu--;
  90.                 if(shu<=1)
  91.                 {
  92.                 shu =1;
  93.                 }
  94.        
  95.         }  
  96. }
  97. if(!anjian3)
  98. {
  99. Delay(10);
  100. if(!anjian3)
  101. {
  102.                 shu++;
  103.                 if(shu>=99)
  104.                 {
  105.                 shu=99;
  106.                 }
  107.         }  
  108. }
  109. EA=1;            
  110. ET1=1;
  111. TR1=1;
  112. TMOD=0x10;       
  113. vin=num*5.0/1024;
  114. ooo=(int)(vin*10);
  115. ge=ooo%10;
  116. shi=ooo/10%10;
  117. bai=shu%10;
  118. qian=shu/10%10;
  119. DigDisplay(3,shi);
  120. DigDisplay(2,ge);
  121. DigDisplay(1,qian);
  122. DigDisplay(0,bai);
  123. ……………………

  124. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

全部资料51hei下载地址:
STC15F2k60s.doc (19.5 KB, 下载次数: 35)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励!

查看全部评分

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

使用道具 举报

沙发
ID:442895 发表于 2019-3-8 22:09 | 只看该作者
STC15F2K60S2  第一次发自己的原创帖,心里紧张所以打漏了一个字。。
回复

使用道具 举报

板凳
ID:284488 发表于 2019-3-9 07:18 | 只看该作者
好东西,感谢分享,请问可以发下电路图吗? QQ: 3163706042@qq.com
回复

使用道具 举报

地板
ID:442895 发表于 2019-3-10 17:24 | 只看该作者
lon7085 发表于 2019-3-9 07:18
好东西,感谢分享,请问可以发下电路图吗? QQ:

等我找找电路图  整理好我发上跟贴
回复

使用道具 举报

5#
ID:442895 发表于 2019-3-12 11:53 | 只看该作者
lon7085 发表于 2019-3-9 07:18
好东西,感谢分享,请问可以发下电路图吗? QQ:

这个帖子不够完整,我发了下一个完整的帖子 ,电路图,和视频都有
回复

使用道具 举报

6#
ID:93929 发表于 2019-3-15 21:05 | 只看该作者
期待电路图
回复

使用道具 举报

7#
ID:442895 发表于 2019-3-17 00:52 | 只看该作者

我的另一个帖子里有完整资料
回复

使用道具 举报

8#
ID:43387 发表于 2019-4-19 04:32 来自手机 | 只看该作者
好帖我要看一下较全的资料
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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