Antwort
Ich würde mir eine Funktion schreiben, die es mir ermöglicht, an einer beliebigen Stelle innerhalb eines Bytes (definiere dazu eine Variable))eine Bit zu setzen bzw zu löschen. Dieses Byte repräsentiert den Zustand deiner LED's. Bin leider kein Visual Basic Programmierer, aber der Code unten kann sicher leicht portiert werden.
DELPHI CODE :
//{***************************************************************}
//{** Function SetBit **}
//{** **}
//{** Beschreibung : **}
//{** trägt an Stelle n eines Bytes a den Wert b (0/1) ein **}
//{** **}
//{***************************************************************}
//
function setbit(a,n,b:BYTE):BYTE;
begin
setbit:=(b shl n)or(a and not(1 shl n)); { Zustand des Bits verändern }
end; { Ende function SetBit }