吉林省西门子授权供应商---西门子变频器长春市总代理

private sub ()
= &h1   ‘&h1是16进制的1，转换成八位二进制就是00000001，这是让q0.0=1；如果让q0.1=1，则=&h2（八位二进制00000010）；让q0.2=1，则=&h4（八位二进制00000100）；让q0.1和q0.0同时=1，则=&h3（八位二进制00000011）；这个值可以是&h0~&hff中的任意一个值，使q0.7~q0.0得到得到不同的状态

0 ()
end sub

sub 0(byref )

dim str_write(0 to 37) as byte
dim str_val(0 to 5) as byte
dim haha as byte
dim i as integer
dim temp_fcs as variant

mscomm1.rthreshold = 24

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) = &h0
str_write(12) = &h0
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
str_write(22) = &h2
str_write(23) = &h0
str_write(24) = &h1
str_write(25) = &h0
str_write(26) = &h1
str_write(27) = &h82
str_write(28) = &h0
str_write(29) = &h0
str_write(30) = &h0 '如果是改写q0.x,这个地方就=&h0；如果是改写q1.x，这个地方就是=&h8
str_write(31) = &h0
str_write(32) = &h4
str_write(33) = &h0
str_write(34) = &h8

str_write(35) =   'qb的值，也就是q0.x或q1.x的状态

for i = 4 to 35
    temp_fcs = temp_fcs + str_write(i)
    next
str_write(36) = temp_fcs mod 256
str_write(37) = &h16
mscomm1.output = str_write
sleep (50)
str_val(0) = &h10
str_val(1) = &h2
str_val(2) = &h0
str_val(3) = &h5c
str_val(4) = &h5e
str_val(5) = &h16

mscomm1.output = str_val
end sub

private sub userform_initialize()
mscomm1.commport = 1
mscomm1.settings = "9600,e,8,1"
mscomm1.inputlen = 0
mscomm1.rthreshold = 24
mscomm1.inputmode = cominputmodebinary
mscomm1.portopen = true
end sub