3Gx and telemetry data volt + temp

[Sailman]

I hook a TM1000 to the 3GX...

I just check my telemetry detail after one flight today and It's look's like the 3GX know the voltage from main battery and ESC or motor temp?

B Fades from flight log is the Volts
L Fades from flight log is the temperature (probably ESC)

Strange ?

Here some graph from Spektrum Telemetry Viewer 3.23

[Dogcow]

Interesting that there is now a Spektrum Telemetry Viewer, very useful for those without an iOS device
I actually use the Spektrum app and my readings look very different from yours, so may be a glitch in the software.
You can see one of my STi graphs in this other post i just submitted: https://www.helifreak.com/showthread.php?t=494443
but i am using it with an AR8000 Rx, i didn't realise it worked if you plug it directly into the 3gx?

[Sailman]

Yes it work with TM1000 connected in the 3GX (bind port) with only 2 SAT

Here is a picture from my 450 Pro DFC

https://www.helifreak.com/showpost.p...postcount=1727

[Dogcow]

Bind port? Not the data port? Do you have DSMX also as i wasn't aware the 3gx was DSMX compatible on it's own? But if it works ok on DSM2 that is good to know.

[Sailman]

The DSMX SAT and TM1000 bind in DSM2 with the 3GX. So you don't have the flight log data. If you want the flight log and DSMX you should use a DSMX receiver like your AR8000.

[Sailman]

If anybody want to check their telemetry data I modify a macro from http://www.rcgroups.com/forums/showthread.php?t=1725173

Now support 3GX telemetry data from your telemetry file.

It work's in excel 2002-2003

