3.Winform初学之System.IO

System.IO命名空间中的常用类:

1>File:提供用于创建(Create)、复制(Copy)、删除(Delete)、移动(Move)和打开(Open)文件的静态方法,并协      助创建FileStream对象。
2>FileInfo:提供用于创建(Create)、复制(Copy)、删除(Delete)、移动(Move)和打开(Open)文件的实例方法,      并协助创建FileStream对象;此类无法被继承
3>FileStream:公开已文件的为主的Stream,支持同步、异步读写操作。
4>BinaryReader:用特定的编码将基元数据类型读作二进制值。

using System.IO 之File类:
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
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() Dim port As String For Each port In ports ComboBox1.Items.Add(port) Next ComboBox1.Text = ComboBox1.Items(0) ComboBox2.Items.Add(1200) ComboBox2.Items.Add(4800) ComboBox2.Items.Add(9600) ComboBox2.Text = ComboBox2.Items(2) Serial_Port1() TextBox2.Text = SerialPort1.IsOpen TextBox1.Text = "串口未连接" TextBox1.ForeColor = Color.Red TextBox3.Text = "123" CheckBox1.Text = "" End Sub Private Sub Serial_Port1() SerialPort1.BaudRate = ComboBox2.Text SerialPort1.PortName = ComboBox1.Text SerialPort1.DataBits = 8 SerialPort1.StopBits = IO.Ports.StopBits.One SerialPort1.Parity = IO.Ports.Parity.None End Sub '关闭串口连接 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try SerialPort1.Close() TextBox2.Text = SerialPort1.IsOpen If SerialPort1.IsOpen = False Then TextBox1.Text = "串口未连接" TextBox1.ForeColor = Color.Red TextBox4.Text = "" 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.Open() TextBox2.Text = SerialPort1.IsOpen If SerialPort1.IsOpen = True Then TextBox1.Text = "串口已连接" TextBox1.ForeColor = Color.Green End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try SerialPort1.Write(TextBox3.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_DataReceiving)) End Sub Public Sub Sp_DataReceiving(ByVal sender As Object, ByVal e As EventArgs) Dim strIncoming As String Try CheckBox1.Text = Str(Val(CheckBox1.Text) + SerialPort1.BytesToRead) If SerialPort1.BytesToRead > 0 Then Threading.Thread.Sleep(100) strIncoming = SerialPort1.ReadExisting.ToString SerialPort1.DiscardInBuffer() TextBox4.Text = strIncoming End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub End Class

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值