Relais ansteuern: Pascal geht - PHP wie?

Re(2): Relais ansteuern: Pascal geht - PHP wie?

wasikonier — Sun, 27 Dec 2015 18:31:04 GMT

danke! dein Tipp mit Baudrate 9600 und der Tipp mit chr(xx) von Lazy Jones lassen die Relais nun klicken.

Re(4): Relais ansteuern: Pascal geht - PHP wie?

wasikonier — Sun, 27 Dec 2015 18:29:43 GMT

danke - gut geraten! Dein Tipp mit chr(xx) und der Tipp mit Baudrate 9600 haben die Relais zum Leben erweckt.

Re: Relais ansteuern: Pascal geht - PHP wie?

kombipaket — Sun, 27 Dec 2015 07:12:17 GMT

Permissions gecheckt? Oder lässt es eh als root laufen?

Jedenfalls solltest als erstes - vor dem Laden der Klasse - Warnungen einschalten:
error_reporting(E_ALL);

Re(2): Relais ansteuern: Pascal geht - PHP wie?

wasikonier — Sat, 26 Dec 2015 17:08:42 GMT

ein Scope/LA habe ich leider nicht.

2400 Bd war der Defaultwert im Democode der PhpSerial-Klasse. Kann es daran liegen?
Ich werde es morgen mit 9600 Bd probieren.

Danke

Re: Relais ansteuern: Pascal geht - PHP wie?

lowlander — Fri, 25 Dec 2015 20:19:02 GMT

Hast du ein Scope/LA um die beiden Telegramme auf der Leitung zu vergleichen?
Das ist meiner Meinung der schnellste Weg.

Wie kommst du auf die Initalisierung für den Raspberry mit 2400 Bd?
Ich komme mit DLL=12 auf 9600 Bd.

Port[BA+3]:=128;
Port[BA+0]:=12;
Port[BA+1]:=0;

Speed (bps) Divisor DLL DLM
    50 2,304 0x00 0x09
   300 384   0x80 0x01
1,200 96     0x60   0x00
2,400 48     0x30 0x00
4,800 24     0x18 0x00
9,600 12     0x0C 0x00

Re(3): Relais ansteuern: Pascal geht - PHP wie?

Lazy Jones — Fri, 25 Dec 2015 17:41:50 GMT

Hm, kann nur raten: sendMessage interpretiert die Zahlen als String, lieber mal mit chr(xx) statt nur xx als Argument probieren.

Re(2): Relais ansteuern: Pascal geht - PHP wie?

wasikonier — Fri, 25 Dec 2015 17:18:05 GMT

Ich rufe es auf einem Raspberry Pi mit dem php-binary auf.

Re: Relais ansteuern: Pascal geht - PHP wie?

Lazy Jones — Fri, 25 Dec 2015 17:11:54 GMT

Brr, php of all things.

Rufst du das über einen Webserver auf oder mit dem php-binary?

Relais ansteuern: Pascal geht - PHP wie?

wasikonier — Fri, 25 Dec 2015 16:48:46 GMT

Hi,

ich habe da eine alte Platine mit 6 Relais und einige Pascal-Prozeduren zur Ansteuerung via serieller Schnittstelle. Damit klappt das Ein- und Ausschalten tadellos.
Nun möchte ich die Relais mit einem PHP-Skrip ansteuern. Ich habe eine PHP-Klasse gefunden, die die serielle Kommunikation recht einfach bewerkstelligt. Leider tut sich da nix. Die Daten werden gesendet - das Relais schaltet aber nicht - keine Fehlermeldung nix. Wie muss ich diese Sequenz im PHP-Skript übermitteln?

Aus dem Pascal-Programm schließe ich, dass man mit folgenden Sequenzen ein Relais ein bzw. aus schaltet:
ein = 167 84 83 48 48 49+relaisnr 0 0
aus = 167 84 82 48 48 49+relaisnr 0 0

Pascal-Code:


PROCEDURE InitCOM;
VAR i,Dummy:Byte;
BEGIN
 BA:=$03F8;
 Port[BA+3]:=128;
 Port[BA+0]:=12;
 Port[BA+1]:=0;
 Port[BA+3]:=7;
 Port[BA+1]:=0;
 Port[BA+4]:=0;
 for i:=1 to 3 do Dummy:=Port[BA];
END;

PROCEDURE Sende(Zeichen:Byte);
BEGIN
 WHILE (Port[BA+5] AND 32)=0 do;
 Port[BA]:=Zeichen;
END;


PROCEDURE TURN_ON(relnr:Byte;);
BEGIN
 InitCOM;
 sende(167);sende(84);sende(83);sende(48);sende(48);sende(49+relnr);sende(0);sende(0);
END;

PROCEDURE TURN_OFF(relnr:Byte;);
BEGIN
 InitCOM;
 sende(167);sende(84);sende(82);sende(48);sende(48);sende(49+relnr);sende(0);sende(0);
END;

Mein PHP-Code


<?php
include 'PhpSerial.php';

$serial = new PhpSerial;
$serial->deviceSet("/dev/ttyUSB0");

$serial->confBaudRate(2400);
$serial->confParity("none");
$serial->confCharacterLength(8);
$serial->confStopBits(1);
$serial->confFlowControl("none");

$serial->deviceOpen();

// relais #1 on
$serial->sendMessage(167);
$serial->sendMessage(84);
$serial->sendMessage(83);
$serial->sendMessage(48);
$serial->sendMessage(48);
$serial->sendMessage(49);
$serial->sendMessage(0);
$serial->sendMessage(0);

$serial->deviceClose();
...