Spcomm串口控件的例程:
//串口初始化
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
comm1.startcomm;
end;
//关闭串口
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
comm1.StopComm;
end;
//发送数据
procedure TForm1.BitBtn1Click(Sender: TObject);{var str:string;
ch1:char;
begin
comm1.WriteCommData(ch,1);
end.
//接收数据
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
type ss=array[1..500]of char ;
var str1:^ss;
i:integer;
s:array[0..15] of char ;
n:integer;
begin
str1:=Buffer;
//s[]=('0','1','2','3'...'E')
for i:=0 to 9 do
s[i]:=chr(48+i);
for i:=10 to 15 do
s[i]:=chr(55+i);
for i:=1 to bufferlength do
begin
n:=ord(str1^[i]);
listbox1.Items.add(
inttostr(listbox1.Items.Count+1)
+' - '+s[n div 16]+s[n mod 16]);
end;
listbox1.Refresh;
if listbox1.Items.count > strtoint(form2.edit1.text)
then listbox1.Items.Clear;
end;
相关视频
相关阅读 超凡双生PC配置要求高吗 超凡双生PC配置要求一览dnf现场负责人梦露在哪 dnf梦露npc位置介绍dnf里贝在哪 dnf里贝npc位置介绍dnf寻宝小子在哪 dnf寻宝小子npc位置介绍禁用“Chrome请停用以开发者模式运行的扩展程序”教程Chrome浏览器新老版本插件安装教程 谷歌浏览器新老版本插件安装方dnf救生员在哪 dnf救生员npc位置介绍dnf和平岛导游在哪 dnf和平岛导游NPC位置一览
热门文章 没有查询到任何记录。
最新文章
编程语言排行榜2020年android studio怎么删
eclipse怎么设置编码格式 eclipse设置编码格andriod studio如何使用真机测试 andriod sandroid studio怎么生成apk android studioandroid studio如何导入jar包 android stud
人气排行 安卓模拟器BlueStacks安装使用教程编程语言排行榜2020年9月 TIOBE编程语言排行eclipse字体大小怎么设置 eclipse字体大小plsql developer怎么连接数据库 plsql deveTomcat9.0安装教程 Tomcat9.0环境变量配置方plsql developer怎么使用 plsql developerVisual Studio 2015环境搭建教程Eclipse优化设置教程 Eclipse优化设置技巧
查看所有0条评论>>