Radio Buttonla 4 İşlem
Olusturulması:Bu programımızda 3 textbox,1 Groupbox,4 Radio Button,1Button kullanılmıstır.Gerekli kodlar asagıda yazılıdır
[code lang=”vbnet”]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked Then TextBox3.Text = (TextBox1.Text) + Val(TextBox2.Text)
If RadioButton2.Checked Then TextBox3.Text = (TextBox1.Text) – Val(TextBox2.Text)
If RadioButton3.Checked Then TextBox3.Text = (TextBox1.Text) * Val(TextBox2.Text)
If RadioButton4.Checked Then TextBox3.Text = (TextBox1.Text) / Val(TextBox2.Text)
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label1.Text = "toplanan" ‘Bu kısımda labellerin isimlerini degistiriyoruz’
Label2.Text = "toplanan"
Label3.Text = " toplam"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label1.Text = "eksilen"
Label2.Text = "cıkan"
Label3.Text = " fark"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Label1.Text = "carpılan"
Label2.Text = "carpan"
Label3.Text = "carpım"
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
Label1.Text = "bolunen"
Label2.Text = "bolen"
Label3.Text = "bolum"
End Sub
End Class
[/code]