TextBox’a Girilen Sayıyı İstenilen Sayı Sistemine Çevirme Vb.Net

TextBox’a Girilen Sayıyı İstenilen Sayı Sistemine Çevirme Vb.Net

[code lang=”vbnet”]
Public Class Form1

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Dim x As Long

Dim n As Integer

Try

x = Integer.Parse(textBox1.Text)

n = Integer.Parse(textBox2.Text)

label3.Text = n.ToString() & " tabanında " & x.ToString() & " ="

label4.Text = tabançevir(x, n)

Catch

MessageBox.Show("Sayı hatalı")

End Try

End Sub

Private Function tabançevir(ByVal x As Long, ByVal n As Integer) As String

‘2 den küçük taban olamaz

If n < 2 Then

Return "-1"

End If

Dim b As Long

Dim s As String = ""

While x >= n

b = x Mod n

‘n’e bölümünde kalan

x = x \ n

‘n’e tam böl

If b > 9 Then

s = ChrW(55 + b) & s

Else

s = b & s

End If

End While

If x > 9 Then

s = ChrW(55 + x) & s

Else

s = x & s

End If

Return s

End Function

End Class

[/code]

Projeyi İNDİR

Yorumlar 21

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir