(STM32 kısmı)
Kod: Tümünü seç
HAL_UART_Transmit_DMA(&huart2,(uint8_t *)datau, sprintf(datau, "%1.0f%c%1.0f",x,split_data,y));
Kod: Tümünü seç
procedure TForm1.comportRxChar(Sender: TObject; Count: Integer);
var
rxcount : integer;
i : integer;
x_temp : string;
x, y : integer;
rxcomport : string;
begin
rxcount := comport.InputCount;
comport.ReadStr(rxcomport,rxcount);
if Pos('#',rxcomport) <> 0 then
begin
repeat
x_temp := copy(rxcomport,1,Pos('#',rxcomport));
delete(rxcomport,1,Pos('#',rxcomport));
x := StrToInt(x_temp);
until (Pos('#',rxcomport) = 0);
end;
y := StrToInt(rx_comport);
end;