8 Farklı Top Örneği Yapma

Bu dosya, Excel içinde çalışan "Talking Excel 8 Ball" adlı bir fantezi top uygulamasıdır. Kurulum yapıldıktan sonra Excel araç çubuğuna bir düğme eklenir; düğme bir form açar ve soruya rastgele bir cevap üretir. Cevap istenirse bilgisayar tarafından sesli okunur. Başlıktaki "8 farklı top" ifadesi dosyada karşılık bulmaz; dosya tek bir 8 Ball uygulaması içerir.

Dosyanın içeriği​

• INSTALL-START HERE: Programın adı, sürümü, ne işe yaradığı, kurulum konumu (varsayılan C sürücüsü), önemli notlar ve kullanım bilgileri yer alır. Kurulum bu sayfadaki düğmeyle başlatılır.
• frm_install: Kurulum formudur. Kur düğmesi ve çıkış düğmesi bulunur.
• frm_ball: Ana uygulama formudur. Cevap üretme, tahmin dosyasını düzenleme, sesli okuma, serbest metin okutma ve ses düzeyi düğmeleri içerir.
• Sheet1 sayfası dosyada kullanılmaz.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• installit: Kurulumdan önce başka çalışma kitabının açık olmaması gerektiğini bildirir ve kurulum formunu açar.
• cmd_installnow_click: C:\EIGHT klasörünü oluşturur, çalışma kitabını bu klasöre 8BALL.xla adıyla kopyalar, varsa eski kopyayı siler (Kill), EIGHTBALL adlı araç çubuğunu ve düğmesini ekler, 20 hazır cevabı içeren 8Pred.txt dosyasını yazar.
• SHOWBALL: 8 Ball formunu gösterir.
• cmd_mkpredict_Click: 8Pred.txt dosyasındaki cevaplardan rastgele birini seçer, kutuda gösterir; sesli okuma işaretliyse okutur.
• cmd_edit_Click: Cevap dosyasını açarak düzenlemeye izin verir. Dosyadaki END sözcüğü silinmemelidir.
• UseSpeech ve tb_freespeech_AfterUpdate: Yazılan metni Application.Speech.Speak ile sesli okutur.
• VolUp, VolDown, VolToggle, MaxVol: keybd_event ile Windows ses tuşlarını (artır, azalt, sessiz, en yüksek) tetikler.
• Workbook_BeforeClose: Kapanırken kaydetme sorusunu engeller.

Güvenlik notu: Makrolar C sürücüsüne klasör ve dosya yazar, aynı konumdaki eski 8BALL.xla dosyasını siler, araç çubuğu ekler ve Internet Explorer nesnesiyle bir web sayfası açan düğmeler içerir (dış bağlantı). LOADIT2 yordamı ağ yolundaki bir metin dosyasını okumak üzere yazılmıştır ancak kullanılmaz.

Nasıl kullanılır​

1. Başka çalışma kitabı açıksa kapatın, dosyayı açın ve makroları etkinleştirin.
2. INSTALL-START HERE sayfasındaki kurulum düğmesine basın ve formdaki kur düğmesini kullanın.
3. Kurulum sonrası çıkan uyarıya uygun biçimde Excel'i kapatın; araç çubuğu böylece düzgün kaydedilir.
4. Excel'i yeniden açın, araç çubuğundaki 8-Ball düğmesine tıklayın.
5. Cevap düğmesine basarak rastgele cevap alın; sesli okuma ve ses düğmelerini gerektiğinde kullanın.
6. Cevap listesini değiştirmek için düzenleme düğmesiyle 8Pred.txt dosyasını açın, kaydedin.