Ist ja wunderbar! Ein Bascom-Beispiel!

Das sähe bei uns ja so aus:
Code:
Cs = 1                                                      'Strobe high
Io_clock = 0                                                'Clock low 
Do 
  Cs = 0                                                    'Strobe low 
  Ergebnis = 0
  Waitus 2 
  For Cntr = 0 To 7 
    Io_clock = 1                                            'Clock high 
    Shift Ergebnis , Left , 1 
    Ergebnis = Ergebnis + Eingabepin 
    Io_clock = 0                                            'Clock low 
  Next Cntr 
'  Waitus 17                                                 '17us warten 
'  (Nur nötig, wenn sofort eine neue Messung erfolgt!)
  Cs = 1
  Io_clock = 1
 Cls 
 Locate 1 , 1 
 Lcd Ergebnis 
 Wait 3 
Loop
Die wichtigste Änderung dürfte das Warten für 2 us vor Abfragen des 1. Bits sein. Vielleicht klappts ja so.

Gruß Dirk