Public Class frmMain

    Private Sub btnConvert_Click(sender As Object, e As EventArgs) Handles btnConvert.Click
        'Try
        '    Dim input As Integer = CInt(tbxInput.Text)
        '    Dim convert As String = Nothing
        '    For power As Integer = 8 To 0 Step -1
        '        If input >= 2 ^ power And input <> 0 Then
        '            input -= 2 ^ power
        '            convert += "1"
        '        ElseIf convert <> Nothing Then
        '            convert += "0"
        '        End If
        '    Next
        '    lblBinary.Text = convert
        'Catch
        'End Try

        Try
            Dim input As Integer = CInt(tbxInput.Text)
            Dim convert As String = Nothing
            Dim div As Double = input
            Dim upto As Integer = Nothing
            Do While div >= 2
                div /= 2
                upto += 1
            Loop
            For power As Integer = upto To 0 Step -1
                If input >= 2 ^ power And input <> 0 Then
                    input -= 2 ^ power
                    convert += "1"
                Else 'If convert <> Nothing Then
                    convert += "0"
                End If
            Next
            lblBinary.Text = convert
        Catch
        End Try
    End Sub

    Private Sub btnConvert2_Click(sender As Object, e As EventArgs) Handles btnConvert2.Click
        Try
            Dim input As String = tbxInput2.Text
            'input.Reverse()
            Dim Ainp() As String
            Dim convert As Integer = 0

            For parts As Integer = 0 To input.Length - 1
                ReDim Preserve Ainp(parts + 1)
                Ainp(parts) = input(input.Length - 1 - parts)
                'MessageBox.Show(Ainp(parts))
                convert += Ainp(parts) * (2 ^ parts)
                'MessageBox.Show(convert.ToString)
            Next

            lblDecimal.Text = convert
        Catch
        End Try
    End Sub
End Class