Hardware Portansteuerung

[jwhm]

also, dieser code funktioniert, bei allen Checkboxen wird OnClick die prozedur ausgeführt.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure port(x:byte);
begin
asm
mov dx,378h
mov al,x
out dx,al
end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var a:byte;
begin
a:=0;
if CheckBox1.Checked=True then a:=a+1;
if CheckBox2.Checked=True then a:=a+2;
if CheckBox3.Checked=True then a:=a+4;
if CheckBox4.Checked=True then a:=a+8;
if CheckBox5.Checked=True then a:=a+16;
if CheckBox6.Checked=True then a:=a+32;
if CheckBox7.Checked=True then a:=a+64;
if CheckBox8.Checked=True then a:=a+128;
port(a);
end;

end.

Jo[allesmussman(n)selbermachen]hannes