基于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，添加好相应的控件。在该界面上可进行选择辐射值的测量以及相应参数的设置，以及将数据保存成文件、打开数据文件、打印等功能。