Proyecto ISP AT89S51/52

[[egostar]]

Aún no tengo claro el asunto este pero el problema no estará aquí

Código Delphi [-]
if k <= 16 then begin //Si le pones 17 que pasa?
   StringGrid1.Cells[k,q] := IntToHex(Buffer[i],2);
   Inc(k);
end
else begin
       //Vuelvo a la primera columna, bajo una fila
       k := 1;
       Inc(q);
       StringGrid1.Cells[k,q] := IntToHex(Buffer[i],2);
end;

Salud OS

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[egostar]]

Empezado por JoseFco

Hola egostar. eso lo probe el otro dia con 17 y 14. Con 17 dejo de perder un byte y entonces pierdo dos. con 14 no recuierdo bien pero tampoco trabaja asi.
Con 16 me pone la primera linea perfecta: 00 12 00 72 12 00 7E B4 80 04 80 34 80 F6 75 A0
La segunda linea debe ser asi ---------- (FE)12 00 AF 75 A0 FD 12 00 AF 75 A0 FB 12 00 AF
El primer caracter de la segunda linea se pierde y la data gana un paso o sea se corre un grid.
Un Saludo.

El problema que tienes amigo [pepe-paco], es que se te está olvidando que las celdas del stringgrid comienza de 0, intenta hacerlo con este código, obviamente solo estoy enviando los primeros 30 caracteres, modificalo a manera de que lea todos los caracteres del Buffer

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j,indice: integer;
begin
  indice := 1; //Suponiendo que buffer sea un array de 1...x 
  for i := 1 to 2 do begin  //2 renglones, cambialo a los renglones que esperas
     for j := 1 to 15 do begin //15 columnas
         stringgrid1.Cells[j,i] := inttohex(Buffer[indice],2);
         inc(indice);
     end;
  end;
end;

Salud OS

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[egostar]]

Empezado por JoseFco

Aqui esta el resultado esperado:

Tenia una semana con ese problema y no se dejaba.
Bueno un problema menos y algo mas aprendido.

Un Saludo.

Pues me alegra brother, sobre todo que cada dia se aprenda algo, eso es lo mas importante

Solo un comentario off-topic si me lo permites, ese colorcito de la tabla me parece un poco duro para la vista

Salud OS

[JoseFco]

"Tolomeo se mudo al Polo Norte"