4 Tane text box

4 tane Check box

2 Tane Command buton



Programı indirebileceğiniz link:

http://s3.internetfiles.org/download...flPUzr4qp3Y4kE



Private Sub Check2_Click()

If Check2.Value = Unchecked Then

Text4 = ""

End If

If Check2.Value = Checked Then

Text4.SetFocus

End If

End Sub



Private Sub Check4_Click()

If Check4.Value = Checked Then

Check1.Enabled = False

Check2.Enabled = False

Check3.Enabled = False

Text1.Enabled = False

Else

Check1.Enabled = True

Text1.Enabled = True

Check2.Enabled = True

Check3.Enabled = True

End If

End Sub



Private Sub Command1_Click()

If Check1.Value = Checked Then a = a + 50

If Check2.Value = Checked Then b = Val(Text4) * 100

If Check3.Value = Checked Then c = c + 50

d = Val(Text2) * 100

Text3 = a + b + c + d

End Sub



Private Sub Command2_Click()

End

End Sub



Private Sub Text4_Change()

If Text4 "" Then

Check2.Value = Checked

Else

Check2.Value = Unchecked

End If

End Sub

ALINTI
__________________