Widzieliśta to ??? A może to już "stare" ? - Strona 3

No i tak...COM-a faktycznie w laptoptoku nie mam! Niestety konwertery USB/COM są nie tanie /od ok.100zł/ i też nie zawsze podobno się sprawdzają ! Idealnym i najtańszym rozwiązaniem było by opanowanie /opracowanie/ przejściówki LPT/COM ....ja widzę, że problem COM-a jest głębszy bo nie dot tylko tego "interfejsu"...znajomy elektryk też poszukuje rozwiązania LPT na COM /ma programy diagnost. +interfejs do VW Audi ...potrzebny jest port COM do podłączenia ustrojstwa a niestety....w jego laptopkach też już nie być!!!...a przez wariata" USB/COM też nie chce program "odpalić

Cytat:

2003-10-17 01:09:52, Slenna pisze: TxD (3) - do jakiego pinu COMa ?? (??) RxD (2) - do jakiego pinu COMa ?? (??) GnD (5) - do jakiego pinu COMa ?? (7) ??

2,3 i 5.
Zgodnie ze schematem com-a wejście, wyjście danych i zero.

Jak patrzysz na stabilizator od strny napisów (nózki w dole - oczywiście stabilizatora ) to od lewej:
Wejście czyli 12V
Masa czyli GND
Wyjście czyli 16 nóżka scalaka MAX232

DZIĘ-KU-JE-MY !!

mi mi mi mi...przeslij go mi....dolechnowicz@tlen.pl dzieki!

nie programik a kod zrodlowy...czyli programik przed kompilacja

A dokładniej:


PROGRAM ALDLMonitor; {Version 1.01 vom 09.04.2002 }

{+++++++++++++++++++++++++++++++++++++++++++++++++++++ }
{ Diagnose-Programm für ALDL, GM 1227730, von C. Meyer }
{ in Turbo Pascal ab Version 5.0 }
{+++++++++++++++++++++++++++++++++++++++++++++++++++++ }

{$N- G- X+}

USES
Crt, Dos, ns16550, aldldefn, aldlscrn;

procedure InitLogfile (newName:String);
CONST
days : ARRAY [0..6] OF STRING [9] =
('Sunday', 'Monday', 'Tuesday',
'Wednesday', 'Thursday', 'Friday',
'Saturday');
VAR
yr, mn, dy, dow : WORD;
Ps: PathStr;
Ds: DirStr;
Ns: NameStr;
Es: ExtStr;

begin
Ps:=newName;
GetDate (yr, mn, dy, dow);
{ if none supplied, create default logfile name from date, ALDLmmdd.DAT }
if Ps = '' then
logFileExtName := Concat (logFileNamePrefix, LeadZstr (mn), LeadZstr (dy), '.dat')
else
begin
logFileExtName:=Ps;
FSplit (Ps, Ds, Ns, Es);
if Es = '' then
logFileExtName := logFileExtName+'.dat';
end;
Assign (logFile, logFileExtName);
{$I-} Reset (logFile); {$I+}
{ create logfile if it does not exist yet }
IF IOResult <> 0 THEN
BEGIN
Rewrite (logFile);
WriteLn (logFile, 'Data logged on ', days [dow], ', ', mn:0, '/', dy:0, '/', yr:0);
END;
Close (logFile);
ErrStr (concat ('Using logfile ', logFileExtName));
end;

PROCEDURE InitBuf;
{ Initialisierung des Input-Buffers }
VAR
i: INTEGER;
BEGIN
FOR i := 0 TO 15 DO
BLMarray [i] := 0;
FOR i := 0 TO bufftop DO
inBuff[i]:=0;
end;

PROCEDURE Init;
{ Initialisierung der Variablen usw. }
VAR
i: INTEGER;
yr, mn, dy, dow : WORD;
korrekt, elapsed: real;

