Pada artikel sebelumnya sebenarnya telah dibahas bagaimana membuat aplikasi TextToSpeech Bahasa Inggris, namun ternyata cara itu terlalu sulit sebenarnya untuk membuatnya kita bisa menggunakan cara yang lebih gampang lagi dan kode yang lebih pendek.
Sebagai info aplikasi ini aku buat pada Borland Delphi 7 dan Sistem Operasi MS Windows XP SP 2 tanpa instalasi komponen apapun.
Baik sekarang buka Delphi kamu dan buat sebuah projek baru.
1. Pada unit 1 tambahkan klausa uses ComObj; tepat dibawah klausa Implementation
2. Lalu buatlah deklarasi variabel global SpVoice: Variant; pada kalusa var atau tepat diatas klausa implementation
Berikut ini potongan kode header dari Unit1
public
{ Public declarations }
end;
var
Form1: TForm1;
SpVoice: Variant;
implementation
uses ComObj;
{$R *.dfm}
Buat procedure onCreate pada form (caranya double klik form1 maka Anda akan dibawa ke jendela kode editor) hingga kode lengkap untuk procedure ini sbb :
procedure TForm1.FormCreate(Sender: TObject);
begin
SpVoice := CreateOleObject('SAPI.SpVoice')
end;
Pada Form masukkan komponen Memo dan Button yang terletak pada Component Palette tab standard
Lalu buatlah procedure onClick pada komponen Button tersebut (caranya double klik Button maka Anda akan dibawa ke jendela kode editor) hingga kode lengkap untuk procedure ini sbb :
procedure TForm1.Button1Click(Sender: TObject);
begin
SpVoice.Speak(memo1.Text)
end;
Lalu jalankan dengan menekan F9. Selesai.
Testing. Masukkan teks dalam bahasa inggris pada memo1 lalu tekan Button1. maka aplikasimu sudah bisa ngomong. Gimana lebih mudah bukan?
Kalau ada yang mudah ngapain bikin susah?
- Sekarang, Anda bisa pasang iklan disini!
- Mau Tukeran Link Dengan Blog Ini? (Pengunjung Blog Ini Lebih dari 100/hari)
- Cek Jumlah Pengunjung
|