Guidobald
10.12.2008, 20:42
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/gira/1481/Schaltplan_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)
$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
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/gira/1481/Schaltplan_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)
$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