J1850 VPW Erfahrung?

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Doch, eine Buchse ist da. Sehe ich jetzt erst. a_45_132ca9f5 Die Dateinamen der Bilder ist die Auflösung.

      Sorry wegen dem Code. Hier nochmal komplett:

      BASCOM Source Code

      1. ' Empfänger VPW von Pac-Man modifiziert
      2. ' Nicht vollständig (Timer-ISR)
      4. $regfile = "m328pdef.dat"
      5. $crystal = 8000000
      6. $hwstack = 60
      7. $swstack = 60
      8. $framesize = 100
      9. $baud = 38400
      12. 'Dim Myframe , Dummyframe As String * 24 'Frame und Dummy für berechnung
      13. '
      14. Dim Mybyte As Byte 'erkannte Bits als byte
      15. Dim Bitcounter As Byte 'zähler für die Bits
      16. Dim Timerwert As Byte 'wert des Zählers
      18. Dim Myframe(8) As Byte
      20. 'Dim Bytewert(8) As Byte
      21. Dim Bytecounter , Dummybytecounter As Byte
      22. Dim I As Byte 'schleifenzähler
      24. 'Flags
      25. 'Dim Byte_da As Byte
      26. Dim Frame_da As Byte
      28. Declare Sub Frame_bearbeiten
      30. Led_gruen Alias Portc.0 : Config Led_gruen = Output
      31. Led_rot Alias Portc.1 : Config Led_rot = Output
      34. '############################################# serielle
      35. Const Pc = 1
      36. Open "COM1:" For Binary As #pc
      39. '########################################################### Timer
      40. 'OCR0 = f_cpu / (1024 * f_timer)
      41. Config Timer0 = Timer , Prescale = 8 , Clear Timer = 1 , Compare A = Disconnect '1uS
      42. Ocr0a = 240
      43. Enable Oc0a
      44. On Oc0a Timer_0
      47. '########################################################### PC-Interrupt
      48. Bus_in Alias Pinb.0 : Config Bus_in = Input : Portb.0 = 1
      49. Pcmsk0 = &B00000001 'Pcmsk0=pcint(0-7) Pcmsk1=pcint(8-14) ...
      50. Enable Pcint0
      51. On Pcint0 Read_bit 'bit einlesen
      54. '####################################################################################################
      55. Led_rot = 1 : Led_gruen = 1 : Wait 2 : Led_rot = 0 : Led_gruen = 0 'reset erkennen
      58. Enable Interrupts
      59. Do
      61. If Frame_da = 1 Then
      62. Frame_da = 0
      63. Frame_bearbeiten
      65. End If
      67. Loop
      68. End
      70. '########################################################## Subs
      72. Sub Frame_bearbeiten
      73. Local Header As String * 4 'zwei ersten headerbytes zur identifikation vom frame
      74. Local Result As Word : Result = 0 'ergebnis berechnung
      77. Header = Hex(myframe(1)) + Hex(myframe(2))
      78. Select Case Header
      79. Case "281B" 'RPM
      80. Result = Makeint(myframe(6) , Myframe(5))
      81. Result = Result / 4
      82. Print #pc , "RPM " ; Result
      83. Case "4829" 'Speed
      84. Result = Makeint(myframe(6) , Myframe(5))
      85. Result = Result / 128
      86. Print #pc , "Speed " ; Result
      87. Case "A849" 'temp
      88. Result = Myframe(5) - 40
      89. Print #pc , "TEMP " ; Result
      92. End Select
      95. End Sub
      98. Read_bit:
      99. Timerwert = Timer0
      100. Timer0 = 6
      101. Start Timer0
      103. '64uS "H" oder 128uS "L" => Bit=1
      104. '64uS "L" oder 128uS "H" => Bit=0
      105. 'SOF 200uS "H"
      106. 'EOD 200uS "L"
      107. 'EOF 280uS "L"
      109. Select Case Timerwert
      110. Case Is < 40
      111. 'Start Timer0
      113. ' Kurzer Bit-Inpuls
      114. Case 34 To 96 ' 34µs bis 96µs (nominell 64µs)
      115. If Bus_in = 1 Then ' Bitwert 0
      116. Mybyte = Mybyte * 2
      117. Else ' Nitwert 1
      118. Mybyte = Mybyte * 2
      119. Incr Mybyte ' +1 rechnen
      120. End If
      122. Incr Bitcounter ' Bit zählen, wenn es hinzugefügt wird
      124. ' Langer Bit-Impuls
      125. Case 96 To 163 ' 96µs bis 163µs (nominell 128µs)
      126. If Bus_in = 1 Then ' Bitwert 1
      127. Mybyte = Mybyte * 2
      128. Incr Mybyte ' +1 rechnen
      129. Else ' Bitwert 0
      130. Mybyte = Mybyte * 2
      131. End If
      133. Incr Bitcounter ' Bit zählen, wenn es hinzugefügt wird
      135. ' SOF-Inpuls
      136. Case 163 To 239 ' 163µs bis 239µs
      137. If Bus_in = 0 Then ' Pegel ist Low nach SOF-Impuls
      138. Bitcounter = 0
      139. Mybyte = 0
      142. End If
      145. End Select
      148. If Bitcounter = 8 Then
      149. Bitcounter = 0
      151. Incr Bytecounter
      152. Myframe(bytecounter) = Mybyte
      153. End If
      157. Return
      160. Timer_0:
      161. Stop Timer0
      162. Dummybytecounter = Bytecounter
      163. Bytecounter = 0
      164. Frame_da = 1 'frame empfangen
      165. 'Toggle Led_gruen
      166. Return
      Display All

    • Pac-Man wrote:

      Denke ist weniger rechenintensiv.
      Ein bisschen, jedoch würde ich auf die String völlig verzichten:

      Source Code

      1. $lib "mcsbyteint.lib" 'dreifach schnellere Umrechnung Binär zu String
      3. Dim Myframe(8) As Byte
      4. Dim Headword As Word At Myframe Overlay
      5. Dim W As Word ' deutlich schneller als mit Local
      7. Sub Frame_bearbeiten
      8. Select Case Headword ' Low und Highbyte tauschen da Bascom Low first
      9. Case $1b28 'RPM "281B"
      10. W = Makeint(myframe(6) , Myframe(5))
      11. W = W / 4
      12. Print "RPM " ; W
      13. Case $2948 'Speed "4829"
      14. W = Makeint(myframe(6) , Myframe(5))
      15. W = W / 128
      16. Print "Speed " ; W
      17. Case $49a8
      18. Print "TEMP " ; Myframe(5) - 40 'Temp "A849"
      19. End Select
      20. End Sub
      Display All
      Zur Zeit braucht das Print die meiste Zeit dazu noch der Usart mit nur 34,8k . Da es so trotzdem läuft ist es nicht zeitkritisch.
      Da kann auch Dein String Code erhalten bleiben. Wichtiger ist das Du auch nach men Jahr noch duchblickst.

      Ein wenig Sorgen macht mir die Länge vom Myframe, bzw das kein Maximum abgefangen wird. Wenn eine Nachricht länger wird oder durch Störungen kein Ende erkannt dann schreddert die Empfangs isr den folgenden Ram. Da sollte das
      'Incr Bytecounter' vielleicht mit 'If Bytecounter < 8 then Incr Bytecounter' ergänzt werden.

      Die case werden nacheinander abgefragt solange bis eins zutrifft, danach die anderen nicht mehr. Das leere case <40 sorgt dafür das ein Puls von 39 nichts bewirkt. Das Case 34 to 96 greift so erst ab 40. Ein 'case is < 96' hätte die selbe Wirkung mit weniger Aufwand für den 328 (Er braucht dann nicht auf 34 zu prüfen)

      Ps Der spricht ja wirklich ohne Ende. Dagegen ist Sonic schweigsam :D
      PPS Vorsicht wenn es getunt wird zeigt Dein Tacho Geschwindigkeiten über 511 nicht richtig an a_38_b45e201d