[es] - Potrebna mala pomoc

wintesla
wintesla
Cuprija

Član broj: 9763
Poruke: 1011
91.150.116.*

Sajt: cardiagnosticsolution.com

Profil

^{02.12.2007. u 23:37}

Ko ima 15 minuta vremena i koristi MSN ili ICQ neka se javi.(ne mogu da podesim JABER)
Potrebna pomoc oko pisanja skripte.

P.S.Jeste da ne znam nista oko ovoga(ko priznaje pola mu se dodaje), ali mogu dosta brzo da ukapiram(bar se nadam).
P.S.S.necu mnogo da davim

Pozdrav

MSN boki_je@yahoo.com
ICQ 125449765

^{02.12.2007. u 23:37}

wintesla
wintesla
Cuprija

Član broj: 9763
Poruke: 1011
77.46.195.*

Sajt: cardiagnosticsolution.com

Profil

Re: Potrebna mala pomoc

^{04.12.2007. u 10:21}

Ajd, posto nikog nema da pitam ovako mozda neko i odgovori.

Ako neko moze da mi postavi primer za sledece

Imam fajl u .bin formatu i treba da procitam odredjeni deo fajla i da ga prikazem u decimalnom zapisu.
Sada mi cita i prikazuje u u hex-u.

Trenutno je

Program Prog1;
var Read_A, A1, A2, A3, Write_A, A: string;
procedure ReadA;

begin
if not ReadDevice then begin
MsgBox( 'Read Error', 'Error', MB_OK );
end
else
begin
A1:=inttohex(GetByteHexEdit($E8),2);
A2:=inttohex(GetByteHexEdit($E7),2);
A3:=inttohex(GetByteHexEdit($E6),2);
Read_A:=A1+A2+A3;
MsgBox( Read_A, 'Read_A', MB_OK or MB_ICONINFORMATION );
Read_A := 'ewqwe';
end;
end;

i tako dobijam u hex-u.Kako da mi pokazuje u decimalnom zapisu.
Na primer

hex = dec
01E0DC = 123100

I isto tako mi treba primer kako izracunati 8bit cheksum.

Na primer
22 11 = 8bit cheksum je 33
65 05 = 8bit cheksum je 6A
64 07 = 8bit cheksum je 6b

Ovo je prvi deo problema.Kad savladam mislim da cu imati jos par pitanja, ali mozda i zavrsim ostatak sam.

^{04.12.2007. u 10:21}

wintesla
wintesla
Cuprija

Član broj: 9763
Poruke: 1011
77.46.251.*

Sajt: cardiagnosticsolution.com

Profil

Re: Potrebna mala pomoc

^{04.12.2007. u 21:35}

Niko?

^{04.12.2007. u 21:35}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 504
77.46.204.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Potrebna mala pomoc

^{04.12.2007. u 23:53}

Posle samo 2 minuta druzenja sa cika Google-om nasao sam ovu funkciju za prebacivanje hexadecimalnih brojeva u decimalne:

Code:
function HexToInt(HexNum: string): LongInt;
begin
Result:=StrToInt('$' + HexNum) ;
end;

samo joj prosledi string sa hex brojem i vratice ti int tog hex broja. npr.:

Code:

var broj: lingint;
begin
broj:= HexToInt('AAD123');
end;

Ni drugi deo nije problem, ali sad ne mogu da pisem resenje posto sam premoren, tj. mozak mi vec spava :)...

Sutra... ;)

Samo mi reci odakle dobijas, tj. u kom formatu ih imas u programu ove brojeve:

22 11
65 05
64 07

Da li su ti u nekom stringu ili kako vec?

ex Strog

http://www.zeussoftware.rs

^{04.12.2007. u 23:53}

wintesla
wintesla
Cuprija

Član broj: 9763
Poruke: 1011
77.46.254.*

Sajt: cardiagnosticsolution.com

Profil

Re: Potrebna mala pomoc

^{05.12.2007. u 07:55}

Hvala za ovo prvo .
Snaci cu se valjda.

Za drugo , ovo su delovi fajla gde se to nalazi

0000D0 : 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0000E0 : 00 00 00 00 00 00 00 64 07 6B 00 00 00 00 00 00
0000F0 : 00 64 07 6B 00 00 00 00 00 00 00 00 00 00 00 00

ili

0000D0 : 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0000E0 : 00 00 00 00 00 00 00 65 05 6A 00 00 00 00 00 00
0000F0 : 00 65 05 6A 00 00 00 00 00 00 00 00 00 00 00 00

ili

0000D0 : 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0000E0 : 00 00 00 00 00 00 00 22 11 33 00 00 00 00 00 00
0000F0 : 00 22 11 33 00 00 00 00 00 00 00 00 00 00 00 00

P.S.Nisam ja u ovim vodama pa da znam sta trazim od cika Googla.Muka me je naterala na pravljenje ovoga .I sad sto bi neko sve ovo sta ja radi napravio za 3-4 dana meni ce trebati 1-2 meseca.

^{05.12.2007. u 07:55}

wintesla
wintesla
Cuprija

Član broj: 9763
Poruke: 1011
77.46.195.*

Sajt: cardiagnosticsolution.com

Profil

Re: Potrebna mala pomoc

^{07.12.2007. u 22:49}

Nikako da odradim po ovom primeru

Code:
function HexToInt(HexNum: string): LongInt;
begin
Result:=StrToInt('$' + HexNum) ;
end;

Code:

var broj: lingint;
begin
broj:= HexToInt('AAD123');
end;

A sta bi za racunanje cheksuma?

^{07.12.2007. u 22:49}