Ãëàâíàÿ: Ðåôåðàòû

Ðåôåðàòû. Ñèñòåìà îáðàáîòêè àóäèîèíôîðìàöèè. Ïîäñèñòåìà ôèëüòðàöèè è îáðàáîòêè ñèãíàëà

35. ÃÎÑÒ 19.701-90 ÅÑÏÄ. Ñõåìû àëãîðèòìîâ è ïðîãðàìì. Ïðàâèëà âûïîëíåíèÿ. – Ì.: Èçäàòåëüñòâî ñòàíäàðòîâ, 1991.

36. ÃÎÑÒ 12.0.002-80 ÑÑÁÒ. Òåðìèíû è îïðåäåëåíèÿ. – Ì.: Èçäàòåëüñòâî ñòàíäàðòîâ, 1980.

37. Ñîáîëåâà Â.Ï. Ìåòîäè÷åñêèå óêàçàíèÿ ïî îôîðìëåíèþ êóðñîâûõ ðàáîò, êóðñîâûõ è äèïëîìíûõ ïðîåêòîâ. – Èæåâñê: Èçäàòåëüñòâî ÈÌÈ, 2003.

38. Ïî÷åðíÿåâ Ñ.Â., Êèëèí È.Â. Ìåòîäè÷åñêèå óêàçàíèÿ ïî äèïëîìíîìó ïðîåêòèðîâàíèþ. – Èæåâñê: Èçäàòåëüñòâî ÈæÃÒÓ, 1994.

39. Òåõíèêî-ýêîíîìè÷åñêîå îáîñíîâàíèå äèïëîìíûõ ïðîåêòîâ ïðè ðàçðàáîòêå ïðèáîðîâ è ìåòîäîâ êîíòðîëÿ êà÷åñòâà. – Èæåâñê: Èçäàòåëüñòâî ÈæÃÒÓ, 2001.

ÏÐÈËÎÆÅÍÈÅ 1

ÒÅÊÑÒ ÏÐÎÃÐÀÌÌÛ


Ï. 1.1. ÒÅÊÑÒ ÌÎÄÓËß MAIN.PAS


unit Main;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin,

 MMSystem, ShellApi, FileUtils, AudioFormat,

 PCM_Format, MP3_Format, EM1_Format, Menus, Help, AudioForm, MP3Form, EffectsForm;

