vb.net和校验 vbnet using

VB.NET如何对输入的数据进行合法性检验,过滤不合法的数据代码

合法性校验有很多方法，要视情况而定，比如说可以用正则表达式，如果是数字，除了正则表达式，也可以用诸如TryParse这种方法。

相关问答

Q1: vb.net串口类程序,串口打不开

1、检查串口是否正确，比如COM1，COM2，COM3等；

2、检查波特率是否正确，比如9600，115200等；

3、检查数据位、停止位、校验位是否正确，比如8位数据位、1位停止位、无校验位等；

4、检查串口线是否接好；

5、检查串口是否被其他程序占用，可以使用串口调试助手查看；

6、检查串口驱动是否安装正确，可以在设备管理器中查看；

7、检查程序代码是否正确，可以使用串口调试助手查看。

Q2: 解释一下 .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马上就要停止技术支持了。

Q3: vb.net 点击一个叫button1的按钮 用COM1发送（接收） 假设八位数据位，有奇偶校验位

这是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.ListIndex + 1 '端口号从0开始，必须加1

Else '有必要

MSComm1.CommPort = cbo1.ListIndex + 1

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 = a + 1

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 = True Then

Text3.Text = Text1.Text Hex(b(0)) '首次不行，因为有字符

Text1.Text = Text3.Text " " '转换一下

ElseIf Option2.Value = True Then

Text1.Text = Text1.Text b ""

End If

If MSComm1.InBufferCount 0 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的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。