RBIO Direct Control
EOH;
/************ HTMLヘッダここまで **************/
$sock = fsockopen("rbio.hibi",????,$errorno,$errormsg,2) or die("error{$errorno}:{$errormsg}"); //接続→2秒でタイムアウト
if($_POST["sw"] == "on"){ //POSTデータが送られてきたらスイッチをいじくる
for($i=0;$i<10;$i++){ //0から10まで順番にいじくる
if($_POST["r{$i}"]==1){
fputs($sock,"PCR{$i}1\n"); //PCRn1は、n番リレーをON
fgets($sock,16); //1行捨てる
$res[$i] = fgets($sock,16); //OKと返ってきてるはず（チェックしてないけど。）
}else{
fputs($sock,"PCR{$i}0\n"); //PCRn0は、n番リレーをOFF
fgets($sock,16);
$res[$i] = fgets($sock,16);
}
}
}
for($i=0;$i<10;$i++){ //スイッチの状態を取得する
fputs($sock,"PCA{$i}\n"); //PCAnは、n番リレーの状態を取得
fgets($sock,16); //1行捨てて
$res[$i] = fgets($sock,16); //結果を取得（0か1が返ってくる）
fgets($sock,16);
}
fclose($sock); //用済みなのでコネクションクローズ
for($i=0;$i<10;$i++){
$dat1 .= "{$i} | \n";
if($res[$i] == "1\r\n"){ //1てゆーか「1\r\n」が返ってきたらONなので、チェック済みで赤丸表示。
$dat2 .= " | \n";
$dat3 .= "● | \n";
}else{ //それ以外はチェックしてなくて黒丸表示。
$dat2 .= " | \n";
$dat3 .="● | \n";
}
}
//テーブル出力
echo "\n";
echo "\n";
echo "\n";
echo "\n";
/************ HTMLフッタ出力 **************/
echo "
\nback\n",
" \n