appinventor至少用3个传感器制作程序

appinventor至少用3个传感器制作程序，也可以使用“位置传感器的有经纬度值”块,直接询问传感器中是否有读数,如图23-6所示。 图23-6 用

1 打开软件App inventor ,点击创建项目 ,然后点击左侧类目 : 绘图动画 ,拖动组件 画布和精灵到中间 ,分 别进行设置 ,之后上传指南针素材

2 添加组件 , 点击传感器 ,选择方向传感器 ,拖动到屏幕中 ,非可视组件在屏下方。

3 编写代码 ,点击编程 ,拖动 “当方向传感器方向改变时”到屏幕 ,然后点击 精灵 ,拖动

#include<pich>//单总线的运用DS18B20数字温度传感器(在I/O口上进行总线 *** 作时，读取数据要用或运算，发送数据要用与运算)

#define uchar unsigned char//宏定义

#define uint unsigned int

///这几个宏定义为了DQ 是要读和写程序所以直接宏定义可以简化设置输入输出状态

#define DQ RC1 //宏定义DQ等同于RC1这个端口

#define DQ_HIGH() TRISC1=1 //宏定义DQ高电平时设为输入状态(即DQ_HIGH()字符串等同于TRISC1=1)

#define DQ_LOW() TRISC1=0;DQ=0 //宏定义DQ低电平时设为输出状态且RC1端口拉低电平(即DQ_LOW()字符串等同于TRISC1=0且RC1=0)

uint temper;//先定义一个要显示温度的变量

uchar a1,a2,a3,a4;//定义数码管显示的4个变量，我们只取小数前两位和后两位

__CONFIG(0x3b31);//设置配置位

const uchar table[]={0x3f,0x06,0x5b,0x4f,//注意code是用在51单片机中的程序储存器中，const是一个常量,pic和51的单片机也可以共用的常量,但要写在前头

0x66,0x6d,0x7d,0x07,

0x7f,0x6f,0x77,0x7c,

0x39,0x5e,0x79,0x71,0x20};//数码管数字表从0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,无显示

const uchar table1[]={0xbf,0x86,0xdb,0xcf,//带小数点的0,1,2,3,4,5,6,7,8,9

0xe6,0xed,0xfd,0x87,0xff,0xef};

void delayus(uint,uchar);//微秒的延时声明

void delay(uint x);//毫秒的延时声明

void init();

void disp(uchar num1,uchar num2,uchar num3,uchar num4);

void reset();

void write_byte(uchar date);

uchar read_byte();

void get_tem();

void main()

{

init();//调用初始化

while(1)//因为要不断地循环扫描键盘检测是否按下所以要进行死循环

{

// NOP();//单片机的空指令可以当作1us延时使用，不用声明,但一定要大写

// delayus(0,0);//20us可用软件调试仿真的Stopwatch可得20us,30us,45us,70us,500us,750us

// delayus(1,1);//30us

// delayus(2,2);//45us

// delayus(4,4);//70us

// delayus(70,30);//750us

// delayus(50,10);//500us

get_tem();//调用获取DS18B20温度程序

// for(num=20;num>0;num--)//隔20us变更一次

// disp(a1,a2,a3,a4);//同时调用数码管

}

}

void reset()//DS18B20的初始化工作时序而不是单片机的

{

uchar st=1;//在初始化中要读DS18B20返回的低电平，所以要先定义一个变量st,且等于1

DQ_HIGH();//上面已定义了等同于TRISC1=1即设置RC1为输入状态,又因为原理图上有上拉电阻，所以为高电平

NOP();NOP();//延时2us

while(st)//循环st=0为假说明DS18B20已经返回0响应了确定存在，退出while

{

DQ_LOW();//上面已定义了等同于TRISC1=0,RC1=0即设置RC1为输出状态,且输出低电平

delayus(70,30);//延时750us

DQ_HIGH();//拉到高电平

delayus(4,4);//延时40us

if(DQ==1)//进行判断如果等于1,则at=1,DS18B20没有返回低电平未有响应

st=1;//等于1则要超过或循环while语句重新发送给DS18B20响应，不可能一次就确定18b20的存在

else

st=0;//循环直到st=0为假说明DS18B20已经返回0响应了

delayus(50,10);//因为已经有返回响应,确定DS18B20的存在，所以要延时500us再退出while

}

DQ_HIGH();//重新拉高，也叫释放总线

}

