Реферат Розробка програми &Голосові управління комп'ютером&

+}//Включаєм контроль помілокIOResult lt; gt; 0 then Exit; (f, s);// Зчітуваті з файлу значення.Top:=s;// Положення по вертікалі (f, s) ;. Left:=s;// Положення по горізонталі (f, s) ;. Width:=s;// Ширина вікна (f, s) ;. Height:=s;// Висота вікна (f, s) ;. Color:=s;// Колір форми (f); i:=1 to DirectSR1.CountEngines do.Items.Add (DirectSR1.ModeName (i)) ;. ItemIndex:=0 ;; TForm1.EnginesListChange (Sender: TObject) ;. Select (EnginesList.ItemIndex + 1); TForm1.Button1Click (Sender: TObject); stop then.Initialized:=1;.Select(EnginesList.ItemIndex+1);.GrammarFromFile(laquo;Grammar.txtraquo;);.Activate;.Caption:=laquo;Слухаюraquo;;:=false;.caption:=laquo;Зупинитиraquo;;else.Deactivate;:=true;.caption:=laquo;Слухатиraquo;;.Caption:=laquo;Натисніть слухати raquo ;;; TForm1.DirectSR1PhraseFinish (ASender: TObject; flags, beginhi ,, endhi, endlo: Integer; const Phrase, parsed: WideString ;: Integer); (Phrase);

//Если команда не знайденно в Gramma.txt то виводами Поведомлення Повторіть свою голосову мова (Phrase= ) then

Begin ( Повторіть свою голосову мова ) ;. LEDDisplay2.Value:=Form2.LEDdisplay2.Value + 1 ;;

//Відкріває Панель управління; Пенол (Phrase= Panel ) then ( Control raquo ;, sw_NORMAL) ;. LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value + 1 ;;

//Закрівання пррограмі (Phrase= Close ) or (Phrase= Close program ) or (Phrase= Exit ) or (Phrase= Vihod ) then;.LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value + 1 ;;

//Відкріває диск С (Phrase= Computer ) then (Self.Handle, open raquo ;, c:/ raquo ;, nil, nil, SW_SHOWNORMAL) ;. LEDDISPLAY1. Value:=Form2.LEDdisplay1.Value + 1 ;;

//Відкріває CD-привід (Phrase= OpenCD ) then ( Set cdaudio door open wait , nil, 0, handle) ;. LEDDISPLAY1.Value:=Form2.LEDdisplay1. Value + 1 ;;

//Закрівоє CD-привід (Phrase= CloseCD ) then ( Set cdaudio closed waitraquo;,nil,0,handle);.LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value+1;;(Phrase=laquo;internetraquo;) then winExec ( C: Windows system32 control.exe ncpa.cpl raquo ;, SW_SHOWNORMAL);

//Звертає програму (Phrase= Programm ) then.WindowState:=wsMinimized; .LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value + 1 ;;

//визиває вікно параметрів екранах (Phrase= Display ) then (Application.Handle, nil, desk.cpl raquo ;, nil, nil, WINDOWS.SW_SHOWNORMAL) ;. LEDDISPLAY1.Value :=Form2.LEDdisplay1.Value + 1 ;;

//Відкривання браузера (Phrase= Internet ) then (Self.Handle, open raquo ;, # justify gt;//Силка на сайт технікума з відкріванням бразузерах ( Phrase= Industrial ) then (Self.Handle, open laquo ;, # justify gt;//візового Завершення сеансу (Phrase= PowerOff ) then (FindWindow ( Progman raquo ;, laquo ; Program Manager ), WM_CLOSE, 0, 0) ;. LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value + 1 ;;

//Натиск на кнопку (Phrase= Stop ) then.Click; .LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value + 1 ;;

//Візівання Пуск а (Phrase= Start ) then (Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0) ;. LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value + 1 ;; (Phrase= Music ') then

//Аудіо Налаштування ( C: WINDOWS System32 CONTROL.EXE mmsys.cpl , sw_ShowNormal); ( C: WINDOWS System CONTROL.EXE mmsys.cpl , sw_ShowNormal); ( C: WINDOWS CONTROL.EXE mmsys.cpl , sw_ShowNormal); ( C: WINNT System32 CONTROL.EXE mmsys.cpl , sw_ShowNormal); ( C: WINNT System CONTROL.EXE mmsys.cpl , sw_ShowNormal); ( C: WINNT CONTROL.EXE mmsys.cplraquo;,sw_ShowNormal);.LEDDISPLAY1.Value:=Form2.LEDdisplay1.Value+1;;.LEDDISPLAY3.Value:=Form2.LEDdisplay3.Value+1;;

//ЛедМетерTForm1.DirectSR1VUMeter (ASender: TObject; beginhi, beginlo ,: Integer) ;. Position:=level ;;

//Модельний показ 2-й форміTForm1.N4Click (Sender: TObject) ;. ShowModal ;;

//Link на сайт технікумаTForm1.Label2Click (Sender: TObject); (Sender is TLabel) then (Sender as Tlabel) do (Application.Handle, PChar ( open ), (Hint) , (0) ,, _ NORMAL) ;;

//Модельний показ третього форміTForm1.N3Click (Sender: TObject) ;. ShowModal ;;

//Модельний показ 4-й форміTForm1.N1Click (Sender: TObject) ;. ShowModal ;; TForm1.BitBtn1Click (Sender: TObject) ;. Close ;; TForm1.FAQ1Click (Sender: TObject); ; .Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, RackCtls, StdCtrls, Buttons;=class (TForm): TGroupBox ;: TLabel ;: TLabel ;: TLabel ;: TLEDDisplay ;: TLEDDisplay ;: TLEDDisplay ;: TBitBtn ;: TBitBtn ;: TLabel; BitBtn2Click (Sender: TObject); BitBtn1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm2;

{$ R * .dfm} TForm2.BitBt...