Başlangıç > Kodlar > Visual Basic 6 ile ikili sisteme çevirmek (Recursive mantığı)

Visual Basic 6 ile ikili sisteme çevirmek (Recursive mantığı)

Formunuza 2 Textbox ve 1 adet Command buton ekleyin...
Ve aşağıdaki kodu olduğu gibi formunuza ekleyin...


Dim Sayi As Integer

Private Sub Command1_Click()
On Error Resume Next
Text1 = Int(Text1)
If Text1 > 30000 Then Text1 = 30000
Text2 = ToBinary(Text1)
End Sub

Private Sub Form_Load()
Text1 = "": Text2 = "": Text2.Enabled = False
Command1.Caption = "Çevir"
End Sub

Public Function ToBinary(TBSayi As Integer) As String
If TBSayi < 2 Then
ToBinary = Trim(Str(TBSayi))
Else
ToBinary = ToBinary(Int(TBSayi / 2)) & Trim(Str(TBSayi Mod 2))
End If
End Function

İyi çalışmalar...


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: