Excel ile Morse Alfabesi Kullanma

Bu dosya, bir UserForm üzerine yazılan kelimeyi Morse alfabesindeki nokta ve çizgi karşılığına çevirir ve çevrilen kodu bilgisayar hoparlöründen sesli olarak çalar. Çeviri, metin yazıldıkça anlık olarak yapılır.

Dosyanın içeriği​

• Sheet1: Boş bir sayfadır; üzerindeki düğme çalışma sırasında frmMorse formunu açar.
• frmMorse: Metnin yazıldığı kutu (TextBox1), Morse karşılığının göründüğü kutu (TextBox2), ses düğmesi (CommandButton1) ve formu kapatan düğmeden (CommandButton3) oluşan UserForm'dur.

Dosyada hücre formülü bulunmaz; tüm işlem VBA kodu ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur.

• CommandButton1_Click (Sheet1): Sayfadaki düğmeye tıklanınca Morse formunu açar.
• UserForm_Initialize: 0-9 rakamlarını ve A-Z harflerini Morse karşılıklarıyla eşleyen iki diziyi yükler.
• TextBox1_Change ve MorsaCevir: Kutudaki her karakter büyük harfe çevrilir, dizide aranır ve karşılığı TextBox2'ye boşlukla ayrılarak yazılır. Dizide bulunmayan karakterler olduğu gibi bırakılır.
• OkuBakiim: TextBox2'deki kodu karakter karakter okur. Nokta için kısa, çizgi için uzun ses, boşluk için bekleme uygulanır.
• Kisa, Uzun, Bozuk, Bos: Kernel32 kütüphanesindeki Beep fonksiyonuyla 1000 Hz'lik kısa (85 ms) ve uzun (215 ms) sesleri üretir; tanınmayan karakterler için 4000 Hz'lik uyarı sesi çalar. Bos ise bekleme süresini sağlar.
• CommandButton3_Click: Formu kapatır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 üzerindeki düğmeye tıklayarak Morse formunu açın.
3. Üstteki kutuya çevrilecek kelimeyi yazın; Morse karşılığı alttaki kutuda görünür.
4. Bilgisayarın sesini açın ve DİNLE düğmesine tıklayın.
5. Çalmayı yarıda kesmek için düğmeye yeniden tıklayın; düğme çalma sırasında DUR olarak görünür.
6. İşiniz bittiğinde kapatma düğmesiyle formu kapatın.

Ses için Windows API'sindeki Beep bildirimi kullanıldığından, dosya 64 bit Office sürümlerinde çalışmayabilir.