Avatar billede zerocool Nybegynder
05. marts 2000 - 12:25 Der er 1 løsning

paralellport

Jeg har den her kode:

procedure udport(Ad:smallint;Value:smallint);
var
  ByteValue:Byte;
begin
    ByteValue:=Byte(Value);
    asm
        push dx
        mov dx,Ad
        mov al, ByteValue
        out dx,al
        pop dx
    end;
end;

function indport(Ad:smallint):smallint;
var
  ByteValue:byte;
begin
  asm
        push dx
        mov dx, Ad
        in al,dx
        mov ByteValue,al
        pop dx
    end;
    indport:=smallint(ByteValue) and $00FF;
end;


og jeg ved ikke hvordan jeg skal bruge den.
det er til at læse/skrive til en paralellport

zerocool the delphi programmer
Avatar billede sabine Nybegynder
05. marts 2000 - 20:30 #1
Hej nu skal jeg fortælle dig, hvordan du skal bruge min kode

sæt en editbox og to knapper på din form og sæt caption på den ene knap til skriv og den anden til læs

derefter skriver du i knappen skriv

udport($378,StrToInt(edit1.text));

Når du trykker på knappen vil dan værdi
der stå i editboxen blive lavet om til en int og derefter lagt ud på addresse $378 som er paralell porten på de fleste maskiner

og for knappen læs skriver du

edit1.text := IntToStr(indport($378));

her sker det modsatte. Det der står på addresse $378(paralell porten) vil blive lagt over i editboxen

jeg håber at du kan bruge det

Mvh
Sabine
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester