Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Инструкция работы программы для пользователя

КУРСОВОЙ ПРОЕКТ

по дисциплине

Программирование

(Углубленный курс)

 

на тему:

 

«Разработка калькулятора для расчета КАСКО»

 

Выполнила: студентка 106 группы

факультета экономики и финансов

Ардемасова Анна

Проверил: Барамидзе Н.Н.

 

 

Москва 2015

 

 

Оглавление

 

Введение. 3

1. Условие задачи. 4

2. Разработка алгоритма программы.. 5

3. Вариант использования программы.. 19

4. Заключение. 20

СПИСОК ЛИТЕРАТУРЫ.. 21

ПРИЛОЖЕНИЕ. 22

 


 

Постановка задачи

Цель курсового проектирования

Целью выполнения данного курсового проекта является разработка автоматизированного калькулятора расчета процентной ставки и суммы страхования по страховой системе КАСКО, учитывая современные ГОСТы и возможности транспортных средств.

Задачи курсового проектирования

В ходе курсового проектирования были решены следующие задачи:

1) Составлена схема реализации алгоритма расчета тарифа страхования и цены стразового полиса КАСКО

2) Составлена блок-схема программы

3) Написан код программы VBA в приложении Microsoft Excel при помощи Userform

4) На листе Excel организована база данных для отображения данных, выбираемых страховщиком

5) Рассчитан контрольный пример для проверки работоспособности программы.

Данная курсовая работа выполнена на языке программирования VBA, с использованием программного продукта Excel. Visual Basic For Applications – это сочетание одного из самых простых языков программирования и всех вычислительных возможностей Excel. С помощью VBA можно легко и быстро создавать разнообразные приложения, даже не являясь специалистом в области программирования. VBA содержит графическую среду, позволяющую наглядно конструировать экранные формы и управляющие элементы.

Каско страхование автомобилей или других средств транспорта (судов, самолётов, вагонов) от ущерба, хищения или угона. Не включает в себя страхование перевозимого имущества (карго), ответственности перед третьими лицами и т. д.


6)

Условие задачи

Allianz - один из ведущих интегрированных поставщиков страховых и финансовых услуг в мире. Компания с 1890 года обеспечивает надежной страховой защитой миллионы клиентов по всему миру. Более 144 тысяч сотрудников группы Allianz по всему миру обслуживают около 85 млн. клиентов в примерно 70 странах.

Процентная ставка будет рассчитываться в зависимости от данных следующих полей:

1.Вид страхования

2. Информация о кредите

3.Возраст ТС

4.Ввести возраст страховщика

5.Водительский стаж

6.Мощность ТС

7.Регион регистрации

8.Наличие аварий

9.Количество водителей

10.Срок действия полиса

Процент высчитывается от вводимой пользователем стоимости ТС и состоит из суммы процентной ставки по каждому из полей.

Стоимость полиса высчитывается как процент от стоимости ТС, введенной пользователем.

Разработка алгоритма программы

Алгоритм — набор инструкций, описывающих порядок действий исполнителя для достижения результата решения задачи за конечное число действий.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Рис.1 «Общая блок-схема алгоритма работы программы»


 

Вариант использования программы

«Угон»: Р = 5

«Кредит»: Р = 5 + 0,2 = 5,2

«> 6 лет»: Р = 5,2 + 2 = 7,2

«32»: Р = Р = 7,2

«7»: Р = 7,2 + 0,1 = 7,3

«140»: Р = 7,3 + 0,9 = 8,2

«Ставропольский край», «Кисловодск»:

Р = 8,2 + 1 = 9,2

«НЕТ»: Р = 9,2

«1 водитель»: Р = 9,2

«от 3 о 9 мес»: Р = 9,2 – 0,75 = 8,45

«241 320»

Р = 8,45

Стоимость СП = 20 391

Заключение

 

В данном курсовом проекте был составлен калькулятор расчета КАСКО страхования с учетом современных ГОСТов и норм автомобильного страхования. Приложение было выполнено в приложении Microsoft Exel с помощью Visual Basic.

Задачи и цели курсового проекта были выполнены. Калькулятор готов к использованию.


СПИСОК ЛИТЕРАТУРЫ

1. П. Эйткен, Интенсивный курс программирования в Excel за выходные. – М.: Диалектика, 2004. –240 с.

2. В. Г. Кузьменко, Программирование на VBA 2002 – М: Бином-Пресс, 2002. – 760 с.

3. Уокенбах Дж, Подробное руководство по созданию формул в Excel. – М: Издательский дом «Вильямс», 2002. –624 с.

4. Методические рекомендации

Интернет-ресурсы:

1. http://kaskometr.ru/straxovie/company/ - онлайн-калькуляторы страховых компаний.

2. http://www.allianz.ru/ru/moscow/about/ - сайт страховой компании Allianz


 

ПРИЛОЖЕНИЕ 1

 

Private Sub CommandButton1_Click()

P = 5

Worksheets("KASKO").Cells(2, 2) = "Угон"

End Sub

Private Sub CommandButton2_Click()

P = 6

Worksheets("KASKO").Cells(2, 2) = "Угон + ущерб"

End Sub

Private Sub CommandButton3_Click()

P = 4

Worksheets("KASKO").Cells(2, 2) = "Ущерб"

End Sub

Private Sub CommandButton4_Click()

P = P

Worksheets("KASKO").Cells(3, 2) = "Собственные средства"

End Sub

Private Sub CommandButton5_Click()

P = P + 0.2

Worksheets("KASKO").Cells(3, 2) = "Кредит"

End Sub

Private Sub CommandButton12_Click()

V = InputBox("Введите возраст ТС", "Калькулятор КАСКО")

Worksheets("KASKO").Cells(4, 2) = V

If V > 6 Then

P = P + 2

Else: P = P

End If

End Sub

 

 

Private Sub CommandButton13_Click()

V2 = InputBox("Введите возраст страховщика", "Калькулятор КАСКО")

Worksheets("KASKO").Cells(5, 2) = V2

If V2 < 21 Or V2 > 60 Then

P = P + 1

Else: P = P

End If

End Sub

Private Sub CommandButton14_Click()

Ct = InputBox("Водительский стаж")

Worksheets("KASKO").Cells(6, 2) = Ct

If Ct < 5 Then P = P + 1.1

If Ct > 10 Then

P = P

Else: P = P + 0.1

