Source Code



Spell Text and Hear It

  • anonymous
  • Oct 25' 13
  • Delphi
  • 499
  • 26
  • United States

Type text what do you want to spell, turn on the speaker and loud it.  the picture for this program can see below


spell image program

Download this program or get from download list page

if you want get the source code please Subscribe by Email or send a request for source code by feedback form . we will send source code to your email.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj, Buttons, ExtCtrls,ShellApi;

type
  TForm1 = class(TForm)
    welcome: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label2MouseLeave(Sender: TObject);
    procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ngomong(teks:string);
  end;

var
  Form1: TForm1;
  stop:boolean;

implementation

{$R *.dfm}

procedure TForm1.ngomong(teks:string);

const
  SVSFDefault = $00000000;
  SVSFlagsAsync = $00000001;

var
  oVoice: OLEVariant;

begin
  oVoice := CreateOLEObject('SAPI.SpVoice');
  oVoice.Speak(Teks , SVSFlagsAsync);
     repeat
     application.ProcessMessages;
     until stop=true;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 welcome.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   stop:=true;
   welcome.Clear;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  stop:=true;
  welcome.Clear;
  close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  stop:=true;
  welcome.Clear;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
timer2.Enabled:=false;
 ngomong(welcome.text+'. visit pasarkode.com to get more code');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 welcome.clear;
 welcome.Text:='Type Here What You Want To Spell';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
shellexecute(0,'open','http://pasarkode.com','','',SW_SHOWNORMAL);
timer1.Enabled:=false;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
shellexecute(0,'open','http://pasarkode.com','','',SW_SHOWNORMAL);
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
label2.Font.Color:=clBlack;
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label2.Font.Color:=clRed;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
ngomong('please write something');
end;

end.



don't forget to leave a comment.

  • Tags :
comments powered by Disqus

Related Code

Create Symphony With Midi Sound

Get IP Address

Splash Screen

Border Radius

Session for Keep Values

Solve (LSN) Error 9003 When Attach the Database SQL2000

Zakat Counter

Looking for Date and Time Difference

Send Email Through Console

Program mencari kpk n buah bilangan



Category