PLL-VCO über I²C vom PC aus steuern,Kommunikations-Problem
Hallo RN Gemeinde,
ich habe aus einem alten Auto-Radio die Empfängerbaugruppe ausgebaut.
Darauf befinden sich zwei IC`s der TEA6810V (Front-end and PLL synthesizers) und der TEA6825T (PLL VCO).Der TEA6825T verfügt über eine I²C Schnittstelle um den TEA6810V mit der Referenz- Frequenz zu versorgen.Ich wollte nun den TEA6825T via I²C ansteuern um damit über den PC die Feinabstimmung der Radiofrequenz bzw. die Empfangsfrequenz zu wählen.Ich habe mir die Datenblätter beider Ic`s angeschaut,und versucth mit einem einfachen VB6 Programm die Slave ID (1100001) vom PC über RS232-I²C Koppler (http://www.horter.de/i2c/i2c-pc-seri...seriell_1.html) zu senden.Leider gelingt mir das nicht,entweder ist die Slave Id falsch oder ich habe einen Fehler in der Ansteueung bzw. im Programmcode.Vieleicht liest ja der eine oder andere von euch mehr aus dem Datenblatt heraus als ich,und kann mir helfen.
Datenblatt TEA6810V http://pdf1.alldatasheet.com/datashe.../TEA6810V.html
Datenblatt TEA6825T http://pdf1.alldatasheet.com/datashe.../TEA6825T.html
Das sind die beiden Datenblätter, und hier nochmal der VB6 Quellcode.
Code:
Dim istda As Boolean
Private Sub AdresseTxt_Change()
End Sub
Private Sub meinCom_onChangeE1()
End Sub
Private Sub SendenBtn_Click()
meinCom.initI2C
meinCom.startI2C
istda = meinCom.ausgebenI2C(AdresseTxt.Text)
If Not istda Then
MsgBox ("I²C-Sklave antwortet nicht auf Anfrage vom Meister-I²C!")
Else
meinCom.ausgebenI2C (WertTxt.Text)
End If
meinCom.stopI2C
End Sub
Private Sub Form_Load()
meinCom.open (1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
meinCom.Close
End Sub
Private Sub WertTxt_Change()
End Sub
Ich hoffe der eine oder andere kann mir weiter helfen.
MfG Brotspinne
