oopervlakte berekenen

[andre@home]

Er was dus nog een 3e optie..... die ik niet zo snel zag...
Ik heb mijn snelheid echter gebruikt in een cross... dus even een andere prioriteit...
En het warme bakkertje sluit zich bij mij aan....zo duidelijk was het dus allemaal niet, eens met de opmerking:

Dit bewijst nog maar eens dat een correcte vraagstelling o zo belangrijk is.

 

[Warme bakkertje]

De code van Harry doet qua resultaat uiteraard wat ze moet doen, maar voor de leesbaarheid zou ik toch deze nemen.

Private Sub cmdCalc_Click()
    Dim rad1 As Double, rad2 As Double
    Const pi As Double = 3.14159265358979
    If Not IsNumeric(txt1.Text) Then txt1.SetFocus: Exit Sub
    If Not IsNumeric(txt2.Text) Then txt2.SetFocus: Exit Sub
    rad1 = CDbl(txt1.Text) / 2: rad2 = rad1 - CDbl(txt2.Text) 'grote straal en kleine straal
    txt3.Text = pi * ((rad1 ^ 2) - (rad2 ^ 2)) ' berekening Annulus volgens formule pi*(grote straal^2 - kleine straal^2)
    txt4.Text = txt3 * 0.0027: txt5.Text = pi * CDbl(txt1.Text) 'gewicht en omtrek
End Sub

 

[HSV]

Het was dus niet zo moeilijk het te ontcijferen.
Of:

txt3.Text = pi * ((txt1 ^ 2) - ((txt1 - (txt2 * 2)) ^ 2)) / 4