Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebna mala pomoc

[es] :: Pascal / Delphi / Kylix :: Potrebna mala pomoc

[ Pregleda: 3717 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

wintesla
wintesla
SAE
Cuprija

Član broj: 9763
Poruke: 1013
91.150.116.*



+1 Profil

icon Potrebna mala pomoc02.12.2007. u 23:37 - pre 198 meseci
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 [email protected]
ICQ 125449765
 
Odgovor na temu

wintesla
wintesla
SAE
Cuprija

Član broj: 9763
Poruke: 1013
77.46.195.*



+1 Profil

icon Re: Potrebna mala pomoc04.12.2007. u 10:21 - pre 198 meseci
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.



 
Odgovor na temu

wintesla
wintesla
SAE
Cuprija

Član broj: 9763
Poruke: 1013
77.46.251.*



+1 Profil

icon Re: Potrebna mala pomoc04.12.2007. u 21:35 - pre 198 meseci
Niko?
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
77.46.204.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Potrebna mala pomoc04.12.2007. u 23:53 - pre 198 meseci
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?
 
Odgovor na temu

wintesla
wintesla
SAE
Cuprija

Član broj: 9763
Poruke: 1013
77.46.254.*



+1 Profil

icon Re: Potrebna mala pomoc05.12.2007. u 07:55 - pre 198 meseci
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.
 
Odgovor na temu

wintesla
wintesla
SAE
Cuprija

Član broj: 9763
Poruke: 1013
77.46.195.*



+1 Profil

icon Re: Potrebna mala pomoc07.12.2007. u 22:49 - pre 198 meseci
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?
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Potrebna mala pomoc

[ Pregleda: 3717 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.