zwanzischmark
01.03.2006, 11:53
Hallo,
sorry das ich grad viele dumme fragen stelle, aber ich steh etwas aufm Schlauch. Wie der Titel schon sagt bin ich vom M32 auf den M128 gewechselt. Mein Display und UART zum PC funktioniert, aber 1wire und I2C tun nix.
Zur Zeit benutze ich 16Mhz externen Quarz, habe Fusebit auf M128 umgestellt und habe JTAG deaktiviert
Ich grieg am PortF(7) meinen 1Wire nicht zum laufen
als Ausgang (mit LED getestet) funktíoniert der Port
und als Eingang (Taster) funktioniert er auch
Ein mini Programm um die id eines Sensors auszulesen hab ich vom M32 direkt übernommen und beim M128 funktioniert es nicht.
$regfile = "m128def.dat"
$crystal = 16000000
$baud1 = 9600
$hwstack = 32
$swstack = 10
$framesize = 40
Config 1wire = Portf.7
Dim I As Byte
Dim Dsid1(8) As Byte
Open "com2:" For Binary As #1
Print #1 , "test"
Dsid1(1) = 1wsearchfirst()
If Dsid1(8) = Crc8(dsid1(1) , 7) Then
For I = 1 To 8
Print #1 , Hex(dsid1(i));
Print #1 , " ";
Next I
End If
Close #1
End
Weiss jemand wo das Problem liegen kann? Muss ich noch irgendwas umstellen oder kann trotz das der ein-/ausgang soweit geht was kaputt sein?
----------------------------------------------------------------------------------
edit:
Ich habe jetzt auf Port E, Port A und Port B verschiedene Pins probiert. Auf alles läuft es bis auf Port F wo es laufen soll. Kann das doch an irgendwelchen Fusebits liegen?
mfg Paul
sorry das ich grad viele dumme fragen stelle, aber ich steh etwas aufm Schlauch. Wie der Titel schon sagt bin ich vom M32 auf den M128 gewechselt. Mein Display und UART zum PC funktioniert, aber 1wire und I2C tun nix.
Zur Zeit benutze ich 16Mhz externen Quarz, habe Fusebit auf M128 umgestellt und habe JTAG deaktiviert
Ich grieg am PortF(7) meinen 1Wire nicht zum laufen
als Ausgang (mit LED getestet) funktíoniert der Port
und als Eingang (Taster) funktioniert er auch
Ein mini Programm um die id eines Sensors auszulesen hab ich vom M32 direkt übernommen und beim M128 funktioniert es nicht.
$regfile = "m128def.dat"
$crystal = 16000000
$baud1 = 9600
$hwstack = 32
$swstack = 10
$framesize = 40
Config 1wire = Portf.7
Dim I As Byte
Dim Dsid1(8) As Byte
Open "com2:" For Binary As #1
Print #1 , "test"
Dsid1(1) = 1wsearchfirst()
If Dsid1(8) = Crc8(dsid1(1) , 7) Then
For I = 1 To 8
Print #1 , Hex(dsid1(i));
Print #1 , " ";
Next I
End If
Close #1
End
Weiss jemand wo das Problem liegen kann? Muss ich noch irgendwas umstellen oder kann trotz das der ein-/ausgang soweit geht was kaputt sein?
----------------------------------------------------------------------------------
edit:
Ich habe jetzt auf Port E, Port A und Port B verschiedene Pins probiert. Auf alles läuft es bis auf Port F wo es laufen soll. Kann das doch an irgendwelchen Fusebits liegen?
mfg Paul