type

 TMainForm = class(TForm)

 OutDeviceComboBox: TComboBox;

 InDeviceComboBox: TComboBox;

 TrackBar: TTrackBar;

 PlayButton: TSpeedButton;

 PauseButton: TSpeedButton;

 RecordButton: TSpeedButton;

 OpenButton: TSpeedButton;

 SaveButton: TSpeedButton;

 TimePosition: TStaticText;

 PositionSpinEdit: TSpinEdit;

 OpenDialog: TOpenDialog;

 Marker1: TBitBtn;

 Marker2: TBitBtn;

 PageControl1: TPageControl;

 TabSheet1: TTabSheet;

 TabSheet2: TTabSheet;

 SetMarkerButton: TButton;

 DeleteMarkersButton: TButton;

 CopyButton: TBitBtn;

 CutButton: TBitBtn;

 ClearButton: TBitBtn;

 PasteButton: TBitBtn;

 PasteFileButton: TBitBtn;

 DeleteButton: TBitBtn;

 TabSheet3: TTabSheet;

 SetSpeedText: TStaticText;

 SetVolumeText: TStaticText;

 EffectButton: TButton;

 EffectBox: TComboBox;

 PaintBox1: TPaintBox;

 WaveOutButton: TSpeedButton;

 WaveInButton: TSpeedButton;

 PasteSilenceButton: TButton;

 CopyToFileButton: TBitBtn;

 UndoButton: TBitBtn;

 HelpButton: TBitBtn;

 SaveDialog: TSaveDialog;

 TabSheet9: TTabSheet;

 BrainWaveButton: TButton;

 BWFreqEdit1: TSpinEdit;

 StaticText15: TStaticText;

 BWFreqEdit2: TSpinEdit;

 StaticText16: TStaticText;

 SSelButton: TBitBtn;

 FSelButton: TBitBtn;

 StaticText4: TStaticText;

 UndoCheckBox: TCheckBox;

 EMailButton: TSpeedButton;

 Label1: TLabel;

 Label2: TLabel;

 Label3: TLabel;

 Label4: TLabel;

 BitBtn1: TBitBtn;

 BitBtn3: TBitBtn;

 BitBtn4: TBitBtn;

 BitBtn2: TBitBtn;

 BitBtn5: TBitBtn;

 BitBtn6: TBitBtn;

 BitBtn7: TBitBtn;

 BitBtn8: TBitBtn;

 BitBtn9: TBitBtn;

 BitBtn10: TBitBtn;

 Button1: TBitBtn;

 Button2: TBitBtn;

 Button6: TBitBtn;

 BitBtn13: TBitBtn;

 BitBtn14: TBitBtn;

 BitBtn15: TBitBtn;

 BitBtn16: TBitBtn;

 MainMenu1: TMainMenu;

 N1: TMenuItem;

 N2: TMenuItem;

 N3: TMenuItem;

 N4: TMenuItem;

 N11: TMenuItem;

 N12: TMenuItem;

 N13: TMenuItem;

 N14: TMenuItem;

 N15: TMenuItem;

 N31: TMenuItem;

 N30: TMenuItem;

 N16: TMenuItem;

 N17: TMenuItem;

 N18: TMenuItem;

 N19: TMenuItem;

 N24: TMenuItem;

 N20: TMenuItem;

 N21: TMenuItem;

 N22: TMenuItem;

 N23: TMenuItem;

 N25: TMenuItem;

 N26: TMenuItem;

 N27: TMenuItem;

 N28: TMenuItem;

 N29: TMenuItem;

 N32: TMenuItem;

 N33: TMenuItem;

 N34: TMenuItem;

 N35: TMenuItem;

 N36: TMenuItem;

 N37: TMenuItem;

 N38: TMenuItem;

 N39: TMenuItem;

 N40: TMenuItem;

 N41: TMenuItem;

 N8: TMenuItem;

 N9: TMenuItem;

 N10: TMenuItem;

 N5: TMenuItem;

 N6: TMenuItem;

 N7: TMenuItem;

 N42: TMenuItem;

 SilenceTime: TSpinEdit;

 Memo1: TMemo;

 PasteModeComboBox: TComboBox;

 PasteModeText: TStaticText;

 Left10Button: TButton;

 StaticText17: TStaticText;

 Right10Button: TButton;

 SpeedEdit: TSpinEdit;

 VolumeEdit: TSpinEdit;

 ChangeVolumeBitBtn: TBitBtn;

 ChangeSpeedButton: TBitBtn;

 SetSpeedBitBtn: TBitBtn;

 SetVolumeBitBtn: TBitBtn;

 ReverseButton: TBitBtn;

 NormalizeBitBtn: TBitBtn;

 PageControl2: TPageControl;

 TabSheet4: TTabSheet;

 Label5: TLabel;

 Label6: TLabel;

 Label7: TLabel;

 nSamplesPerSecText: TStaticText;

 nSamplesPerSecButton: TButton;

 nSamplesBox: TComboBox;

 nBitsBox: TComboBox;

 nBitsPerSampleButton: TButton;

 nBitsPerSampleText: TStaticText;

 nChannelsText: TStaticText;

 nChannelsButton: TButton;

 nChannelsBox: TComboBox;

 TabSheet5: TTabSheet;

 ConstantBitrateComboBox: TComboBox;

 StaticText1: TStaticText;

 RadioButton1: TRadioButton;

 RadioButton2: TRadioButton;

 RadioButton3: TRadioButton;

 AverageBitrateComboBox: TComboBox;

 VariableBitRateComboBox: TComboBox;

 StaticText2: TStaticText;

 StaticText3: TStaticText;

 StereoModeComboBox: TComboBox;

 TabSheet6: TTabSheet;

 PageControl3: TPageControl;

 TabSheet7: TTabSheet;

 StaticText5: TStaticText;

 nResponsesEdit: TSpinEdit;

 ResponseTimeEdit: TSpinEdit;

 ResponseVolumeEdit: TSpinEdit;

 StaticText6: TStaticText;

 StaticText7: TStaticText;

 StaticText8: TStaticText;

 StaticText9: TStaticText;

 TabSheet8: TTabSheet;

 nEchosEdit: TSpinEdit;

 DelayEdit: TSpinEdit;

 EchoVolumeEdit: TSpinEdit;

 StaticText10: TStaticText;

 StaticText11: TStaticText;

 StaticText12: TStaticText;

 StaticText13: TStaticText;

 StaticText14: TStaticText;

 N43: TMenuItem;

 MP31: TMenuItem;

 N44: TMenuItem;

 ButtonZoomIn: TBitBtn;

 ButtonZoomOut: TBitBtn;

 AudioOptionsButton: TBitBtn;

 MP3OptionsButton: TBitBtn;

 EffOptionsButton: TBitBtn;

 procedure FormCreate(Sender: TObject);

 procedure OpenButtonClick(Sender: TObject);

 procedure FormClose(Sender: TObject; var Action: TCloseAction);

 procedure PlayButtonClick(Sender: TObject);

 procedure PauseButtonClick(Sender: TObject);

 procedure RecordButtonClick(Sender: TObject);

 procedure TrackBarChange(Sender: TObject);

 procedure PositionSpinEditChange(Sender: TObject);

 procedure SaveButtonClick(Sender: TObject);

 procedure SetMarkerButtonClick(Sender: TObject);

 procedure DeleteMarkersButtonClick(Sender: TObject);

 procedure CopyButtonClick(Sender: TObject);

 procedure CutButtonClick(Sender: TObject);

 procedure ClearButtonClick(Sender: TObject);

 procedure PasteButtonClick(Sender: TObject);

 procedure ReverseButtonClick(Sender: TObject);

 procedure SetSpeedButtonClick(Sender: TObject);

 procedure ChangePropertie(Sender: TObject);

 procedure AboutButtonClick(Sender: TObject);

 procedure HomePageLinkClick(Sender: TObject);

 procedure SetVolumeButtonClick(Sender: TObject);

 procedure DeleteButtonClick(Sender: TObject);

 procedure NormalizeButtonClick(Sender: TObject);

 procedure PasteSilenceButtonClick(Sender: TObject);

 procedure SetSpeedBitBtnClick(Sender: TObject);

 procedure ChangeSpeedButtonClick(Sender: TObject);

 procedure SetVolumeBitBtnClick(Sender: TObject);

 procedure ChangeVolumeBitBtnClick(Sender: TObject);

 procedure NormalizeBitBtnClick(Sender: TObject);

 procedure EffectButtonClick(Sender: TObject);

 procedure PaintBox1Paint(Sender: TObject);

 procedure WaveOutButtonClick(Sender: TObject);

 procedure WaveInButtonClick(Sender: TObject);

 procedure CopyToFileButtonClick(Sender: TObject);

 procedure UndoButtonClick(Sender: TObject);

 procedure EMailButtonClick(Sender: TObject);

 procedure BrainWaveButtonClick(Sender: TObject);

 procedure Left10ButtonClick(Sender: TObject);

 procedure SSelButtonClick(Sender: TObject);

 procedure HelpButtonClick(Sender: TObject);

 procedure UndoCheckBoxClick(Sender: TObject);

 procedure N4Click(Sender: TObject);

 procedure N43Click(Sender: TObject);

 procedure MP31Click(Sender: TObject);

 procedure N44Click(Sender: TObject);

 procedure ButtonZoomInClick(Sender: TObject);

 procedure ButtonZoomOutClick(Sender: TObject);

 procedure AudioOptionsButtonClick(Sender: TObject);

 procedure MP3OptionsButtonClick(Sender: TObject);

 procedure EffOptionsButtonClick(Sender: TObject);

 private

 { Private declarations }

 public

 procedure SetAudioPosition;

 procedure SetMarker;

 procedure DeleteMarkers;

 procedure PaintAudioGraph;

 procedure SaveUndoInfo;

 end;

type

 TPlayThread = class(TThread)

 public

 WaveOut: HWaveOut;

 procedure Execute; override;

 end;

 TRecordThread = class(TThread)

 public

 WaveIn: HWaveIn;

 procedure Execute; override;

 end;

var

 MainForm: TMainForm;

 SamplesPerPoint: Cardinal;

 Status: String;

 AudioPosition: Cardinal;

 AudioData: TAudioData;

 AudioClipBoard: TAudioData;

 PlayThread: TPlayThread;

 RecordThread: TRecordThread;

 Selection: record

 Start: Cardinal;

 Finish: Cardinal;

 StartExists: Boolean;

 FinishExists: Boolean;

 end;

 UndoInfo: record

 Selection: record

 Start: Cardinal;

 Finish: Cardinal;

 StartExists: Boolean;

 FinishExists: Boolean;

 end;

 AudioPosition: Cardinal;

 AudioData: TAudioData;

 end;

implementation

Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25
2012 © Âñå ïðàâà çàùèùåíû
Ïðè èñïîëüçîâàíèè ìàòåðèàëîâ àêòèâíàÿ ññûëêà íà èñòî÷íèê îáÿçàòåëüíà.