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

Kodla Büyü
sehergin

sehergin

Seçkin Üye
Seçkin Üye
Mesajlar
306
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
BBNET
Geri
Üst