Автор работы: Пользователь скрыл имя, 25 Июня 2013 в 22:01, дипломная работа
Останім часом все ширше стає застосовуватись мережі Інтернет. І якщо років 10 тому аналітики заперечували можливість передачі голосу і відео через мережу Інтернет, то сьогодні їхні погляди на ці речі повністю змінились. Наприклад, з прогнозу дослідницької фірми Analysys у 2003 році на Інтернет-телефонію буде припадати 36% всіх міждународних переговорів.
Великим поштовхом для прогресивного розвитку Інтернет-телефонії стало те що використання мережі Інтернет для передавання голосових і відео повідомлень є досить зручним і є набагато дешевшим чим звичайний телефоний дзвінок.
ІР - телефонія , за допомогою Інтернету дозволяє організовувати дзвінки між комп'ютерами . В ІР - телефонії використовуються канали зв'язку мережі Інтернет. При розмові наші голосові сигнали перетворюються в пакети даних які стискаються
ВСТУП 9
Розділ 1. IP - ТЕЛЕФОНІЯ і SIP ПРОТОКОЛ 13
1.1. Історія розвитку ІР - телефонії 13
1.2. Принцип дії ІР - телефонії 13
1.3. Якість Зв'язку ІР - телефонії 14
1.4. Протокол SIP 16
1.5.Можливості протоколу SIP 17
1.6. Повідомлення SIP 18
1.7. Приклад встановлення з'єднання 20
1.8.Мережа на базі протоколу SIP 22
1.9. Висновок до першого розділу 26
2. ВИБІР ЗАСОБІВ ДЛЯ РЕАЛІЗАЦІЇ ПРОГРАМИ 27
2.1. Вибір мови програмування 27
2.2. Опис мови програмування і її основні елементи 27
2.3. Структура програми 29
2.4. Характеристики Delphi SIP Component 31
2.5. Вимог до апаратних 32
2.6. Призначення програми 32
2.7. Вимоги до програми загалом 32
2.8. Розробка узагальненого алгоритму функціонування програми 33
2.9. Висновок до другого розділу 35
3. ПРОГРАМНА РЕАЛІЗАЦІЯ СИСТЕМИ 36
3.1. Розробка архітектури програмного рішення 36
3.1.1. MainForm - головне вікно 36
3.1.2 DialForm - форма дизайну і розташування всіх компонентів 37
3.1.3 AudiFrm - форма налаштування звуку. 38
3.1.4 AccountsFrm - форма налаштування користувачів. 39
3.2. Проектування інтерфейсу користувача 40
3.2.1 Головне вікно 40
3.2.2 Вікно "Account Settings" 41
3.2.3 Вікно "Audio Settings" 43
3.2.4 Вікно "About" 43
3.2.5 Розробка діаграм функцій для програми. 44
3.3. Тестування роботи програми 51
3.4. Висновок до третього розділу 53
4. ЕКОНОМІЧНА ЧАСТИНА 54
4.1. Розрахунок витрат на розробку та впровадження проектного рішення 54
4.3. Визначення комплексного показника якості 60
4.4. Визначення експлуатаційних витрат 62
4.5. Розрахунок ціни споживання проектного рішення 64
4.6. Визначення показників економічної ефективності 65
4.6.1. Показник конкурентоздатності: 65
4.6.2. Економічний ефект в сфері проектування рішення: 65
4.6.3. Економічний ефект в сфері експлуатації : 65
4.6.4. Оскільки Епр>0 і Еекс>0, розраховуємо додатковий економічний ефект в сфері проектування: 66
4.6.5. Сумарний ефект 66
4.7.Висновок до четвертого розділу 67
ВИСНОВОК 68
Отже, коефіцієнт якості проектного рішення становить Кяк =1,532.
При порівнянні програмних засобів експлуатаційні одноразові витрати по проектному рішенню і аналогу включають вартість машино-годин роботи ЕОМ. Одноразові витрати визначаємо за формулою:
Ер(а) = Е1р(а)
+ Е2р(а),
де ЕР(а) - одноразові експлуатаційні витрати на проектне рішення (аналог), грн.
Е1р(а) - вартість підготовки даних
для експлуатації проектного
рішення, грн.
Е2р(а) - вартість машино-годин роботи ЕОМ для виконання проектного рішення ,грн.
Річні експлуатаційні витрати визначаються за формулою:
В(е) Р(а) = Ер(а) Nр(а) (4.10.)
де Nр(а) - періодичність експлуатації проектного рішення (аналогу).
Витрати на експлуатацію ЕОМ визначаються за формулою:
,
де t - витрати машинного часу для реалізації проектного рішення (аналогу), год. Sм - вартість однієї машинної години роботи ЕОМ 2.5 грн./год.
Е2р = 2 * 2,5 = 5 грн.
Е2а = 2,5 * 2,5 = 6,25 грн.
Таким чином, одноразові експлуатаційні витрати по проектному рішенню складають:
Ер= Е1р + Е2р (4.14.)
Ер = 0 + 5 = 43 грн.
Еа = Е1а+ Е2а (4.15.)
Еа = 0 + 6,25 = 53.75 грн.
Е1р і Е1а в даному випадку рівні 0.
Тоді річні експлуатаційні витрати складають :
В(е)р= Ер * Np (4.16.)
В(е)а= Еа * Na (4.17.)
де Nр(а) = 250 разів протягом року.
В(е)p = 5 * 250 =1250 грн.
B(а) = 6,25 * 250 = 1562,5 грн.
Ціна споживання (Цс) - це витрати на придбання і експлуатацію проектного рішення на весь строк його служби:
Цс(п) = Цп + В(е) пv
Де Цп - ціна придбання проектного рішення, грн.
де Пр - норматив рентабельності (30%);
К0 - витрати на прив’язку та освоєння проектного рішення на конкретному об’єкті (дорівнює нулю);
Кк - витрати на доукомплектування технічних засобів на об’єкті (дорівнює нулю).
Таким чином, ціна придбання проектного рішення дорівнює:
Цп =2790,07* ( 1 + 0,3 ) = 3627,091 грн.
Ціна придбання аналога
Цп(а) = 4000 грн.
В(е)пv - теперішня вартість витрат на експлуатацію проектного рішення (за весь час його експлуатації), грн.:
,
де В(е)пt - річні експлуатаційні витрати в t-ому році, грн.;
Т - строк служби проектного рішення, років;
R - річна ставка проценту банків (приймається рівним 0,22).
Якщо впродовж всього строку експлуатації В(e)пt = const, то :
де рv - ставка дисконту на період Т, яка визначається залежно від процентної ставки R і періоду експлуатації Т ( Т=3 роки).
Для даних R і Т отримаємо наступне значення ставки дисконту :
рv = 1 / 1,22 + 1 / 1,4884 + 1 / 1,815848 = 0,82 +0 ,67 + 0,55 = 2,04.
Тоді ціна споживання проектного рішення дорівнюватиме:
Цс(п) = 3627,091+ 1250 * 2,04 = 6177,091 грн.
Аналогічно визначається ціна споживання для аналогу:
Цс(а) = 4000 + 1562,5 * 2,04 = 7187,5 грн.
Показник
конкурентоздатності
Ккз = 1,217 * 7187,5/6177,091 = 1.78
Економічний ефект в сфері проектування рішення визначається за формулою:
Епр = Ца - Цп
Епр =4000 – 3627,091 = 372,909 грн.
Економічний ефект в сфері експлуатації визначається за формулою
Еекс = В(е)а - В(е)p
Еекс = 1562,5 – 1250 = 312,5 грн.
Додатковий економічний ефект визначається за формулою
DЕпр = Епр ( 1 + R)T (4.25.)
DЕпр = 372,909 * (1 + 0.22)3 = 677,1 грн.
і додатковий економічний ефект в сфері експлуатації
; (4.26.)
Результати розрахунків
Сумарний ефект визначається за формулою:
372,909 + 1413,95= 1786,859 грн.
Таблиця 4.6.
Таблиця результатів економічного дослідження
№ |
Найменування |
Одиниці вимірювання |
Значення показників, грн | |
Базовий варіант |
Новий варіант | |||
1 |
Капітальні вкладення |
Грн. |
- |
2790,07 |
2 |
Ціна придбання |
Грн. |
4000 |
3627,091 |
3 |
Річні експлуатаційні витрати |
Грн. |
1562,5 |
1250 |
4 |
Ціна споживання |
Грн. |
11187,5 |
9804,182 |
5 |
Економічний ефект в сфері проектування |
Грн. |
- |
372,909 |
6 |
Економічний ефект в сфері експлуатації |
Грн. |
- |
312,5 |
7 |
Додатковий ефект в сфері експлуатації |
Грн. |
- |
1413,95 |
8 |
Сумарний ефект |
Грн. |
1786,859 |
В
даному розділі обґрунтовано економічну
доцільність розробки програмних засобів
для спілкування. Для цього розраховано
всі економічні показники, які характеризують
програмну систему та порівняно
їх з економічними показниками аналогу
розроблюваної системи і
В результаті економічних досліджень отримано додатній економічний ефект у розмірі 1786,859 грн. А порівняно невисока купівельна ціна та відносно невеликі експлуатаційні витрати роблять проектне рішення привабливим для покупців ринку даної продукції.
Підсумовуючи все вищесказане – розробка та впровадження даної програмної системи є економічно доцільним в порівнянні з існуючими конкурентами. Даний програмний продукт користувачі можуть використовувати в будь якій точці світу .
Виконуючи бакалаврську кваліфікаційну роботу за темою " Softphone. Cистема голосових дзвінків." я навів загальні відомості що до даної тематики.
Мною було розглянуто, як працює SIP протокол. Також я обґрунтував актуальність теми та мету даної роботи шляхом короткого огляду інших програмних рішень. Було проаналізована один програмний продукт "Sippoint" і визначив їх характеристики та недоліки. Після аналізу були прийняті рішення до розробки програмного засобу. Також було наведено вимоги до апаратних засобів комп'ютера. Також був використаний протокол передачі даних SIP.
Після цього я вибрав засоби для реалізації програми. Програма була реалізована на мові програмування Delphi. Також було використано додатковий компонент SIP Delphi Component.
Мною було розроблено архітектуру та інтерфейс програми. При розробці інтерфейсю нахил був на те щоби зробити як умого простіший інтерфейс для користувачів. Після розробки інтерйесу розроблено головний функціонал програми, а також приведені блок схеми для функціх. Коли було завершена розробка головної програми , було проведене тестування і визначено що програмний продукт повністю відповідає вимогам поставленої задачі.
Також були проведені економічні обчислення розробки програми. В результаті вийшла конкурентоздатна програма голосового зв'язку що володіє наступними основними характеристиками:
Таким
чином, можна стверджувати, що поставлене
завдання виконане у повному обсязі.
SipClienMain.pass
unit sipclientmain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ToolWin, sipints, ExtCtrls, Menus, ImgList, Buttons,
mmSystem, sipclient, IniFiles, acm, WavFiles, ActnList, mainframe, accountsframe,
audioframe, ShellApi, jpeg, regform, ringtone;
type
TMainForm = class(TForm)
StatusBar1: TStatusBar;
StatusPopupMenu: TPopupMenu;
OnlineMenu: TMenuItem;
OfflineMenu: TMenuItem;
StatusImages: TImageList;
SipClient: TSipClient;
ImageList1: TImageList;
ActionList1: TActionList;
CallAction: TAction;
HangUpAction: TAction;
TransferAction: TAction;
RegisterAction: TAction;
RemoveAction: TAction;
EditAction: TAction;
AddAction: TAction;
Timer1: TTimer;
ConferenceAction: TAction;
Panel2: TPanel;
Panel3: TPanel;
TAudioFrm1: TAudioFrm;
TAccountsFrm1: TAccountsFrm;
TDialFrm1: TDialFrm;
ActivateDialpadFrameBtn: TSpeedButton;
ActivateAccountsFrameBtn: TSpeedButton;
ActivateAudioFrameBtn: TSpeedButton;
RecordAction: TAction;
SpeedButton1: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure InfoBtnClick(Sender: TObject);
procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
procedure FormCreate(Sender: TObject);
procedure StatusBar1Click(Sender: TObject);
procedure OnlineMenuClick(Sender: TObject);
procedure OfflineMenuClick(Sender: TObject);
procedure SipClientRegistrationOk(
const AAccount: ISipAccount);
procedure SipClientRegistrationBye(
const AAccount: ISipAccount);
procedure HangUpActionExecute(Sender: TObject);
procedure CallActionExecute(Sender: TObject);
procedure CallActionUpdate(Sender: TObject);
procedure HangUpActionUpdate(Sender: TObject);
procedure SipClientBye(Sender: TObject; const ACall: ISipCall);
procedure SipClientInvite(Sender: TObject; const ACall: ISipCall);
procedure SipClientInviteOk(Sender: TObject; const Call: ISipCall);
procedure TransferActionUpdate(Sender: TObject);
procedure RegisterActionExecute(Sender: TObject);
procedure RegisterActionUpdate(Sender: TObject);
procedure RemoveActionExecute(Sender: TObject);
procedure RemoveActionUpdate(Sender: TObject);
procedure AddActionExecute(Sender: TObject);
procedure EditActionUpdate(Sender: TObject);
procedure EditActionExecute(Sender: TObject);
procedure SipClientDtmf(Sender: TObject; const ACall: ISipCall;
const Dtmf: String);
procedure SBtn1Click(Sender: TObject);
procedure RefreshLines;
procedure ShowMemo;
procedure Timer1Timer(Sender: TObject);
procedure ActivateDialpadFrameBtnClick(
procedure ActivateAccountsFrameBtnClick(
procedure RecordActionExecute(Sender: TObject);
procedure RecordActionUpdate(Sender: TObject);
procedure ActivateAudioFrameBtnClick(
procedure SpeedButton1Click(Sender: TObject);
procedure TDialFrm1Button1Click(Sender: TObject);
protected
private
FConnected: Boolean;
FRingThread: TRingThread;
FLineIndex: Integer;
FButtons: array[1..6] of TSpeedButton;
FLines: array[1..6] of ISipCall;
FDtmf: array[1..6] of String;
FLineImages: array[1..6] of Boolean;
FRecorder: ISipRecorder;
public
Account: ISipAccount;
ServerEditText, UserEditText, PasswordEditText, STUNEditText, ProxyEditText: String;
procedure SaveAccountInfo;
procedure LoadAccountInfo;
end;
var
MainForm: TMainForm;
const
IniFileName = 'settings.ini';
implementation