VB转换为C#

来源:百度知道 编辑:UC知道 时间:2024/05/03 01:49:36
高手帮我把这个转换为C#一下,谢谢
Attribute VB_Name = "Module1"
Private Declare Sub Sleep Lib "kernel32" (ByVal dwseconds As Long)
Public Function s7200_M1_set(MSComm1 As Object, Mx As Byte, My As Byte, Mv As Byte)
Dim str_write(0 To 37) As Byte
Dim str_val(0 To 5) As Byte
Dim Temp_FCS As Variant
Dim i As Long

str_write(0) = &H68
str_write(1) = &H20
str_write(2) = &H20
str_write(3) = &H68
str_write(4) = &H2
str_write(5) = &H0
str_write(6) = &H7C
str_write(7) = &H32
str_write(8) = &H1
str_write(9) = &H0
str_write(10) = &H0
str_write(11) = &H43
str_write(12) = &H1
str_write(13) = &H0
str_write(14) = &HE
str_write(15) = &H0
str_write(16) = &H5
str_write(17) = &H5
str_write(18) = &H1
str_write(19) = &H12
str_write(20) = &HA<

// Attribute VB_Name = "Module1"
private [DllImport("GAIS", SetLastError=true)] static extern void Sleep Lib "kernel32" ( dwseconds As long) {
public s7200_M1_set(MSComm1 As object, Mx As byte, My As byte, Mv As byte) {
str_write(0 ; GAIS <= 37) As byte ;
str_val(0 ; GAIS <= 5) As byte ;
Temp_FCS As Variant ;
i As long ;

str_write(0) = &H68 ;
str_write(1) = &H20 ;
str_write(2) = &H20 ;
str_write(3) = &H68 ;
str_write(4) = &H2 ;
str_write(5) = &H0 ;
str_write(6) = &H7C ;
str_write(7) = &H32 ;
str_write(8) = &H1 ;
str_write(9) = &H0 ;
str_write(10) = &H0 ;
str_write(11) = &H43 ;
str_write(12) = &H1 ;
str_write(13) = &H0 ;
str_write(14) = &HE ;
str_write(15) = &H0 ;
str_write(16) = &H5 ;
str_write(17) = &H5 ;
str_write(18) = &H1 ;
str_write(19) = &H12 ;
str_write(20) = &HA ;
str_write(21) = &H10 ;