oopervlakte berekenen

Status
Niet open voor verdere reacties.
W

wjk51

Gebruiker
Lid geworden
7 jan 2013
Berichten
27
hallo
wie kan mij helpen aan de formule in vba om de oppervlakte te berekenen in vba
 
oppervlakte berekenen

Hallo

dank je voor je snelle reactie
maar er ging hier iets mis dus de vraag was niet compleet
het moet eigenlijk de berekening van een buis zijn
 
Radius * 2 * Pi * lengte
 
oppervlakte berekenen

Hallo edmoor

de formule is juist maar werkt niet
ik ben een userform aan het maken

ik vul de radius ( txt1) en dan de wanddikte ( txt2 ) dan zou de opppervlakte zichtbaar moeten worden in txt3

Option Explicit

Private Sub cmdCalc_Click()
If Not IsNumeric(txt1) Then
txt1.SetFocus
Exit Sub
End If
If Not IsNumeric(txt2) Then
txt2.SetFocus
Exit Sub
End If
txt3 = txt * 2 * 3.14 * 1000
txt4 = txt3 * 0.00272
txt5 = txt3 * 0.0028
txt6 = txt1 * 3.14

End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub

maar jammer genoeg komt daar niet het juiste antwoord uit
 
Een TextBox levert alleen maar een String. Voor een juiste berekening zal je die eerst naar een Double moeten converteren.
Voor Pi zou ik een constante opnemen, maar dat maakt voor de berekeningen niet uit. Daarnaast zou ik SetFocus nooit gebruiken.

Plaats anders je document eens.
 
Laatst bewerkt:
ik heb haakjes om een van berekeningen gezet toen deed die wel iets. Geen idee of het goed is , ben boekhouder :p

txt3 = 0.25 * 3.14 * (txt1 - 2) * txt2
 
Hallo hellboy01
dank voor het mee denken
maar ook dit is niet de juiste formule
voorbeeld
buis 50 ( buiteniameter ) Wanddikte 3mm heeft een oppervlakte van 442.96 mm

uit jouw voorstel komt 113.04 mm
de puzzel is nog niet opgelost
maar bedankt
 
Zet in jouw voorbeeldje eens de berekening waarmee je op 442,96 komt.

Bv in A1 50 in B1 3 en in C1 de formule die dit resultaat oplevert.
 
Code: 
txt3 = 3.14159265359 * ((CDbl(txt1) * CDbl(txt1)) - (CDbl(txt1) - (CDbl(txt2) * 2)) * (CDbl(txt1) - (CDbl(txt2) * 2))) / 4
 
wjk51 zei:
Bekijk bijlage 251269
Klik om te vergroten...
Ik zie geen lengte staan in Excel 2010 en 2003?
Kan alleen diameter en wanddikte invullen?
Hoe kun je dan het oppervlak berekenen?
Zie ik iets over het hoofd... kan uiteraard...

Waarom zou je zoiets met een formulier willen doen?
Maak gewoon invul kolommen in excel en uitkomst kolommen...
Als je dat in rijen onder elkaar doet door de rekenkolom te verlengen... kun je antwoorden ook laten staan, das handig ter controle later...
Of.. is dit maar een deel van een grotere puzzel?
 
@ andre, voor het berekenen van de oppervlakte van een cirkel heb je geen lengte nodig.
Een buis is een cirkel minus de wanddikte.

Voorbeeld Oppervlakte cirkel

Een rond grasveld heeft een diameter van 12,4 meter. Bereken de hoeveelheid m2 graszoden die je nodig hebt om dit grasveld te bedekken. Rond af op 2 decimalen.
Uitwerking:

Voor de formule hebben we de straal r nodig. Gegeven is de diameter. Diameter is 2x de straal. De straal r is dus 1/2 * 12,4 = 6,2meter.
- Dus r = 6,2.
- Gebruik de formule: oppervlakte cirkel = straal x straal x π
- Invullen levert: oppervlakte cirkel = 6,2 * 6,2 * π => 120,76 m2.
 
Een grasveld is geen buis..... niet alleen in mijn beleving maar ook in de werkelijke wereld...
#5 schrijft wjk51
de formule is juist maar werkt niet
Klik om te vergroten...
dus dat is de benadering die ik aangehouden hebt.. immers de formule uit
#4
Radius * 2 * Pi * lengte
Klik om te vergroten...
is volgens wjk51 juist....

Wat nu naar voren lijkt te komen... is dat het gaat om het dwarsdoorsnede oppervlak binnen de buis (dus de winddikte moet niet meegerekend worden) en niet het buitenoppervlak...

Dus welke van de 2 problemen moet nu oplost worden.... ?

Ik heb beiden even in excel gezet...Bekijk bijlage oppervlakten-verschillend-berekenen.xls
 
oppervlakte berekenen

HSV Bedankt helemaal top hier zocht ik naar

nogmaals iedereen bedankt voor het mee denken :thumb::thumb::thumb::thumb:
 
Kun je het laatste juiste bestand nog posten zodat wij de oplossing ook kunnen zien/nalopen?
Tnx..
 
Dit bewijst nog maar eens dat een correcte vraagstelling o zo belangrijk is.
Had je nu van begin af aan gezegd dat je de oppervlakte van de wanddikte wou berekenen had je vraag al 10 posts eerder opgelost geweest.
Voor de geïnteresseerden de formule = Pi * ((buitenstraal ^2) - (binnenstraal ^2)).
Echter je berekening is niet helemaal juist maar dat is enkel te wijten aan het feit dat je Pi maar met 2 cijfers na de comma gebruikt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan