Код приложения Главная кнопочная форма

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Imush_nal.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

nal_Vichet.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ipoteka.Show()

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

about.Show()

End Sub

End Class

Форма расчета имущественных налогов

Public Class Imush_nal

Dim nal As Long, itog As Integer, ito As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim stavka As Double, st As Long, sto As Integer, sob As Byte

'Ниже валидатор

If Not ValidateNumericTextBox("Стоимость имущества", stoimost, Label19, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Собственник", sobstvennik, Label19, Nothing, Nothing) Then Return

If Not ValidateGroupBox("Помещение", GroupBox1, Label19) Then Return

'Конец валидатора

st = 300000

sto = stoimost.Text

If zil.Checked = True Then

If sto < st Then

stavka = 0.001

ElseIf sto > st And sto < 500000 Then

stavka = 0.002

st = 500000

ElseIf sto > st Then

stavka = 0.0031

End If

ElseIf nezil.Checked = True Then

If sto < st Then

stavka = 0.001

ElseIf sto > st And sto < 500000 Then

stavka = 0.003

st = 500000

ElseIf sto > st Then

stavka = 0.02

End If

End If

sob = sobstvennik.Text

nal = sto / sob * stavka 'Расчет налога

nalog.Text = nal 'Вывод итога в поле

TextBox5.Text = nal

TextBox8.Text = nal + itog + ito

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

' Валидация

If Not ValidateComboBox("Вид транспорта", vidTR, TransportTaxErrorLabel) Then Return

If Not ValidateNumericTextBox("Мощность двигателя", NB, TransportTaxErrorLabel, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Корректирующий коэффициент", KK, TransportTaxErrorLabel, 1, 12) Then Return

' Конец валидации

Dim nal_st As Integer, kor_koff As Double, losh As Integer

losh = NB.Text

kor_koff = KK.Text / 12

If vidTR.SelectedItem Is "Легковой автомобиль" Then

Select Case losh

Case Is < 100

nal_st = 24

Case 100 To 149

nal_st = 350

Case 150 To 199

nal_st = 50

Case 200 To 249

nal_st = 75

Case Is > 250

nal_st = 150

End Select

ElseIf vidTR.SelectedItem Is "Мотоцикл/мотороллер" Then

Select Case losh

Case Is < 20

nal_st = 10

Case 21 To 34

nal_st = 20

Case Is > 35

nal_st = 50

End Select

ElseIf vidTR.SelectedItem Is "Автобус" Then

Select Case losh

Case Is < 200

nal_st = 50

Case Is > 200

nal_st = 65

End Select

ElseIf vidTR.SelectedItem Is "Грузовой автомобиль" Then

Select Case losh

Case Is < 100

nal_st = 25

Case 100 To 149

nal_st = 40

Case 150 To 199

nal_st = 50

Case 200 To 250

nal_st = 55

End Select

End If

itog = losh * nal_st * kor_koff

nalItog.Text = itog

TextBox6.Text = itog

TextBox8.Text = nal + itog + ito

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

' Валидация

If Not ValidateGroupBox("Назначение участка", GroupBox2, LandTaxErrorLabel) Then Return

If Not ValidateNumericTextBox("Кадастровая стоимость земли", kadastr, LandTaxErrorLabel, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Площадь участка", uchastok, LandTaxErrorLabel, Nothing, Nothing) Then Return

' Конец валидации

Dim kad As Double, uch As Double, abs As Double, stavka As Double

If hozaystvennie.Checked Or zilie.Checked Or lichnoehozvo.Checked Then

stavka = 0.0004

ElseIf prochee.Checked Then

stavka = 0.015

End If

kad = kadastr.Text

uch = uchastok.Text

If CheckBox1.Checked = True Then

abs = kad * uch - 10000

ito = abs * stavka

Else

ito = kad * uch * stavka

End If

itog_zem.Text = ito

TextBox7.Text = ito

TextBox8.Text = nal + itog + ito

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

Me.LinkLabel1.LinkVisited = True ' Navigate to a URL.

System.Diagnostics.Process.Start("http://www.kzr.spb.ru/dir-ks.asp")

End Sub

Private Sub LinkLabel5_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked

Me.LinkLabel5.LinkVisited = True ' Navigate to a URL.

System.Diagnostics.Process.Start("http://www.r78.nalog.ru/imns/")

End Sub

Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked

nal_imu.Show()

End Sub

Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked

nal_trans.Show()

End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked

nal_zem.Show()

End Sub

Private Sub LinkLabel6_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel6.LinkClicked

nal_vse_imu.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

For Each TabPage As Control In TabControl1.Controls

For Each TxtBox As Control In TabPage.Controls

If TypeName(TxtBox) = "TextBox" Then

TxtBox.Text = ""

End If

Next

Next

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

vidTR.Text = ""

NB.Text = ""

KK.Text = ""

nalItog.Text = ""

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

kadastr.Text = ""

uchastok.Text = ""

itog_zem.Text = ""

End Sub

End Class