Modular Base Converter

Convert fonksiyonu onluk düzene göre gönderilen M sayısı N tabanına çevirir. burdaki N > 0 ve N < 10 için. gelişmişi bende saklı..

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim base As Integer = CInt(TextBox3.Text)
        TextBox2.Text = Convert(CInt(TextBox1.Text), base)
    End Sub
    Function Convert(ByVal M As Double, ByVal N As Integer) As String
        If M < N Then
            Return ("" & Math.Floor(M).ToString)
            Exit Function
        Else
            Return Convert(Math.Floor(M / N), N) & ("" & (M Mod N).ToString)
        End If
    End Function
End Class