基于VB.NET的辐射报警仪上位机管理软件设计(16)

          Dim MyArr() As String
          Dim font As Font = New Font("Arial", 12, FontStyle.Regular)
          If TextBox5.Text <> Nothing Then
              MyArr = Split(TextBox5.Text, vbCrLf, -1, 1)
          Else
              MsgBox("Please open a file frist! ", MsgBoxStyle.OkOnly)
              Exit Sub
          End If
          If MyArr.Length > 0 Then
              For i As Integer = 0 To MyArr.Length - 2
                  Trim(MyArr(i))
                  If (MyArr(i).Length > 8) Then
                      widthOfprint = (ev.PageBounds.Width - MyArr(i).Length * font.Size) / 2
                  Else
                      widthOfprint = (ev.PageBounds.Width - MyArr(i).Length * font.Size * 2.3) / 2
                  End If
                  ev.Graphics.DrawString(MyArr(i), font, Brushes.Black, widthOfprint, sngTopMargin)
                  sngTopMargin = sngTopMargin + font.GetHeight(ev.Graphics) * 1.5
                  ev.HasMorePages = False
              Next
              widthOfprint = (ev.PageBounds.Width - MyArr(MyArr.Length - 1).Length * font.Size)
              ev.Graphics.DrawString(MyArr(MyArr.Length - 1), font, Brushes.Black, widthOfprint, sngTopMargin)
              sngTopMargin = sngTopMargin + font.GetHeight(ev.Graphics) * 1.5
              ev.HasMorePages = False
          End If
     End Sub
相应调试界面如下:

图4.3 文件打印界面

5 上位机软件界面的设计
上位机软件界面是在VS2010编程环境下来设计实现的。VS2010是微软公司开发的面向对象、高度封装的跨平台开发平台，它提供了一个开发商业级别，多平台应用的软件开发环境。
主界面的设计:
启动软件VS2010新建一个项目，然后软件自动就生成一个Form面板，调整到适当的大小，在Form面板上添加了9个Label控件、一个TextBox5控件、一个PictureBox控件，还有一个Timer控件。根据下位机要实现功能和界面的要求来设计上位机管理软件的界面。
这是本软件的主界面，即开机运行辐射报警仪后选择进行各项功能使用的界面。在该项目中添加一个新的窗体并命名为Form1，添加好相应的控件。在该界面上可进行选择辐射值的测量以及相应参数的设置，以及将数据保存成文件、打开数据文件、打印等功能。基于VB.NET的辐射报警仪上位机管理软件设计(16):http://www.751com.cn/tongxin/lunwen_2658.html