74HC165 Ansteuern

Hallo ich werd gleich IRRE ](*,) ](*,) ](*,) ](*,)


Helft mir bitte


Manchmal will das alles einfach nicht wie ich will [-(

und zwar hab ich mir das Radio Bedienteil von GIRA geholt.



http://www.see-solutions.de/_other/gira/

danke an Jörg S. aus dem www.mikrocontroller.net Forum


habe das Dingen an nen Mega8 gehängt und das mit der Ausgabe klappt auch super aber ums verrecken bekomm ich keine Eingabe.


Hier einmal der Schaltplan es geht um die Ansteuerung des 74HC165D.


http://www.see-solutions.de/_other/g...tplan_1481.pdf

und hier mein Code zum größten Teil aus einem Buch abgepinnt Programieren der (AVR RISC Mikrocontroller mit Bascom AVR von Claus Kühnel)

Code:

---

$regfile = "m8def.dat"
$crystal = 3686000

$hwstack = 32                                              ' default use 32 for the hardware stack

$swstack = 10                                              ' default use 10 for the SW stack

$framesize = 40


Open "COMB.2:19200,8,n,1,Inverted" For Output As #1
Open "COMB.3:19200,8,n,1,Inverted" For Output As #2


Print #2 , "Test"


Clk Alias Portc.3                                          'Clk
Ilatch Alias Portc.5                                        'Latch
Outdata Alias Portc.2                                      'Seriel Out

Reset Clk
Set Ilatch
Set Outdata

Config Clk = Output
Config Ilatch = Output
Config Outdata = Input

Dim Daten As Byte

Do

Reset Ilatch
Set Ilatch

Shiftin Outdata , Clk , Daten , 1
Waitms 100
Print #2 , Daten

Waitms 100

Loop

End

---

Sollte ja eigentlich nicht schwer sein aber es geht einfach nicht. Hat jemand eine Idee?

Ach als ausgabe (Daten) bekomme ich nur 255 255 usw