台灣最大程式設計社群網站
線上人數
1529
 
會員總數:241342
討論主題:186910
歡迎您免費加入會員
討論區列表 >> C# >> VB.NET程式碼轉c#
[ 變換順序 ]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VB.NET程式碼轉c#
價值 : 100 QP  點閱數:253 回應數:4

樓主

醬油哥
門外漢
0 14
400 19
發送站內信

最近想要把之前寫的vb程式碼轉換成c#
可是ASCII,BYTE,CHAR的轉換上遇上了瓶頸
想請教各位先進可否幫我轉換一下,程式碼如下
感謝各位先進
Private Sub GenerateCodeString(ByVal Command As String, ByRef Array() As Byte, ByVal CommandLength As Byte)
Dim i As Integer
Dim sum As Integer
Dim SumString As String
Array(0) = 2
For i = 1 To CommandLength - 4
Array(i) = Asc(Microsoft.VisualBasic.Mid(Command, i, 1))
Next
For i = 0 To CommandLength - 4
sum = sum + Array(i)
Next
SumString = Microsoft.VisualBasic.Right(sum.ToString("X"), 2)
Array(i) = Asc(Microsoft.VisualBasic.Left(SumString, 1))
Array(i + 1) = Asc(Microsoft.VisualBasic.Right(SumString, 1))
Array(i + 2) = 3
End Sub
Private Sub DoReceive()
Dim WriteData(20) As Byte
Dim ReadLength As Byte
R3_Value.Text = 0
RS232_D3.Text = 0
While receiving = True
GenerateCodeString("014601R03001", WriteData, 16)
SerialPort1.Write(WriteData, 0, 16)
Thread.Sleep(30)
ReadLength = SerialPort1.BytesToRead
SerialPort1.Read(ReadData, 0, SerialPort1.BytesToRead)
RS232_R3.Text = ""
For Me.iIndex = 0 To ReadLength - 2
RS232_R3.Text = RS232_R3.Text & Chr(ReadData(Me.iIndex))
Next
R3_Value.Text = Val("&H" & RS232_R3.Text.Substring(6, 4))
End While
End Sub



搜尋相關Tags的文章: [ vb轉c# ] ,
本篇文章發表於2017-10-11 09:15
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

James Cheng
檢舉此回應
http://www.developerfusion.com/tools/convert/vb-to-csharp/?batchId=ad4e3498-8889-45ab-93fb-d95ae73e3d1f
這網址看是否能幫助到你
本篇文章回覆於2017-10-11 09:32
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

風燭殘年
捐贈 VP 給 風燭殘年 檢舉此回應

本篇文章回覆於2017-10-11 16:30
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

醬油哥
檢舉此回應
Array(0) = 2
For i = 1 To CommandLength - 4
Array(i) = Asc(Microsoft.VisualBasic.Mid(Command, i, 1))
Next

我目前卡在這段,我將Ascii轉成int要放到陣列中,可是卻沒辦法放進去
Array(0) = 2可是這段就有辦法直接指定成int
不知道這是什麼原因呢?
本篇文章回覆於2017-10-11 21:00
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

小魚
檢舉此回應
應該是型別轉換的問題吧,
VB預設會幫你自動轉換型別,
但是C#跟C++都不行,
必須要一樣的型別才能編譯過。
本篇文章回覆於2017-10-12 00:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
[ 變換順序 ]   
1

回覆
如要回應,請先登入.