Dann teste mal Code wie...
[code:1]Dim A as Byte
do
PortB = Rnd(255)
if ___rseed < 1500 then
___rseed = ___rseed + 2
Else ___rseed = 0
End If
Waitms 100
loop[/code:1]
Der Trick liegt darin, möglichst zufällig zu werden - denn die RND() Funktion ist NICHT sehr zufällig
Aber mit __rseed kann man den sogenannten Random-Seed ändern - dann wirds auch wieder zufälliger.
Der jeweilige Port wird dann einfach nach Zufall gesetzt und fertig.
Stefan Z