void write_byte(uchar date)//DS18B20的写工作时序,里面的date是单片机要发送的数据

{

uchar i,temp;//定义一个for循环的变量和发送数据中的一个位的变量

DQ_HIGH();//先置高电平

NOP();NOP();//延时2us

for(i=8;i>0;i--)//因为发送一个数据有8位

{

temp=date&0x01;//和00000001与,无论date是什么数与之后只有最低位是有效的,temp得到的其实是date的最低的一位

DQ_LOW();//置低电平

delayus(0,0);//延时20us

if(temp==1)//说明date的最低位是1,用if,else语句把数据从最低位到高一位一位的发送

DQ_HIGH();//因为temp=1表示数据线要置高电平

else

DQ_LOW();//表示temp=0数据线要置低电平

delayus(2,2);//延时45us

DQ_HIGH();//重新拉高，也叫释放总线

date=date>>1;//发送完一位后需要把date右移一位才能进行循环,如原来是01010101,右移1位后得到00101010,最低位被移走即发送

}

}

uchar read_byte()//DS18B20的读工作时序，因为是读所以是一个带返回值的函数，括号里面不用写变量，因为单片机只是读取而不发送任何东西

{

uchar i,date;//再定义一个for循环的变量i和接收数据的变量date

static bit j;//定义一个状态位,j是一个位的变量

for(i=8;i>0;i--)//因为接收一个数据有8位

{

date=date>>1;//先将数据右移一位其实这里只移动7位,加上或运算移动一位就共8位

DQ_HIGH();//先要确定数据线拉高

NOP();NOP();//延时2us

DQ_LOW();//将数据线拉低

NOP();NOP();NOP();NOP();NOP();NOP();//延时6us

DQ_HIGH();//拉高

NOP();NOP();NOP();NOP();//延时4us

j=DQ;//把RC1数据线的状态附给状态位j,这样读取到的数据线高低电平就是j的变化

if(j==1)//如果等于1,则说明是高电平,等于0时不需要或运算，因为或运算相当于右移，最高位自动补0

date=date|0x80;//只有读回来的数是1时才和10000000或运算,因为第一个读回来的是最低位，如果第二个又读回到要放在倒数第二位会不好放，所以要将最低位或运算放在最高位,这里已经移动过一次了

//如date是1或运算后得10000000，而这里只读取一次，循环后可得第二个11000000如果是0则直接填10000000

delayus(1,1);//延时30us

}

return (date);//把接收到的数据返回去经单片机

}

void get_tem()//获取温度指令将数据化为温度给数码管显示的函数

{

uchar temp1,temp2,num;//因为同时一次从低到高读两个字节,定义两个字节的变量，是下面的指令的变量

float aaa;//定义一个浮点数等于aaa的变量,提高精确度

reset();//调用DS18B20初始化相当复位

write_byte(0xcc);//ccH,因为只接了一个不需要配对,跳过了匹配的ROM指令

write_byte(0x44);//发送温度转换指令44H

for(num=100;num>0;num--)//隔100次,数码管闪一次

disp(a1,a2,a3,a4);//同时调用数码管

reset();//重新复位

write_byte(0xcc);//ccH,因为只接了一个不需要配对,跳过了匹配的ROM指令

write_byte(0xbe);//BEH是指接下来我要读你的指令

temp1=read_byte();

temp2=read_byte();//因为同时一次从低到高读两个字节

// temper=(temp2256+temp1)00625100;//将温度转换成十六位温度数据，转换成十进制还需要乘以00625,因为我们只显示4个数码管，后两个是小数，不好提取就乘以100变成整数再提取

aaa=(temp2256+temp1)00625100;//因为前面定义temper是一个整形的变量，乘出来的会是取整数精确度不高,附给用浮点数float表示的aaa就可以乘出小数部分

temper=(int)aaa;//再将aaa强制转换给整形temper，这时的整形temper就可以是带小数的了，注意书写格式

//这里面是强制转换的指令

a1=temper/1000;//因上一条程序已化为4位整数,提取对最高位千位求模

a2=temper%1000/100;//提取对百位求模

a3=temper%100/10;//提取对十位求模

a4=temper%10;//提取对个位求佘

}

