智慧互联 下载中心 联系我们 关于我们 留言反馈
设为首页
收藏本站
网站导航
  首 页 培训课程 企业培训 项目合作 学员中心 技术分享 下载中心 联系方式 产品展示 淘宝店铺
  资讯检索
 
 
  课程中心

PLC类培训课程
S7-200/Smart系列培训
S7-1200/1500PLC培训
S7-300/400PLC培训
三菱Q和FX系列培训
欧姆龙CP/CJ系列培训
台达|永宏|信捷PLC培训
其他品牌PLC培训
通讯|伺服|控制器培训
分项分小专题培训
嵌入式与单片机开发
51/AVR八位单片机系列
STM32系列嵌入式培训
零基础入门课程
上位机编程
标准课程
高级课程
零基础入门课程
电类软件培训
AutoCAD应用班
AD/Protel培训
EPLAN 培训
三维与机械类软件
UG/NX建模与自动编程
SolidWorks建模与加工
自动化部品销售
工控自动化元件
PLC及周边成品

  资讯排行
1 S7-200SMAR
2 S7-1500系列P
3 PLC初学辅导-电机
4 MicroSD卡与西
5 C#利用接受事件通过
6 S7-200SMAR
7 如何用 S
8 西门子S7-1500
9 c#利用TCP/IP
10 三菱Q系列PLC以太
11 FB100和PID控
12 西门子S7-1500
13 造成PLC输出点烧坏
14 S7-200 Mod
15 自动化装备里面的工业
16 vb.net利用Se
17 TIA Portal
18 VB编写的MODBU
19 S7-200smar
20 用VB实现PLC与计
 
地区分布:滁州、安徽、宣城、池州、巢湖、六安、黄山、安庆、铜陵、芜湖、淮南、蚌埠、阜阳、宿州、合肥、马鞍山、淮北、澳门、北京、宁德、福建、泉州、漳州、龙岩、福州、南平、莆田、厦门、三明、兰州、甘肃、嘉峪关、金昌、宁夏、韶关、广东、潮州、梅州、河源、清远、珠海、汕尾、东莞、佛山、深圳、广州、汕头、湛江、江门、肇庆、云浮、阳江、茂名、中山、惠州、钦州、广西、北海、玉林、柳州、百色、贵港、梧州、柳州、桂林、南宁、贵州、遵义、六盘水、贵阳、海口、海南、三亚、琼山、文昌、琼海、万宁、通什、儋州、许昌、河南、三门峡、郑州、新乡、鹤壁、安阳、濮阳、焦作、商丘、洛阳、漯河、平顶山、南阳、信阳、济源、周口、驻马店、开封、沧州、河北、保定、石家庄、邯郸、邢台、衡水、秦皇岛、廊坊、承德、张家口、唐山、佳木斯、黑龙江、哈尔滨、齐齐哈尔、大兴安岭、大庆、鹤岗、牡丹江、伊春、宜昌、湖北、荆门、黄石、咸宁、荆州、鄂州、孝感、黄冈、十堰、随州、仙桃、天门、武汉、潜江、襄樊、益阳、湖南、常德、长沙、永州、怀化、岳阳、株洲、郴州、衡阳、湘潭、昭阳、张家界、长春、吉林、白城、吉林、四平、辽源、通化、白山、松原、扬州、江苏、苏州、无锡、常州、镇江、泰州、盐城、淮阴、宿迁、连云港、徐州、南京、南通、景德镇、江西、鹰潭、新余、萍乡、赣州、上饶、抚、宜春、九江、吉安、南昌、辽阳、辽宁、新、营口、盘锦、大连、锦州、铁岭、抚顺、丹东、鞍山、沈阳、本溪、朝阳、葫芦岛、赤峰、内蒙古、呼伦贝尔、呼和浩特、包头、银川、宁夏、石嘴山、西宁、青海、滨州、山东、青岛、日照、临沂、济宁、威海、莱芜、枣庄、菏泽、泰安、济南、烟台、潍坊、淄博、东营、德州、聊城、阳泉、山西、太原、朔州、晋城、临汾、大同、延安、陕西、宝鸡、渭南、铜川、西安、咸阳、上海、自贡、四川、南充、攀枝花、宜宾、泸州、绵阳、成都、德阳、天津、香港、乌鲁木齐、新疆、石河明、舟山、浙江、宁波、绍兴、金华、嘉兴、湖州、杭州、丽水、温州、重庆
 
 
vb.net利用SerialPort进行读取串口操作
双击自动滚屏 恒邦PLC培训机构2017-10-09 22:25:34 阅读:10656次 关注微信公众号 PLC958,获取最快捷,最有用的技术资讯
恒邦培训机构为您提供如下课程:工业组态高级应用班,垂询电话:0553-5848750,18055386918
工业组态高级应用班
恒邦培训机构为您提供如下课程:西门子S7-1200 PLC综合课程,垂询电话:0553-5848750,18055386918
西门子S7-1200 PLC综合课程
恒邦培训机构为您提供如下课程:VB.net 上位机编程培训,垂询电话:0553-5848750,18055386918
VB.net 上位机编程培训
恒邦培训机构为您提供如下课程:西门子WINCC编程组态实操培训,垂询电话:0553-5848750,18055386918
西门子WINCC编程组态实操培训

