Orange pi使用1-Wire温度传感器DS18B20

13859024

Orange pi使用1-Wire温度传感器DS18B20
1、需要加载的模块

可添加到/etc/modules中，或手动加载w1_therm w1_gpio w1_sunxi gpio_sunxi
2、连接传感器


还有一个vcc随便找路5v连接就行。

由于我的是成品板，其他DS18B20 的IO口与VCC中间需接一个4.7K的上拉电阻。
3、读取成功。

dancer

找个 gpio的底层驱动好难。

prince

dancer 发表于 2017-1-9 20:32
找个 gpio的底层驱动好难。

http://blog.csdn.net/u013908686/article/details/62422799

馒头簸箕

给你加一个我的perl脚本，用于采集DS18B20的温度存入MySQL数据库服务器。

#!/usr/bin/perl

use Time:ocal;
use DBI;

my $database='DATABASE_NAME';
my $server  ='myhomeserver.local';
my $username='www';
my $password='www';

my $dsn = "DBI:mysql:database=$database:host=$server";
my $dbh = DBI->connect($dsn, $username, $password) || die "Can't connect.\n";

$t = time;  #now

#scan all DS18B20s
$sensors = `ls /sys/bus/w1/devices`;
@sen = split /\s/, $sensors;

foreach $s (@sen) {
    next if ($s !~/^28/) ; #only read DS18B20

    $sensor_temp = `cat /sys/bus/w1/devices/$s/w1_slave 2>&1`;
    if ($sensor_temp !~/No such file or directory/) {
        if ($sensor_temp !~/NO/) {
            $s =~ s/28-(\w\w)(\w\w)(\w\w)(\w\w)(\w\w)(\w\w)/28123456/;
            $sensor_temp =~ /t=(\d+)/i;

            $st = $1/1000;
            #        print "mac = $s  temp = $t\n";

            $sql = qq[ INSERT home_temp VALUES  (0,$t,0,$st,"$s")];
            #print "sql=$sql\n";
            $sth    = $dbh->prepare($sql) || die "DBI error with connect to database.\n";
            $result = $sth->execute       || die "DBI error with execute.\n";
        }
    }
}
$dbh->disconnect;