BOUTIQUEPartie 1. Script basique.
Pré requis :
Disposer d’un port RS232 libre sur votre serveur HomeSeer
Disposer des commandes spécifiques à votre matériel
Pour notre exemple nous nous utiliserons un amplificateur PIONEER VSX-LX 70
Fichier de descriptif des commandes RS232 du constructeur:
VSX92TXH_RS232C_Protocols.pdf
Le PIONEER VSX-LX 70 utilise les mêmes commandes que le VSX-92 THX
Port RS232 utilisé : COM2
Système : Windows Home Server
L’envoi de commandes sur un port RS232 depuis HomeSeer nécessite l’ouverture de ce port et son utilisation exclusive jusqu’à sa fermeture.
L’exemple présente un script unique qui ouvre le port RS232, envoi une commande puis referme le port RS232.
Il est bien sûr possible dans le cadre d’une exploitation complète d’exécuter la commande d’ouverture du port RS232 dans le script de démarrage de HomeSeer et d’exécuter la commande de fermeture du port dans le script de fermeture de HomeSeer.
La commande d’ouverture d’un port RS232 est la suivante :
OpenComPort port, « baud rate,parity,data bits,stop bits »
Il est nécessaire de vous conformer aux pré requis du constructeur du matériel, sur lesquels doit être calquée la configuration Windows de votre port RS232 et la configuration du script dans HomeSeer.
Dans notre exemple, PIONEER indique les valeurs suivantes :
Ces valeurs sont celles configurées pour notre port RS232 sous Windows.
*Dans le gestionnaire de périphériques, propriété du port com
La fonction d’ouverture du port sera donc la suivante :
hs.OpenComPort 2, »9600,N,8,1″,1, » », » »
La fonction pour envoyer une commande est la suivante :
SendToComPort port,data
La documentation des commandes PIONEER indique la commande suivant pour allumer l’amplificateur :
PO<CR>
PO est la commande
<CR> est un retour chariot, à remplacer par Chr(13) dans le script.
La commande est donc la suivante :
hs.SendToComPort 2, »PO » & Chr(13)
La fonction pour fermer le port com est la suivante :
CloseComPort(port)
Soit dans notre cas
CloseComPort(2)
Script complet :
Option explicit
Const ComPort = 2
sub main()
hs.OpenComPort ComPort, »9600,N,8,1″,1, » », » »
hs.SendToComPort ComPort, »PO » & Chr(13)
hs.CloseComPort(ComPort)
end sub
L’exécution de ce script allume l’amplificateur PIONEER.
Vous pouvez maintenant commander votre matériel disposant d’un port RS232 de façon beaucoup plus précise et fiable qu’avec de l’infrarouge.
