Programalama > VISUAL BASIC

4 Tane text box
4 tane Check box
2 Tane Command buton

Programı indirebileceğiniz link: 
http://s3.internetfiles.org/download.php?id=tKAuWDflPUzr4qp3Y4kE 

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