Yapacağımız programa aşağıdaki şekilde gibi 5 tane Label,3 tane textbox,2 tane buton, 6 tane de RadioButton araçlarını ekliyoruz. Daha sonra şekilde görüldüğü gibi araçlarımıza isimlerini veriyoruz.
Daha sonra Button1’e şu kodları yazıyoruz.
[code language=”vb”]If RadioButton1.Checked Then
TextBox2.Text = Val(TextBox1.Text) – (Val(TextBox1.Text) * 0.05)
End If
If RadioButton2.Checked Then
TextBox2.Text = Val(TextBox1.Text) – (Val(TextBox1.Text) * 0.1)
End If
If RadioButton3.Checked Then
TextBox2.Text = Val(TextBox1.Text) – (Val(TextBox1.Text) * 0.15)
End If[/code]
Button1’e kodlarımızı yazdıktan sonra, Button2’ye de şu kodları yazalım.
[code language=”vb”]If RadioButton4.Checked Then TextBox3.Text = (Val(TextBox2.Text)) / 5
If RadioButton5.Checked Then TextBox3.Text = (Val(TextBox2.Text)) / 6
If RadioButton6.Checked Then TextBox3.Text = (Val(TextBox2.Text))/ 7[/code]