Opened by Gast at 2006-03-26 23:53
User since
2006-03-27
13 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-03-27
13 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
#! c:\perl\bin\perl
#com1 öffnen
use Win32::SerialPort;
$port="com2";
my $port = Win32::SerialPort->new ("COM2");
open("com2");
TIOCM_RTS;
TIOCM_DTR;
(com2, TIOCMBIS, NULL);
Run/Debug zeigt zwar keinen Fehler, aber funktionieren tut's auch nicht...