End If

 

 

End Sub

 

 

Private Sub CheckBox1_Click() 'Устанавливаем зависимость между ScrollBar1 и CheckBox1

If CheckBox1.Value = True Then

ScrollBar1.Enabled = False

Else: ScrollBar1.Enabled = True

TextBox2.Locked = True

End If

End Sub

 

 

Private Sub ScrollBar1_Change() 'устанавливаем диапозон значений ScrollBar1 и зависимость между ScrollBar1 и TextBox2

ScrollBar1.Min = 0

ScrollBar1.Max = 1500

TextBox2.Value = ScrollBar1.Value

If ScrollBar1.Value < 50 Then P = P + 0.6

If ScrollBar1.Value > 150 Then

P = P + 1.6

Else: P = P + 0.9

End If

Worksheets("KASKO").Cells(7, 2) = ScrollBar1

End Sub

 

 

Private Sub UserForm_Initialize() 'Устанавливаем значения, которые могут принимать ComboBox 5,6

ComboBox5.AddItem "Москва"

ComboBox5.AddItem "Московская область"

ComboBox5.AddItem "Республика Адыгея"

ComboBox5.AddItem "Республика Башкортостан"

ComboBox5.AddItem "Республика Бурятия"

ComboBox5.AddItem "Республика Алтай"

ComboBox5.AddItem "Республика Дагестан"

ComboBox5.AddItem "Республика Ингушетия"

ComboBox5.AddItem "Республика Кабардино-Балкарская"

ComboBox5.AddItem "Республика Калмыкия"

ComboBox5.AddItem "Республика Карачаево-Черкесская"

ComboBox5.AddItem "Республика Карелия"

ComboBox5.AddItem "Республика Коми"

ComboBox5.AddItem "Республика Карелия"

ComboBox5.AddItem "Республика Марий Эл"

ComboBox5.AddItem "Республика Мордовия"

ComboBox5.AddItem "Республика Саха(Якутия)"

ComboBox5.AddItem "Республика Северная Осетия (Алания)"

ComboBox5.AddItem "Республика Татарстан"

ComboBox5.AddItem "Республика Тыва"

ComboBox5.AddItem "Республика Удмуртская"

ComboBox5.AddItem "Республика Хакасия"

ComboBox5.AddItem "Республика Чувашская"

ComboBox5.AddItem "Алтайский край"

ComboBox5.AddItem "Краснодарский край"

ComboBox5.AddItem "Красноярский край"

ComboBox5.AddItem "Приморский край"

ComboBox5.AddItem "Ставропольский край"

ComboBox5.AddItem "Хабаровский край"

ComboBox5.AddItem "Амурская область"

ComboBox5.AddItem "Архангельская область"

ComboBox5.AddItem "Астраханская область"

ComboBox5.AddItem "Белгородская область"

ComboBox5.AddItem "Брянская область"

ComboBox5.AddItem "Владимирская область"

ComboBox5.AddItem "Волгоградская область"

ComboBox5.AddItem "Вологодская область"

ComboBox5.AddItem "Воронежская область"

ComboBox5.AddItem "Ивановская область"

ComboBox5.AddItem "Иркутская область"

ComboBox5.AddItem "Калининградская область"

ComboBox5.AddItem "Калужская область"

ComboBox5.AddItem "Кемеровская область"

ComboBox5.AddItem "Кировская область"

ComboBox5.AddItem "Костромская область"

ComboBox5.AddItem "Курганская область"

ComboBox5.AddItem "Курская область"

ComboBox5.AddItem "Липецкая область"

ComboBox5.AddItem "Магаданская область"

ComboBox5.AddItem "Мурманская область"

ComboBox5.AddItem "Нижегородская область"

ComboBox5.AddItem "Новгородская область"

ComboBox5.AddItem "Новосибирская область"

ComboBox5.AddItem "Омская область"

ComboBox5.AddItem "Оренбургская область"

ComboBox5.AddItem "Орловская область"

ComboBox5.AddItem "Пензенская область"

ComboBox5.AddItem "Пермский край"

ComboBox5.AddItem "Псковская область"

ComboBox5.AddItem "Ростовская область"

ComboBox5.AddItem "Рязанская область"

ComboBox5.AddItem "Самарская область"

ComboBox5.AddItem "Саратовская область"

ComboBox5.AddItem "Сахалинская область"

ComboBox5.AddItem "Свердловская область"

ComboBox5.AddItem "Смоленская область"

ComboBox5.AddItem "Тверская область"

ComboBox5.AddItem "Томская область"

ComboBox5.AddItem "Тульская область"

ComboBox5.AddItem "Тюменская область"

ComboBox5.AddItem "Ульяновская область"

ComboBox5.AddItem "Челябинская область"

ComboBox5.AddItem "Забайкальский край"

ComboBox5.AddItem "Ярославская область"

ComboBox5.AddItem "Еврейская автономная область"

ComboBox5.AddItem "Камчатский край"

ComboBox5.AddItem "Чукотский автономный округ"

ComboBox5.AddItem "Ямало-Ненецкий АО"

ComboBox5.AddItem "Чеченская республика"

 

ComboBox6.AddItem "от 3х до 9 месяцев"

ComboBox6.AddItem "больше 10 месяцев"

 

End Sub

 

Private Sub ComboBox5_Change()

Worksheets("KASKO").Cells(8, 2) = ComboBox5.Value

With Worksheets("БАЗА")

Select Case ComboBox5.Value

Case "Республика Адыгея"

ComboBox8.List = Worksheets("БАЗА").Range("B1:B2").Value 'полный путь

Case "Республика Башкортостан"

ComboBox8.List =.Range("B3:B15").Value ' или with

Case "Республика Бурятия"

ComboBox8.List =.Range("B16:B17").Value

Case "Республика Алтай"

ComboBox8.List =.Range("B18:B19").Value

Case "Республика Дагестан"

ComboBox8.List =.Range("B20:B25").Value

Case "Республика Ингушетия"

ComboBox8.List =.Range("B26:B28").Value

Case "Республика Кабардино-Балкарская"

ComboBox8.List =.Range("B29:B31").Value

Case "Республика Калмыкия"

ComboBox8.List =.Range("B32:B33").Value

Case "Республика Карачаево-Черкесская"

ComboBox8.List =.Range("B34:B35").Value

Case "Республика Карелия"

