Mot-clef: Domotique

Opera Unite, le navigateur domos

juillet 10th, 2009

Tous les périphériques sont accessibles et auto-hébergés par  le navigateur.

operaunite_services-5fa72

Vidéo:

Articles:

Sources Linux:
http://snapshot.opera.com/unix/10-unite/intel-linux/

Tags: ,
Posted in App, Web | No Comments »

immoTIC DomoTIC – Salon International des Solutions Intelligentes du batiment, de l’habitat et des villes de demain

décembre 12th, 2008

Après la présentation de Jean-Michel Cornu, directeur scientifique de la FING, pour son ouvrage prospecTIC et l’intervention du Maire de Valbonne de Mme Juliette Chesnel-Le Roux conseillère régionale et 1ère Vice-Présidente de la Commission Développement Economique, Europe et Relations Internationales, un « coup de projecteur » a été fait sur les 10 projets innovants du salon.

2 projets sont à retenir:

Une liste de liens intéressants afin d’explorer plus largement ce 8ème carrefour des possibles:

Tags: ,
Posted in Stuff | No Comments »

Un peu de domotique

juillet 26th, 2008

Après avoir acheté pour une trentaine d’euros un ensemble carte 8 relais + controleur USB (cf.photo), me voici parti dans la prog. du port série.

1. Module pour faire de l’USB un port série :|

usbserial + ftdi_sio (/dev/ttyUSB0)

2. Le Perl script :

#!/usr/bin/perl -w

use Device::SerialPort;
use strict ;

my $str = «  » ;
my @cmd = () ;

# Set up the serial port
# 9600, 81N on the USB ftdi driver
my $port = Device::SerialPort->new(« /dev/ttyUSB0″);
$port->databits(8);
$port->baudrate(9600);
$port->parity(« none »);
$port->stopbits(1);
$port->handshake(« none »);

$port->write_settings || die(« Could not set up port »);

# 8 relays test
foreach my $nb_relay (1 .. 8 ) {
push (@cmd, [ 'on', 255, ${nb_relay}, 1 ,
'off', 255, ${nb_relay}, 0 ] ) ;
}

# Test
foreach my $c (@cmd) {
# Turn relay on
$str = join(  », map {pack(‘C’,$_)} (@{$c}[1..3]) ) ;
print « Relay $c->[2] => $c->[0]\n »;
$port->write( $str. »\r\n » );
$port->write_done();
sleep(1);
# Turn relay off
$str = join(  », map {pack(‘C’,$_)} (@{$c}[5..7]) ) ;
print « Relay $c->[2] => $c->[4]\n »;
$port->write( $str. »\r\n » );
$port->write_done();
sleep(1);
}
$port->close();

3. Photo

4. Video

Tags: , ,
Posted in System | No Comments »