如何用vb进行并口数据的读写

Question

通过vb进行并口数据的读写，本人急切需要，望赐教。不过我是个VB初学者，麻烦尽量详细些，不胜感谢。

Answer 1

http://download.csdn.net/detail/veron_04/3152172

Answer 2

Veron_04 你好
    先谢谢了，我去好好学一学，有不懂的再请教。不过没想到这么快就给了我答复
礼

Answer 3

    通过学习《并口调试器》自己学写了一段代码，基本实现了通过并口输出方波的项目要求。再次表示感谢。
    但是，又出现了新问题： VB的 Timer 控件分辨率是1mS ,理论上讲可以输出大约1KHz的方波，但下面的程序段最高输出频率才32Hz（用频率计测试），即便Timer.InterVal=1也是如此。不知何故。如果方便的话请指教。
Private Sub Timer1_Timer()
  'Timer1.Enabled = False
  'x1 = 0
  'Do While x1 <> 40000
  'x1 = x1 + 1
  'Loop
  'x1 = 0x2 = x2 Xor 255
If x2 = 0 Then
 D = &HFF
 Out32 &H378, D 
 Shape1.FillColor = &HFF&
 Else:
 Shape1.FillColor = &HFF00&
 D = &H0
 Out32 &H378, D 
End IfEnd Sub

Answer 4

    通过学习《并口调试器》学写了一段代码，基本实现了通过并口输出方波的项目要求，再次表示感谢。
    但是又出现了新问题。VB的 Timer 控件分辨率是1mS，理论上讲应该能输出大约1KHz的脉冲，但下面的程序输出最高频率才32Hz（用频率计测试），即便 Timer.Interval=1 也不行。不知何故。如果方便的话，请指教。Private Sub Timer1_Timer()
  'Timer1.Enabled = False
  'x1 = 0
  'Do While x1 <> 40000
  'x1 = x1 + 1
  'Loop
  'x1 = 0x2 = x2 Xor 255
If x2 = 0 Then
  D = &HFF
  Out32 &H378, D 
  Shape1.FillColor = &HFF&
  Else:
  Shape1.FillColor = &HFF00&
  D = &H0
  Out32 &H378, D 
End IfEnd Sub