تبدیل hex به عدد(باسکول)

[maisam57]

با سلام
در مورد convert چیز بدردبخوری پیدا نکردم
من با دستگاه توزین tec1600 کار میکنم و موفق شدم وزن رو بصورت hex دریافت کنم
180 = 34 01 00 00 90
50 = 32 00 00 00 90
سمت راست وزن و سمت چپ مبنار شانزده است
من میخواستم عدد وزن 180 یا 50 رو دریافت کنم
با تشکر

[maisam57]

دوستان اگه ممکنه کمک کنن

[Reza,M]

با سلام اگه منظورتونو درست متوجه شده باشم(تبديل هگز به عدد)

Dim i As Integer
i = Val(TextBox1.Text)
Dim d2 As Integer = Convert.ToInt32(i, 16)
Label4.Text = d2

[maisam57]

مشکل حل شد

Dim MeasuredWeightInFullKilograms As Long = 0
Dim BitRepresentation As String = String.Empty
BitRepresentation &= String.Format("{0,7}", Convert.ToString(&H7C, 2)).Replace(" ", "0")
MeasuredWeightInFullKilograms = BinaryToLong(BitRepresentation)
TextBox1.Text = MeasuredWeightInFullKilograms.ToString

Private Function BinaryToLong(ByVal binary_value As String) As Long
binary_value = binary_value.Trim().ToUpper()
If binary_value.StartsWith("&B") Then binary_value = binary_value.Substring(2)
binary_value = binary_value.Replace(" ", "")
binary_value = New String("0", 64 - binary_value.Length) & binary_value
Dim hex_result As String = ""
For nibble_num As Integer = 0 To 15
Dim factor As Integer = 1
Dim nibble_value As Integer = 0
For bit As Integer = 3 To 0 Step -1
If binary_value.Substring(nibble_num * 4 + bit, 1).Equals("1") Then
nibble_value += factor
End If
factor *= 2
Next bit
hex_result &= nibble_value.ToString("X")
Next nibble_num
Return Long.Parse(hex_result, Globalization.NumberStyles.HexNumber)
End Function

[abahrani]

مشکل حل شد

Dim MeasuredWeightInFullKilograms As Long = 0
Dim BitRepresentation As String = String.Empty
BitRepresentation &= String.Format("{0,7}", Convert.ToString(&H7C, 2)).Replace(" ", "0")
MeasuredWeightInFullKilograms = BinaryToLong(BitRepresentation)
TextBox1.Text = MeasuredWeightInFullKilograms.ToString

Private Function BinaryToLong(ByVal binary_value As String) As Long
binary_value = binary_value.Trim().ToUpper()
If binary_value.StartsWith("&B") Then binary_value = binary_value.Substring(2)
binary_value = binary_value.Replace(" ", "")
binary_value = New String("0", 64 - binary_value.Length) & binary_value
Dim hex_result As String = ""
For nibble_num As Integer = 0 To 15
Dim factor As Integer = 1
Dim nibble_value As Integer = 0
For bit As Integer = 3 To 0 Step -1
If binary_value.Substring(nibble_num * 4 + bit, 1).Equals("1") Then
nibble_value += factor
End If
factor *= 2
Next bit
hex_result &= nibble_value.ToString("X")
Next nibble_num
Return Long.Parse(hex_result, Globalization.NumberStyles.HexNumber)
End Function

من هم این نمونه کد hex دریافت می کنم.جناب میثم من کد hex را چه جوری به کد های شما بدم و بعد خروجی رو در Textbox نمایش دهم؟
من کد hex رو در برنامه ضمیمه بدست میارم اما کد hex رو در Richtextbox نشون می ده اما من می خواهم کد hex تو یه textbox نشون داده بشه.