Sonsivri
 
*
Welcome, Guest. Please login or register.
Did you miss your activation email?
December 03, 2016, 06:44:06 18:44


Login with username, password and session length


Pages: [1]
Print
Author Topic: OBDII J1850 VPW AVR Started Project  (Read 5071 times)
0 Members and 1 Guest are viewing this topic.
Matrixx
Junior Member
**
Offline Offline

Posts: 35

Thank You
-Given: 59
-Receive: 16


« on: July 25, 2011, 12:32:38 00:32 »

Removed.
« Last Edit: July 30, 2011, 01:16:20 01:16 by Matrixx » Logged
hate
Hero Member
*****
Offline Offline

Posts: 556

Thank You
-Given: 156
-Receive: 354


« Reply #1 on: July 29, 2011, 12:59:31 12:59 »

An open-source OBDII (I hope) device would be nice and better than the one Elektor published without its firmware. Good luck with this.

Regards...
Logged

Regards...
Matrixx
Junior Member
**
Offline Offline

Posts: 35

Thank You
-Given: 59
-Receive: 16


« Reply #2 on: July 30, 2011, 07:55:55 07:55 »


A project I'm doing to learn about OBDII J1850 VPW.

i know, I'm trying to reinvent the wheel Smiley

But learning is great.

http://www.diyprojects.zobyhost.com/
Logged
bbarney
Moderator
Hero Member
*****
Offline Offline

Posts: 2403

Thank You
-Given: 405
-Receive: 544


Uhm? where did pickit put my mute button


« Reply #3 on: July 30, 2011, 04:05:51 16:05 »

Matrix
feel free to re-publish your project and anything else you want here and don't let the opinion of someone living under a rock discourage you
With over 400 views on the post I would have to say there is a great deal of interest in the subject no matter what the ferret seem's to think about re-inventing the wheel, which by the way engineer's do everyday

Ferret if I see you or anyone else in this forum trying to discourage or make any member feel inferior for posting any kind of project even a blinking led I will see that your account is removed and your permantly banned
Logged

Ever wonder why Kamikaze pilot's wore helmet's ?
Mega32
Active Member
***
Offline Offline

Posts: 175

Thank You
-Given: 71
-Receive: 38


« Reply #4 on: August 01, 2011, 02:52:27 14:52 »

@Matrixx

Nice project idea ..

Have a look here for inspiration etc...

http://www.mictronics.de/projects/j1850-vpw-interface/

http://www.mictronics.de/projects/usb-can-bus/

Mega32
Logged
TomJackson69
V.I.P
Active Member
*****
Offline Offline

Posts: 221

Thank You
-Given: 23
-Receive: 63


« Reply #5 on: August 01, 2011, 06:53:40 18:53 »

@Matrixx,

While you are at the beginning of the OBD II project. I think you should design the OBD that capable of interface with new car too. I think more member will be interesting and they will give you a hand.

Regards,

Tom
Logged

Con Rong Chau Tien
shailesh5
Translator
Junior Member
***
Offline Offline

Posts: 41

Thank You
-Given: 56
-Receive: 3


« Reply #6 on: August 02, 2011, 06:56:00 06:56 »

u can start with stn 1110 from scantool, lately they were sending free samples try to see with them
regards
shailesh
Logged
Matrixx
Junior Member
**
Offline Offline

Posts: 35

Thank You
-Given: 59
-Receive: 16


« Reply #7 on: August 02, 2011, 04:42:20 16:42 »

Thanks!   Smiley

Yes, vpw is a slow protocol. Maybe once I can get more familiar with vpw I will go to CAN as its newer and faster.

I'm uploaded the past files to the site.

http://www.diyprojects.zobyhost.com/ProjectFiles.htm

Currently writing TX and RX procedures to talk to PCM. I will update the page this weekend.
« Last Edit: August 12, 2011, 06:16:47 06:16 by Matrixx » Logged
Matrixx
Junior Member
**
Offline Offline

Posts: 35

Thank You
-Given: 59
-Receive: 16


« Reply #8 on: August 17, 2011, 06:35:28 06:35 »

Finally I'm getting the Send vpw subroutine to work.

I wrote a separate source to act as vpw sender, to send bytes to the previous vpw receiver. I get messed adjusting the timings for the sending routine as the loop itself added some uC cycle time making the output pulses wider, but now it is working ok.

So far this is the subs code in Bascom:

Code:
Dim Snd_str As String * 30

Snd_str = "6A7C3B35FF"
 Gosub J1850_send
 Wait 1
End  

Sub J1850_send
 Gosub Preparebytestosend
 For I = 1 To Nbytes
  If I = 1 Then
   Gosub Send_sof
  End If
  Tmpbyte = Txarray(i)
  Gosub Tx_data
 Next I
 Gosub Send_eof
End Sub

'Fill The Array with the Bytes to shorten waste time..
Sub Preparebytestosend
 Snd_qty = Len(snd_str) : Snd_qty = Snd_qty / 2             'Every Byte is represented by 2 characters
 If Snd_qty > 12 Then
  Print "Error: more than 12 bytes!"
  Waitms 500
  Exit Sub
 End If
 Print "Bytes Qty: " ; Snd_qty
 Nbytes = Snd_qty
 Print ""

 Print "Sending: ";

 Str_index = 1
 For I = 1 To Snd_qty
  Sbyte = Mid(snd_str , Str_index , 2)
  Tmpbyte = Hexval(sbyte)
'  Tmps = Bin(tmpbyte)
  Print "$" ; Hex(tmpbyte) ; " " ;
  Txarray(i) = Tmpbyte
  'Gosub Tx_data
  Str_index = Str_index + 2
 Next I
 'Gosub Send_eof
End Sub

Sub Tx_data
 For J = 7 To 0 Step -1
  If Tmpbyte.j = 1 Then
   If Last = 1 Then
    Gosub 1_low
   Else
    Gosub 1_high
   End If
  Else
   If Last = 1 Then
    Gosub 0_low
   Else
    Gosub 0_high
   End If
  End If
 Next J
End Sub

Project advance at: http://www.diyprojects.zobyhost.com/
« Last Edit: August 17, 2011, 06:43:53 06:43 by Matrixx » Logged
Matrixx
Junior Member
**
Offline Offline

Posts: 35

Thank You
-Given: 59
-Receive: 16


« Reply #9 on: August 26, 2011, 03:32:24 03:32 »

I have done good advances, hope to update page this weekend, I have had a heavy weeks  Smiley
Logged
Pages: [1]
Print
Jump to:  


DISCLAIMER
WE DONT HOST ANY ILLEGAL FILES ON THE SERVER
USE CONTACT US TO REPORT ILLEGAL FILES
ADMINISTRATORS CANNOT BE HELD RESPONSIBLE FOR USERS POSTS AND LINKS

... Copyright 2003-2999 Sonsivri.to ...
Powered by SMF 1.1.18 | SMF © 2006-2009, Simple Machines LLC | HarzeM Dilber MC