[2005] need help with some vb code

[sgl123]

hello, i am a student and a newbie to visual basic and i have been set some homework, i have to create a binary converter and i have got quite far but for some reason it is not working right, i believe that the loop in my code is no adding up the vartotals every time it loops, the code i have made is this:

Public Class FfmBinConv

Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click

Dim vartotal, varmulti, varcontrol As Integer

Dim varright, varval, varbin As String

varbin = txtBin.Text

varmulti = 1

For varcontrol = 8 To 1 Step -1

varright = Mid(varbin, varcontrol, 1)

varval = CInt(varright)

vartotal = varval * varmulti

varmulti = varmulti * 2

Next varcontrol

lblResult.Text = CStr(vartotal)


End Sub
End Class

Any help would be very much appreciated.

[Half]

Vartotal is getting "erased" and reassigned a value each time in line

vartotal = varval * varmulti

To fix this (and if THIS is the problem), put a slightly modified lblResult.Text assignment inside the loop:

lblResult.Text += CStr(vartotal) & vbCrLf

You should probably use a string for that though and put the whole in the label after the loop.

[ComputerJy]

Here is how you convert

Public Function ToBinary(ByVal Number As Integer) As String
        Dim strDecimalNumber As String = ""
        Dim strReturnValue As String = ""
        Dim strBinValue As String = ""
        Dim lngStringLength As Integer
        Dim lngIndex As Integer
        strDecimalNumber = Oct(Number)
        lngStringLength = Len(strDecimalNumber)
        For lngIndex = 1 To lngStringLength
            Select Case Integer.Parse(Mid$(strDecimalNumber, lngIndex, 1))
                Case 0
                    strBinValue = "000"
                Case 1
                    strBinValue = "001"
                Case 2
                    strBinValue = "010"
                Case 3
                    strBinValue = "011"
                Case 4
                    strBinValue = "100"
                Case 5
                    strBinValue = "101"
                Case 6
                    strBinValue = "110"
                Case 7
                    strBinValue = "111"
            End Select
            strReturnValue &= strBinValue
        Next
        ToBinary = strReturnValue
    End Function
    Public Function ToInteger(ByVal Binary As String) As Integer
        Return Convert.ToInt32(Binary, 2)
    End Function

If you have any problems understanding, feel free to ask

[ComputerJy]

And by the way, to the forums