kodlar:
Private Sub Command1_Click()
Dim a, b, c As Double
If Option1.Value = True Then
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text3.Text = b
End If
If Option2.Value = True Then
a = Val(Text1.Text)
b = a ^ 2
Text3.Text = b
End If
If Option3.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
End If
If Option4.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = (a * b) / 2
Text3.Text = c
End If
End Sub
Private Sub option1_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "yarıçap(r)"
Label3.Caption = "Alan"
End Sub
Private Sub option2_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "Kenar(a)"
Label3.Caption = "Alan"
End Sub
Private Sub option3_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Kenar(a)"
Label2.Caption = "Kenar(b)"
Label3.Caption = "Alan"
End Sub
Private Sub option4_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Taban(a)"
Label2.Caption = "Yükseklik(h)"
Label3.Caption = "Alan"
End Sub