ComboBox8.List =.Range("B36:B37").Value

Case "Республика Коми"

ComboBox8.List =.Range("B38:B43").Value

Case "Республика Марий Эл"

ComboBox8.List =.Range("B44:B46").Value

Case "Республика Мордовия"

ComboBox8.List =.Range("B47:B49").Value

Case "Республика Саха(Якутия)"

ComboBox8.List =.Range("B50:B52").Value

Case "Республика Северная Осетия(Алания)"

ComboBox8.List =.Range("B53:B54").Value

Case "Республика Татарстан"

ComboBox8.List =.Range("B55:B64").Value

Case "Республика Тыва"

ComboBox8.List =.Range("B65:B66").Value

Case "Республика Удмуртская"

ComboBox8.List =.Range("B67:B71").Value

Case "Республика Хакасия"

ComboBox8.List =.Range("B72:B75").Value

Case "Республика Чувашская"

ComboBox8.List =.Range("B76:B79").Value

Case "Алтайский край"

ComboBox8.List =.Range("B80:B85").Value

Case "Краснодарский край"

ComboBox8.List =.Range("B86:B101").Value

Case "Красноярский край"

ComboBox8.List =.Range("B102:B111").Value

Case "Приморский край"

ComboBox8.List =.Range("B112:B117").Value

Case "Ставропольский край"

ComboBox8.List =.Range("B118:B125").Value

Case "Хабаровский край"

ComboBox8.List =.Range("B126:B128").Value

Case "Амурская область"

ComboBox8.List =.Range("B129:B131").Value

Case "Архангельская область"

ComboBox8.List =.Range("B132:B135").Value

Case "Астраханская область"

ComboBox8.List =.Range("B136:B137").Value

Case "Белгородская область"

ComboBox8.List =.Range("B138:B141").Value

Case "Брянская область"

ComboBox8.List =.Range("B142:B144").Value

Case "Владимирская область"

ComboBox8.List =.Range("B145:B150").Value

Case "Волгоградская область"

ComboBox8.List =.Range("B151:B155").Value

Case "Вологодская область"

ComboBox8.List =.Range("B156:B158").Value

Case "Воронежская область"

ComboBox8.List =.Range("B159:B163").Value

Case "Ивановская область"

ComboBox8.List =.Range("B164:B167").Value

Case "Иркутская область"

ComboBox8.List =.Range("B168:B174").Value

Case "Калининградская область"

ComboBox8.List =.Range("B175:B176").Value

Case "Калужская область"

ComboBox8.List =.Range("B177:B179").Value

Case "Кемеровская область"

ComboBox8.List =.Range("B180:B187").Value

Case "Кировская область"

ComboBox8.List =.Range("B188:B189").Value

Case "Костромская область"

ComboBox8.List =.Range("B190:B191").Value

Case "Курганская область"

ComboBox8.List =.Range("B192:B193").Value

Case "Курская область"

ComboBox8.List =.Range("B194:B196").Value

Case "Липецкая область"

ComboBox8.List =.Range("B197:B199").Value

Case "Магаданская область"

ComboBox8.List =.Range("B200:B201").Value

Case "Мурманская область"

ComboBox8.List =.Range("B202:B206").Value

Case "Нижегородская область"

ComboBox8.List =.Range("B207:B214").Value

Case "Новгородская область"

ComboBox8.List =.Range("B215:B217").Value

Case "Новосибирская область"

ComboBox8.List =.Range("B218:B222").Value

Case "Оренбургская область"

ComboBox8.List =.Range("B223:B230").Value

Case "Орловская область"

ComboBox8.List =.Range("B231:B234").Value

Case "Пензенская область"

ComboBox8.List =.Range("B235:B238").Value

Case "Пермский край"

ComboBox8.List =.Range("B239:B246").Value

Case "Псковская область"

ComboBox8.List =.Range("B247:B249").Value

Case "Ростовская область"

ComboBox8.List =.Range("B250:B259").Value

Case "Рязанская область"

ComboBox8.List =.Range("B260:B261").Value

Case "Самарская область"

ComboBox8.List =.Range("B262:B268").Value

Case "Саратовская область"

ComboBox8.List =.Range("B269:B274").Value

Case "Сахалинская область"

ComboBox8.List =.Range("B275:B276").Value

Case "Свердловская область"

ComboBox8.List =.Range("B277:B283").Value

Case "Смоленская область"

ComboBox8.List =.Range("B284:B289").Value

Case "Тверская область"

ComboBox8.List =.Range("B290:B294").Value

Case "Томская область"

ComboBox8.List =.Range("B295:B297").Value

Case "Тульская область"

ComboBox8.List =.Range("B298:B303").Value

Case "Тюменская область"

ComboBox8.List =.Range("B304:B307").Value

Case "Ульяновская область"

ComboBox8.List =.Range("B308:B310").Value

Case "Челябинская область"

ComboBox8.List =.Range("B311:B319").Value

Case "Забайкальский край"

ComboBox8.List =.Range("B320:B321").Value

Case "Ярославская область"

ComboBox8.List =.Range("B322:B324").Value

Case "Еврейская автономная область"

ComboBox8.List =.Range("B325:B326").Value

Case "Камчатский край"

ComboBox8.List =.Range("B327:B328").Value

Case "Ямало-Ненецкий округ"

ComboBox8.List =.Range("B329:B331").Value

 

End Select

End With

Worksheets("KASKO").Cells(8, 3) = ComboBox8.Value

 

End Sub

 

 

Private Sub CommandButton6_Click()

P = P + 0.2

Worksheets("KASKO").Cells(9, 2) = "да"

End Sub

 

Private Sub CommandButton7_Click()

P = P

Worksheets("KASKO").Cells(9, 2) = "НЕТ"

End Sub

Private Sub CommandButton8_Click()

P = P

Worksheets("KASKO").Cells(10, 2) = 1

End Sub

 

Private Sub CommandButton9_Click()

P = P + 1

Worksheets("KASKO").Cells(10, 2) = 2

End Sub

Private Sub CommandButton10_Click()

P = P + 1.8

Worksheets("KASKO").Cells(10, 2) = "НЕОГРАНИЧЕННОЕ"

End Sub

Private Sub CommandButton15_Click()

St = InputBox("Введите стоимость ТС", "КАСКО")

Worksheets("KASKO").Cells(12, 2) = St

End Sub

 

