一乐电子

 找回密码
 请使用微信账号登录和注册会员

QQ登录

只需一步,快速开始

微信扫码登录

手机号码,快捷登录

手机号码,快捷登录

搜索
楼主: 07@20

[其他DIY] (仿制)传个蓝牙1路控制

[复制链接]
发表于 2015-4-3 23:14 | 显示全部楼层
说白了就是串口通信
回复

使用道具 举报

发表于 2015-4-3 23:53 | 显示全部楼层
程序应该不会这么简单,应该还有定义脚的部分
回复

使用道具 举报

发表于 2015-7-16 18:14 | 显示全部楼层
本帖最后由 aa7812 于 2015-7-16 18:15 编辑

试试改动一下2楼的程序,  电路图上 PD3, PD4 是空脚,应该可以使用, 带 //****** 是改动的部分

代码/*
蓝牙遥控电源插座
*/
char sw; 定义字符变量
void setup()
{
  Serial.begin(9600);  // 初始化串口
   pinMode(2,OUTPUT);    // 定义数字脚2为输出
       pinMode(3,OUTPUT);    //**********************
       pinMode(4,OUTPUT);    //**********************
}

void loop()
{  
   if(Serial.available()>0) // 判断缓冲区中有无数据
   {
     sw = Serial.read();    // 读取数据
     //if(sw == '1')
     //digitalWrite(2,HIGH);  //数字脚2输出高电平,继电器吸合,电源开启
     //else if(sw == '0')
     //digitalWrite(2,LOW);   //数字脚2输出低电平,继电器释放,电源关闭
     if (sw=='A') digitalWrite(2,HIGH); //***********************
     if (sw=='a') digitalWrite(2,LOW);  //***********************
     if (sw=='B') digitalWrite(3,HIGH); //***********************
     if (sw=='b') digitalWrite(3,LOW);  //***********************
     if (sw=='C') digitalWrite(4,HIGH); //***********************
     if (sw=='c') digitalWrite(4,LOW);  //***********************
   }  
}
回复

使用道具 举报

 楼主| 发表于 2015-7-17 08:38 | 显示全部楼层
aa7812 发表于 2015-7-16 18:14
试试改动一下2楼的程序,  电路图上 PD3, PD4 是空脚,应该可以使用, 带 //****** 是改动的部分

代码/*
...

你改的哪一出!你在整个程序4路看看!
回复

使用道具 举报

发表于 2015-7-17 09:32 | 显示全部楼层
本帖最后由 aa7812 于 2015-7-17 09:33 编辑

我的是改为三路,   原版: 手机发"1"----单片机PD2脚为高,   手机发"0"----单片机PD2脚为低
改动的新版: 手机发"A"----单片机PD2脚为高,   手机发"a"----单片机PD2脚为低
             手机发"B"----单片机PD3脚为高,   手机发"b"----单片机PD3脚为低
             手机发"C"----单片机PD4脚为高,   手机发"c"----单片机PD4脚为低
手机部分需要做对应的更改,手机如果发<字母> 不方便, 改为发 1...8 也可以, 手机我就不懂改了

回复

使用道具 举报

 楼主| 发表于 2015-7-17 11:02 | 显示全部楼层
aa7812 发表于 2015-7-17 09:32
我的是改为三路,   原版: 手机发"1"----单片机PD2脚为高,   手机发"0"----单片机PD2脚为低
改动的新版:  ...

网上也有现成的卖也不贵!这个唯一的缺点只要手机返回菜单咋连接就会重新接入不方便
回复

使用道具 举报

发表于 2015-7-19 15:15 | 显示全部楼层
我也拍了一块,手机蓝牙想改为固定按纽发送,

B4A程序片段代码:

Sub ButtonSend01_Click

EditTextS.Text="A"                   '将固定按键 “关灯”的发送的字符直接赋值=A

If connected Then
Dim buffer() As Byte

buffer = EditTextS.Text.GetBytes("UTF8")          '将编辑框里的内容分到数组上

aStreams.Write(buffer)                                 '写出内容

End If       

End Sub

改为直接发送的代码: 01 99 15 15 99
不知道如何改?
回复

使用道具 举报

发表于 2015-8-7 11:36 | 显示全部楼层
楼主的PCB是起来漂亮了。
回复

使用道具 举报

本版积分规则

QQ|一淘宝店|手机版|商店|一乐电子 ( 粤ICP备09076165号 ) 公安备案粤公网安备 44522102000183号

GMT+8, 2025-8-24 21:26 , Processed in 0.040476 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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