Sub Import_Spektrum_log()
    Dim intFileNum%
    Dim bytTemp As Byte
    Dim intCellRow As Long
    'Dim dlgSaveAs As FileDialog
    'Dim SourceDir As String
   'Dim dlgSaveAs As New SaveFileDialog
   
    Dim DataMode As Integer
    Dim DataByte As Integer
    Dim DataByteToRead As Integer
    
    Dim DataTime(4) As Long
    Dim Speed As Long
    Dim MaxSpeed As Long
    Dim RPM As Long
    Dim RPM_Max As Long
    Dim RPM_poles As Long
    Dim Volt As Single
    Dim TempC As Single
    Dim RxVolt As Single
    Dim Altitude As Single
    Dim AltitudeInt As Long
    Dim AltitudeSign As Long
    Dim Name As String
    Dim Current As Single
   Dim SourceDir As Variant
   Dim AHold As Long
   Dim BHold As Single
   Dim RHold As Single
   Dim LHold As Single
   Dim FrameLoss As Long
   Dim Holds As Long
   Dim Txinfo As Single
   Dim Modelname As String
   Dim Session As Integer
   Dim PrevDataTime As Long
   Dim Time As Single
        
   
    intFileNum = FreeFile
    intCellRow = 1
    
       Set dlgSaveAs = Application.FileDialog(msoFileDialogOpen)
    ' Update the file name!!!!
    'SourceDir = "D:\"
    dlgSaveAs.InitialFileName = SourceDir
    dlgSaveAs.AllowMultiSelect = False
    dlgSaveAs.Filters.Clear
    dlgSaveAs.Filters.Add "Spektrum log data", "*.tlm", 1
    dlgSaveAs.FilterIndex = 1
    
    'dlgSaveAs.
    dlgSaveAs.Show
    If dlgSaveAs.SelectedItems.Count = 1 Then
        SourceDir = dlgSaveAs.SelectedItems(1)
        Open SourceDir For Binary Access Read As intFileNum
    Else
        Exit Sub
    End If

    intCellRow = 1
    ' Reset controls
    DataMode = 0
    DataByte = 0
    DataByteToRead = 20
    ' Reset info
    DataTime(1) = 0
    DataTime(2) = 0
    DataTime(3) = 0
    DataTime(4) = 0
    Speed = 0
    MaxSpeed = 0
    RPM = 0
    RPM_Max = 65000
    RPM_poles = 12 ' update this to match your flight
    Volt = 0
    TempC = 0
    RxVolt = 0
    Altitude = 0
    AltitudeInt = 0
    AltitudeSign = 0
    Name = ""
    Current = 0
    AHold = 0
                BHold = 0
                RHold = 0
                LHold = 0
                FrameLoss = 0
                Holds = 0
    Txinfo = 0
    Session = 0
    PrevDataTime = 0
    Deltatime = 0
       
                     
    Do While (Not EOF(intFileNum)) And intCellRow '<= 50
        Get intFileNum, , bytTemp
        
 
                            
        DataByte = DataByte + 1
        Select Case DataByte
        Case 1 ' Time Low
            DataTime(1) = bytTemp
        Case 2 ' Time
            DataTime(2) = bytTemp
        Case 3 ' Time
            DataTime(3) = bytTemp
        Case 4 ' Time High
            DataTime(4) = bytTemp
            If (DataTime(1) = 255) And (DataTime(2) = 255) And (DataTime(3) = 255) And (DataTime(4) = 255) Then
                DataTime(0) = 0
                DataMode = -1
                DataByteToRead = 36
            Else
                    PrevDataTime = DataTime(0)
                    DataTime(0) = DataTime(1)
                    DataTime(0) = DataTime(0) + (DataTime(2) * CLng(256))
                    DataTime(0) = DataTime(0) + (DataTime(3) * CLng(256) * CLng(256))
                    DataTime(0) = DataTime(0) + (DataTime(4) * CLng(256) * CLng(256) * CLng(256))
                    'Deltatime = PrevDataTime + (DataTime(0) - PrevDataTime) / 256
                    Time = Time + ((DataTime(0) - PrevDataTime) / 256)
                    If intCellRow = 1 Then
                       Time = 0
                    End If
                    DataByteToRead = 20
                 End If
         
        Case 5 ' Mode
            If DataMode <> -1 Then
                DataMode = bytTemp
            End If
        Case 6 To 36
            Select Case DataMode
            Case -1 ' Header
                Select Case DataByte
                Case 6
                    Name = ""
                    If bytTemp = 0 Or bytTemp = 1 Then
                        'DataMode = -2
                    End If
                Case 7
                    If bytTemp < 5 Then
                    DataMode = -2
                    If intCellRow = 1 And Session > 0 Then
                        Application.DisplayAlerts = False
                        ActiveWindow.SelectedSheets.Delete
                        Application.DisplayAlerts = True
                    End If
                    Session = Session + 1
                    Name = Session & "-"
                    End If
                Case Else
                End Select
            Case -2 ' Header
                Select Case DataByte
                Case 13 To 22
                    Name = Name & Chr(bytTemp)
                Case Else
                End Select
            Case 3 ' Current
                Select Case DataByte
                Case 6
                    Current = 0
                Case 7
                    Current = bytTemp * CLng(256)
                Case 8
                    Current = Current + bytTemp
                    Current = Current * 0.1976
                Case Else
                End Select
            Case 17 ' Speed
                Select Case DataByte
                Case 6
                    Speed = 0
                    MaxSpeed = 0
                Case 7
                    Speed = bytTemp * CLng(256)
                Case 8
                    Speed = Speed + bytTemp
                Case 9
                    MaxSpeed = bytTemp * CLng(256)
                Case 10
                    MaxSpeed = Speed + bytTemp
                Case Else
                End Select
            Case 18 ' Altitude
                Select Case DataByte
                Case 6
                    Altitude = 0
                    AltitudeInt = 0
                Case 7
                    AltitudeInt = bytTemp * CLng(256)
                Case 8
                    AltitudeInt = AltitudeInt + bytTemp
                    AltitudeSign = AltitudeInt And &H8000
                    AltitudeInt = AltitudeInt And &H7FFF
                    If AltitudeSign = 32768 Then
                        Altitude = AltitudeInt - 32767
                    Else
                        Altitude = AltitudeInt
                    End If
                    Altitude = Altitude / 10
                    If (Altitude > 1000) Or (Altitude < -1000) Then
                        Altitude = 0
                    End If
                Case Else
                End Select
            Case 126 ' RPM,Volt,Temp
                Select Case DataByte
                                     
                Case 6
                    RPM = 0
                    Volt = 0
                    TempC = 0
                Case 7
                    RPM = bytTemp * CLng(256)
                Case 8
                    RPM = RPM + bytTemp
                    If (RPM = 65535) Or (RPM < 200) Then
                        RPM = 0
                    Else
                        RPM = (120000000 / RPM_poles) / RPM
                    End If
                Case 9
                    Volt = bytTemp * CLng(256)
                Case 10
                    Volt = Volt + bytTemp
                    Volt = Volt / 100
                    If (Volt > 100) Or (Volt < -100) Then
                        Volt = 0
                    End If
                Case 11
                    TempC = bytTemp * CLng(256)
                Case 12
                    TempC = TempC + bytTemp
                    TempC = (TempC - 32) / 1.8
                    If TempC > 500 Or TempC < -100 Then
                        TempC = 0
                    End If
                Case Else
                End Select
            Case 127 ' Radio,RxVolt
                Select Case DataByte
                Case 6
                    RxVolt = 0
                Case 7
                  AHold = bytTemp * CLng(256)
                Case 8
                AHold = AHold + bytTemp
                If AHold <> 65535 Then
                  If (AHold > 50) Then AHold = 0
                End If
                Case 9
                  BHold = bytTemp * CLng(256)
                Case 10
                BHold = BHold + bytTemp
                If AHold <> 65535 Then
                  If (BHold > 50) Then BHold = 0
                Else
                    BHold = BHold / 100
                End If
                
                Case 11
                  RHold = bytTemp * CLng(256)
                Case 12
                   RHold = RHold + bytTemp
                   
                  If AHold = 65535 Then
                    RHold = (RHold - 32) / 1.8
                   Else
                     If RHold > 500 Or RHold < -100 Then
                        RHold = 0
                    End If
                  End If
                
                Case 13
                  LHold = bytTemp * CLng(256)
                Case 14
                LHold = LHold + bytTemp
                If (LHold < -10) Then LHold = 0
                
                Case 13
                  FrameLoss = bytTemp * CLng(256)
                Case 14
                FrameLoss = FrameLoss + bytTemp
                If (FrameLoss > 50) Then FrameLoss = 0
                
                Case 18
                  Holds = bytTemp
                   If (Holds > 50) Then Holds = 0
                Case 19
                    RxVolt = bytTemp * CLng(256)
                Case 20
                    RxVolt = RxVolt + bytTemp
                    RxVolt = RxVolt / 100
                Case Else
                End Select
            Case Else
            End Select
        Case Else
            DataMode = 0
            DataByte = 0
        End Select
        
        ' Print data
        If DataByte >= DataByteToRead Then
            If DataMode = 127 Then
                intCellRow = intCellRow + 1
                ActiveSheet.Cells(intCellRow, 1) = Time
                ActiveSheet.Cells(intCellRow, 2) = Speed
                ActiveSheet.Cells(intCellRow, 3) = MaxSpeed
                ActiveSheet.Cells(intCellRow, 4) = RPM
                ActiveSheet.Cells(intCellRow, 5) = Volt
                ActiveSheet.Cells(intCellRow, 6) = TempC
                ActiveSheet.Cells(intCellRow, 7) = RxVolt
                ActiveSheet.Cells(intCellRow, 8) = Altitude
                ActiveSheet.Cells(intCellRow, 9) = Current
                ActiveSheet.Cells(intCellRow, 10) = AHold
                ActiveSheet.Cells(intCellRow, 11) = BHold
                ActiveSheet.Cells(intCellRow, 12) = RHold
                ActiveSheet.Cells(intCellRow, 13) = LHold
                ActiveSheet.Cells(intCellRow, 14) = FrameLoss
                ActiveSheet.Cells(intCellRow, 15) = Holds
                
                AHold = 0
                BHold = 0
                RHold = 0
                LHold = 0
                FrameLoss = 0
                Holds = 0
                
                
            End If
            If DataMode = -2 Then
                ' Nyt ark

                Sheets.Add After:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = Name
            
                'ActiveSheet.Cells.Select
                'Selection.Value = Null
                

                ActiveSheet.Columns("B:B").Select
                Selection.NumberFormat = "0"
                ActiveSheet.Columns("C:C").Select
                Selection.NumberFormat = "0"
                ActiveSheet.Columns("D:D").Select
                Selection.NumberFormat = "0"
                ActiveSheet.Columns("E:E").Select
                Selection.NumberFormat = "0.00"
                ActiveSheet.Columns("F:F").Select
                Selection.NumberFormat = "0.0"
                ActiveSheet.Columns("G:G").Select
                Selection.NumberFormat = "0.00"
                ActiveSheet.Columns("H:H").Select
                Selection.NumberFormat = "0.0"
                ActiveSheet.Columns("I:I").Select
                Selection.NumberFormat = "0.00"
                ActiveSheet.Columns("J:J").Select
                Selection.NumberFormat = "0"
                
                ActiveSheet.Columns("K:K").Select
                Selection.NumberFormat = "0.00"
                ActiveSheet.Columns("L:L").Select
                Selection.NumberFormat = "0.0"
                ActiveSheet.Columns("M:M").Select
                Selection.NumberFormat = "0"
                ActiveSheet.Columns("N:N").Select
                Selection.NumberFormat = "0"
                ActiveSheet.Columns("O:O").Select
                Selection.NumberFormat = "0"
                ActiveSheet.Columns("A:A").Select
                Selection.NumberFormat = "0.00"
                
                
                ActiveSheet.Cells(1, 2) = "Speed"
                ActiveSheet.Cells(1, 3) = "MaxSpeed"
                ActiveSheet.Cells(1, 4) = "RPM"
                
                ActiveSheet.Cells(1, 5) = "Volt"
                ActiveSheet.Cells(1, 6) = "TempC"
                ActiveSheet.Cells(1, 7) = "RxVolt"
                ActiveSheet.Cells(1, 8) = "Altitude"
                ActiveSheet.Cells(1, 9) = "Current"
                ActiveSheet.Cells(1, 10) = "AHold"
                ActiveSheet.Cells(1, 11) = "BHold"
                ActiveSheet.Cells(1, 12) = "RHold"
                ActiveSheet.Cells(1, 13) = "LHold"
                ActiveSheet.Cells(1, 14) = "FrameLoss"
                ActiveSheet.Cells(1, 15) = "Holds"
                
                'ActiveSheet.Cells(1, 1) = "Time stamp"
                ActiveSheet.Cells(1, 1) = "Seconds"
                
                
                
                ' Read data
                intCellRow = 1
                ' Reset controls
                DataByteToRead = 20
                ' Reset info
                DataTime(1) = 0
                DataTime(2) = 0
                DataTime(3) = 0
                DataTime(4) = 0
                Speed = 0
                MaxSpeed = 0
                RPM = 0
                Volt = 0
                TempC = 0
                RxVolt = 0
                Altitude = 0
                AltitudeInt = 0
                AltitudeSign = 0
                Current = 0
                Txinfo = 0
                PrevDataTime = 0
                Deltatime = 0
               

            End If
            DataMode = 0
            DataByte = 0
        End If

    Loop
    Close intFileNum
End Sub