hvis du kan ohms lov (hvilket er rimelig simpelt) skulle det altså være rimelig let at lave... ellers findes der programmer der kan beregne et hav af opstillinger..
i*j
----
R
R=modstand
I=strømp
j=amp
løgningen er simpelt, du ksla vide om brugen vil indtaste
1. j og i
2. j og r
3. r og i
og hvis brugen indtaster 1. regner du j*i f.esk 4*4= r=16
hvis det derimod er 2. regner du j:r f.esk 4:4= i=1
hvis det derimod er 3. regner du i:r f.esk 4:4= j=1
det er den simpelts måde, du kan f.esk bruge tre inputputknapper
og bruge en inputbox til at indhænte de to værdier
f.esk
<pre>
dim J as long
dim I as long
dim R as long
Sub Command1_click()
'i og j
inputbox("indtast værdien af I(strøm i volt)")
inputbox("indtast værdien af J(ampere)")
R=i*j
msgbox" R(modstand) = " & r & " ohm"
end sub
</pre>
sådan gør du på de andre knapper blot bytter lidt om så teksten og beregninge passer!
mvh.
Thomas Christensen