小弟快答辩了,但不知道这段程序什么意思,大家帮我翻一下,最好逐字逐句
是关于电压的
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
--------------------编程问答-------------------- 乖乖,不懂 --------------------编程问答-------------------- dddddddddddddddddd不要沉掉啊 --------------------编程问答-------------------- 往传输缓冲区写数据流。串口通讯 --------------------编程问答-------------------- 协议呢
补充:VB , 基础类