Gorsel Programlama

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

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

Projeyi İndir