|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾉ移行ｿｽｿｽｿｽｿｽﾉゑｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽﾒゑｿｽ 2009/04/17(ｿｽｿｽ) 12:52:16
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ VB6ｿｽｿｽｿｽｿｽVB2005ｿｽﾖ移行ｿｽrｿｽｿｽｿｽﾌ者でゑｿｽｿｽBｿｽNｿｽｿｽｿｽXｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽRｿｽ_ｿｽﾉつゑｿｽｿｽﾄ御教ｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽﾏ撰ｿｽｿｽﾌスｿｽRｿｽ[ｿｽvｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌ趣ｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽLｿｽﾌようｿｽﾈデｿｽWｿｽ^ｿｽｿｽｿｽoｿｽﾍボｿｽ[ｿｽhｿｽ制御すｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽ成ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@Moduleｿｽﾉ関撰ｿｽｿｽｿｽﾜとめゑｿｽｿｽﾆゑｿｽｿｽﾉは厄ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽNｿｽｿｽｿｽXｿｽﾌゑｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ(Init_Dio)ｿｽﾌとゑｿｽｿｽﾉ取得ｿｽｿｽｿｽｿｽhDeviceHandleｿｽｿｽｿｽｿｽｿｽﾛに使ｿｽｿｽSet_Dioｿｽﾅゑｿｽ
ｿｽ@ｿｽ[ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽlｿｽﾉポｿｽ[ｿｽgｿｽﾌ出ｿｽﾍ擾ｿｽﾔゑｿｽﾛ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽOutBufｿｽｿｽ
ｿｽ@ｿｽ[ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽNｿｽｿｽｿｽXｿｽﾅゑｿｽPublicｿｽｿｽﾂゑｿｽｿｽﾄ宣言ｿｽｿｽｿｽﾄゑｿｽlｿｽｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽ@ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@
Public Class FormMain
Private Sub FormMain_Load(ｿｽﾈ暦ｿｽ) Handles MyBase.Load
Dim Dio3232 As Dio = New Dio
Dio3232.Init_DIO() ｿｽｿｽｿｽ@Dioｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
End Sub
End Class
Public Class Dio
Public Shared OutBuf(3) As Integer ｿｽｿｽSharedｿｽｿｽﾂゑｿｽｿｽｿｽﾆ値ｿｽﾍ保趣ｿｽｿｽｿｽｿｽｿｽｿｽ
Public Shared hDeviceHandle As Long
'Public hDeviceHandle As Long ｿｽｿｽSharedｿｽｿｽｿｽﾈゑｿｽｿｽﾆ値ｿｽｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
'ｿｽｿｽｿｽｿｽｿｽﾅ ｿｽcｿｽhｿｽnｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
Public Sub Init_DIO()
hDeviceHandle = IFCDIO_ANY.DioOpen(lpszName, IFCDIO_ANY.FBIDIO_FLAGE)
End Sub
'ｿｽｿｽｿｽﾛに使ｿｽｿｽｿｽﾆゑｿｽｿｽﾉハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽ
Public Sub SetDio(ByVal Data As Integer)
OutBuf(PortNo) = OutBuf(PortNo) Or Bit
st = IFCDIO_ANY.DioOutputByte(hDeviceHandle, PortNo, mOutBuf(PortNo))
End Sub
End Class
ｿｽAｿｽNｿｽｿｽｿｽXｿｽｿｽﾅゑｿｽConstｿｽ骭ｾ
ｿｽ@ Public Const RANGE1 As Integer = 1ｿｽ@ｿｽﾌ様ｿｽﾉクｿｽｿｽｿｽXｿｽｿｽｿｽPublicｿｽｿｽﾂゑｿｽｿｽｿｽConstｿｽ骭ｾｿｽｿｽ@ ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌクｿｽｿｽｿｽXｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾅ参ｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽeｿｽｿｽModuleｿｽｿｽ
ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾆＯｿｽjｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾌゑｿｽｿｽﾗてのクｿｽｿｽｿｽXｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽQｿｽﾆでゑｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ關費ｿｽｿｽ骭ｾｿｽｿｽｿｽｿｽﾉゑｿｽModuleｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽBｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽgｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽLｿｽﾍ、ｿｽVｿｽｿｽｿｽAｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽNｿｽｿｽｿｽXｿｽﾌポｿｽ[ｿｽgｿｽIｿｽ[ｿｽvｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽ[ｿｽh
ｿｽ@ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽPortOpenｿｽｿｽｿｽ¥ｿｽhｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBPortOpenｿｽｿｽｿｽ¥ｿｽhｿｽﾅは、ｿｽeｿｽｿｽﾝ抵ｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄポｿｽ[ｿｽgｿｽｿｽIｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽNｿｽｿｽｿｽXｿｽﾌｿｽｿｽ¥ｿｽhｿｽｿｽｿｽ迺ｼｿｽﾚフｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾌは良ゑｿｽｿｽﾈゑｿｽｿｽEｿｽEｿｽEｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾈ場合ｿｽﾍ、ｿｽNｿｽｿｽｿｽXｿｽﾌ考ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄどの様ｿｽﾉゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@ｿｽ@
ｿｽ@ｿｽｿｽｿｽｿｽｿｽ動ゑｿｽｿｽｿｽｿｽﾊ信ｿｽｿｽｿｽｿｽｿｽｿｽTesterｿｽNｿｽｿｽｿｽXｿｽﾉ難ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽCｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽ@ｿｽﾄ用ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽﾆフｿｽHｿｽ[ｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾍクｿｽｿｽｿｽXｿｽｿｽｿｽ迹ｿｽしｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽﾇゑｿｽｿｽCｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾝ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾌ擾ｿｽﾔでゑｿｽ
Public Class Tester
Public Sub PortOpen()
'COM1 RS232Cｿｽﾌ設抵ｿｽ
With FormMain.ComRS232
.PortName = "COM1"
ｿｽｿｽeｿｽﾈ暦ｿｽ
End With
FormMain.ComRS232.Open() 'ｿｽ@ｿｽﾊ信ｿｽ|ｿｽ[ｿｽgｿｽｿｽJｿｽｿｽ
End Sub
Endｿｽ@Class
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽ
Hongliang 2009/04/17(ｿｽｿｽ) 13:54:57
hDeviceHandle ｿｽﾍ、Dio ｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽﾆに托ｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽB
> Private Sub FormMain_Load(ｿｽﾈ暦ｿｽ) Handles MyBase.Load
> Dim Dio3232 As Dio = New Dio
> Dio3232.Init_DIO() ｿｽｿｽｿｽ@Dioｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
> End Sub
ｿｽｿｽ New ｿｽｿｽｿｽｿｽ Dio ｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽ痰ｽｿｽｿｽｿｽﾌｿｽｿｽ[ｿｽJｿｽｿｽｿｽﾏ撰ｿｽｿｽﾅ、ｿｽｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽ抜ゑｿｽｿｽｿｽﾎ使ｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
SetDio ｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽﾉまゑｿｽｿｽﾊゑｿｽ Dio ｿｽｿｽ New ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽHｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ別ゑｿｽ Dio ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾊゑｿｽ hDeviceHandle ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾆになゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ超ゑｿｽｿｽﾄイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍフｿｽBｿｽ[ｿｽｿｽｿｽhｿｽiｿｽｿｽｿｽｿｽｿｽoｿｽﾏ撰ｿｽｿｽjｿｽﾉ置ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｩｿｽｿｽ VB6 ｿｽﾈ前ｿｽｿｽ VB7ｿｽiVB2002ｿｽjｿｽﾈ降ｿｽﾅゑｿｽ Integer/Long ｿｽﾌサｿｽCｿｽYｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾆハｿｽｿｽｿｽhｿｽｿｽ/ｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽpｿｽｿｽ IntPtr ｿｽ^ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
> Public Const RANGE1 As Integer = 1ｿｽ@ｿｽﾌ様ｿｽﾉクｿｽｿｽｿｽXｿｽｿｽｿｽPublicｿｽｿｽﾂゑｿｽｿｽｿｽConstｿｽ骭ｾｿｽｿｽ
> ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌクｿｽｿｽｿｽXｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾅ参ｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽeｿｽｿｽModuleｿｽｿｽ
> ｿｽｿｽｿｽｿｽｿｽﾆＯｿｽjｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾌゑｿｽｿｽﾗてのクｿｽｿｽｿｽXｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽQｿｽﾆでゑｿｽｿｽｿｽ
> ｿｽ關費ｿｽｿｽ骭ｾｿｽｿｽｿｽｿｽﾉゑｿｽModuleｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Module ｿｽﾌ場合ｿｽﾍコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾉ変撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽｿｽｿｽﾃ的ｿｽｿｽｿｽｿｽｿｽoｿｽiConst/Shared ｿｽﾈゑｿｽﾌ）ｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽﾉは ｿｽNｿｽｿｽｿｽXｿｽｿｽ.ｿｽﾏ撰ｿｽｿｽｿｽｿｽ@ｿｽﾆ記ｿｽqｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇのクｿｽｿｽｿｽXｿｽﾉ托ｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾌなのゑｿｽｿｽﾏゑｿｽｿｽﾆ鯉ｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌゑｿｽｿｽﾟ「ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽ¥ｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽlｿｽﾈのゑｿｽｿｽvｿｽ直奇ｿｽｿｽIｿｽﾉ記ｿｽqｿｽEｿｽﾇ会ｿｽﾅゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌ静的ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽiｿｽﾊクｿｽｿｽｿｽXｿｽﾉ配ｿｽuｿｽｿｽｿｽ驍ｱｿｽﾆで）ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽAｿｽﾈどのｿｽｿｽｿｽｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽｿｽAConst ｿｽ關費ｿｽﾍ奇ｿｽ{ｿｽIｿｽﾉ撰ｿｽﾎ不ｿｽﾏのゑｿｽﾌに使ｿｽｿｽｿｽiMath.PI ｿｽﾆゑｿｽｿｽjｿｽAｿｽｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽｿｽﾌゑｿｽ Shared ReadOnly ｿｽﾈ変撰ｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
> ｿｽNｿｽｿｽｿｽXｿｽﾌｿｽｿｽ¥ｿｽhｿｽｿｽｿｽ迺ｼｿｽﾚフｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾌは良ゑｿｽｿｽﾈゑｿｽｿｽEｿｽEｿｽEｿｽｿｽ
> ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾈ場合ｿｽﾍ、ｿｽNｿｽｿｽｿｽXｿｽﾌ考ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄどの様ｿｽﾉゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
> ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽIｿｽVｿｽｿｽｿｽE 2009/04/17(ｿｽｿｽ) 16:12:52
ｿｽ@ｿｽ@ｿｽﾏ撰ｿｽｿｽﾌスｿｽRｿｽ[ｿｽvｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌ趣ｿｽｿｽｿｽ
IFCDIO?ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽ[ｿｽXｿｽﾐのｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽけゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾉイｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽ[ｿｽXｿｽﾐのゑｿｽﾌとゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽﾟ具ｿｽｿｽAｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽﾍなゑｿｽｿｽAｿｽNｿｽｿｽｿｽXｿｽﾉ・ｿｽEｿｽEｿｽﾆ会ｿｽｿｽxｿｽｿｽｿｽｿｽｿｽ[ｿｽJｿｽ[ｿｽﾉ申ｿｽｿｽｿｽｿｽｿｽ黷ｵｿｽｿｽｿｽﾌでゑｿｽ
ｿｽｿｽｿｽcｿｽOｿｽﾈゑｿｽｿｽ逡ｷｿｽｿｽｿｽﾄゑｿｽ轤ｦｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで趣ｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾅ・ｿｽEｿｽE
> Public Class FormMain
> Private Sub FormMain_Load(ｿｽﾈ暦ｿｽ) Handles MyBase.Load
> Dim Dio3232 As Dio = New Dio
> Dio3232.Init_DIO() ｿｽｿｽｿｽ@Dioｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
> End Sub
> End Class
ｿｽ@ｿｽ@ｿｽｿｽｿｽ黷ｾｿｽﾆ、Hongliangｿｽｿｽｿｽが擾ｿｽｿｽｿｽｿｽ黷ｽｿｽ謔､ｿｽｿｽFormMain_Loadｿｽｿｽ
ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDio3232ｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽﾍ破ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで・ｿｽEｿｽE
Public Class FormMain
Private Dio3232 as Dio
Private Sub FormMain_Load(ｿｽﾈ暦ｿｽ) Handles MyBase.Load
Dio3232 = New Dio
Dio3232.Init_DIO()
End Sub
Private Sub FormMain_FormClosing ...
Dio3232 = Nothing
End Sub
End Class
ｿｽ@ｿｽ@ｿｽﾆゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽADioｿｽNｿｽｿｽｿｽXｿｽｿｽiDisposableｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆ、ｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽGCｿｽﾅ破ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽｿｽｿｽﾜゑｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、
Implaments iDisposable ｿｽｿｽDioｿｽNｿｽｿｽｿｽXｿｽﾉ付ｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽ@ｿｽ@ｿｽ謔｢ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽｿｽｿｽ@ｿｽXｿｽyｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ轤ｷｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽAｿｽ@ｿｽNｿｽｿｽｿｽXｿｽｿｽﾅゑｿｽConstｿｽ骭ｾ
ｿｽ@ｿｽ@HongliangｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾊゑｿｽﾅゑｿｽｿｽB
ｿｽ@ｿｽ@ｿｽﾅ抵ｿｽlｿｽﾅ変会ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽEｿｽEｿｽEｿｽﾅゑｿｽｿｽB
ｿｽBｿｽ@ｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽgｿｽｿｽ
ｿｽ@ｿｽ@ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽ鼾ｿｽｿｽAｿｽｿｽｿｽｿｽVｿｽｿｽｿｽAｿｽｿｽｿｽﾊ信
ｿｽ@ｿｽ@ｿｽNｿｽｿｽｿｽXｿｽｿｽgｿｽｿｽｿｽﾉゑｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽﾅゑｿｽnｿｽjｿｽｿｽｿｽﾆ。
ｿｽ@ｿｽ@ｿｽｿｽｿｽﾍ汎用ｿｽｿｽｿｽｿｽｿｽｿｽﾟて趣ｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾉゑｿｽｿｽﾄまゑｿｽｿｽB
ｿｽ@ｿｽ@ｿｽｿｽﾊの厄ｿｽｿｽｿｽWindowsｿｽTｿｽ[ｿｽrｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽﾊ信ｿｽｿｽｿｽﾂ能ｿｽﾈようｿｽｿｽ
ｿｽ@ｿｽ@ｿｽﾆ、ｿｽｿｽｿｽいｿｽｿｽﾈ機ｿｽｿｽﾆの通信ｿｽﾉ暦ｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉ、ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽﾄ機ｿｽ¥ｿｽｿｽIｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽCｿｽhｿｽｿｽｿｽAｿｽ@ｿｽｿｽｿｽpｿｽﾊ信ｿｽ@ｿｽ¥ｿｽﾆゑｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽｿｽｿｽﾄまゑｿｽｿｽBｿｽpｿｽtｿｽHｿｽ[ｿｽ}ｿｽｿｽｿｽXｿｽIｿｽﾉゑｿｽﾜゑｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽ@ｿｽQｿｽlｿｽﾜゑｿｽ
ｿｽ@ｿｽ@ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽ[ｿｽXｿｽｿｽDIOｿｽJｿｽ[ｿｽhｿｽﾌドｿｽｿｽｿｽCｿｽoｿｽ[ｿｽﾍ具ｿｽｿｽLｿｽIｿｽ[ｿｽvｿｽｿｽ
ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽXｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽrｿｽbｿｽgｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾌとオｿｽtｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽGｿｽｿｽｿｽ[
ｿｽ@ｿｽ@ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽｿｽBｿｽKｿｽｿｽｿｽﾅ鯉ｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊとなゑｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽ@ｿｽﾜゑｿｽｿｽAｿｽ}ｿｽｿｽｿｽ`ｿｽXｿｽｿｽｿｽbｿｽhｿｽ笊｡ｿｽｿｽｿｽﾌタｿｽCｿｽ}ｿｽ[ｿｽｿｽﾅ難ｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽ^
ｿｽ@ｿｽ@ｿｽｿｽｿｽXｿｽｿｽDIOｿｽｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽEｿｽEｿｽE
ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽﾄ、ｿｽrｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽ@System.Threading.ReaderWriterLock ｿｽｿｽgｿｽｿｽｿｽﾄ排ｿｽｿｽｿｽｿｽｿｽ艪ｵ
ｿｽ@ｿｽ@ｿｽﾄまゑｿｽｿｽBｿｽｿｽｿｽﾊはほとゑｿｽﾇ会ｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽﾈ擾ｿｽB
ｿｽﾒゑｿｽ 2009/04/17(ｿｽｿｽ) 21:23:16
Hongliangｿｽlｿｽ@ｿｽIｿｽVｿｽｿｽｿｽEｿｽlｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽｿｽﾇゑｿｽﾅ ｿｽNｿｽｿｽｿｽXｿｽﾍクｿｽbｿｽLｿｽ[ｿｽﾌ型ｿｽ@ｿｽﾈゑｿｽﾄ撰ｿｽｿｽｿｽﾅクｿｽｿｽｿｽXｿｽ理会ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾅゑｿｽ
ｿｽｿｽｿｽHｿｽﾅはなゑｿｽｿｽﾈゑｿｽｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽ@ｿｽ@ｿｽﾏ撰ｿｽｿｽﾌスｿｽRｿｽ[ｿｽvｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌ趣ｿｽｿｽｿｽ
ｿｽｿｽｿｽ@ｿｽｿｽｿｽﾌ通ゑｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽ[ｿｽXｿｽﾐのｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽiIFCDIO)ｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾏ撰ｿｽｿｽﾉつゑｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
Public Class Dio
Private hDeviceHandle As IntPtｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾏ撰ｿｽｿｽﾌつゑｿｽｿｽ
Public Sub Init_DIO()
hDeviceHandle = IFCDIO_ANY.DioOpen(lpszName, IFCDIO_ANY.FBIDIO_FLAGE)
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾏ撰ｿｽｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾂゑｿｽｿｽ
End Sub
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽEｿｽB
ｿｽｿｽImplements IDisposable
> Private Sub FormMain_FormClosing ...
> Dio3232 = Nothing
> End Sub
Implements IDisposableｿｽﾉつゑｿｽｿｽﾄ抵ｿｽｿｽﾗてみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾆガｿｽxｿｽ[ｿｽWｿｽRｿｽｿｽｿｽNｿｽ^ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽﾜゑｿｽｿｽAPublic Sub Dispose() Implements IDisposable.DisposeｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ
ｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽ@Dio3232 = Nothingｿｽｿｽ@ｿｽKｿｽvｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽOutBufｿｽﾏ撰ｿｽｿｽｿｽlｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽﾌ変撰ｿｽｿｽﾍデｿｽWｿｽ^ｿｽｿｽｿｽoｿｽﾍボｿｽ[ｿｽhｿｽﾌ出ｿｽﾍビｿｽbｿｽgｿｽﾌ擾ｿｽｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽ驍ｽｿｽﾟゑｿｽ
ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Public Class Dio
Public OutBuf(3) As Integerｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾏ撰ｿｽｿｽﾌつゑｿｽｿｽ
ｿｽ@ｿｽ@Public Sub SetDio(ByVal Data As Integer)
Dim PortNo As Integer
Dim Bit As Integer
PortNo = Data ¥ &H100
Bit = Data Mod &H100
OutBuf(PortNo) = OutBuf(PortNo) Or Bit
st = IFCDIO_ANY.DioOutputByte(hDeviceHandle, PortNo, moutbuf(PortNo))
If st <> 0 Then
MessageBox.Show("Output Data failed", "PCI2726CｿｽGｿｽｿｽｿｽ[", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
ｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾍ、
Private Sub BackgroundWorker1_RunWorkerCompleted(ｿｽﾈ暦ｿｽ) Handles BackgroundWorker1.RunWorkerCompleted
Dim Dio3232 As Dio = New Dio
'ｿｽeｿｽXｿｽgｿｽｿｽｿｽﾊ出ｿｽｿｽ
Dio3232.SetDio(TEST_RSLT1)
ｿｽ@End Sub
ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅは、OutBufｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾔゑｿｽNｿｽｿｽｿｽXｿｽﾌ考ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽEｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽAｿｽ@ｿｽNｿｽｿｽｿｽXｿｽｿｽﾅゑｿｽConstｿｽ骭ｾ
>ｿｽｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽｿｽﾌゑｿｽ Shared ReadOnly ｿｽﾈ変撰ｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
Public Class Dio
ｿｽ@ｿｽ@Implements IDisposable
ｿｽ@ｿｽ@Public Shared ReadOnly Sw1 as Integer = &H1
ｿｽ@ｿｽ@Public Shared ReadOnly Sw2 as Integer = &H2
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽBｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽgｿｽｿｽ
>ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽuVB.Netｿｽ@ｿｽｿｽｿｽ¥ｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽvｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽ@ｿｽﾆはどのようｿｽﾈ趣ｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
