Plan Matematik

vil du have en hel løsning ??

Nej det er ikke nødvendigt. (ville seføli\' være nemmest) men jeg vil også gerne lave lidt af det selv :) De funktioner jeg har brug for er kvadratrod, gange, og divider. Hvad skal jeg fx skrive hvis jeg vil lave en funktion som tager sqr af (text1 * text2) og sætter facit ind i text4.

jeg blev selv lidt intereseret i projektet....

Dim u, r, i, p As Single
Private Sub Command1_Click()
Call update
If p = 0 Then: Call find_p: Call update
If u = 0 Then: Call find_u: Call update
If r = 0 Then: Call find_r: Call update
If i = 0 Then: Call find_i: Call update
End Sub
Private Sub update()
u = Val(Utxt.Text)
r = Val(Rtxt.Text)
i = Val(Itxt.Text)
p = Val(Ptxt.Text)
End Sub

Private Sub find_p()
If u > 0 And i > 0 Then: Ptxt.Text = (u * i): Exit Sub
If u > 0 And r > 0 Then: Ptxt.Text = ((u * u) / r): Exit Sub
If i > 0 And r > 0 Then: Ptxt.Text = ((i * i) * r): Exit Sub
End Sub

Private Sub find_u()
If i > 0 And r > 0 Then: Utxt.Text = (i * r): Exit Sub
If p > 0 And i > 0 Then: Utxt.Text = (p / i): Exit Sub
If p > 0 And r > 0 Then: Utxt.Text = Sqr(p * r): Exit Sub
End Sub

Private Sub find_r()
If u > 0 And i > 0 Then: Rtxt.Text = (u / i): Exit Sub
If u > 0 And p > 0 Then: Rtxt.Text = (u / p): Exit Sub
If p > 0 And i > 0 Then: Rtxt.Text = (p / (i * i)): Exit Sub
End Sub

Private Sub find_i()
If u > 0 And r > 0 Then: Itxt.Text = (u / r): Exit Sub
If p > 0 And u > 0 Then: Itxt.Text = (p / u): Exit Sub
If p > 0 And r > 0 Then: Itxt.Text = Sqr(p / r): Exit Sub
End Sub


dog skal du nok tjekke udregningerne da det gik lidt hurtigt. :)

den er lavet med 4 textboxes og 1 commandbtn.

textboxene er kaldet Utxt Rtxt Itxt og Ptxt.

Med de små tests jeg lige har haft overskud til at lave ser den ud til at virke fint, dog kunne jeg godt ønske mig at den kunne klare kommatal...

det kan den også (du skal bare bruge . istedet for ,)

hmm... tjaa... det virker jo så som jeg havde forventet det.. :-) Jeg siger mange tak. (for denne gang :) 

tak for pts :)

np - du har fortjent dem :)