VFP 愛用者社區

[ufochen]

請前輩們幫忙一下,把下面VB6語法轉為VFP9語法,感激不盡 !

Public Const ALL As Integer = &H1000
Public Const InH As Integer = &H1001
Public Const InF As Integer = &H1002
Public Const NMOS As Integer = &H1003
Public Const CMOS As Integer = &H1004

Public Const SPIMode0 As Byte = &H1
Public Const SPIMode1 As Byte = &H2
Public Const SPIMode2 As Byte = &H4
Public Const SPIMode3 As Byte = &H8

Public Declare Function OpenMW1 Lib "mw2332.dll" () As Boolean
Public Declare Function CloseMW1 Lib "mw2332.dll" () As Boolean
Public Declare Function GetMW1State Lib "mw2332.dll" () As Boolean
Public Declare Function GetMW1FW Lib "mw2332.dll" () As Long

Public Declare Function SetMW1 Lib "mw2332.dll" (ByVal usPort As Integer, ByVal usData As Integer, ByVal usParam As Integer) As Boolean
Public Declare Function SetMW1All Lib "mw2332.dll" (ByVal usData As Integer, ByVal usParam As Integer) As Boolean
Public Declare Function MW1Out Lib "mw2332.dll" (ByVal usPort As Integer, ByVal btData As Byte) As Boolean
Public Declare Function MW1OutAll Lib "mw2332.dll" (ByVal btData1 As Byte, ByVal btData2 As Byte, ByVal btData3 As Byte, ByVal btData4 As Byte) As Boolean
Public Declare Function MW1In Lib "mw2332.dll" (ByVal usPort As Integer, btData As Byte) As Boolean
Public Declare Function MW1InAll Lib "mw2332.dll" (btData1 As Byte, btData2 As Byte, btData3 As Byte, btData4 As Byte) As Boolean

Public Declare Function MW1InIR Lib "mw2332.dll" (ByVal btLength As Byte) As Boolean
Public Declare Function MW1OutIR Lib "mw2332.dll" (ByVal btLength As Byte, lpBuffer As Byte) As Boolean
Public Declare Function MW1IRGetR Lib "mw2332.dll" () As Byte
Public Declare Function MW1InIRStop Lib "mw2332.dll" () As Boolean

[garfield]

參考這篇: http://vfp.sunyear.com.tw/viewtopic.php?t=4216&highlight=Public+Declare+Function+Lib

[ufochen]

謝謝 ! 先參考看看 !!