Parallel Port per Pfeiltasten steuern

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Parallel Port per Pfeiltasten steuern

    Hallo allerseits.
    Ich möchte gerne den Parallelport per steuern. Also wenn ich "Pfeil hoch" drücke, soll pin 2 ein High pegel kriegen und zwar so lange bis ich die Taste wieder los lasse.
    So weit so gut, das ganze soll aber über den Browser steuerbar sein. Also quasi als Internet Anwendung. Jetzt meine Fragen:
    In welcheer Sprache sollte man es realisieren?
    Gibt es fertige Scripts dazu?
    ICh habe auch mal ein wenig rumgesucht und habe das hier gefunden

    Quellcode

    1. ##############################################################################
    2. # #
    3. # Relais-Steuerung | relais.pl 1.01 #
    4. # #
    5. # CGI-Perlscript für Windows-Webserver #
    6. # #
    7. # Steuert Relaiskarte an der parallelen Schnittstelle. #
    8. # #
    9. # Written 2005-2006 Harald Gabler #
    10. # E-Mail: harald.gabler@netcamera.org #
    11. # Internet: http://www.netcamera.org #
    12. # #
    13. ##############################################################################
    15. # URL des Perlscripts
    16. my $script_url = "http://meinpc.dyndns.org:80/cgi-bin/relais/relais.pl";
    18. # URL des HTML-Verzeichnis (ohne Schraegstrich am Ende)
    19. my $noncgi_dir = ".";
    21. # Portadresse (LTP1 => 0x378 / LTP2 => 0x278)
    22. my $port = 0x378;
    24. # Schalter/Tasten-Modus (0 = Schaltermodus, 1 = Tastenmodus)
    25. my $mode = "0";
    27. # Automatische Aktualisierung (0 = aus, 1 oder groesser = Refresh-Intervall in Sekunden)
    28. my $refresh = "0";
    30. # Name der Seite
    31. my $page_name = "Relais-Steuerung";
    33. # Name des Statusfeldes
    34. my $status_name = "Status der Relais";
    36. # Statusfeld anzeigen (0 = Anzeige aus, 1 = Anzeige ein)
    37. my $status_view = "1";
    39. # Namen der Schalter
    40. my @switch_name = ("Schalter 1","Schalter 2","Schalter 3","Schalter 4","Schalter 5","Schalter 6","Schalter 7","Schalter 8");
    42. # Schalter anzeigen (0 = Anzeige aus, 1 = Anzeige ein)
    43. my @switch_view = ("1","1","1","1","1","1","1","1");
    45. # Name des Feldes zum Schalten aller Relais
    46. my $all_name = "Alle Relais";
    48. # Feld "Alle Relais" anzeigen (0 = Anzeige aus, 1 = Anzeige ein)
    49. my $all_view = "1";
    51. # Name des Eingangsfeldes
    52. my $input_name = "Status der Eingänge";
    54. # Eingangsfeld anzeigen (0 = Anzeige aus, 1 = Anzeige ein)
    55. my $input_view = "1";
    57. # Namen der LEDs (n/a = ohne Funktion nicht aendern)
    58. my @led_name = ("n/a","n/a","n/a","Pin 15","Pin 13","Pin 12","Pin 10","Pin 11");
    60. # LEDs anzeigen (n/a = ohne Funktion nicht aendern, 0 = Anzeige aus, 1 = Anzeige ein)
    61. my @led_view = ("n/a","n/a","n/a","1","1","1","1","1");
    63. ##############################################################################
    65. use strict;
    67. use CGI;
    68. my $cgi = new CGI;
    69. use CGI::Carp qw(fatalsToBrowser);
    71. use Win32::API; # load API module to interface DLL's
    72. my $GetPortVal = new Win32::API("inpout32", "Inp32", ['I'], 'I'); # import Inp32 from DLL
    73. my $SetPortVal = new Win32::API("inpout32", "Out32", ['I','I'], 'I'); # import Out32 from DLL
    75. my @status;
    77. $port = $port + 2;
    78. readPort();
    79. $status[5] = "0"; # Bidirektional aus
    80. writePort();
    81. $port = $port - 2;
    83. if($mode > 0) { setLow(); }
    84. readPort();
    86. if($cgi->param()) {
    87. checkForm();
    88. writePort();
    89. if($mode > 0) {
    90. sleep($mode);
    91. setLow();
    92. readPort();
    93. }
    94. }
    96. printHeader();
    97. if ($status_view > 0) { printStatus(); }
    98. if ($all_view > 0) { printAll(); }
    99. if ($input_view > 0) {
    100. $port = $port + 1;
    101. readPort();
    102. printInput();
    103. }
    104. printRefresh();
    105. printFooter();
    107. ##############################################################################
    109. # Port auslesen und Bitstatus setzen
    110. sub readPort {
    111. my $wert = $GetPortVal->Call($port) & 255;
    112. for(my $i = 7; $i >= 0; $i--) {
    113. $status[$i] = int($wert / (2 ** ($i)));
    114. $wert = $wert % (2 ** ($i));
    115. }
    116. }
    118. # Formulardaten auswerten und neuen Bitstatus setzen
    119. sub checkForm {
    120. my $a = $cgi->param("A");
    121. if($a eq "Einschalten") {
    122. for(my $i = 0; $i <= 7; $i++) {
    123. $status[$i] = 1;
    124. }
    125. }
    126. elsif($a eq "Ausschalten") {
    127. for(my $i = 0; $i <= 7; $i++) {
    128. $status[$i] = 0;
    129. }
    130. }
    131. for(my $i = 0; $i <= 7; $i++) {
    132. my $s = $cgi->param("S$i");
    133. if($s ne "") {
    134. my $r = $cgi->param("R$i");
    135. if($r == 0) {
    136. $status[$i] = 1;
    137. }
    138. elsif($r == 1) {
    139. $status[$i] = 0;
    140. }
    141. }
    142. }
    143. }
    145. # Bitstatus auf Port schreiben
    146. sub writePort {
    147. my $wert = 0;
    148. for(my $i = 0; $i <= 7; $i++) {
    149. $wert += $status[$i] * (2 ** ($i));
    150. }
    151. my $return = $SetPortVal->Call($port,$wert);
    152. }
    154. # Bytestatus 0 auf Port schreiben
    155. sub setLow {
    156. my $wert = 0;
    157. my $return = $SetPortVal->Call($port,$wert);
    158. }
    160. # Ausgabe im Browser
    161. sub printHeader {
    162. print "Content-type: text/html\n\n";
    163. print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
    164. print "<html>\n";
    165. print "<head>\n";
    166. if($refresh > 0) { print "<meta http-equiv=\"refresh\" content=\"$refresh; URL=$script_url\">\n"; }
    167. print "<meta http-equiv=\"content-type\" content=\"text/html; charset=ISO-8859-1\">\n";
    168. print "<link rel=\"stylesheet\" type=\"text/css\" href=\"$noncgi_dir/format.css\">\n";
    169. print "<title>$page_name</title>\n";
    170. print "</head>\n";
    171. print "<body>\n";
    172. print "<p><big>$page_name</big></p>\n";
    173. print "<form name=\"Relais\" action=\"$script_url\" method=\"post\">\n";
    174. }
    176. sub printFooter {
    177. print "</form>\n";
    178. print "<p><small>Relais-Steuerung 1.01<br>&copy\; 2005-2006 Harald Gabler - <a href=\"http://www.netcamera.org\">netcamera.org</a></small></p>\n";
    179. print "</body>\n";
    180. print "</html>\n";
    181. }
    183. sub printStatus {
    184. print "<fieldset><legend>$status_name</legend>\n";
    185. print "<table><tr>\n";
    186. for(my $i = 0; $i <= 7; $i++) {
    187. if($switch_view[$i] > 0) {
    188. if($status[$i] == 1) {
    189. print "<td>\n";
    190. if($mode == 0) { print "<img src=\"$noncgi_dir/led_ein.gif\" alt=\"\"><br>\n"; }
    191. print "<input type=\"hidden\" name=\"R$i\" value=\"1\">\n";
    192. if($switch_name[$i] eq "") {
    193. $switch_name[$i] = "Schalter " . ($i + 1);
    194. }
    195. print "<input type=\"submit\" name=\"S$i\" value=\"$switch_name[$i]\">\n";
    196. print "</td>\n";
    197. }
    198. elsif($status[$i] == 0) {
    199. print "<td>\n";
    200. if($mode == 0) { print "<img src=\"$noncgi_dir/led_aus.gif\" alt=\"\"><br>\n"; }
    201. print "<input type=\"hidden\" name=\"R$i\" value=\"0\">\n";
    202. if($switch_name[$i] eq "") {
    203. $switch_name[$i] = "Schalter " . ($i + 1);
    204. }
    205. print "<input type=\"submit\" name=\"S$i\" value=\"$switch_name[$i]\">\n";
    206. print "</td>\n";
    207. }
    208. }
    209. }
    210. print "</tr></table>\n";
    211. print "</fieldset>\n";
    212. print "<p></p>\n";
    213. }
    215. sub printAll {
    216. print "<fieldset><legend>$all_name</legend>\n";
    217. print "<table><tr>\n";
    218. print "<td>\n";
    219. print "<input type=\"submit\" name=\"A\" value=\"Einschalten\">\n";
    220. print "</td>\n";
    221. if($mode == 0) {
    222. print "<td>\n";
    223. print "<input type=\"submit\" name=\"A\" value=\"Ausschalten\">\n";
    224. print "</td>\n";
    225. }
    226. print "</tr></table>\n";
    227. print "</fieldset>\n";
    228. print "<p></p>\n";
    229. }
    231. sub printInput {
    232. print "<fieldset><legend>$input_name</legend>\n";
    233. print "<table><tr>\n";
    234. for(my $i = 3; $i <= 7; $i++) {
    235. if($led_view[$i] > 0) {
    236. if($status[$i] == 1) {
    237. print "<td>\n";
    238. if($i < 7) { print "<img src=\"$noncgi_dir/led_aus.gif\" alt=\"\"><br>\n"; }
    239. else { print "<img src=\"$noncgi_dir/led_ein.gif\" alt=\"\"><br>\n"; }
    240. print "<small>$led_name[$i]</small>\n";
    241. print "</td>\n";
    242. }
    243. elsif($status[$i] == 0) {
    244. print "<td>\n";
    245. if($i < 7) { print "<img src=\"$noncgi_dir/led_ein.gif\" alt=\"\"><br>\n"; }
    246. else { print "<img src=\"$noncgi_dir/led_aus.gif\" alt=\"\"><br>\n"; }
    247. print "<small>$led_name[$i]</small>\n";
    248. print "</td>\n";
    249. }
    250. }
    251. }
    252. print "</tr></table>\n";
    253. print "</fieldset>\n";
    254. print "<p></p>\n";
    255. }
    257. sub printRefresh {
    258. print "<fieldset><legend>Anzeige</legend>\n";
    259. print "<table><tr>\n";
    260. print "<td>\n";
    261. print "<input name=\"refresh\" type=\"button\" value=\"Anzeige aktualisieren\" onClick=\"javascript:location.href=\'$script_url\';\">\n";
    262. print "</td>\n";
    263. print "</tr></table>\n";
    264. print "</fieldset>\n";
    265. }
    Alles anzeigen


    So in etwa stell ich mir das vor, halt die steurung nur per Pfeiltasten. Eine Anzeige brauche ich außerdem auch nicht, somit auch keinen Refresh nach jeder Aktion

    Ich hoffe ihr habt mich verstanden.


    Gruß Sebastian