Autor |
Nachricht |
Lorion
Forumkenner
Anmeldung: 05.09.2005
Beiträge: 118
|
|
Jo!
Und ich bin immer noch dein treuer Kunde
Wegen dir warte ich immer noch mit nem Kauf eines anderen Radios...
Würd dich sogar unterstützen.. brauchst du einen Beta-Tester? ^^
|
|
|
|
|
|
|
|
|
Citroen_Andre
Foruminventar
Alter: 56
Anmeldung: 12.08.2005
Beiträge: 1335
Wohnort: Brunsbüttel
|
|
Erst mal bekommt @Fuchs ein Teil zum einbinden.
Da ich selber nur 2 Radios zum basteln habe wird auch erstmal nur ein Teil entstehen.
|
|
|
|
|
|
|
|
Lorion
Forumkenner
Anmeldung: 05.09.2005
Beiträge: 118
|
|
Also an Radios solls dir nicht mangeln. Glaube dir wird was anderes fehlen.
Bin aber tortz dem bereit weiter zu warten
|
|
|
|
|
|
|
|
SirGroovy2004
CPI Profi
Alter: 44
Anmeldung: 27.12.2004
Beiträge: 4337
Wohnort: 30km südl v. München
1992 Volkswagen Golf III
|
|
@ Lorion
Hähhh? Was meinst´ jetzt? Lötzin?
|
|
|
|
Hardware: Asrock K7s4GX; AMD Geode 1750+; 512MB Ram; Sirf 3 Star; K90; Software: cPos! 1.0; Windows XP Prof x64 Edition;
|
|
|
|
Lorion
Forumkenner
Anmeldung: 05.09.2005
Beiträge: 118
|
|
Nein.. irgend ein RDS-Modul...
Weil der zentralle Controller raus ist und er mehr machte als nur zu steuern, wurde ein anderes Modul zusätzlich benötigt.. aber dieses wird nur an Händler und dann auch noch nur in grossen Mängen verkauft... das war doch das Problem.. oder verwechsel ich hier grad was?
|
|
|
|
|
|
|
|
Citroen_Andre
Foruminventar
Alter: 56
Anmeldung: 12.08.2005
Beiträge: 1335
Wohnort: Brunsbüttel
|
|
Ich brauche kein RDS-Modul. Das Problem ist ein billigen Tuner zu bekommen.
Das Problem haben wir aber durch die alten Autoradios gelöst.
Die RDS-Daten bereitet ein handelsübliches IC auf.
|
|
|
|
|
|
|
|
|
FMode
Stammposter
Alter: 48
Anmeldung: 26.09.2004
Beiträge: 277
Wohnort: Germany
|
|
Citroen_Andre hat folgendes geschrieben:
|
Erst mal bekommt @Fuchs ein Teil zum einbinden.
Da ich selber nur 2 Radios zum basteln habe wird auch erstmal nur ein Teil entstehen.
|
und was ist mit WAL's Radio ? D-Link ?
deswegen mein Vorschlag der RadioHAL...
So damit ihr mal RadioHAL "live" erlebt habe ich gerade die erste Version einer RadioHAL erstellt - sie steuert Radiator !
Ist vielleicht zum Testen für Fuchs (,...) ganz witzig...
(Dabei ist mir aufgefallen das das Radiatorplugin-konzept nichts anderes als meine HAL ist - nur weniger "vollständig" - eher für "Hometuner" gemacht)
Also das sind dann so aus:
Code:
|
Option Strict On 'Empfehlung
' Um dieses .NET Assembly auch als COM Objekt nutzen zu können
Imports System.Runtime.InteropServices
<ClassInterface(ClassInterfaceType.AutoDual)> _
Public Class FMRadioHAL
Implements I_FMRadioHAL 'M-U-S-S hier rein !!! dann fordert die IDE auf die Members von I_FMRadio zu implementieren
'ab hier darf nun spezifisch für das Radio programmiert werden !!!
'HAL für Radiator
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private mRadiatorProcess As System.Diagnostics.Process
Private Const WM_USER As Integer = &H400
Private Const WM_MyStatUp As Integer = WM_USER + 1005
Private Const WM_MyStatDown As Integer = WM_USER + 1006
Private Const WM_MyLastStat As Integer = WM_USER + 1007
Private Const WM_MySurf As Integer = WM_USER + 1008
Private Const WM_MyTuneStatNo As Integer = WM_USER + 1009
Private Const WM_MyTuneFr As Integer = WM_USER + 1010
Private Const WM_MyRadClose As Integer = WM_USER + 1015
Private Const WM_MyMonoStereo As Integer = WM_USER + 1017
Private Const WM_MyStereo As Integer = WM_USER + 1018
Private Const WM_MyMono As Integer = WM_USER + 1019
Private Const WM_MyFineTuneUp As Integer = WM_USER + 1023
Private Const WM_MyFineTuneDown As Integer = WM_USER + 1024
Private Const WM_MyCoarseTuneUp As Integer = WM_USER + 1025
Private Const WM_MyCoarseTuneDown As Integer = WM_USER + 1026
Private Const WM_MyMute As Integer = WM_USER + 1003
Private Const WM_MySeekDown As Integer = WM_USER + 1028
'Private Structure stCOMPort
' Public COMPort As String
' Public Baudrate As Integer
' '...
'End Structure
'Private mCOMPort As stCOMPort
'aktuelle Daten des Radios können hier zwischengespeichert werden...(*1)
Private mBand As EnumBand
Private mFreq As Integer
Public Event RDSRAWMessage_available(ByVal RDSRAWMessage As FMRadioHAL_H.stRDSRAWMessage) Implements I_FMRadioHAL.RDSRAWMessage_available
Public Event AF_NewFreq(ByRef Freq As Integer) Implements I_FMRadioHAL.AF_NewFreq ' Frequenz wurde durch AF-Verfahren vom µC gewechselt
Public Event FieldStrength(ByVal Level As Integer) Implements I_FMRadioHAL.FieldStrength 'neuer Wert bez. Feldstärke des aktuellen Senders verfügbar
Public Event Stereo(ByVal Stereo_Pilot_Detected As Boolean) Implements I_FMRadioHAL.Stereo ' wird bei Änderung "abgefeuert"
' Event wenn RS232 etwas empfangen hat
Private Sub RS232ReadBuffer_FULL()
'z.b. eine RDS Nachricht
Dim lRDS As stRDSRAWMessage
'...
RaiseEvent RDSRAWMessage_available(lRDS)
'...
End Sub
Public Function GetLastError() As stError Implements I_FMRadioHAL.GetLastError
'...
End Function
Public Function Supported_Functions() As stSupFunc Implements I_FMRadioHAL.Supported_Functions
Dim SupFunc As stSupFunc
SupFunc.AF = False
SupFunc.Autotune = False
SupFunc.FM = True
SupFunc.Freq = True
SupFunc.FreqUpDown = False
SupFunc.LW = False
SupFunc.Mono = False
SupFunc.Mute = False
SupFunc.MW = False
SupFunc.SW = False
SupFunc.Vol = False
SupFunc.VolUpDown = False
End Function
Public Sub Connect() Implements I_FMRadioHAL.Connect
Dim IDic As IDictionary = AssemblySettings.GetConfig
'ctype( IDic.Item("RadiatorPath"),String
mRadiatorProcess = New System.Diagnostics.Process
mRadiatorProcess.StartInfo.FileName = CType(IDic.Item("RadiatorPath"), String)
mRadiatorProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
mRadiatorProcess.Start()
mRadiatorProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
mRadiatorProcess.WaitForInputIdle()
mRadiatorProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
'PostMessage(mRadiatorProcess.MainWindowHandle.ToInt32, WM_MyTuneFr, 8750, 0)
'MessageBox.Show(myProcess.ProcessName)
'System.IntPtr()
'System.Reflection.Assembly.GetExecutingAssembly.Location()
'lese Konfiguration (COM-Port, Baudrate...)
'öffne RS232
'sende START ...
End Sub
Public Sub DisConnect() Implements I_FMRadioHAL.DisConnect
'schliesse RS232
'...
mRadiatorProcess.CloseMainWindow()
mRadiatorProcess.Close()
mRadiatorProcess = Nothing
End Sub
Public Sub AutoTune(ByVal Direction As Boolean, ByVal StopLevel As Integer, ByVal WaitForStop As Boolean) Implements I_FMRadioHAL.AutoTune 'Richtung Vorwärts/Rückwärts , minimale Feldstärke (DX Function)
End Sub
Public Property Band() As EnumBand Implements I_FMRadioHAL.Band
Get
'Return mBand
' (*1)...oder können JETZT vom µC abgefragt werden
' frage über RS232 den µC nach dem Band
'Select Case RS232Antwort
' Case "FM"
' Return FMRadioHAL_H.EnumBand.FM
' case ...
' Case Else
'End Select
End Get
Set(ByVal Value As EnumBand)
End Set
End Property
Public Property Freq() As Integer Implements I_FMRadioHAL.Freq
Get
Return mFreq
End Get
Set(ByVal Value As Integer)
mFreq = Value
PostMessage(mRadiatorProcess.MainWindowHandle.ToInt32, WM_MyTuneFr, Value, 0)
End Set
End Property
Public Sub FreqUp() Implements I_FMRadioHAL.FreqUP
'...
End Sub
Public Sub FreqDown() Implements I_FMRadioHAL.FreqDown
'...
End Sub
Public Property Mono() As Boolean Implements I_FMRadioHAL.Mono
Get
'...
End Get
Set(ByVal Value As Boolean)
'...
End Set
End Property
Public Property Mute() As Boolean Implements I_FMRadioHAL.Mute
Get
'...
End Get
Set(ByVal Value As Boolean)
'...
End Set
End Property
Public Property AFLevel() As UInt16 Implements I_FMRadioHAL.AFLevel '0=AF Funktion AUS, unterschreiten der hier angegeben Feldstärke und der nächste Sender (gem. AF Liste) wird vom µC "getunt"
Get
'...
End Get
Set(ByVal Value As UInt16)
'...
End Set
End Property
Public Property Volume() As UInt16 Implements I_FMRadioHAL.Volume 'Ausgabewert des D/A Wandlers der die Volume steuert
Get
'...
End Get
Set(ByVal Value As UInt16)
'...
End Set
End Property
Public Sub VolumeUP() Implements I_FMRadioHAL.VolumeUP
End Sub
Public Sub VolumeDown() Implements I_FMRadioHAL.VolumeDown
End Sub
End Class
|
Beiligende DLL in VB6 (oder in einem COM fähigen System einbinden) oder eben als .NET Assembly in VB.NET...
Losgehts (Instanz von FMRadioHAL erstellen!):
- mit Connect() verbinden (Radiator wird gestartet)
(Pfad in der FMRadioHAL.DLL.config anpassen!!!)
- schaut euch die Struct "Supported_Functions" an (er kann nur die Frequenz lesen/setzen und als Band nur FM - Radiator kann mehr allerdings habe ich noch nicht mehr implantiert)
- mit Freq setzt ihr die Frequenz auf das 10xMhz also 8950 für 89,50Mhz (@Andre: reicht das ? oder muss man noch feiner setzen können)
- Disconnect schliesst den Radiator
Events gibts leider von Radiator auch keine
und hier die FMRadioHAL
|
|
|
|
Hardware: Voom, Commell LV677, Zenec5.1 Software: Centrafuse
|
|
|
|
Citroen_Andre
Foruminventar
Alter: 56
Anmeldung: 12.08.2005
Beiträge: 1335
Wohnort: Brunsbüttel
|
|
Das mit dem setzen der Frequenz funktioniert anders.
Eine 0 entspricht 87,50 Mhz und eine 1 = 87,55 usw.
Beim tesen der AF braucht man nur 1 Byte.
Da gibt es keine 0,05Mhz Schritte. Also 1 entspricht 87,6Mhz.
Um das Einbinden mache mir jetzt erst mal noch keinen Kopf.
Erst mal muss es fertig werden.
|
|
|
|
|
|
|
|
FMode
Stammposter
Alter: 48
Anmeldung: 26.09.2004
Beiträge: 277
Wohnort: Germany
|
|
Citroen_Andre hat folgendes geschrieben:
|
Das mit dem setzen der Frequenz funktioniert anders.
Eine 0 entspricht 87,50 Mhz und eine 1 = 87,55 usw.
Beim tesen der AF braucht man nur 1 Byte.
Da gibt es keine 0,05Mhz Schritte. Also 1 entspricht 87,6Mhz.
Um das Einbinden mache mir jetzt erst mal noch keinen Kopf.
Erst mal muss es fertig werden.
|
(mach mal )
kann der Tuner nur ab 87,50 ?
Stell dir vor er soll weiter runter weil in dem Land UKW ab 80MH´z losgeht...
In Japan hingegen ist die UKW von 76–90...
...die Freude eines EBaykäufers über den Gewinn eines VW RNS MFD aus Japan (absolut Hightech gegenüber dem europäischen RNS MFD !) wurde stark gemindert als er versucht hat seinen Lieblingssender auf 102,0 einzustellen
FMode hat folgendes geschrieben:
|
- mit Freq setzt ihr die Frequenz auf das 10xMhz also 8950 für 89,50Mhz (@Andre: reicht das ? oder muss man noch feiner setzen können)
|
Ich meinte damit ob man die Tuner auch auf 87,2546567 MHz stellen kann - mit dem von mir vorgeschlagenen Integer Wert kann man also in 10KHz schritten tunen...
Die Freq() für Andre's_blaupunkt_c30 Radio sieht also dann so ähnlich aus:
Code:
|
Public Property Freq() As Integer Implements I_FMRadioHAL.Freq
Get
'...
End Get
Set(ByVal Value As Integer)
If Value < 8750 Then
LastError = "This Tuner supports FM-Frequency from 87,50Mhz to 108,00 Mhz"
'eventuell auch in Supported_Functions ...
Exit Property
End If
Value = (Value - 8750) \ 5
RS232.Send("F:" + CStr(Value))
End Set
End Property
|
Hey WAL wie steuert man den dein Radio an ? auch über RS232 ?
|
|
|
|
Hardware: Voom, Commell LV677, Zenec5.1 Software: Centrafuse
|
|
|
|
Citroen_Andre
Foruminventar
Alter: 56
Anmeldung: 12.08.2005
Beiträge: 1335
Wohnort: Brunsbüttel
|
|
Bringt nix. Weil die Sender immer nur in 0,1Mhz Schritten liegen. Nur die Kabelsender liegen im 0,05Mhz Bereich damit die Alternativfrequenzen nicht funktionieren.
|
|
|
|
|
|
|
|
Wal
Developer
Alter: 57
Anmeldung: 11.11.2004
Beiträge: 1128
Wohnort: Obernburg/Odw., Bayern
|
|
Bei meiner Adapterplatine kann ich keine Frequenzen direkt verstellen.
Es werden nur die Tasten vom Radio quasi über den Touchscreen gedrückt(die CD funktionen gehen auch).
Das Radio bleibt so voll funktionsfähig und kann auch ohne PC gesteuert werden.
Nachteil: Ich habe keine Rückmeldungen vom Radio an den PC.
Wurde aber alles schon besprochen.Radio am Car-PC
|
|
|
|
|
|
|
|
|
FMode
Stammposter
Alter: 48
Anmeldung: 26.09.2004
Beiträge: 277
Wohnort: Germany
|
|
ochh nich so negativ
ist halt eine einfache schnelle (und gnstig!) Lösung !
Ich meinte hängt deine I/O Karte am Parallel Port oder Seriell oder was ?
Aber deinem Radio kannst du sagen "such den nächsten Sender rauf/runter" ? Also kommt auch eine version der HAL dafür in Frage...
Look->
Code:
|
...
Public Function Supported_Functions() As stSupFunc Implements I_FMRadioHAL.Supported_Functions
Dim SupFunc As stSupFunc
SupFunc.AF = False
---> SupFunc.Autotune = True
SupFunc.FM = True
SupFunc.Freq = False
SupFunc.FreqUpDown = False
SupFunc.LW = False
SupFunc.Mono = False
SupFunc.Mute = False
SupFunc.MW = False
SupFunc.SW = False
SupFunc.Vol = False
SupFunc.VolUpDown = False
End Function
...
Public Sub AutoTune(ByVal Direction As Boolean, ByVal StopLevel As Integer, ByVal WaitForStop As Boolean) Implements I_FMRadioHAL.AutoTune 'Richtung Vorwärts/Rückwärts , minimale Feldstärke (DX Function)
If Direction Then
'Taste hoch drücken
Else
'Taste runter drücken
End If
End Sub
...
|
|
|
|
|
Hardware: Voom, Commell LV677, Zenec5.1 Software: Centrafuse
|
|
|
|
Wal
Developer
Alter: 57
Anmeldung: 11.11.2004
Beiträge: 1128
Wohnort: Obernburg/Odw., Bayern
|
|
|
|
FMode
Stammposter
Alter: 48
Anmeldung: 26.09.2004
Beiträge: 277
Wohnort: Germany
|
|
wenn was funzt ists prima....
aber:
Und was ist wenn das mp3car.com radio rauskommt ?
Dann muss cPos wieder angefasst werden...
Was ist mit CES, Mediaengine, Frodo (und wie die alle heissen) ?
Müssen die auch ihre Radioansteuerungen selber schreiben ?
oder anders gesagt:
wie greift Microsoft Word auf Drucker zu ?
Ist Code zur Ansteuerung vom HP LaserJet 5N in Word ?
|
|
|
|
Hardware: Voom, Commell LV677, Zenec5.1 Software: Centrafuse
|
|
|
|
Citroen_Andre
Foruminventar
Alter: 56
Anmeldung: 12.08.2005
Beiträge: 1335
Wohnort: Brunsbüttel
|
|
Hier mal wieder ein Zwischenbericht.
Leider hatte ich die erste Version mit 10 cm * 8 cm doch etwas zu klein angesetzt.
Das wäre auf jeden Fall nix mehr zum Nachbauen.
Jetzt bekommt es Europakarten Format 10cm * 16cm.
Die Anschlüsse ausser der serielle Port sind über den normalen dreifach Stecker raus geführt.
|
|
|
|
|
|
|
|
Citroen_Andre
Foruminventar
Alter: 56
Anmeldung: 12.08.2005
Beiträge: 1335
Wohnort: Brunsbüttel
|
|
@Lorion
Du hast ja viel Vertrauen.
Radio und externes Display....
Bin gerade am ätzen der Musterplatine!!
Bei mir spielt das Radio ja schon.
|
|
|
|
|
|
|
|
|
jwe297
Stammposter
Alter: 56
Anmeldung: 28.09.2004
Beiträge: 331
Wohnort: Ingelheim
2002 Renault Espace
|
|
Hallo ich habe interesse an einer Platine oder einem fertigen Gerät.
Gruß
Jörg
|
|
|
|
Hardware: Aopen Mini PC 945VXR Software: CES + CPOS
|
|
|
|
Felix99
Stammposter
Alter: 43
Anmeldung: 26.02.2004
Beiträge: 273
Wohnort: Mein Auto ;)
|
|
ich hätte auch interesse - an bausatz oder fertiggerät
|
|
|
|
|
|
|
|
Citroen_Andre
Foruminventar
Alter: 56
Anmeldung: 12.08.2005
Beiträge: 1335
Wohnort: Brunsbüttel
|
|
Ich habe mal die Besteller zusammen gerechnet.
Bis jetzt sind es 16.
Wenn wir 20 Mann werden,
lasse ich die Leiterplatte bei PCB-Pool.com ätzen.
Ich sitze schon seit heute Früh beim bohren und beim Durchkontaktierungen verlöten.
Wenn ich jemanden vergessen habe einfach nochmal posten.
Geierschnabel
Chegger
shaneL
bunni
YHD
zaphod
Lorion
revo
Alfista
Rapido
jwe297
Felix99
coce81
no_Legend
Daimler
mat.her
|
|
|
|
|
|
|
|
shovel666
Stammposter
Alter: 53
Anmeldung: 22.09.2004
Beiträge: 252
Wohnort: Hanau
|
|
Hallo,
möchte mich ebenfalls eintragen. Als Bausatz oder Fertiggerät-Empfänger.
|
|
|
|
|
|
|
|
|