So ich habe auch noch mal ein wehnig gesucht, und das hier zusammen geschrieben..... ich hoffe du kannst mir vieleicht sagen ob das so funktioniert, ich habe das jetzt leider nicht kommentiert....


Dat Alias Pinb.0
Clk Alias Portb.1
Cs Alias Portb.2

Dim I As Byte
Dim Adbit As Byte
Dim Ad As Word


Set Cs
Do
Adbit = 0 : Ad = 0
Reset Clk
Reset Cs
Waitus 2
For I = 1 to 8
Set Clk
Shift Ad, Left
Ad = Ad + Dat
Reset Clk
Next
Shift Ad, Left
Set Cs
Set Clk
Cls

"Hier meine Abfrage...."


Loop