谁能将vb6代码转换为vb 2008? [英] Can anyone convert vb6 codes to vb 2008??
问题描述
我的项目遇到了麻烦
我想将此vb6代码转换为vb 2008 ...可以帮我吗?
I want to convert this vb6 codes to vb 2008...can you help me??
这是代码:
显式选项
按字节将SData(8)昏暗
Dim SData(8) As Byte
将SReply(8)设为字节
Dim SReply(8) As Byte
已将Dim复制为布尔值
Dim Replied As Boolean
私人Sub cmdClear_Click()
Private Sub cmdClear_Click()
将我视作整数
将虚拟角色昏暗为字符串
Dim dummy As String
SData(1)= 5
SData(1) = 5
SData(2)= 0
SData(2) = 0
SData(3)= 0
SData(3) = 0
SData(4)= 0
SData(4) = 0
呼叫校验和
已回复= False
Replied = False
虚拟= MSComm1.Input
dummy = MSComm1.Input
对于i = 0到7
MSComm1.Output = Chr(SData(i))
MSComm1.Output = Chr(SData(i))
下一个我
已回复= False
While Replied = False
DoEvents
DoEvents
温特
Wend
txtResults.Text =所有用户已删除!"
txtResults.Text = "All Users deleted!"
结束子
私人Sub cmdRead_Click()
Private Sub cmdRead_Click()
将我视作整数
将虚拟角色昏暗为字符串
Dim dummy As String
txtResults.Text ="Lagay mo daliri mo(isa lang!).."
txtResults.Text = "Lagay mo daliri mo (isa lang!).."
SData(1)=& HC
SData(1) = &HC
SData(2)= 0
SData(2) = 0
SData(3)= 0
SData(3) = 0
SData(4)= 0
SData(4) = 0
SData(5)= 0
SData(5) = 0
呼叫校验和
虚拟= MSComm1.Input
dummy = MSComm1.Input
对于i = 0到7
MSComm1.Output = Chr(SData(i))
MSComm1.Output = Chr(SData(i))
下一个我
已回复= False
Replied = False
已回复= False
While Replied = False
DoEvents
DoEvents
温特
Wend
Timer1.Enabled =真
Timer1.Enabled = True
Timer1.Enabled = True
While Timer1.Enabled = True
DoEvents
DoEvents
温特
Wend
如果SReply(4)= 5那么
If SReply(4) = 5 Then
txtResults.Text ="Di kita kilala! pi!'
txtResults.Text = "Di kita kilala! Tsupi!"
其他
Else
txtResults.Text ="Hello No."; + Str(SReply(2)* 256 + SReply(3))+" 欢迎!"
txtResults.Text = "Hello No. " + Str(SReply(2) * 256 + SReply(3)) + " Welcome!"
如果结束
End If
结束子
私人Sub cmdReg_Click()
Private Sub cmdReg_Click()
将我视作整数
将哑元作为字符串
将V1,V2设置为整数
Dim V1, V2 As Integer
将布尔值设为昏暗
好=真
V1 = Int(Val(txtUserNo.Text)/256)
V1 = Int(Val(txtUserNo.Text) / 256)
V2 = Val(txtUserNo.Text)-V1 * 256
V2 = Val(txtUserNo.Text) - V1 * 256
SData(1)= 1
SData(1) = 1
SData(2)= V1
SData(2) = V1
SData(3)= V2
SData(3) = V2
SData(4)= 1
SData(4) = 1
呼叫校验和
已回复= False
Replied = False
虚拟= MSComm1.Input
dummy = MSComm1.Input
对于i = 0到7
MSComm1.Output = Chr(SData(i))
MSComm1.Output = Chr(SData(i))
下一个我
txtResults.Text =按下手指进行注册.我们将执行3次."
txtResults.Text = "Press a finger to register. We will do this 3 times."
已回复= False
While Replied = False
DoEvents
DoEvents
温特
Wend
如果SReply(4)<> 0然后好=假
If SReply(4) <> 0 Then Good = False
Timer1.Enabled =真
Timer1.Enabled = True
Timer1.Enabled = True
While Timer1.Enabled = True
DoEvents
DoEvents
温特
Wend
SData(1)= 2
SData(1) = 2
呼叫校验和
虚拟= MSComm1.Input
dummy = MSComm1.Input
txtResults.Text =第二次按下同一根手指..."
txtResults.Text = "Press the same finger the second time..."
已回复= False
Replied = False
对于i = 0到7
MSComm1.Output = Chr(SData(i))
MSComm1.Output = Chr(SData(i))
下一个我
已回复= False
While Replied = False
DoEvents
DoEvents
温特
Wend
如果SReply(4)<> 0然后好=假
If SReply(4) <> 0 Then Good = False
Timer1.Enabled =真
Timer1.Enabled = True
Timer1.Enabled = True
While Timer1.Enabled = True
DoEvents
DoEvents
温特
Wend
SData(1)= 3
SData(1) = 3
呼叫校验和
虚拟= MSComm1.Input
dummy = MSComm1.Input
txtResults.Text =上次按下同一根手指..."
txtResults.Text = "Press the same finger the last time..."
已回复= False
Replied = False
对于i = 0到7
MSComm1.Output = Chr(SData(i))
MSComm1.Output = Chr(SData(i))
下一个我
已回复= False
While Replied = False
DoEvents
DoEvents
温特
Wend
如果SReply(4)<> 0然后好=假
If SReply(4) <> 0 Then Good = False
Timer1.Enabled =真
Timer1.Enabled = True
Timer1.Enabled = True
While Timer1.Enabled = True
DoEvents
DoEvents
温特
Wend
如果SReply(4)= 0那么
If SReply(4) = 0 Then
txtResults.Text =确定"
txtResults.Text = "Ok"
其他
Else
txtResults.Text =遇到错误!重复注册"
txtResults.Text = "Error encountered! Repeat registration"
如果结束
End If
结束子
私人Sub cmdRemove_Click()
Private Sub cmdRemove_Click()
将我视作整数
将虚拟角色昏暗为字符串
Dim dummy As String
将V1,V2设置为整数
Dim V1, V2 As Integer
V1 = Int(Val(txtUserNo.Text)/256)
V1 = Int(Val(txtUserNo.Text) / 256)
V2 = Val(txtUserNo.Text)-V1 * 256
V2 = Val(txtUserNo.Text) - V1 * 256
SData(1)= 4
SData(1) = 4
SData(2)= V1
SData(2) = V1
SData(3)= V2
SData(3) = V2
SData(4)= 1
SData(4) = 1
呼叫校验和
已回复= False
Replied = False
虚拟= MSComm1.Input
dummy = MSComm1.Input
对于i = 0到7
MSComm1.Output = Chr(SData(i))
MSComm1.Output = Chr(SData(i))
下一个我
已回复= False
While Replied = False
DoEvents
DoEvents
温特
Wend
txtResults.Text ="用户号" + txtUserNo.Text +"已删除!"
txtResults.Text = "User No. " + txtUserNo.Text + " Removed!"
结束子
私人子Form_Load()
Private Sub Form_Load()
MSComm1.PortOpen = True
MSComm1.PortOpen = True
SData(0)=&HF5
SData(0) = &HF5
SData(7)=& HF5
SData(7) = &HF5
结束子
公共子Checksum()
Public Sub Checksum()
将我视作整数
SData(6)= 0
SData(6) = 0
对于i = 1到5
SData(6)= SData(6)Xor SData(i)
SData(6) = SData(6) Xor SData(i)
下一个我
结束子
私人Sub MSComm1_OnComm()
Private Sub MSComm1_OnComm()
将Rim视为字符串
将RxNumeric转换为字符串
Dim RxNumeric As String
将我视作整数
Rx = MSComm1.Input
Rx = MSComm1.Input
RxNumeric ='"
RxNumeric = ""
对于i = 1到Len(Rx)
For i = 1 To Len(Rx)
SReply(i-1)= Asc(Mid(Rx,i,1))
SReply(i - 1) = Asc(Mid(Rx, i, 1))
RxNumeric = RxNumeric +" " +十六进制(SReply(i-1))
RxNumeric = RxNumeric + " " + Hex(SReply(i - 1))
下一个我
txtWindow.Text = RxNumeric
txtWindow.Text = RxNumeric
已回复=正确
结束子
私人Sub Timer1_Timer()
Private Sub Timer1_Timer()
Timer1.Enabled = False
Timer1.Enabled = False
结束子
推荐答案
在我看来,您甚至没有通过在VB10中复制和粘贴该代码来进行尝试,您需要更改的主要内容是通过实例的事件方法添加处理程序和签名
In my idea did you not even try it by copying and pasting that code in VB10, the main things which you have to change is adding the handler and signature by event methods for instance
Private Sub cmdRead_Click(byval sender as object, byval e as eventargs) handles cmdRead.Click
这篇关于谁能将vb6代码转换为vb 2008?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!