当前位置: 书通网 > 范文 > 心得体会 > 学习vb的心得体会(3)

学习vb的心得体会(3)

时间:2014-12-05 作者:涂画分类:心得体会来源:书通网

dim idata as variant

dim arr() as byte

intinputlen = mscomm1.inbuffercount '不这样将会提示不能给数组赋值

redim arr(intinputlen) '和上面一样

select case mscomm1.commevent

case comevreceive '接收成功信息

arr = mscomm1.input '得到接收缓冲区数据

if asciflag = true then

for i = 0 to ubound(arr)

text2.text = text2.text + chr$$(arr(i))

next i

else

for i = 0 to ubound(arr)

text2.text = text2.text + " " & arr(i)

next i

end if

mscomm1.inbuffercount = 0

end select

end sub

private sub option1_click()

if option1.value = true then

asciflag = true

end if

end sub

private sub option2_click()

if option2.value = true then

asciflag = false

end if

end sub

private sub timer1_timer()

label11.caption = time

end sub

private sub uart_open_click()

mscomm1.portopen = not mscomm1.portopen

if mscomm1.portopen then

shape2.backcolor = &hff&

uart_open.caption = "关闭串口"

else

shape2.backcolor = &he0e0e0

uart_open.caption = "打开串口"

end if

end sub

private sub text2_clr_click()

text2.text = ""

end sub

private sub text2_en_click()

text2enable = not text2enbale

end sub

private sub command6_click()

end

end sub

private sub form_load()

show '没有show后面的设置焦点将失败错误

text2enbale = true

option2.value = true '默认显示是以16进制显示

mscomm1.commport = 1

mscomm1.settings = "9600,n,8,1"

mscomm1.inputmode = cominputmodebinary '二进制接收数据

mscomm1.inbuffercount = 0

mscomm1.rthreshold = 1 '缓冲区接收到4个字符就产生一个oncomm事件

text3.text = ""

text3.setfocus

end sub

至此一个简单的小工程就完成了，因为我是电子信息工程专业对高级编程还是很菜鸟的，其实这个功能也是我一直想能够自己实现的，因为之前一直以为学习vb 会花好多时间，就像之前一直在学习arm一样半天模不着头脑。所以迟迟不敢接触。估计也好多人和我一样，其实学习开始了也会发现并不是想象中那样。

第3篇： vb学习心得体会

这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心体会。

通过学习vb我基本学会了编辑一些小程序，掌握了一些基本的知识，得到了以下一些收获：

1.富业余生活。曾经业余时间到处游手好闲的身影不见

了，以前没事我肯定一动不动的坐在电脑面前摆弄电脑。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在有了vb，它给了我无穷的快乐，让我乐此不疲。