Declare Function write% lib“C:兡?#12;C”
(ByVal LOCalport%,ByVal value%)
Declare Function read% lib “C:兡?#12;C”
(ByVal localport%)
其中：write( )函数是向高端内存地址写数据；
read（ ）函数是从高端内存地址读数据。
第二步：在窗体中放入三个文本框（Text 1,Text2,Text3），一个命令按扭（Command 1），就可以在代码窗口中编写代码：
Option Explicit
Dim Port 1 ‘内存地址 如：0D0000H
Dim Port 2 ‘16进制数 如：12H
Private Sub Command 1-click()
Dim Gg As Integer ‘声明一个返回整数
Dim Salp As Integer ‘声明一个返回整数
Port 1=Val(Text 1.Text) ‘把Text 1赋给port 1
Port 2=Val(Text 2.Text) ‘把Text 2赋给port 2
Gg="write"(port 1,port2) ‘往Port 1地址中写Port 2
Salp="read"(port 1) ‘从Port 1地址中读数
Text3.Text=Salp ‘在Text3中显示
Salp
End Sub
两个函数的调用过程如上所述，可根据编程的意图放在任何位置。特别注意，函数地址不能与其它硬件的地址或系统内存地址冲突，否则会造成计算机死机。
本文采用双端口 RAM 器件设计的智能型高速并行通讯卡，在监控软件、硬件，以及在VB环境下对直接映象方式的高端内存进行读写操作的实现，具有通用性。尤其在自动控制领域设计A/D、D/A转换、实现闭环控制，以及设计虚拟仪器、视频信号数字化处理、语音处理、各种系统动态仿真等需要高速数据传输的场合，都具有借鉴意义。总之，智能化板卡在PC总线工业控制的应用，是今后发展的主流。
上一页 [1] [2]
本文关键字：暂无联系方式DSP/FPGA技术，单片机-工控设备 - DSP/FPGA技术