Private Sub CommandButton11_Click()

If ComboBox5 = "Москва" Then 'зависимость процента от региона

P = P + 2

ElseIf ComboBox5 = "Московская область" Then

P = P + 1.7

ElseIf ComboBox5 = "Республика Адыгея" And ComboBox8 = "Майкоп" Then

P = P + 1

ElseIf ComboBox5 = "Республика Адыгея" And ComboBox8 = "др.города" Then

P = P + 0.85

ElseIf ComboBox5 = "Республика Башкортостан" And ComboBox8 = Worksheets("БАЗА").Range("B3:B13") Then

P = P + 1

ElseIf ComboBox5 = "Республика Башкортостан" And ComboBox8 = Worksheets("БАЗА").Range("B14") Then

P = P + 1.3

ElseIf ComboBox5 = "Республика Башкортостан" And ComboBox8 = Worksheets("БАЗА").Range("B15") Then

P = P + 0.75

ElseIf ComboBox5 = "Республика Бурятия" And ComboBox8 = Worksheets("БАЗА").Range("B16") Then

P = P + 1

ElseIf ComboBox5 = "Республика Бурятия" And ComboBox8 = Worksheets("БАЗА").Range("B17") Then

P = P + 0.65

ElseIf ComboBox5 = "Республика Алтай" And ComboBox8 = Worksheets("БАЗА").Range("B18") Then

P = P + 1

ElseIf ComboBox5 = "Республика Алтай" And ComboBox8 = Worksheets("БАЗА").Range("B19") Then

P = P + 0.7

ElseIf ComboBox5 = "Республика Дагестан" And ComboBox8 = Worksheets("БАЗА").Range("B20:B24") Then

P = P + 1

ElseIf ComboBox5 = "Республика Дагестан" And ComboBox8 = Worksheets("БАЗА").Range("B25") Then

P = P + 0.55

ElseIf ComboBox5 = "Республика Ингушетия" And ComboBox8 = Worksheets("БАЗА").Range("B26:B27") Then

P = P + 1

ElseIf ComboBox5 = "Республика Ингушетия" And ComboBox8 = Worksheets("БАЗА").Range("B28") Then

P = P + 0.7

ElseIf ComboBox5 = "Республика Кабардино-Балкарская" And ComboBox8 = Worksheets("БАЗА").Range("B29:B30") Then

P = P + 1

ElseIf ComboBox5 = "Республика Кабардино-Балкарская" And ComboBox8 = Worksheets("БАЗА").Range("B31") Then

P = P + 0.7

ElseIf ComboBox5 = "Республика Калмыкия" And ComboBox8 = Worksheets("БАЗА").Range("B32") Then

P = P + 1

ElseIf ComboBox5 = "Республика Калмыкия" And ComboBox8 = Worksheets("БАЗА").Range("B33") Then

P = P + 0.65

ElseIf ComboBox5 = "Республика Карачаево-Черкесская" And ComboBox8 = Worksheets("БАЗА").Range("B34") Then

P = P + 1

ElseIf ComboBox5 = "Республика Карачаево-Черкесская" And ComboBox8 = Worksheets("БАЗА").Range("B35") Then

P = P + 0.8

ElseIf ComboBox5 = "Республика Карелия" And ComboBox8 = Worksheets("БАЗА").Range("B36") Then

P = P + 1

ElseIf ComboBox5 = "Республика Карелия" And ComboBox8 = Worksheets("БАЗА").Range("B37") Then

P = P + 0.7

ElseIf ComboBox5 = "Республика Коми" And ComboBox8 = Worksheets("БАЗА").Range("B38:B41") Then

P = P + 1

ElseIf ComboBox5 = "Республика Коми" And ComboBox8 = Worksheets("БАЗА").Range("B42") Then

P = P + 1.3

ElseIf ComboBox5 = "Республика Коми" And ComboBox8 = Worksheets("БАЗА").Range("B43") Then

P = P + 0.85

ElseIf ComboBox5 = "Республика Марий Эл" And ComboBox8 = Worksheets("БАЗА").Range("B44:B45") Then

P = P + 1

ElseIf ComboBox5 = "Республика Марий Эл" And ComboBox8 = Worksheets("БАЗА").Range("B46") Then

P = P + 0.75

ElseIf ComboBox5 = "Республика Мордовия" And ComboBox8 = Worksheets("БАЗА").Range("B47:B48") Then

P = P + 1

ElseIf ComboBox5 = "Республика Мордовия" And ComboBox8 = Worksheets("БАЗА").Range("B49") Then

P = P + 0.7

ElseIf ComboBox5 = "Республика Саха(Якутия)" And ComboBox8 = Worksheets("БАЗА").Range("B50") Then

P = P + 1

ElseIf ComboBox5 = "Республика Саха(Якутия)" And ComboBox8 = Worksheets("БАЗА").Range("B51") Then

P = P + 1.6

ElseIf ComboBox5 = "Республика Саха(Якутия)" And ComboBox8 = Worksheets("БАЗА").Range("B52") Then

P = P + 0.8

ElseIf ComboBox5 = "Республика Северная Осетия(Алания)" And ComboBox8 = Worksheets("БАЗА").Range("B53") Then

P = P + 1

ElseIf ComboBox5 = "Республика Северная Осетия(Алания)" And ComboBox8 = Worksheets("БАЗА").Range("B54") Then

P = P + 0.6

ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B55:B61") Then

P = P + 1

ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B62") Then

P = P + 1.6

ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B63") Then

P = P + 1.3

ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B64") Then

P = P + 0.8

ElseIf ComboBox5 = "Республика Тыва" And ComboBox8 = Worksheets("БАЗА").Range("B65") Then

P = P + 1

ElseIf ComboBox5 = "Республика Тыва" And ComboBox8 = Worksheets("БАЗА").Range("B65") Then

P = P + 0.6

ElseIf ComboBox5 = "Республика Удмуртская" And ComboBox8 = Worksheets("БАЗА").Range("B67:B69") Then

P = P + 1

ElseIf ComboBox5 = "Республика Удмуртская" And ComboBox8 = Worksheets("БАЗА").Range("B70") Then

P = P + 1.3

ElseIf ComboBox5 = "Республика Удмуртская" And ComboBox8 = Worksheets("БАЗА").Range("B71") Then

P = P + 0.7

ElseIf ComboBox5 = "Республика Хакасия" And ComboBox8 = Worksheets("БАЗА").Range("B72:B74") Then

