[RESOLVED] Subtractinghexidecimal Numbers and keeping leading 0's (vb2005)

[Zero1UP]

Well this is what I have so far:

Dim code_address
Dim code_offset
Dim addition_code
Dim convert_code
Dim i As Integer

code_address = Convert.ToInt32(txt_code_address.Text, 16)
code_offset = Convert.ToInt32(txt_offset.Text, 16)
addition_code = code_address + code_offset
convert_code = Convert.ToString(addition_code, 16)
txt_answer.Text = convert_code
txt_answer.Text = (i.ToString.PadLeft(8, "0"c))
txt_answer.Text = (i.ToString.PadRight(8, "0"c))
What im trying to make is an offset calculator and I need the leading zeros to stay, before I tried to find a fix for it it worked just fine, just no zero's.

Any case as of now all it gives me is 8 zero's

[dglienna]

Declare things:


Dim code_address As Int32 = Convert.ToInt32(txt_code_address.Text, 16)
Dim code_offset As Int32 = Convert.ToInt32(txt_offset.Text, 16)
Dim addition_code = code_address + code_offset
Dim convert_code = Convert.ToString(addition_code, 16)
Dim i as String = convert_code
' modify this part below
txt_answer.Text = convert_code
txt_answer.Text = (i.ToString.PadLeft(8, "0"c))
txt_answer.Text = (i.ToString.PadRight(8, "0"c))



I didn't test things, but that should fix the i reference

EDIT: You need to use HEX() to subtract (not add like you have)

[Zero1UP]

Declare things:


Dim code_address As Int32 = Convert.ToInt32(txt_code_address.Text, 16)
Dim code_offset As Int32 = Convert.ToInt32(txt_offset.Text, 16)
Dim addition_code = code_address + code_offset
Dim convert_code = Convert.ToString(addition_code, 16)
Dim i as String = convert_code
' modify this part below
txt_answer.Text = convert_code
txt_answer.Text = (i.ToString.PadLeft(8, "0"c))
txt_answer.Text = (i.ToString.PadRight(8, "0"c))



I didn't test things, but that should fix the i reference

EDIT: You need to use HEX() to subtract (not add like you have)

Yea I know, it was a mistype in the title , either way I still had the same issue for both add and sub, but I'll give this a go

EDIT:
Thanks a ton worked like a charm, the only thing that I didn't need in there was:
txt_answer.Text = (i.ToString.PadRight(8, "0"c))