锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net和校验 vbnet using

IT技术串口

VB.NET如何对输入的数据进行合法性检验,过滤不合法的数据代码合法性校验有很多方法 ， 要视情况而定，比如说可以用正则表达式，如果是数字，除了正则表达式，也可以用诸如TryParse这种方法 。
vb.net串口类程序,串口打不开1、检查串口是否正确，比如COM1，COM2，COM3等；
2、检查波特率是否正确，比如9600，115200等；
3、检查数据位、停止位、校验位是否正确 ， 比如8位数据位、1位停止位、无校验位等；
4、检查串口线是否接好；
5、检查串口是否被其他程序占用，可以使用串口调试助手查看；
6、检查串口驱动是否安装正确，可以在设备管理器中查看；
7、检查程序代码是否正确，可以使用串口调试助手查看 。
解释一下 .net 、VS、VC 和vb.net的开发环境...谢谢！1. .net是微软的语言架构 ， 是面向对象的托管语言；VS是Visual Studio的缩写 ， 是微软的集成开发环境，通过它可以设计，开发和调试微软平台的程序，其中包括.net，也包括不是.net的程序；VC是Visual C的缩写，是微软版本的C语言，用来开发桌面应用 ， 不能做网站；VB.NET是.net中的一种语言，和原来的VB完全不同，可以用来开发桌面和网站，VB.net的开发环境是VS.net（目前最高版本是vs2008） 。
2. 做网站的话，需要安装VS（建议VS2008 ， 因为更加强大），如果用SQL Server的话需要安装SQL Server（建议SQL2008，因为性能更好） 。
3. VS2005和VS2008大小差不多，完全安装4G左右，最小安装1G左右
4. 如果使用数据库建议用2008因为2000马上就要停止技术支持了 。
vb.net 点击一个叫button1的按钮 用COM1发送（接收） 假设八位数据位，有奇偶校验位【vb.net和校验 vbnet using】这是vb.net和校验我vb.net和校验的简单串口代码：
Dim a As Integer
Dim b As Variant
Private Sub u_Click()
Text1.Text = "请先设置波特率与COM口?。。?
End Sub
Private Sub Cbo1_Click()
On Error GoTo blak '打开串口发生错误vb.net和校验，提示信息
If MSComm1.PortOpen = True And a = 1 Then
MSComm1.PortOpen = False '必须先关闭端口，再对端口进行设置
MSComm1.CommPort = cbo1.ListIndex1 '端口号从0开始，必须加1
Else '有必要
MSComm1.CommPort = cbo1.ListIndex1
End If '注释的必须有，为第二次切换做准备 ， 否则第二次换COM口会出问题
Exit Sub
blak:
MsgBox "串口不存在或被占用!", vbOKOnly, "提示信息" '必须是这种格式
End Sub
Private Sub Cbo2_Click() '单击事件，不是change事件
MSComm1.Settings = 1200 * 2 ^ cbo2.ListIndex"n,8,1" '设置端口的波特率，连接符前后必须空一格
End Sub
Private Sub cmd1_Click()
a = a1
If a = 1 Then
cmd1.Caption = "关闭串口"
cbo1.Enabled = False
MSComm1.PortOpen = True '打开串口
ElseIf a = 2 Then
cmd1.Caption = "打开串口"
cbo1.Enabled = True
MSComm1.PortOpen = False '关闭串口
a = 0
End If
End Sub
Private Sub cmd2_Click()
Text1.Text = "" '清空接收区
Text2.SetFocus
End Sub
Private Sub cmd3_Click()
Text2.Text = "" '清空发送区
Text2.SetFocus
End Sub
Private Sub cmd4_Click()
Dim d As Integer
Dim e(0) As Byte'outbyte 输出字符
d = Val(Text2.Text)
e(0) = CByte(d)
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.Output = e '此命令执行一次发送8字节
End Sub
Private Sub Form_Load()
cbo1.ListIndex = 0
cbo2.ListIndex = 0
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent '返回最近的通信过程
Case comEvReceive '接受的数据
c:b = MSComm1.Input
If Option1.Value = https://www.04ip.com/post/True Then
Text3.Text = Text1.TextHex(b(0)) '首次不行，因为有字符
Text1.Text = Text3.Text" " '转换一下
ElseIf Option2.Value = https://www.04ip.com/post/True Then
Text1.Text = Text1.Textb""
End If
If MSComm1.InBufferCount0 Then 'mscomm1.InBufferCount是缓冲区的数据数
GoTo c
End If
End Select
End Sub
Private Sub Option1_Click()
MSComm1.InputMode = comInputModeBinary '接收方式，十六进制
End Sub
Private Sub Option2_Click()
MSComm1.InputMode = comInputModeText '接收方式，字符格式
End Sub
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub
关于vb.net和校验和vbnet using的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：在音乐上怎么将歌导入u盘，音乐怎么导入优盘

    下一篇：公众号怎么加历史消息的，公众号怎么加往期回顾