您的位置:首页资讯编程开发 → Spcomm串口控件的例程

Spcomm串口控件的例程

时间:2010/2/22 11:48:00来源:本站整理作者:我要评论(0)

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优化设置技巧