P = P + 1

ElseIf ComboBox5 = "Республика Хакасия" And ComboBox8 = Worksheets("БАЗА").Range("B75") Then

P = P + 0.6

ElseIf ComboBox5 = "Республика Чувашская" And ComboBox8 = Worksheets("БАЗА").Range("B76:B77") Then

P = P + 1

ElseIf ComboBox5 = "Республика Чувашская" And ComboBox8 = Worksheets("БАЗА").Range("B78") Then

P = P + 1.3

ElseIf ComboBox5 = "Алтайский край" And ComboBox8 = Worksheets("БАЗА").Range("B80:B83") Then

P = P + 1

ElseIf ComboBox5 = "Алтайский край" And ComboBox8 = Worksheets("БАЗА").Range("B84") Then

P = P + 1.3

ElseIf ComboBox5 = "Алтайский край" And ComboBox8 = Worksheets("БАЗА").Range("B85") Then

P = P + 0.6

ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B86:B98") Then

P = P + 1

ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B99") Then

P = P + 1.6

ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B100") Then

P = P + 1.3

ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B101") Then

P = P + 0.7

ElseIf ComboBox5 = "Красноярский край" And ComboBox8 = Worksheets("БАЗА").Range("B102:B109") Then

P = P + 1

ElseIf ComboBox5 = "Красноярский край" And ComboBox8 = Worksheets("БАЗА").Range("B110") Then

P = P + 1.6

ElseIf ComboBox5 = "Красноярский край" And ComboBox8 = Worksheets("БАЗА").Range("B111") Then

P = P + 0.7

ElseIf ComboBox5 = "Приморский край" And ComboBox8 = Worksheets("БАЗА").Range("B112:B115") Then

P = P + 1

ElseIf ComboBox5 = "Приморский край" And ComboBox8 = Worksheets("БАЗА").Range("B116") Then

P = P + 1.3

ElseIf ComboBox5 = "Приморский край" And ComboBox8 = Worksheets("БАЗА").Range("B117") Then

P = P + 0.6

ElseIf ComboBox5 = "Ставропольский край" And ComboBox8 = Worksheets("БАЗА").Range("B118:B124") Then

P = P + 1

ElseIf ComboBox5 = "Ставропольский край" And ComboBox8 = Worksheets("БАЗА").Range("B125") Then

P = P + 0.65

ElseIf ComboBox5 = "Хабаровский край" And ComboBox8 = Worksheets("БАЗА").Range("B126") Then

P = P + 1

ElseIf ComboBox5 = "Хабаровский край" And ComboBox8 = Worksheets("БАЗА").Range("B127") Then

P = P + 1.6

ElseIf ComboBox5 = "Хабаровский край" And ComboBox8 = Worksheets("БАЗА").Range("B128") Then

P = P + 0.65

ElseIf ComboBox5 = "Амурская область" And ComboBox8 = Worksheets("БАЗА").Range("B129") Then

P = P + 1

ElseIf ComboBox5 = "Амурская область" And ComboBox8 = Worksheets("БАЗА").Range("B130") Then

P = P + 1.3

ElseIf ComboBox5 = "Амурская область" And ComboBox8 = Worksheets("БАЗА").Range("B131") Then

P = P + 0.6

ElseIf ComboBox5 = "Архангельская область" And ComboBox8 = Worksheets("БАЗА").Range("B132:B133") Then

P = P + 1.3

ElseIf ComboBox5 = "Архангельская область" And ComboBox8 = Worksheets("БАЗА").Range("B134") Then

P = P + 1

ElseIf ComboBox5 = "Архангельская область" And ComboBox8 = Worksheets("БАЗА").Range("B135") Then

P = P + 0.85

ElseIf ComboBox5 = "Астраханская область" And ComboBox8 = Worksheets("БАЗА").Range("B136") Then

P = P + 1.3

ElseIf ComboBox5 = "Астраханская область" And ComboBox8 = Worksheets("БАЗА").Range("B137") Then

P = P + 0.65

ElseIf ComboBox5 = "Белгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B138:B140") Then

P = P + 1

ElseIf ComboBox5 = "Белгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B141") Then

P = P + 0.65

ElseIf ComboBox5 = "Брянская область" And ComboBox8 = Worksheets("БАЗА").Range("B142") Then

P = P + 1.3

ElseIf ComboBox5 = "Брянская область" And ComboBox8 = Worksheets("БАЗА").Range("B143") Then

P = P + 1

ElseIf ComboBox5 = "Брянская область" And ComboBox8 = Worksheets("БАЗА").Range("B144") Then

P = P + 0.6

ElseIf ComboBox5 = "Владимирская область" And ComboBox8 = Worksheets("БАЗА").Range("B145:B148") Then

P = P + 1

ElseIf ComboBox5 = "Владимирская область" And ComboBox8 = Worksheets("БАЗА").Range("B149") Then

P = P + 1.3

ElseIf ComboBox5 = "Владимирская область" And ComboBox8 = Worksheets("KASKO").Range("B150") Then

P = P + 0.75

ElseIf ComboBox5 = "Волгоградская область" And ComboBox8 = Worksheets("БАЗА").Range("B151:B152") Then

P = P + 1.3

ElseIf ComboBox5 = "Волгоградская область" And ComboBox8 = Worksheets("БАЗА").Range("B153:B154") Then

P = P + 1

ElseIf ComboBox5 = "Волгоградская область" And ComboBox8 = Worksheets("БАЗА").Range("B155") Then

P = P + 0.6

ElseIf ComboBox5 = "Вологодская область" And ComboBox8 = Worksheets("БАЗА").Range("B156:B157") Then

P = P + 1.3

ElseIf ComboBox5 = "Вологодская область" And ComboBox8 = Worksheets("БАЗА").Range("B158") Then

P = P + 0.8

ElseIf ComboBox5 = "Воронежская область" And ComboBox8 = Worksheets("БАЗА").Range("B159:B161") Then

P = P + 1

ElseIf ComboBox5 = "Воронежская область" And ComboBox8 = Worksheets("БАЗА").Range("B162") Then

P = P + 1.3

ElseIf ComboBox5 = "Воронежская область" And ComboBox8 = Worksheets("БАЗА").Range("B163") Then

P = P + 0.55