Imports System
Imports System.IO.Ports

Public Class Form1

   
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
'获取计算机有效串口
        Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间,用SerialPort,获取计算机的有效串口
        Dim port As String
       
For Each port In ports
            portnamebox.Items.Add(port)
'向combobox中添加项
        Next port
       
'初始化界面
        baudratebox.SelectedIndex() = 2
        portnamebox.SelectedIndex()
= 0
        Serial_Port1()
'初始化串口
        Label3.Text = SerialPort1.IsOpen
        statuslabel.Text
= "串口未连接"
        statuslabel.ForeColor
= Color.Red
        sendbox.Text
= "123"
       
' baudratebox.Text = baudratebox.Items(0) 注释和不注释的地方可以替换
        'portnamebox.Text = portnamebox.Items(0)
    End Sub

   
Private Sub Serial_Port1() '设置串口参数
        SerialPort1.BaudRate = Val(baudratebox.Text) '波特率
        SerialPort1.PortName = portnamebox.Text '串口名称
        SerialPort1.DataBits = 8 '数据位
        SerialPort1.StopBits = IO.Ports.StopBits.One '停止位
        SerialPort1.Parity = IO.Ports.Parity.None '校验位
    End Sub

   
'关闭串口连接
    Private Sub closebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebtn.Click
       
Try
            SerialPort1.Close()
'关闭串口
            Label3.Text = SerialPort1.IsOpen
           
If SerialPort1.IsOpen = False Then
                statuslabel.Text
= "串口未连接"
                statuslabel.ForeColor
= Color.Red
                receivebox.Text
= ""
                receivebytes.Text
= ""
           
End If
       
Catch ex As Exception
            MessageBox.Show(ex.Message)
       
End Try
   
End Sub

   
'打开串口连接
    Private Sub openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openbtn.Click
       
Try
            SerialPort1.Open()
'打开串口
            Label3.Text = SerialPort1.IsOpen
           
If SerialPort1.IsOpen = True Then
                statuslabel.Text
= "串口已连接"
                statuslabel.ForeColor
= Color.Green
           
End If
       
Catch ex As Exception
            MessageBox.Show(ex.Message)
       
End Try
   
End Sub


   
'发送数据
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
Try
            SerialPort1.Write(sendbox.Text)
       
Catch ex As Exception
            MessageBox.Show(ex.Message)
       
End Try

   
End Sub

   
'触发接收事件
    Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
       
Me.Invoke(New EventHandler(AddressOf Sp_Receiving)) '调用接收数据函数
    End Sub

   
'接收数据
    Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs)
       
Dim strIncoming As String
       
Try
            receivebytes.Text
= Str(Val(receivebytes.Text) + SerialPort1.BytesToRead)
           
If SerialPort1.BytesToRead > 0 Then
                Threading.Thread.Sleep(
100) '添加的延时
                strIncoming = SerialPort1.ReadExisting.ToString '读取缓冲区中的数据
                SerialPort1.DiscardInBuffer()
                receivebox.Text
= strIncoming
           
End If
       
Catch ex As Exception
            MessageBox.Show(ex.Message)
       
End Try
   
End Sub
End Class

 
   好文推荐
1 C#利用接受事件通过串口接受PLC数据4501
2 西门子S7-1500和S7-1200之间的Modbus/TCP通信编程和参数化11353
3 vb.net利用SerialPort进行读取串口操作10656
4 VB编写的MODBUS通讯上位机的简单程序10240
5 S7-200系列PLC编程中的上升沿和下降沿5915
6 上位机通信通过欧姆龙PLC控制变频器6272
7 FANUC 工业机器人码垛编程讲解5722
8 串口的产生和发展6139
9 PLC编程的5种语言5818
10 OMRON PLC功能块编程6138

18055386918、18055386926学PLC单片机上位机编程咨询PLC培训请学PLC单片机上位机编程 咨询嵌入式培训请 PLC编程与工控技术群
关键词:PLC培训 PLC编程培训 芜湖PLC培训 西门子PLC培训 三菱PLC培训 欧姆龙PLC培训 PLC网络培训 PLC教学视频 PLC教程 PLC编程实例 PLC编程入门
触摸屏培训 伺服系统培训 变频器培训 PLC编程软件下载 安徽PLC培训 学习PLC 设计师证书 PLC培训学校 马鞍山培训 合肥PLC培训 人机界面培训

© copyright all rights reserved
恒邦自动化培训中心 - 芜湖市恒邦科技有限公司 全部资讯 全部课程
地址:芜湖经济技术开发区科创中心C园 邮编:241006 TEL:0553-5848750
未经许可 以上内容不得转载 或用作商业用途 皖ICP备09005786号-1

PLC培训 PLC编程培训 芜湖PLC培训 西门子PLC培训 三菱PLC培训 欧姆龙PLC培训 PLC网络培训 PLC教学视频 PLC教程 PLC编程实例 PLC编程入门
触摸屏培训 伺服系统培训 变频器培训 PLC编程软件下载 安徽PLC培训 学习PLC 设计师证书 PLC培训学校 马鞍山培训 合肥PLC培训 人机界面培训