Delphi Gebruikersgroep

 

Home    Up

LPT OPDRACHT VOOR SCHOOL

HALLO ALLEMAAL 
voor school moet ik een progje maken waarmee ik data naar lpt poort kan sturen en de lpt poort kan uitlezen. 

Ik ben zover dat ik data kan sturen naar elk van de 8 adressen en deze kan ik ook weer resetten. ik kan ook al de 4 adressen inlezen. 

Alleen moet ik weten hoe ik dat zichtbaar kan maken ik heb het nu met brushcolor als ik een toets in druk. maar ik wil het zo maken dat de ledjes zelf kijken wat hun toestand is en zich daaraan aanpassen. 

als iets onduidelijk is laat het me horen. 

mvg bram bruggers

--

Bram, 
Ik neem even aan dat je per uit te lezen adres een 8-tal 'led'-images hebt, die de status weergeven van signalen van een van de adressen. 
Middels een timer kan je zorgen dat de adressen regelmatig worden uitgelezen, en middels een boolean check kan je dan de led's aan / uit zetten : 
Stel: Led.active is de property die de led aan en uit zet, afhankelijk van de waarde : true = aan; flase = uit. 
De code zou dan kunnen worden voor 1 adres : 

adresinfo := ; 
Ledadres1bit0.active := ((adresinfo AND $01) = $01); 
Ledadres1bit1.active := ((adresinfo AND $02) = $02); 
Ledadres1bit2.active := ((adresinfo AND $04) = $04); 
Ledadres1bit3.active := ((adresinfo AND $08) = $08); 
Ledadres1bit4.active := ((adresinfo AND $10) = $10); 
Ledadres1bit5.active := ((adresinfo AND $20) = $20); 
Ledadres1bit6.active := ((adresinfo AND $40) = $40); 
Ledadres1bit7.active := ((adresinfo AND $80) = $80); 
end; 

hiermee wordt per bit gecontroleerd wat de status is en de led wordt daaraan aangepast. 

Hopelijk helpt dit je vooruit. 
Hans