RadioButton’la Hesap Makinesi Vb.Net
Bu Programımızda 4 Radiobutton,2 buton,1 textbox kullanılmıstır.Gerekli kodlar asagıda yazılıdır.
[code language=”vbnet”]
Public Class Form1
Public tus As Byte
Public deger1, deger2 As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If tus = 0 Then
If RadioButton1.Checked Then
deger1 = Val(TextBox1.Text)
TextBox1.Clear()
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False
End If
If RadioButton2.Checked Then
deger1 = Val(TextBox1.Text)
TextBox1.Clear()
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False
End If
If RadioButton3.Checked Then
deger1 = Val(TextBox1.Text)
TextBox1.Clear()
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False
End If
If RadioButton4.Checked Then
deger1 = Val(TextBox1.Text)
TextBox1.Clear()
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False
End If
tus = 1
Else
If RadioButton1.Checked Then
deger2 = Val(TextBox1.Text)
TextBox1.Text = (deger1 + deger2).ToString
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True
End If
If RadioButton2.Checked Then
deger2 = Val(TextBox1.Text)
TextBox1.Text = (deger1 – deger2).ToString
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True
End If
If RadioButton3.Checked Then
deger2 = Val(TextBox1.Text)
TextBox1.Text = (deger1 * deger2).ToString
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True
End If
If RadioButton4.Checked Then
deger2 = Val(TextBox1.Text)
TextBox1.Text = (deger1 / deger2).ToString
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True
End If
tus = 0
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Clear()
End Sub
End Class
[/code]