是关于电压的
Private Sub Command1_Click()
Dim powerdelay&
Dim setvoltage!,buf$,buflen%
PowerDelay =50
setVoltage =val(Text1.text)
if setvoltage =0 then
Mscomm1.output =” c ” : Timedelay PowerDelay
Mscomm1.output =” H ” : Timedelay PowerDelay
Mscomm1.output =” A” : Timedelay PowerDelay
Mscomm1.output =” N ” : Timedelay PowerDelay
Mscomm1.output =” 1” : Timedelay PowerDelay
Mscomm1.output =Chr(13)
TimeDelay 100
Mscomm1.output =” o ” : Timedelay PowerDelay
Mscomm1.output =” u” : Timedelay PowerDelay
Mscomm1.output =” t” : Timedelay PowerDelay
Mscomm1.output =” o ” : Timedelay PowerDelay
Mscomm1.output =Chr(13)
Exit sub
End if
Mscomm1.output =” c ” : Timedelay PowerDelay
Mscomm1.output =” H ” : Timedelay PowerDelay
Mscomm1.output =” A” : Timedelay PowerDelay
Mscomm1.output =” N ” : Timedelay PowerDelay
Mscomm1.output =” 1” : Timedelay PowerDelay
Mscomm1.output =Chr(13)
TimeDelay 100
Mscomm1.output =” v ” : Timedelay PowerDelay
Mscomm1.output =” s” : Timedelay PowerDelay
Mscomm1.output =” e” : Timedelay PowerDelay
Mscomm1.output =” t ” : Timedelay PowerDelay
Mscomm1.output =” 1 ” : Timedelay PowerDelay
Mscomm1.output =” ” : Timedelay PowerDelay Buf= Trim(Format(SetVoltage,”00.00”))
Buflen= Len(Buf)
For I =1 To Buflen
Mscomm1.Output=Mid(Buf, i , 1) : TimeDelay PowerDelay
Next i
Mscomm1.output =Chr(13)
TimeDelay 100
Mscomm1.output =” o ” : Timedelay PowerDelay
Mscomm1.output =” u” : Timedelay PowerDelay
Mscomm1.output =” t” : Timedelay PowerDelay
Mscomm1.output =” 1 ” : Timedelay PowerDelay
Mscomm1.output =Chr(13)
End sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货