ElseIf ComboBox5 = "Ивановская область" And ComboBox8 = Worksheets("БАЗА").Range("B164:B165") Then

P = P + 1

ElseIf ComboBox5 = "Ивановская область" And ComboBox8 = Worksheets("БАЗА").Range("B166") Then

P = P + 1.3

ElseIf ComboBox5 = "Ивановская область" And ComboBox8 = Worksheets("БАЗА").Range("B167") Then

P = P + 0.75

ElseIf ComboBox5 = "Иркутская область" And ComboBox8 = Worksheets("БАЗА").Range("B168:B172") Then

P = P + 1

ElseIf ComboBox5 = "Иркутская область" And ComboBox8 = Worksheets("БАЗА").Range("B173") Then

P = P + 1.3

ElseIf ComboBox5 = "Иркутская область" And ComboBox8 = Worksheets("БАЗА").Range("B174") Then

P = P + 0.65

ElseIf ComboBox5 = "Калининградская область" And ComboBox8 = Worksheets("БАЗА").Range("B175") Then

P = P + 1.3

ElseIf ComboBox5 = "Калининградская область" And ComboBox8 = Worksheets("БАЗА").Range("B176") Then

P = P + 0.6

ElseIf ComboBox5 = "Калужская область" And ComboBox8 = Worksheets("БАЗА").Range("B177:B178") Then

P = P + 1

ElseIf ComboBox5 = "Калужская область" And ComboBox8 = Worksheets("БАЗА").Range("B179") Then

P = P + 0.65

ElseIf ComboBox5 = "Кемеровская область" And ComboBox8 = Worksheets("БАЗА").Range("B180:B184") Then

P = P + 1

ElseIf ComboBox5 = "Кемеровская область" And ComboBox8 = Worksheets("БАЗА").Range("B185:B186") Then

P = P + 1.6

ElseIf ComboBox5 = "Кемеровская область" And ComboBox8 = Worksheets("БАЗА").Range("B187") Then

P = P + 0.8

ElseIf ComboBox5 = "Кировская область" And ComboBox8 = Worksheets("БАЗА").Range("B188") Then

P = P + 1.3

ElseIf ComboBox5 = "Кировская область" And ComboBox8 = Worksheets("БАЗА").Range("B189") Then

P = P + 0.7

ElseIf ComboBox5 = "Костромская область" And ComboBox8 = Worksheets("БАЗА").Range("B190") Then

P = P + 1

ElseIf ComboBox5 = "Костромская область" And ComboBox8 = Worksheets("БАЗА").Range("B191") Then

P = P + 0.8

ElseIf ComboBox5 = "Курганская область" And ComboBox8 = Worksheets("БАЗА").Range("B192") Then

P = P + 1

ElseIf ComboBox5 = "Курганская область" And ComboBox8 = Worksheets("БАЗА").Range("B193") Then

P = P + 0.7

ElseIf ComboBox5 = "Курская область" And ComboBox8 = Worksheets("БАЗА").Range("B194") Then

P = P + 1.3

ElseIf ComboBox5 = "Курская область" And ComboBox8 = Worksheets("БАЗА").Range("B195") Then

P = P + 1

ElseIf ComboBox5 = "Курская область" And ComboBox8 = Worksheets("БАЗА").Range("B196") Then

P = P + 0.55

ElseIf ComboBox5 = "Липецкая область" And ComboBox8 = Worksheets("БАЗА").Range("B197") Then

P = P + 1

ElseIf ComboBox5 = "Липецкая область" And ComboBox8 = Worksheets("БАЗА").Range("B198") Then

P = P + 1.3

ElseIf ComboBox5 = "Липецкая область" And ComboBox8 = Worksheets("БАЗА").Range("B199") Then

P = P + 0.6

ElseIf ComboBox5 = "Магаданская область" And ComboBox8 = Worksheets("БАЗА").Range("B200") Then

P = P + 1

ElseIf ComboBox5 = "Магаданская область" And ComboBox8 = Worksheets("БАЗА").Range("B201") Then

P = P + 0.75

ElseIf ComboBox5 = "Мурманская область" And ComboBox8 = Worksheets("БАЗА").Range("B202:B204") Then

P = P + 1

ElseIf ComboBox5 = "Мурманская область" And ComboBox8 = Worksheets("БАЗА").Range("B205") Then

P = P + 1.3

ElseIf ComboBox5 = "Мурманская область" And ComboBox8 = Worksheets("БАЗА").Range("B206") Then

P = P + 0.85

ElseIf ComboBox5 = "Нижегородская область" And ComboBox8 = Worksheets("БАЗА").Range("B207:B212") Then

P = P + 1

ElseIf ComboBox5 = "Нижегородская область" And ComboBox8 = Worksheets("БАЗА").Range("B213") Then

P = P + 1.6

ElseIf ComboBox5 = "Нижегородская область" And ComboBox8 = Worksheets("БАЗА").Range("B214") Then

P = P + 1.3

ElseIf ComboBox5 = "Новгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B215:B216") Then

P = P + 1

ElseIf ComboBox5 = "Новгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B217") Then

P = P + 0.65

ElseIf ComboBox5 = "Новосибирская область" And ComboBox8 = Worksheets("БАЗА").Range("B218:B220") Then

P = P + 1

ElseIf ComboBox5 = "Новосибирская область" And ComboBox8 = Worksheets("БАЗА").Range("B221") Then

P = P + 1.3

ElseIf ComboBox5 = "Новосибирская область" And ComboBox8 = Worksheets("БАЗА").Range("B222") Then

P = P + 0.75

ElseIf ComboBox5 = "Омская область" And ComboBox8 = Worksheets("БАЗА").Range("B223") Then

P = P + 1.3

ElseIf ComboBox5 = "Омская область" And ComboBox8 = Worksheets("БАЗА").Range("B224") Then

P = P + 0.7

ElseIf ComboBox5 = "Оренбургская область" And ComboBox8 = Worksheets("БАЗА").Range("B225:B228") Then

P = P + 1

ElseIf ComboBox5 = "Оренбургская область" And ComboBox8 = Worksheets("БАЗА").Range("B229") Then

P = P + 1.3

ElseIf ComboBox5 = "Оренбургская область" And ComboBox8 = Worksheets("БАЗА").Range("B230") Then

P = P + 0.7

ElseIf ComboBox5 = "Орловская область" And ComboBox8 = Worksheets("БАЗА").Range("B231:B233") Then

