通过本函数, 可以在labview编程平台进行串口的数据读写, 监控串口数据,发送命令.
对232和485连接通用. 可以代替串口调试助手的功能
2022-04-06 13:43:05
44KB
1
在Linux下对串口（1,2,3,4）进行读写，发送数据，并且单独对串口进行设置，比如波特率，数据长度，停止位，还有阻塞不阻塞的模式设置，并且编写了makefile，难够轻松编译。整个程序是以函数的形式写的，注释清楚。
2022-03-23 21:30:11
12KB
1
基于WINDOWS API函数的串口读写小程序，应用CreateFile,ReadFile,WritFile 实现数据的发送和接收，功能简单，但是对于初学者很实用。
2022-03-01 15:50:48
3.51MB
1
1、采用异步方式读取串口；
2、使用回调方式将数据回调给调用程序，这样模块化更好；
3、经过长时间的死循环测试；
4、提供调用demo以供参考。
2022-03-01 15:50:08
7KB
1
Linux c 串口数据读写，里面有详细的代码介绍，包括串口设置，设置效验函数，实现串口数据的读取demo，初学者可以参考下。
2022-02-15 12:39:48
10KB
1
Uart串口读写实验Cyclone10 FPGA实验Verilog源码Quartus17.1工程文件+文档资料, FPGA为CYCLONE10LP系列中的10CL025YU256C8. 完整的Quartus工程文件，可以做为你的学习设计参考。
module uart_test(
input clk,
input rst_n,
input uart_rx,
output uart_tx
);
parameter CLK_FRE = 50;//Mhz
localparam IDLE = 0;
localparam SEND = 1; //send HELLO ALINX\r\n
localparam WAIT = 2; //wait 1 second and send uart received data
reg[7:0] tx_data;
reg[7:0] tx_str;
reg tx_data_valid;
wire tx_data_ready;
reg[7:0] tx_cnt;
wire[7:0] rx_data;
wire rx_data_valid;
wire rx_data_ready;
reg[31:0] wait_cnt;
reg[3:0] state;
assign rx_data_ready = 1'b1;//always can receive data,
//if HELLO ALINX\r\n is being sent, the received data is discarded
always@(posedge clk or negedge rst_n)
begin
if(rst_n == 1'b0)
begin
wait_cnt <= 32'd0;
tx_data <= 8'd0;
state <= IDLE;
tx_cnt <= 8'd0;
tx_data_valid <= 1'b0;
end
else
case(state)
IDLE:
state <= SEND;
SEND:
begin
wait_cnt <= 32'd0;
tx_data <= tx_str;
if(tx_data_valid == 1'b1 && tx_data_ready == 1'b1 && tx_cnt < 8'd12)//Send 12 bytes data
begin
tx_cnt <= tx_cnt + 8'd1; //Send data counter
end
else if(tx_data_valid && tx_data_ready)//last byte sent is complete
begin
tx_cnt <= 8'd0;
tx_data_valid <= 1'b0;
state <= WAIT;
end
else if(~tx_data_valid)
begin
tx_data_valid <= 1'b1;
end
end
WAIT:
begin
wait_cnt <= wait_cnt + 32'd1;
if(rx_data_valid == 1'b1)
begin
tx_data_valid <= 1'b1;
tx_data <= rx_data; // send uart received data
end
else if(tx_data_valid && tx_da
2021-12-11 21:02:02
4.26MB
delphi串口读写台达plc PLC台达DELPHI通讯MODBUS
procedure TfrmMain.btnReadMClick(Sender: TObject);
var
sStr:String;
i:Integer;
begin
for i:= 0 to 1279 do
Begin
kmtPLC.SendData('0102'+IntToHex(i+$800,4)+'0001'); //取输出状态
sStr:=kmtPLC.ReadResFromPort();
if sStr'' then
Begin
memo1.Lines.Add('M'+IntToHex(i,4)+'-'+FormatFloat('0000',i)+'-'+Copy(sStr,1,Length(sStr)-2));
End;
End;
end;
procedure TfrmMain.SpeedButton4Click(Sender: TObject);
var
sStr:String;
begin
kmtPLC.SendData('0103'+IntToHex(StrToInt(edtDAddr.Text)+$1000,4)+'0001');
sStr:=kmtPLC.ReadResFromPort();
if sStr'' then
Begin
edtDValue.Text:=sStr;
End;
end;
2021-11-29 14:27:45
657KB
1