Label4.Location = New Point((Me.Width - Label4.Width) / 2, (Panel1.Height - Label1.Height) * 3 / 5 - 20)
                        Label1.Show()
                        Label2.Show()
                        Label3.Show()
                        Label4.Show()
                        Label5.Hide()
                        Label6.Hide()
                        Label7.Hide()
                        Label8.Hide()
                        Label9.Hide()
                        ...
当收到的字符有11位，则为数据包。这里同样用到了Case语句。当Case "S300"时，即此时的命令包指令为300时，实现的功能将收到的数据显示出来。此时的数据内容为时间。所以用Label5显示出来。并调整Label5的坐标。同时Lable1、Label2、Label3、Lable4、Label5调用Show()方法，其余的Lable调用Hide()方法。同样的，当指令分别是320、330、340、360时，此时的数据分别表示测量本底的时间、测量液体的时间或固体的时间、手动测量液体的时间或固体的时间、测量结果。相应的界面部分的程序和Case"S300"时类似，不再赘述。 基于VB.NET的辐射报警仪上位机管理软件设计(19):http://www.youerw.com/tongxin/lunwen_2658.html