快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net校验和,vb和net的关系

vb.net 点击一个叫button1的按钮 用COM1发送(接收) 假设八位数据位,有奇偶校验位

这是我的简单串口代码:

创新互联是专业的襄汾网站建设公司,襄汾接单;提供成都网站建设、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行襄汾网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

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 '打开串口发生错误,提示信息

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如何对输入的数据进行合法性检验,过滤不合法的数据代码

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

解释一下 .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中怎样校验多个文本框每个在失去焦点时做相应的check处理

可以建立控件数组,在失去焦点的事件中判断index的值就知道哪个text失去焦点了


当前标题:vb.net校验和,vb和net的关系
当前网址:http://6mz.cn/article/hchhce.html

其他资讯