void delayus(uint x,uchar y)//定义一个整形一个字符形变量表示微秒

{

uint i;

uchar j;

for(i=x;i>0;i--);

for(j=y;j>0;j--);

}

void delay(uint x)//延迟函数x表示毫秒

{

uint a,b;

for(a=x;a>0;a--)

for(b=110;b>0;b--);//嵌套

}

void init()

{

TRISD=0;//因为RD接的是数码管设置全为输出状态

TRISA=0;//设置数码管的位选为全输出状态

PORTD=0;//设置输出先全部关闭

PORTA=0;//在初始化时数码管不能显示

}

void disp(uchar num1,uchar num2,uchar num3,uchar num4)//数码管的扫描函数,要在里面有4个变量，每一个为一个数码管显示的数

{

PORTD=table[num1];//调用数码管的显示函数（注第一个是显示0）这是从左到右第一个数码管要显示的段选

PORTA=0x20;//00100000由原理图可得第一个数码管是由RA5控制位选的

delay(10);//因为是要动态，所以要加延时，但时间不能太长

PORTD=table1[num2];//调用数码管的显示函数（注第一个是显示0）这是第二个数码管要显示的段选,显示的小带小数点的

PORTA=0x10;//00010000由原理图可得第二个数码管是由RA4控制位选的

delay(10);//因为是要动态，所以要加延时，但时间不能太长

PORTD=table[num3];//调用数码管的显示函数（注第一个是显示0）这是第三个数码管要显示的段选

PORTA=0x08;//00001000由原理图可得第三个数码管是由RA3控制位选的

delay(10);//因为是要动态，所以要加延时，但时间不能太长

PORTD=table[num4];//调用数码管的显示函数（注第一个是显示0）这是第四个数码管要显示的段选

PORTA=0x04;//00000100由原理图可得第四个数码管是由RA2控制位选的

delay(10);//因为是要动态，所以要加延时，但时间不能太长

}

void delay_18B20(unsigned int i)

{

while(i--);

}

void Init_DS18B20(void)

{

unsigned char x=0;

DQ = 1; //DQ复位

delay_18B20(80); //稍做延时

DQ = 0; //单片机将DQ拉低

delay_18B20(800); //精确延时 大于 480us

DQ = 1; //拉高总线

delay_18B20(140);

x=DQ; delay_18B20(200);

}

unsigned char ReadOneChar(void)

{

uchar i=0;

uchar dat = 0;

for (i=8;i>0;i--)

{

DQ = 0; // 给脉冲信号

dat>>=1;

DQ = 1; // 给脉冲信号

if(DQ)

dat|=0x80;

delay_18B20(40); //40

}

return(dat);

}

void WriteOneChar(uchar dat)

{

unsigned char i=0;

for (i=8; i>0; i--)

{

DQ = 0;

DQ = dat&0x01;

delay_18B20(50); //50

DQ = 1;

dat>>=1;

}

}

unsigned int ReadTemp(void)

{

unsigned char a=0;

unsigned char b=0;

unsigned int temp_value=0;

Init_DS18B20();

WriteOneChar(0xCC);

WriteOneChar(0x44);

delay_18B20(1000);

Init_DS18B20();

WriteOneChar(0xCC);

WriteOneChar(0xBE);

delay_18B20(1000);

a=ReadOneChar(); //读取温度值低位

b=ReadOneChar(); //读取温度值高位

temp_value = b<<8;

temp_value |= a;

return temp_value;

}

以上就是关于appinventor至少用3个传感器制作程序全部的内容，包括:appinventor至少用3个传感器制作程序、如何用pic单片机写DS18B20数字温度传感器的程序、c51单片机温度传感器c语言程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！