Список использованной литературы

1. Браун С. Visual Basic 6.0 с самого начала. –М.: Питер, 2000. –336 с.

2. Вишневский В.М., Ляхов А.И., Портной С.Л., Шахнович И.В. Широкополосные беспроводные сети передачи информации. –М.: Техносфера, 2005. −592 с.

3. Глушаков С.В. Программирование на Visual Basic 6.0 / С.В. Глушаков, С.А. Сурядный. –М.: ООО «Издательство АСТ»; Харьков: «Фолио», 2003. –497 с.

4. Компьютерные сети. Принципы, технологии, протоколы: Учебник для вузов. /В.Г. Олифер, Н.А. Олифер. –Спб.: Питер, 2003. – 864 с.

5. Максимов Н.В., Попов П.И. Компьютерные сети: Учебное пособие. –М.: Форум: Инфра – М, 2004. – 336 с.

6. Педжман Рошан, Джонатан Лиэри. Основы построения беспроводных локальных сетей стандарта 802.11. Практическое руководство по изучению, разработке и использованию беспроводных ЛВС стандарта 802.11. –М.: Вильямс, 2010. –671 с.

7. Столлингс В. Беспроводные линии связи и сети. Пер. с англ. −М.: Издательский дом «Вильямc», 2011. −653 с.

8. Шахнович И. Современные технологии беспроводной связи. −М.: Техносфера, 2010. −493 с.

9. http://www.citforum.ru/hardware/mobile/city/index.shtml

10. http://www.cnts–net.ru/stati/statia18.dhtml

Приложение. Листинг программы

Option Explicit

Private Sub cmdRaschet_Click()

'расчет дальности действия канала связи

Dim Ydb As Double 'суммарное усиление системы

Dim Pt As Double 'мощность передатчика

Dim Gt As Double 'коэффициент усиления передающей антенны

Dim Gr As Double 'коэффициент усиления приемной антенны

Dim Pmin() 'чувствительность приемника на данной скорости

Dim Lt As Double 'потери сигнала в коаксиальном кабеле и разъемах передающего тракта

Dim Lr As Double 'потери сигнала в коаксиальном кабеле и разъемах приемного тракта

Dim FSL As Double 'потери в свободном пространстве

Dim SOM As Double 'запас в энергетике радиосвязи

Dim F() 'центральная частота канала

Dim D As Double 'дальность связи

Pmin = Array(–66, –71, –76, –80, –83, –85, –86, –87) 'инициализация массивов

F = Array(2412, 2417, 2422, 2427, 2432, 2437, 2442, 2447, 2452, 2457, 2462, 2467, 2472, 2484)

Pt = CDbl(Text1.Text) 'чтение данных из полей ввода

Gt = CDbl(Text2.Text)

Gr = CDbl(Text3.Text)

Lt = CDbl(Text4.Text)

Lr = CDbl(Text5.Text)

SOM = CDbl(Text6.Text)

List3.Clear 'очистка списка вывода

Ydb = Pt + Gt + Gr – Pmin(List1.ListIndex) – Lt – Lr 'расчет

FSL = Ydb – SOM

D = 10# ^ (FSL / 20 – 33 / 20 – Log(F(List2.ListIndex)) / Log(10))

'вывод решения

List3.AddItem («Суммарное усиление системы») 'добаляем данные

List3.AddItem («Ydb=« + Format(Ydb, «0 дБ»))

List3.AddItem («Потери в свободном пространстве») 'добаляем данные

List3.AddItem («FSL=« + Format(FSL, «0 дБ»))

List3.AddItem («Дальность связи») 'добаляем данные

List3.AddItem («D=« + Format(D, «0.000 км») + «=« + Format(1000 * D, «0 м»))

End Sub

Private Sub Combo1_Click()

'изменение списка оборудования

Dim mp() 'массив мощностей передатчиков

Dim ma() 'массив мощностей антенн

mp = Array(18, 17, 19.5, 18, 15, 16, 20, 19, 17, 14, 10, 0) 'зполнили массивы

ma = Array(5, 5, 6, 5, 4, 5, 7, 6, 5, 3, 2, 0)

Text1.Text = Format(mp(Combo1.ListIndex)) 'вывод параметров передатчика в строки ввода

Text2.Text = Format(ma(Combo1.ListIndex))

End Sub

Private Sub Form_Load()

'инициализация списков

Dim i As Integer 'счетчик

List1.Clear 'очистка списка скоростей

List1.AddItem («54») 'добаляем данные

List1.AddItem («48»)

List1.AddItem («36»)

List1.AddItem («24»)

List1.AddItem («18»)

List1.AddItem («12»)

List1.AddItem («9»)

List1.AddItem («6»)

List1.ListIndex = 0

List2.Clear 'очистка списка каналов

For i = 1 To 14

List2.AddItem (i) 'добаляем данные

Next

List2.ListIndex = 0

Combo1.Clear 'очистка списка оборудования

Combo1.AddItem («ASUS WL500G»)

Combo1.AddItem («ZyXEL P–660HN Lite EE»)

Combo1.AddItem («ASUS RT–N16»)

Combo1.AddItem («ASUS RT–N65U»)

Combo1.AddItem («TP–LINK TL–WR720N»)

Combo1.AddItem («ASUS RT–N14U»)

Combo1.AddItem («TP–LINK TL–MR3220»)

Combo1.AddItem («D–Link DIR–140L»)

Combo1.AddItem («D–link DIR–815»)

Combo1.AddItem («D–link DIR–632»)

Combo1.AddItem («TP–LINK TL–WR741ND»)

Combo1.AddItem («другой»)

Combo1.ListIndex = 0

End Sub

15 МГц между центральными частотами соседних каналов, исключая 14–й

2Каждый канал занимает полосу частот 20 МГц, поэтому в этом диапазоне невозможна одновременная работа более чем 3–х каналов без взаимного перекрытия

39