BEGIN
InitBuf;
i := comnum;
ParamFileExtName := '';
LogFileExtName := '';
IF ParamCount = 1 THEN
BEGIN
IF ParamStr (1) = '-1' THEN
i := 1
ELSE
IF ParamStr (1) = '-2' THEN
i := 2
ELSE
ParamFileExtName := ParamStr (1);
END;
IF ParamCount = 2 THEN
BEGIN
ParamFileExtName := ParamStr (1);
IF ParamStr (2) = '-1' THEN
i := 1;
IF ParamStr (2) = '-2' THEN
i := 2;
END;
initCom (i, 8192, '8n1');
switch16550 (i, 14); { FIFO ein }
Window (1, 1, 80, 25);
TextBackground (black);
TextColor (white);
ClrScr;
logOn := FALSE;
replay := FALSE;
ErrNum := NoErr;
hex := TRUE;
TextBackground (white);
TextColor (black);
{WriteLn ('****************** ECM 730 ALDL-Monitor by Carsten Meyer ***********************');}
WriteLn ('ECM 730 ALDL-Monitor V. #1.05 by C. Meyer 4/2002 ');
StatusStr ('Initialized at 8192 bps, COM'+Chr (ComNum+4);
disp := 'D';
GetTime (hr, mn, sec, hnd);
lastsec := sec;
END;


PROCEDURE MsgReq;
{requests complete msg from ECM}
BEGIN
sendcom ($F4);
sendcom ($57);
sendcom ($01);
sendcom ($00);
sendcom ($B4);
END;

PROCEDURE ClrMalfReq;
{requests erasure of stored MALFs}
BEGIN
sendcom ($F4);
sendcom ($56);
sendcom ($0A);
sendcom ($AC);
END;

FUNCTION getECMmsg:ErrType;
VAR
j, chksum:INTEGER;
getECMtErr:Errtype;
BEGIN
inPtr := 0;
inBuff [0] := 0;
inBuff [5] := 0;
getECMtErr := NoErr;
MsgReq; { request ECM message block }
Delay (100); { wait for input buffer to be filled by ECM }
IF (inptr > 0) THEN
{Error checking: chars received?}
BEGIN
IF inBuff [5] <> $F4 THEN
getECMtErr := noResp { ECM not responding }
ELSE
BEGIN
IF inPtr <> 72 THEN
getECMtErr := EndMiss; { Unexpected end of ALDL response }
END;
END
ELSE
getECMtErr := CableMiss; { Cable or interface missing }
{Error checking: checksum OK?}
IF getECMtErr = noErr THEN
BEGIN
chksum := 0;
FOR j := 5 TO 70 DO
chksum := chksum+inBuff [j];
chksum := (NOT chksum)+1;
IF (chksum AND $FF) <> inBuff [71] THEN
BEGIN
getECMtErr := Checksum; { Checksum error }
END;
END;
getECMmsg := getECMtErr;
END;

PROCEDURE AppendLogFile;
{ append input buffer data string to log file }
VAR
j:INTEGER;

BEGIN
Append (logFile);
GetTime (hr, mn, sec, hnd);
Writeln (logFile, 'Time:');
Writeln (logFile, LeadZstr (hr), ':', LeadZstr (mn), ':', LeadZstr (sec), '.', LeadZstr (hnd));
Write (logFile, 'Raw data:');
FOR j := offs TO offs+msglen DO
Write (logFile, Chr (13), inBuff [j]);
Write (logFile, Chr (13), 'BLM cells:');
FOR j := 0 TO 15 DO
Write (logFile, Chr (13), BLMArray [j]);
WriteLn (logFile);
Close (logFile);
END;

function getDataFromLogfile: Boolean;
var
TimeStr, DataStr:String;
j:Integer;
Eologfile: boolean;

{ get Data from log file and fill in input buffer, returns TRUE if data present }
BEGIN
Eologfile := Eof (logfile);
if not Eologfile then
begin
Readln (logfile); { overread item 'Time:' }
Readln (logfile, TimeStr);
ErrStr (concat ('Data logged at Time: ', TimeStr));
Readln (logfile); { overread item 'Raw Data:' }
FOR j := offs TO offs+msglen DO
Readln (logFile, inBuff [j]);
Readln (logfile); { overread item 'BLM cells:' }
FOR j := 0 TO 15 DO
Readln (logFile, BLMarray [j]);
end
else
ErrStr ('End of logfile!');
getDataFromLogfile := not Eologfile;
END;

PROCEDURE initreplay;
VAR
DateStr:String;
{ open logfile and set pointer to begin }
BEGIN
Assign (logFile, logFileExtName);
{$I-} Reset (logFile); {$I+}
Readln (logfile, DateStr);
if not getDataFromLogfile then
ErrStr ('Logfile is empty!')
else
ErrStr (DateStr);
END;

PROCEDURE exitreplay;
{ close logfile }
BEGIN
if replay then
{$I-} close (logfile); {$I+}
END;

PROCEDURE newLogFilename;
var
aStr:String;
{ request new logfile name }
BEGIN
Window (1, 3, 80, 24);
TextBackground (black);
TextColor (white);
ClrScr;
GotoXY (1, 3);
exitreplay;
Write('Enter logfile name: ');
Readln(aStr);
Init;
InitLogFile (aStr);
delay(500);
END;


BEGIN
Init;
InitLogFile (ParamFileExtName);
help (3000);
z:=0;
REPEAT
if replay then
repeat until KeyPressed;
IF KeyPressed THEN
BEGIN
if not replay then
ErrStr ('');
Window (1, 3, 80, 24);
TextBackground (black);
TextColor (white);
ClrScr;
GotoXY (1, 1);
ch := ReadKey;
z := BYTE (ch);
CASE ch OF
' ':
BEGIN
IF respOK THEN
BEGIN
ErrStr (Concat ('Data logged to ', logFileExtName));
AppendLogFile;
Delay (200);
ErrStr ('');
END;
IF replay THEN
logfileEnded:=getDataFromLogfile;
END;
'l', 'L':
logOn := NOT logOn;
'h', 'H':
help (30000);
'x', 'X':
BEGIN
hex := TRUE;
disp := 'R';
END;
'o', 'O':
newLogFilename;
'p', 'P':
BEGIN
IF replay THEN
exitreplay
ELSE
initreplay;
replay := NOT replay;
END;
'r', 'R':
BEGIN
hex := FALSE;
disp := 'R';
END;
'e', 'E':
BEGIN
ClrMalfReq;
ErrStr ('MALF codes erased');
END;
ELSE
disp := ch;
END;
END;

IF replay THEN
BEGIN
ErrNum := NoErr;
respOK := FALSE;
END
ELSE
BEGIN
ErrNum := getECMmsg;
respOK := (ErrNum = NoErr);
END;

CASE disp OF
'R':
RawDisplay (hex);
'D':
DecDisplay;
'M','m':
MalfDisplay;
'1':
MiscDisplayA;
'2':
MiscDisplayB;
'3':
MiscDisplayC;
'g', 'G':
GraphDisplay;
ELSE
DecDisplay;
END;

{ save variables and buffer for recording }
IF respOK THEN
BEGIN
BLMcell := inBuff [offs+20];
BLMarray [BLMcell] := inBuff [offs+19];
IF logOn THEN
BEGIN
ErrStr (Concat ('Data logged to ', logFileExtName));
GetTime (hr, mn, sec, hnd);
IF (lastsec <> sec) THEN
BEGIN
AppendLogFile;
lastsec := sec;
END;
END
ELSE
ErrStr ('');
END;
CASE ErrNum OF
CableMiss:
ErrStr ('Cable or interface missing');
NoResp:
ErrStr ('ECM not responding');
Checksum:
ErrStr ('Data stream checksum error');
EndMiss:
ErrStr ('Unexpected end of data stream');
END;
UNTIL (z = 27) OR (z = Ord ('q')) OR (z = Ord ('Q')); { ESC oder q }
exitreplay;
TextBackground (black);
TextColor (white);
Window (1, 1, 80, 25);
ClrScr;
END.

Domiknik i zwroć uwagę na to:

Included sources:

aldldefn.pas Defines
aldlscrn.pas Screen output routines, toolbox subroutines
aldlmon.pas Main program

Slenna wszystko ok tylko niestety sie nie zrozumieliscie ...mi chodzilo o kod zrodlowy programu GM-monitor(link do niego podalem gdzies wczesnie a to jest program aldl-monitor ktory niestety nie odczytuje poprawnie zadnego parametru z naszych autek...ten kod tluklem juz kiedys ale nic z tego ale za to dzial na pewno na Camaro z28 kontaktowalem sie z tym Carstenem nawet mi przusyal jakis update do tego progsa ale dalej kicha....
Jedyny program ktory dziala to gmmonitor(przetestowalem juz naprawde wiele lacznie z autorskim projektem qbkoguta z naszego forum) takze chodzi mi o kod zrodlowy tego programu...kod musi gdzies byc bo gosc ktory sprzedaje go na allegro musi go miec, wstawil tylko polskie nazwy wskazan i juz...za zmiana portu tez nie bylo by problemu...gdyby tylko znalzl sie kod zrodlowy..najlepiej w C lub C++

opis wszystkich parametrow i ops wartosci jest w kasiazce serwisowej...sprawdze na ktorej stronie i podam