P = P + 1

ElseIf ComboBox5 = "Орловская область" And ComboBox8 = Worksheets("БАЗА").Range("B234") Then

P = P + 0.6

ElseIf ComboBox5 = "Пензенская область" And ComboBox8 = Worksheets("БАЗА").Range("B235:B236") Then

P = P + 1

ElseIf ComboBox5 = "Пензенская область" And ComboBox8 = Worksheets("БАЗА").Range("B237") Then

P = P + 1.3

ElseIf ComboBox5 = "Пензенская область" And ComboBox8 = Worksheets("БАЗА").Range("B238") Then

P = P + 0.6

ElseIf ComboBox5 = "Пермский край" And ComboBox8 = Worksheets("БАЗА").Range("B239:B244") Then

P = P + 1

ElseIf ComboBox5 = "Пермский край" And ComboBox8 = Worksheets("БАЗА").Range("B245") Then

P = P + 1.6

ElseIf ComboBox5 = "Пермский край" And ComboBox8 = Worksheets("БАЗА").Range("B246") Then

P = P + 0.85

ElseIf ComboBox5 = "Псковская область" And ComboBox8 = Worksheets("БАЗА").Range("B247:B248") Then

P = P + 1

ElseIf ComboBox5 = "Псковская область" And ComboBox8 = Worksheets("БАЗА").Range("B249") Then

P = P + 0.55

ElseIf ComboBox5 = "Ростовская область" And ComboBox8 = Worksheets("БАЗА").Range("B250:B257") Then

P = P + 1

ElseIf ComboBox5 = "Ростовская область" And ComboBox8 = Worksheets("БАЗА").Range("B258") Then

P = P + 1.3

ElseIf ComboBox5 = "Ростовская область" And ComboBox8 = Worksheets("БАЗА").Range("B259") Then

P = P + 0.65

ElseIf ComboBox5 = "Рязанская область" And ComboBox8 = Worksheets("БАЗА").Range("B260") Then

P = P + 1.3

ElseIf ComboBox5 = "Рязанская область" And ComboBox8 = Worksheets("БАЗА").Range("B261") Then

P = P + 0.65

ElseIf ComboBox5 = "Самарская область" And ComboBox8 = Worksheets("БАЗА").Range("B262:B65") Then

P = P + 1

ElseIf ComboBox5 = "Самарская область" And ComboBox8 = Worksheets("БАЗА").Range("B266:B67") Then

P = P + 1.3

ElseIf ComboBox5 = "Самарская область" And ComboBox8 = Worksheets("БАЗА").Range("B268") Then

P = P + 0.74

ElseIf ComboBox5 = "Саратовская область" And ComboBox8 = Worksheets("БАЗА").Range("B269:B72") Then

P = P + 1

ElseIf ComboBox5 = "Саратовская область" And ComboBox8 = Worksheets("БАЗА").Range("B273") Then

P = P + 1.3

ElseIf ComboBox5 = "Саратовская область" And ComboBox8 = Worksheets("БАЗА").Range("B274") Then

P = P + 0.7

ElseIf ComboBox5 = "Сахалинская область" And ComboBox8 = Worksheets("БАЗА").Range("B275") Then

P = P + 1.3

ElseIf ComboBox5 = "Сахалинская область" And ComboBox8 = Worksheets("БАЗА").Range("B276") Then

P = P + 0.75

ElseIf ComboBox5 = "Свердловская область" And ComboBox8 = Worksheets("БАЗА").Range("B277:B82") Then

P = P + 1

ElseIf ComboBox5 = "Свердловская область" And ComboBox8 = Worksheets("БАЗА").Range("B283") Then

P = P + 0.75

ElseIf ComboBox5 = "Смоленская область" And ComboBox8 = Worksheets("БАЗА").Range("B284:B88") Then

P = P + 1

ElseIf ComboBox5 = "Смоленская область" And ComboBox8 = Worksheets("БАЗА").Range("B289") Then

P = P + 0.55

ElseIf ComboBox5 = "Тверская область" And ComboBox8 = Worksheets("БАЗА").Range("B290:B92") Then

P = P + 1

ElseIf ComboBox5 = "Тверская область" And ComboBox8 = Worksheets("БАЗА").Range("B293") Then

P = P + 1.3

ElseIf ComboBox5 = "Тверская область" And ComboBox8 = Worksheets("БАЗА").Range("B294") Then

P = P + 0.65

ElseIf ComboBox5 = "Томская область" And ComboBox8 = Worksheets("БАЗА").Range("B295") Then

P = P + 1

ElseIf ComboBox5 = "Томская область" And ComboBox8 = Worksheets("БАЗА").Range("B296") Then

P = P + 1.3

ElseIf ComboBox5 = "Томская область" And ComboBox8 = Worksheets("БАЗА").Range("B297") Then

P = P + 0.7

ElseIf ComboBox5 = "Тульская область" And ComboBox8 = Worksheets("БАЗА").Range("B298:B301") Then

P = P + 1

ElseIf ComboBox5 = "Тульская область" And ComboBox8 = Worksheets("БАЗА").Range("B302") Then

P = P + 1.3

ElseIf ComboBox5 = "Тульская область" And ComboBox8 = Worksheets("БАЗА").Range("B303") Then

P = P + 0.65

ElseIf ComboBox5 = "Тюменская область" And ComboBox8 = Worksheets("БАЗА").Range("B304:B305") Then

P = P + 1

ElseIf ComboBox5 = "Тюменская область" And ComboBox8 = Worksheets("БАЗА").Range("B306") Then

P = P + 1.3

ElseIf ComboBox5 = "Тюменская область" And ComboBox8 = Worksheets("БАЗА").Range("B307") Then

P = P + 0.8

ElseIf ComboBox5 = "Ульяновская область" And ComboBox8 = Worksheets("БАЗА").Range("B308") Then

P = P + 1

ElseIf ComboBox5 = "Ульяновская область" And ComboBox8 = Worksheets("БАЗА").Range("B309") Then

P = P + 1.3

ElseIf ComboBox5 = "Ульяновская область" And ComboBox8 = Worksheets("БАЗА").Range("B3010") Then

P = P + 0.7

ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B311:B316") Then

P = P + 1

ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B317") Then

P = P + 1.3

ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B318") Then

P = P + 1.6

ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B319") Then

P = P + 0.8

