Gorsel Programlama

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.

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

Button1′e kodlarımızı yazdıktan sonra, Button2′ye de şu kodları yazalım.

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

Programı İndir: İndirim & Taksit