想把VB转为易语言代码

我会让你抓狂

Private Sub Timer1_Timer()
  Dim chhbuf As String
  Dim n1, i, n0, yp As Integer
  Dim bcc As Integer
  Dim asch(8) As Integer
  chbuf = MSComm1.Input
  yp = 0
  If Len(chbuf) = 0 Then
   Text3.ForeColor = &HFF&
   Text3.Text = "传送结束  通信失败 " + Str(LenB(chbuf))
   Text2.Text = "          "
   Text6.Text = "         "
   Text7.Text = "        "
   Text8.Text = "         "
   Text9.Text = "        "
   yp = 1
  Else
   Text3.ForeColor = &HFF&
   Text3.Text = "传送结束  通信失败 " + Str(LenB(chbuf))
   Text2.Text = "       "
   Text6.Text = "         "
   Text7.Text = "        "
   Text8.Text = "         "
   Text9.Text = "        "
   If LenB(chbuf) = 9 Then
      asch(0) = AscB(chbuf)
      asch(1) = AscB(MidB(chbuf, 2, 1))
      asch(2) = AscB(MidB(chbuf, 3, 1))
      asch(3) = AscB(MidB(chbuf, 4, 1))
      asch(4) = AscB(MidB(chbuf, 5, 1))
      asch(5) = AscB(MidB(chbuf, 6, 1))
      asch(6) = AscB(MidB(chbuf, 7, 1))
      asch(7) = AscB(MidB(chbuf, 8, 1))
      asch(8) = AscB(MidB(chbuf, 9, 1))
      bcc = asch(0) + asch(1) + asch(2) + asch(3) + asch(4) + asch(5) + asch(6) + asch(7)
      bcc = bcc - 128 * Int(bcc / 128)
      If asch(8) = bcc Then
         Text3.ForeColor = &H8&
         Text3.Text = "传送结束  通信完成 "
         Text2.Text = "        "
         If asch(1) >= 128 Then
           Text6.Text = asch(0) + 256 * (asch(1) - 128) - 32768
          Else
           Text6.Text = asch(0) + 256 * asch(1)
         End If
         If asch(3) >= 128 Then
           Text7.Text = asch(2) + 256 * (asch(3) - 128) - 32768
          Else
           Text7.Text = asch(2) + 256 * asch(3)
         End If
         Text8.Text = asch(4)
         Text9.Text = asch(5)
         If asch(7) >= 128 Then
             Text2.Text = asch(6) + 256 * (asch(7) - 128) - 32768
           Else
             Text2.Text = asch(6) + 256 * asch(7)
         End If
       Else
       Text2.Text = "err"
      End If
    Else
     yp = 1
   End If

  End If
  Timer1.Enabled = False
' MSComm1.PortOpen = False
  Command1.Enabled = True
  If lp = 1 Then
    Command1.SetFocus
  End If
  erlp = erlp + yp
  lp = lp + 1
End Sub

917907731

.子程序 Timer1_Timer

.局部变量 chhbuf, 文本型,
.局部变量 n1, 整数型,
.局部变量 i, 整数型,
.局部变量 n0, 整数型,
.局部变量 yp, 整数型,
.局部变量 bcc, 整数型,
.局部变量 asch, 整数型, , "9"
chbuf = MSComm1.Input
yp = 0
.如果 (Len(chbuf) = 0 )

Text3.ForeColor = 255
Text3.Text = "传送结束  通信失败 " + Str(LenB(chbuf))
Text2.Text = "          "
Text6.Text = "         "
Text7.Text = "        "
Text8.Text = "         "
Text9.Text = "        "
yp = 1
.否则
Text3.ForeColor = 255
Text3.Text = "传送结束  通信失败 " + Str(LenB(chbuf))
Text2.Text = "       "
Text6.Text = "         "
Text7.Text = "        "
Text8.Text = "         "
Text9.Text = "        "
.如果 (LenB(chbuf) = 9 )

asch(0) = AscB(chbuf)
asch(1) = AscB(MidB(chbuf, 2, 1))
asch(2) = AscB(MidB(chbuf, 3, 1))
asch(3) = AscB(MidB(chbuf, 4, 1))
asch(4) = AscB(MidB(chbuf, 5, 1))
asch(5) = AscB(MidB(chbuf, 6, 1))
asch(6) = AscB(MidB(chbuf, 7, 1))
asch(7) = AscB(MidB(chbuf, 8, 1))
asch(8) = AscB(MidB(chbuf, 9, 1))
bcc = asch(0) + asch(1) + asch(2) + asch(3) + asch(4) + asch(5) + asch(6) + asch(7)
bcc = bcc - 128 * Int(bcc / 128)
.如果 (asch(8) = bcc )

Text3.ForeColor = 8
Text3.Text = "传送结束  通信完成 "
Text2.Text = "        "
.如果 (asch(1) >= 128 )

Text6.Text = asch(0) + 256 * (asch(1) - 128) - 32768
.否则
Text6.Text = asch(0) + 256 * asch(1)
.如果结束
.如果 (asch(3) >= 128 )

Text7.Text = asch(2) + 256 * (asch(3) - 128) - 32768
.否则
Text7.Text = asch(2) + 256 * asch(3)
.如果结束
Text8.Text = asch(4)
Text9.Text = asch(5)
.如果 (asch(7) >= 128 )

Text2.Text = asch(6) + 256 * (asch(7) - 128) - 32768
.否则
Text2.Text = asch(6) + 256 * asch(7)
.如果结束
.否则
Text2.Text = "err"
.如果结束
.否则
yp = 1
.如果结束
.如果结束
Timer1.Enabled = False
Command1.Enabled = True
.如果真 (lp = 1 )

Command1.SetFocus
.如果真结束
erlp = erlp + yp
lp = lp + 1

[易]晴空

只看的动 如果 否则 如果否则 如果结束

牛栏山二锅头

都是英语啊，这根本看不懂啊

羊羽子

不懂VB   
不过代码看起来跟按键精灵有点像  像是一个函数 就是易语言的子程序

下边不一定准啊  我根据按键精灵猜的   其实你可以把代码放到按键精灵里边看

1  声明一个函数
2  声明1个文本变量
3  声明4个数值变量
4  声明1个数值变量
5  声明一个8个成员的数值数组
6  读取一个什么东西的一个属性给文本变量chbuf
7  数值变量yp赋值为0
8  如果文本变量chbuf的长度等于0则怎么怎么    数值变量yp=1 否则怎么怎么

如果 取字节集长度（ 到字节集（文本变量chbuf））则给上边申请的数值数组全部复制为什么东东来着

bcc=asch数值数组前7个成员的和
bcc=bcc-128*到整数 (bcc/128)

下边一堆判断  if=如果   else=否则   end if=结束如果  组合起来相当于易语言的如果     这个else 和end if你可以想象成易语言的如果的流程线的转折


最后是两个的什么东西的属性为假一个什么的属性为真

再最后是一个如果lp=1则怎么否则怎么

最最后函数结束

九尾招财猫

917907731 发表于 2017-3-22 09:45
.子程序 Timer1_Timer

.局部变量 chhbuf, 文本型,

厉害！！大神呀