工控机在工业领域的广泛应用，免不了一些基本的基础层次的开发应用，而Visual Basic 6.0作为一款简便快捷的编程语言，在工业领域也应用非常广泛，本文将以一个简单的应用案例来分析
RPC610工控机与Visual Basic的完美结合，希望对大家有用。
1、 硬件系统设计
1-1、被测参数分析
按照有关规定，对维修后的坦克炮控系统需要进行静态参数和动态参数的检测[1]。需检测的静态参数共有94路±15V范围的电压信号，动态参数有位移、拉力、压力、转速、漂移等12路信号，位移、拉力信号为标准传感器输出信号，范围为±5V和0-5V，转速和漂移信号为陀螺仪组输出的检查信号，为±15V的电压信号。另外，为了丈量位移和拉力，需要使用液压元件以及电磁铁作为执行元件进行相应的操纵，故需进行相应的控制。
1-2、数据采集卡
数据采集卡的选择是硬件系统建设的关键，基于性能的稳定性和性价比的原因，选用了研华的ISA总线产品。根据需要，使用了3块PCL813B和1块PCL818H。这两款板卡都可支持双性±5V的输进范围，我们另制作了一块外围端子板将±15V的电压转换为±5V[2-3]。
PCL813B具有32路单端隔离模拟量输进，本应用中使用它采集94路静态电压信号。它采用了12位分辨率A/D转换器AD574，转换时间为25μs,数据传送速率达25Kbps，输进范围为双性±5V、±2.5V、±1.25V和±0.625V，单性为0～10V、0～5V、0～2.5V和0～1.25V，A/D转换触发方式为软件触发。
PCL-818H是一款多功能采集卡，本应用中使用它采集动态信号及控制液压阀和电磁铁。它提供了5个为常用的丈量和控制功能:12位的A/D转换,D/A转换,数字输进,数字输出和计时器/计数器。它的特点是:
（1） 16路（单）或8路（双）差分模拟量输进;
（2） 12位模数转换,100KHZ的采样频率;
（3） 16路数字输进和输出;
（4） 可通过软件改变增益的值;
（5） 软件可选择逻辑输进范围（双性）。
两块板卡使用方法基本相同，由于篇幅限制，下面仅以818H对模拟量的输进采集为例先容采集卡的使用。
编写PCL-818H的程序的关键是使用板卡上的16个寄存器。它需要16个连续的PC机I/O空间地址,每个口地址与采集板内的寄存器相对应。每个寄存器的地址是通过指定到板卡基地址的偏移量。例如,BASE+0是这个板卡的基地址,并且BASE+7表示基地址+7个字节。假如板卡的基地址是300h,则BASE+7寄存器的地址就是307h,结果见表1。
表1、 寄存器的作用及相应的I/O端口地址
PCL-818H模拟输进的16个端口,可以构成16个单端输进或者8对差分输进，输进通道的工作方式利用跳线设置，软件控制对一个或多个通道的操纵。输进信号经放大电路后,由一个逐次逼近式A/D转换为12位数字信号。
PCL-818H提供了软件、时钟步进和外部信号3种触发方式。软件触发的触发器是由软件控制的,当在软件寄存器中写进数值后,启动A/D转换,这种方式适用于低速A/D转换。时钟步进触发适用于转换速度要求很高的系统，PCL-818H提供的8254定时/计数器用来为A/D提供一个固定触起源，计数器1和计数器2级联在一起提供了一个周期精确的触发脉冲，非常适合于需要固定且精确的采样频率的系统。把外部触发信号接在CN3的35脚,可以实现外部触发，适用于不需要周期采样的系统，外部信号的上升沿启动A/D转换。根据该系统的需要,我们选择了软件触发方式。
1-3、工控机的选择
工控机（IPC）是一种具备特殊性能的计算机，能在恶劣的产业生产环境下,保证系统的连续稳定运行,并能承受环境中的高（低）温、冲击、振动、电磁干扰、湿润、粉尘等不利因素[4]。考虑到三防的特殊性，我们选择了车载使用方便的产业便携机，型号为华北工控的
RPC610工控机,该机具有8槽PCI/ISA扩展能力，液晶屏可360℃旋转，具有防暴功能。
系统结构图
2、软件系统的设计
系统的软件设计采用了VB6.0，VB6.0以其易学、高效、功能强大以及所开发的系统界面友好等特点受到了众多用户的欢迎,在数据采集和产业控制领域得到了广泛应用。本系统的软件部分主要有数据采集处理和数据治理两部分组成，实现的功能有数据采集的控制、数据处理、数据的治理以及试验报告的输出。下面给出了数据采集和存储两个关键环节的代码。
2-1、模拟电压的读取
VB固然易学且功能强大，但也有其自身的弱点，比如对硬件的直接访问仅靠VB自身是无法解决的。但是它可以通过调用板卡提供的驱动函数，实现对I/O的访问和控制，而且支持事件驱动，这样就使VB可以很方便地编制数据采集软件[5]。
在Windows环境下调用驱动程序,需要在工程中添加一个模块Driver.bas,模块中定义了PCL-818H的所有常量,全局变量,函数,数据结构,状态代码和消息。可以直接在程序中调用文件中定义的这些量实现数据的读取。在Driver.bas文件的后定义了很多API函数,但都不是私有的,工程里的所有窗体都可以调用这些函数。模拟值的读取分为如下5步：
（1）、打开设备
ErrCde=DRV_DeviceOpen（0,DeviceHandle）
假如ErrCde为0表示成功，否则返回错误信息。
（2）、配置输进通道范围
lpAIConfig.DasChan=int Channel ‘设置通道
lpAIConfig.DasGain=0 ‘设置增益为0
ErrCde=DRV_AIConfig（DeviceHandle,lpAIConfig）
（3）、读取电压值IConfig）
AiVolIn.chan=lpAIConfig.DasChan ‘电压输进通道
AiVolIn.Gain=lpAIConfig.DasGain ‘电压输进增益
AiVolIn.TrigMode=AiCtrMode ‘触发模式
AiVolIn.voltage=DRV_GetAddress（voltage） ‘读进电压值
ErrCde=DRV_AIVotageIn（DeviceHandle,AivolIn）
（4）、返回值
fnGetValue=voltage
（5）、封闭设备
ErrCde=DRV_DeviceClose（DeviceHandle）
2-2、数据库的访问
VB6.0提供了相当强的数据库存储能力,可以直接支持Microsorft Access数据库[6].VB在单机环境访问数据库的技术有DAO和ADO，既可用控件也可用代码编程实现。本应用中利用控件并分歧适，故采用了比较灵活的ADO代码编程方法。假定在C:\mydatabase\mydata.mdb数据库中存在”pkxt”表格，name、testdata、giveddata、conclusion是其字段名，界面中几个Text文本框中显示了试验数据，将数据写进数据库的代码如下：
Private Sub Form_Load（） ‘ 窗体装载事件
Dim strSQL As String
Set cn = New ADODB.Connection ‘建立新的连接
cn.Provider = "microsoft.jet.oledb.3.51" ‘ 数据库引擎
cn.ConnectionString = "C:\mydatabase\mydata.mdb" ‘数据库路径
cn.Open ‘打开连接
Set adors = New ADODB.Recordset ‘打开“pkxt”表的一个记录集
adors.LockType = adLockOptimistic
strSQL = "select ＊" & "from pkxt"
adors.Source = strSQL
Set adors.ActiveConnection = cn
adors.Open
adors.AddNew
End Sub
Private Sub Form_Unload（Cancel As Integer） ‘卸载窗体事件
cn.Close ‘封闭连接
End Sub
‘在“保存“按钮的单击事件中将界面中的数据写进记录集
Private Sub Command1_Click（）
adors.Fields（"name"） = Text1.Text ‘检测项目名称
adors.Fields（"testdata"） = Val（Text2.Text） ‘检测值
adors.Fields（"giveddata"） = Val（Text3.Text） ‘给定的指标值
adors.Fields（"conclusion"） = Text4.Text ‘检测结论
adors.Update
adors.Close
End Sub
2-3、报表输出
对报表的输出，VB6.0提供了很多方法，其中DataReport设计器和Printer对象方法特点鲜明。利用Printer对象方法需要编写较多的代码，但具灵活性;DataReport设计器是VB6.0新增的功能，它只提供了基本的功能，但具有非常易用的特点。由于本系统数据比较简单，所以使用了DataReport设计器实现试验报告的输出。
