TfrmMain::SendPort(short Port, short Value)
{
asm mov dx, Port
asm mov ax, Value
asm out dx, ax
return 1 ;
}
wklejasz do buildera ta procedurke i wywolujesz z programu jesli port to adres lpt a value to wartosc diody masz 8 diod jesli chcesz zapalic pierwsze 3 to muszisz na potr wyslac 1110000 zamieniasz to na dziesietnie i wysylasz i dziala dla reszty diod analogicznie
jesi chcesz to wleic do visuala to lekko przerob
pamietaj jak chceesz odpaac pod xp to musiasz odpalac userporta
