Форма расчета налога на имущество физических лиц

Public Class nal_Vichet

Dim itog_imush As Integer, rut As Integer, soz_itog As Integer, vsegonal As Integer

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

Dim st_vich As Integer, itog_vich As Integer, deti As Integer, deti2 As Integer, rut As Integer

' Валидация

If Not ValidateGroupBox("Cтандартные вычеты", GroupBox1, StandartLabel) Then Return

If Not ValidateComboBox("Число детей", ComboBox1, StandartLabel) Then Return

If Not ValidateComboBox("Число детей инвалидов", ComboBox2, StandartLabel) Then Return

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

If RadioButton1.Checked Then

st_vich = 1000

ElseIf RadioButton2.Checked Then

st_vich = 2000

Else : st_vich = 0

End If

deti = ComboBox1.SelectedItem

deti2 = ComboBox2.SelectedItem

itog_vich = ((deti - deti2) * st_vich) + (deti2 * st_vich)

TextBo.Text = itog_vich 'месячный вычет

rut = itog_vich * 12

TextBox14.Text = rut 'годовой вычет

TextBox8.Text = rut 'занесла значение во вкладку НДФЛ

End Sub

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

Dim qw As Integer, er As Integer, ty As Integer, ui As Integer, op As Integer, asd As Integer, fgh As Integer

' Валидация

If Not ValidateNumericTextBox("Благотворительность", TextBox1, Label28, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Лечение", TextBox2, Label28, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Дорогостоящее лечение", TextBox3, Label28, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Благотворительность", TextBox4, Label28, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Добровольное страхование", TextBox5, Label28, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Дополнительные пенсионные взносы", TextBox6, Label28, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Обучение детей", TextBox7, Label28, Nothing, Nothing) Then Return

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

qw = TextBox1.Text

er = TextBox2.Text

ty = TextBox3.Text

ui = TextBox4.Text

op = TextBox5.Text

asd = TextBox6.Text

fgh = TextBox7.Text

soz_itog = qw + er + ty + ui + op + asd + fgh

TextBox9.Text = soz_itog

TextBox10.Text = soz_itog 'значение в НДФЛ

End Sub

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

Doh_NDFL.Show() 'Справка по необлагаемым доходам

End Sub

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

Dim stoim As Integer, sobstv As Integer, qaz As Integer, poit As Integer

' Валидация

If Not ValidateGroupBox("Вид собственности", GroupBox3, Label29) Then Return

If Not ValidateNumericTextBox("Количество собственников", klvsbstv, Label29, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Стоимость объекта", stsobt, Label29, Nothing, Nothing) Then Return

If Not ValidateNumericTextBox("Вычет по предыдущим годам", TextBox17, Label29, Nothing, Nothing) Then Return

stoim = stsobt.Text

sobstv = klvsbstv.Text

poit = TextBox17.Text

If RadioButton4.Checked Then

qaz = (stoim / sobstv)

ElseIf RadioButton5.Checked Then

qaz = stoim

Else : MsgBox("Выберите форму собственности имущества")

End If

If qaz > 2000000 Then

itog_imush = 2000000 - poit

Else : itog_imush = qaz - poit

End If

TextBox11.Text = itog_imush

TextBox13.Text = itog_imush 'значение в НДФЛ

TextBox15.Text = rut + soz_itog + itog_imush

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim zryaplata As Integer, summandfl As Integer

If Not ValidateNumericTextBox("Сумма Вашего годового налогооблагаемого дохода", TextBox12, Label30, Nothing, Nothing) Then Return

zryaplata = TextBox12.Text

vsegonal = TextBox15.Text

If itog_imush > zryaplata Then

summandfl = vsegonal

End If

summandfl = zryaplata - vsegonal

TextBox16.Text = summandfl

End Sub

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

ipoteka.Show()

End Sub

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

vich_stan.Show()

End Sub

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

vich_soz.Show()

End Sub

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

vich_imush.Show()

End Sub

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

NDFL.Show()

End Sub

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

ComboBox1.Text = ""

ComboBox2.Text = ""

TextBo.Text = ""

TextBox14.Text = ""

End Sub

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

TextBox1.Text = "0"

TextBox2.Text = "0"

TextBox3.Text = "0"

TextBox4.Text = "0"

TextBox5.Text = "0"

TextBox6.Text = "0"

TextBox7.Text = "0"

TextBox9.Text = ""

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.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 Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.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

End Class