datasheet
超过460,000+ 应用技术资源下载
null

单摆测重力加速度

  • 1星
  • 日期: 2015-05-28
  • 大小: 7.3KB
  • 所需积分:1分
  • 下载次数:0
  • favicon收藏
  • rep举报
  • 分享
  • free评论
标签: 单片机单摆

基于单片机的单摆测重力加速度程序源码。

#include #include #include #define uchar unsigned char #define uint unsigned int //unsigned int g,t=0,t2,t3,t4,t5; unsigned int g,t=0,t1,t2,t3,t4,t5; uint i=0;//记录单摆通过最低点的次数 uint flag=0; float L=0;//摆长单位是毫米 float b=3.5; //一次周期的平方值 sbit sig=P2^0; //sbit start=P2^1; //这三个引脚参考资料 sbit E=P2^7; //1602使能引脚 sbit RW=P2^6; //1602读写引脚 sbit RS=P2^5; //1602数据/命令选择引脚 /******************************************************************** * 名称 : delay() * 功能 : 延时,延时时间大概为5US。 * 输入 : 无 * 输出 : 无 ***********************************************************************/ void delay() { _nop_(); _nop_(); _nop_(); _nop_(); _nop_(); } /******************************************************************** * 名称 : Delay_1ms() * 功能 : 延时子程序,延时时间为 1ms * x * 输入 : x (延时一毫秒的个数) * 输出 : 无 ***********************************************************************/ void Delay_1ms(uint i)//1ms延时 { uchar x,j; for(j=0;j4)n=1; } } } L1602_char(1,6,n + '0'); L1602_char(1,9,n1 +48); L1602_char(1,10,n2 + 48); L1602_char(1,11,n3 + 48); L1602_char(1,12,n4 + 48); L1602_string(2,1," g="); //L1602_string(2,10,"m/s^2"); L1602_string(1,1,"Put L : "); L1602_char(1,13,' '); L1602_char(1,14,'m'); L1602_char(1,15,'m'); /*a=(t/1000)*(t/1000); g=4*3.14*3.14*L/a*1000; //a为测量周期的平方 t2=g/1000%10+'0'; t3=g/100%10+'0'; t4=g/10%10+'0'; t5=g%10+'0'; L1602_string(1,1,"Put L:100mm "); L1602_string(2,1," g="); L1602_string(2,10,"m/s^2"); L1602_char(2,4,t2); L1602_char(2,5,'.'); L1602_char(2,6,t3); L1602_char(2,7,t4); L1602_char(2,8,t5); */ } }
更多简介内容

评论

下载专区


TI最新应用解决方案

工业电子 汽车电子

$(function(){ var appid = $(".select li a").data("channel"); $(".select li a").click(function(){ var appid = $(this).data("channel"); $('.select dt').html($(this).html()); $('#channel').val(appid); }) })