Harfleri 0 ve 1'lere dönüştüren program

Kodla Büyü

sehergin

Seçkin Üye
Seçkin Üye
Mesajlar
307
Arkadaşlar hepinize merhaba. Benim bir ricam olacaktı. Bilgisayara girilen herhengibir yazıyı 0 ve 1'lere dönüştürecek bir program arıyorum. Mesela kişi adını yazdığı zaman ona ekranda
"Yazdığınız kelimenin bilgisayar dilindeki karşılığı": ......'dır deyip. Bu noktalı kısımlarda 0 ve 1'ler olacak şekilde. Hangi dilde yazıldığı önemli değil. Bana yardımcı olursanız çok sevinirim. Şimdiden teşekkürler.
 
Teşekkürler hocam. Sanırım c'de yazılmış. ama anladığım kadarıyla en sonda paylaşılan kod çalışmış. Diğerinde sorun olsa gerek. Çat pat ingilizcemle çözmeye çalıştım:)
 
excel de vba da modul ekleyince oluyor fakat arada baştaki sıfırları silebiliyor.. excel :)
Kod:
Public Function TextToBinary(S As String) As String
Dim p As Long, D As Long
D = Len(S)
With Application.WorksheetFunction
For p = 1 To D
TextToBinary = TextToBinary & .Dec2Bin(Asc(Mid(S, p, 1))) & " "
Next p
End With
End Function
 
ikiliksayisistemi.PNG
 
hocam yukarıdaki sadece bir karakter için yaptım. Siz for döngüsü ile tüm karakterleri sırasıyla dönüştüreceksiniz.Tabi listeye tüm karakterlerin kodlarını girmen gerekiyor.
 
emrahsahan hocam verdiğiniz örnekler için çok teşekkür ederim. Sizin örneğiniz sanırım python da hazırlanmış. hangi dilde yazıldığı önemli değil. Yeter ki kullanıcı rahatlıkla arayüze girip dönüşümü görebilsin. Tekrar teşekkür ederim.
 
Youtube den faydalanılarak C# 2010 ile hazırlanmıştır. Kodlar açık.

000644.png
 

Ekli dosyalar

  • Text to Binary.rar
    27.6 KB · Görüntüleme: 187
Son düzenleme:
Bu da html ve js ile yapılmış basit bir çözüm. Ektedir.
 

Ekli dosyalar

  • textToBinary.zip
    928 bayt · Görüntüleme: 39
Geri
Üst