首页 > 电脑常识 > 电脑常识

温度传感器、VB.NET

admin 电脑常识 2021-04-26 15:55:24 vb.net  
后台-系统设置-扩展变量-手机广告位-内容正文底部

1:VB控件程序设计—后台程序设计

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1.PortName = "COM7"
        SerialPort1.Open()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim RXD = SerialPort1.ReadExisting()
        If RXD <> "" Then
            If Mid(RXD, 1, 1) = "T" Then
                Lab_t.Text = Mid(RXD, 2, 5)
                Dim temp = Val(Mid(Lab_t.Text, 1, 1)) * 1000 + Val(Mid(Lab_t.Text, 2, 1)) * 100 + Val(Mid(Lab_t.Text, 4, 1)) * 10 + Val(Mid(Lab_t.Text, 5, 1))
                If temp < 2750 Then
                    PictureBox2.Image = My.Resources.风扇停
                Else
                    PictureBox2.Image = My.Resources.风扇转
                End If
            End If  
        End If
    End Sub
End Class

 

 

 

 

2:Arduino端程序

#include <DallasTemperature.h>
#include <OneWire.h>
// 定义DS18B20数据口连接arduino的10号IO上
#define ONE_WIRE_BUS 10
// 初始连接在单总线上的单总线设备
OneWire oneWire(ONE_WIRE_BUS);
DallasTemperature sensors(&oneWire);
void setup(void)
{
  // 设置串口通信波特率
  Serial.begin(9600);
  Serial.println("Dallas Temperature IC Control Library Demo");
  // 初始库
  sensors.begin();
}
void loop(void)

 sensors.requestTemperatures();
 Serial.print("T");
  Serial.println(sensors.getTempCByIndex(0));
  delay (100);
}

 

 

文章来源:https://blog.csdn.net/HANMD/article/details/116124157

后台-系统设置-扩展变量-手机广告位-内容正文底部
版权声明

本文仅代表作者观点,不代表本站立场。
本文系作者授权发表,未经许可,不得转载。
本文地址:https://jcdi.cn/diannaochangshi/diannaochangshi/629.html

留言与评论(共有 0 条评论)
   
验证码:
后台-系统设置-扩展变量-手机广告位-评论底部广告位

教程弟

https://www.jcdi.cn/

统计代码 | 京ICP1234567-2号

Powered By 教程弟 教程弟

使用手机软件扫描微信二维码