Witam mam pytanko czy ktoś jest w posiadaniu pełnej dokumentacji do komputera pokładowego. Chodzi mi dokładnie o schemat płytki, liste elementów i jakiś program do tego, bo wszystkiego jest tu tyle, że już nie wiem co będzie działać a co nie.
'stała wtrysku: 0,00317 l/s
'stała czujnika prędkości: 16 imp/m
'samochód: fiat siena 1.6 16V
'wtryskiwacze: IWP001
$regfile = "m16def.dat"
$crystal = 16000000
Dim Impw As Word 'impulsy wtryskiwacza
Dim Predkosc As Byte
Dim Impp As Byte 'impulsy predkosci
Dim D As Single
Dim Zuzycie As Single
Dim Srednie As Single
Dim K As Byte
Dim Ds As Word
Dim Droga As Word
Dim Droga1 As Long
Dim Zustr As String * 4
Dim Srstr As String * 4
Dim Droga1str As String * 6
Dim Wymiana As Long
Dim Insp As Byte
Dim Wymianastr As String * 8
Dim Eko As Word
Dim Czasstr As String * 4
Dim P As Word
Dim Czas As Single
Config Portb.0 = Input
Config Portb.1 = Input
Config Portb.2 = Output
Config Portb.3 = Input
Config Portb.7 = Input
Set Portb.0
Set Portb.1
Reset Portb.2
Set Portb.3
Set Portb.7
Config Portd = Output
Config Lcdbus = 4
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pd.7 , Db5 = Pd.6 , Db6 = Pd.5 , Db7 = Pd.4 , E = Pd.3 , Rs = Pd.2
Config Timer1 = Timer , Prescale = 64
Config Timer0 = Counter , Edge = Falling
Cursor Off
Cls
1:
Bitwait Pinb.3 , Set
Waitms 50
Set Portb.2
Cls
If Pinb.7 = 0 Then
Cls
Lcd "Kasuje przebyta"
Lowerline
Lcd "droge!"
Droga1 = 0
Wait 2
Cls
End If
K = 0
Lcd " WITAM! "
Wait 2
For K = 1 To 16
Shiftlcd Right
Waitms 200
Next K
K = 0
If Pinb.7 = 0 Then
Insp = 0
Cls
Lcd "Ustaw inspekcje."
Wait 1
Lowerline
For K = 1 To 10
Incr Insp
Wymiana = Insp * 10000
Wymianastr = Str(wymiana)
Wymianastr = Format(wymianastr , " 0.0")
Cls
Lcd "Wymina co:"
Lowerline
Lcd Wymianastr ; " km"
Waitms 1500
If Pinb.7 = 0 Then Goto 2:
Next K
K = 0
End If
2:
If Wymiana <= 0 Then
For K = 1 To 10
Cls
Lcd " Wymien olej!"
Reset Portb.2
Waitms 500
Set Portb.2
Waitms 500
Next K
K = 0
Goto Poczatek
End If
Cls
Wymianastr = Str(wymiana)
Wymianastr = Format(wymianastr , " 0.0")
Lcd "Wymiana oleju za:"
Lowerline
Lcd Wymianastr ; "km"
Wait 3
Tcnt0 = 0
Start Timer0
Poczatek:
Timer1 = 0
Start Timer1
Do
If Pinb.1 = 0 Then Incr Impw
Loop Until Timer1 = 15067
Stop Timer1
Impp = Tcnt0
Predkosc = Impp * 0.9
If Pinb.7 = 0 Then
If Ds = 0 Then Ds = 1
Srednie = Srednie / Ds
Srstr = Fusing(srednie , "00.0")
Cls
Lcd "Srednie spalanie"
Lowerline
Lcd " " ; Srstr ; " l/100km"
Wait 3
If Pinb.7 = 0 Then
Cls
Waitms 400
Goto Ekonomizer
End If
Droga1str = Str(droga1)
Droga1str = Format(droga1str , " 0.0")
Cls
Lcd "Przebyta droga:"
Lowerline
Lcd " " ; Droga1str ; " km"
Wait 3
Ds = 1
If Pinb.7 = 0 Then
Cls
Waitms 400
Goto Pomiarprzysp
End If
Goto Poczatek
End If
If Impw = 0 And Predkosc = 0 Then
Zustr = "-.-"
Goto Zbytmalapredkosc
End If
If Impw = 0 And Predkosc > 10 Then
Zustr = "0.0"
Incr Ds
Goto Zbytmalapredkosc
End If
If Predkosc < 10 Then
Zustr = "-.-"
Goto Zbytmalapredkosc
End If
Incr Ds
D = Impw * 0.20288
Zuzycie = D / Impp
Srednie = Srednie + Zuzycie
Zustr = Fusing(zuzycie , "00.0")
Zbytmalapredkosc:
Cls
Lcd "Sp:" ; Zustr ; " l/100km"
Lowerline
Lcd "Predkosc:" ; Predkosc ; "km/h"
Impw = 0
Zuzycie = 0
D = 0
Impp = 0
Droga = Droga + Tcnt0
If Droga >= 1600 Then
Incr Droga1
Droga = Droga - 1600
Decr Wymiana
End If
Tcnt0 = 0
If Pinb.3 = 0 Then
Cls
Waitms 100
K = 0
Lcd "Do widzenia..."
Wait 2
For K = 1 To 16
Shiftlcd Right
Waitms 200
Next K
Waitms 500
Reset Portb.2
Goto 1
End If
Goto Poczatek
Ekonomizer:
Timer1 = 0
Start Timer1
Do
If Pinb.1 = 0 Then Incr Impw
Loop Until Timer1 = 15067
Stop Timer1
Eko = Impw \ 500
Cls
If Eko >= 16 Then Eko = 15
If Eko = 0 Then
Lcd "Min Max"
Lowerline
Lcd "*"
Eko = 0
If Pinb.7 = 0 Then
Cls
Waitms 400
Goto Poczatek
End If
Goto Ekonomizer
End If
Lcd "Min Max"
Lowerline
Lcd Spc(eko) ; "*"
Eko = 0
Impw = 0
If Pinb.7 = 0 Then
Cls
Waitms 400
Goto Poczatek
End If
Droga = Droga + Tcnt0
If Droga >= 1600 Then
Incr Droga1
Droga = Droga - 1600
Decr Wymiana
End If
Tcnt0 = 0
Goto Ekonomizer
Pomiarprzysp:
Start Timer1
Cls
Lcd "Czekam na start"
4:
If Pinb.7 = 0 Then
Cls
Waitms 400
Goto Poczatek
End If
Timer1 = 0
Do
Loop Until Timer1 = 6200 'do ustalenia
If Tcnt0 >= 44 Then
Czas = P / 10
Cls
Lcd "Przyspieszenie"
Lowerline
Czasstr = Fusing(czas , " 0.0")
Lcd "0-100km/h : " ; Czasstr ; "s"
Wait 4
Droga = Droga + Tcnt0
If Droga >= 1600 Then
Incr Droga1
Droga = Droga - 1600
Decr Wymiana
End If
Tcnt0 = 0
'Bitwait Pind.1 , Reset
'Cls
'Waitms 400
Czas = 0
P = 0
Goto Poczatek
End If
If Tcnt0 > 1 Then
Incr P
Cls
Lcd "Licze..."
End If
Droga = Droga + Tcnt0
If Droga >= 1600 Then
Incr Droga1
Droga = Droga - 1600
Decr Wymiana
End If
Tcnt0 = 0
Goto 4
End