ElseIf ComboBox5 = "Забайкальский край" And ComboBox8 = Worksheets("БАЗА").Range("B320") Then

P = P + 1

ElseIf ComboBox5 = "Забайкальский край" And ComboBox8 = Worksheets("БАЗА").Range("B321") Then

P = P + 0.55

ElseIf ComboBox5 = "Ярославская область" And ComboBox8 = Worksheets("БАЗА").Range("B322") Then

P = P + 1.3

ElseIf ComboBox5 = "Ярославская область" And ComboBox8 = Worksheets("БАЗА").Range("B323") Then

P = P + 1

ElseIf ComboBox5 = "Ярославская область" And ComboBox8 = Worksheets("БАЗА").Range("B324") Then

P = P + 0.7

ElseIf ComboBox5 = "Еврейская автономная область" And ComboBox8 = Worksheets("БАЗА").Range("B325") Then

P = P + 1

ElseIf ComboBox5 = "Еврейская автономная область" And ComboBox8 = Worksheets("БАЗА").Range("B326") Then

P = P + 0.55

ElseIf ComboBox5 = "Камчатский край" And ComboBox8 = Worksheets("БАЗА").Range("B327") Then

P = P + 1

ElseIf ComboBox5 = "Камчатский край" And ComboBox8 = Worksheets("БАЗА").Range("B328") Then

P = P + 0.65

ElseIf ComboBox5 = "Чукотский автономный округ" Then

P = P + 0.55

ElseIf ComboBox5 = "Ямало-Ненецкий АО" And ComboBox8 = Worksheets("БАЗА").Range("B329") Then

P = P + 1

ElseIf ComboBox5 = "Ямало-Ненецкий АО" And ComboBox8 = Worksheets("БАЗА").Range("B330") Then

P = P + 1.3

ElseIf ComboBox5 = "Ямало-Ненецкий АО" And ComboBox8 = Worksheets("БАЗА").Range("B331") Then

P = P + 0.65

Else: P = P + 0.55

End If

 

 

If Worksheets("KASKO").Cells(2, 2) = "Угон" Then

P = 5

ElseIf Worksheets("KASKO").Cells(2, 2) = "Угон+ущерб" Then

P = 6

ElseIf Worksheets("KASKO").Cells(2, 2) = "Ущерб" Then

P = 4

End If

 

If Worksheets("KASKO").Cells(3, 2) = "Собственные средства" Then

P = P

ElseIf Worksheets("KASKO").Cells(3, 2) = "Кредит" Then

P = P + 0.2

End If

 

Worksheets("KASKO").Cells(11, 2) = ComboBox.Value

V = Worksheets("KASKO").Cells(4, 2)

 

If V > 6 Then 'блок "возраст ТС"

P = P + 2

Else: P = P

End If

 

V2 = Worksheets("KASKO").Cells(5, 2)

 

If V2 < 21 Or V2 > 60 Then 'блок "Стаж водителя"

P = P + 1

Else: P = P

End If

 

Ct = Worksheets("KASKO").Cells(6, 2)

 

If Ct < 5 Then

P = P + 1.1 'блок "водительский стаж

ElseIf Ct > 10 Then

P = P

Else: P = P + 0.1

End If

 

If ScrollBar1.Value < 50 Then

P = P + 0.6 'блок "Мощность ТС"

ElseIf ScrollBar1.Value > 150 Then

P = P + 1.6

Else: P = P + 0.9

End If

 

 

If OptionButton1 = True Then '"блок наличие аварий"

P = P + 0.2

Else: P = P

End If

 

Sum = St / 100 * P

Worksheets("KASKO").Cells(13, 2) = P

Worksheets("KASKO").Cells(14, 2) = Sum

End Sub


ПРИЛОЖЕНИЕ 2

Инструкция работы программы для пользователя

1.
Выбор вида страхования. В данном пункте 3 варианта: угон, угон+ущерб, ущерб. Процентная ставка наибольшая при страховании на угони ущерб одновременно, наименьшая при страховании только на ущерб. Просто нажав на выбранную кнопку, пользователь увидит свой выбор в базе Excel, процентная ставка определится в программе.

2. Информация о кредите. 2 варианта: на собственные средства и покупка с использованием кредита. Процентная ставка будет выше при выборе варианта «кредит» на 0,2%.

3. Возраст ТС. При нажатии на эту кнопку пользователь должен ввести число в появившееся окно InputBox. Пограничным числом процентной ставки в этом пункте является 6. Если возраст ТС больше 6 лет, то процентная ставка увеличится на 2%.

4.
Возраст страховщика. После нажатия пользователем этой кнопки снова появляется окно InputBox. Процентная ставка зависит от возраста страховщика следующим образом: процент больше для страховщиков младше 21 года и старше 60 лет.

5. Водительский стаж. Пункт заполняется аналогично предыдущим двум. Процент ставки наименьший при стаже больше 10 лет, наибольший при стаже меньше 5 лет.

6.
Мощность ТС. Выбирается пользователем при помощи ScrollBar, установленном на значения от 0 о 1500 лошадиных сил. Чем больше лс автомобиля, тем больше процентная ставка. От 150 лс прибавка к процентной ставке составляет 1,6%.

 

7. Регион регистрации. Выбирается пользователем при помощи двух связанных выпадающих списков ComboBox. В первом выбирается регион, во втором город. Процентная ставка индивидуальная при любом выборе, основана на таблице региональных коэффициентов.

 

 

8. Наличие аварий. Пункт организован при помощи Frame. Пользователь может выбрать только один вариант: да или нет. Соответственно, процентная ставка выше, если аварии были.

9. Количество водителей. Три варианта блока: 1 лицо, 2 и неограниченна страховка. Процентная ставка увеличивается на 1% при добавлении 1 водителя и на 1,8 при неограниченном количестве.

10. Срок действия полиса. Организован выпадающим списком ComboBox, двумя вариантами: «от 3х месяцев до 9» и «больше 10 месяцев». При страховке на меньший промежуток времени процентная ставка уменьшается, при большем сроке увеличивается на 1%.

 

11. Страховая сумма. Пользователь вводит стоимость ТС в InputBox. От данного числа будет высчитываться процент при определении стоимости страхового полиса.

12. Подсчет. При нажатии последней кнопки программа подсчитывает общий процент страхования и стоимость страхового полиса, выводит данные в базу на лист Excel.

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...