http://www40.brinkster.com/sathapornprom
coulomb's law
- k(N.m^2/C^2)=9.00e+9
- q1(C)=1.60e-19
- q2(C)=1.60e-19
- r(m)=0.53e-10
- F(N)=k*q1*q2/r^2
Note_script
<![CDATA[
<form name="mycoulomb1">
<input type="button" name="coulomb1" value="RUN">
</form>
<script language="vbscript">
sub coulomb1_Onclick()
msgbox"physicsmatayom"&now()
dim k, q1,q2,r,f
k=9.00e+9
q1=inputbox("input q1(C)=","physicsmatayom_coulomb's law","1.60e-19")
q2=inputbox("input q2(C)=","physicsmatayom_coulomb's law","1.60e-19")
r=inputbox("input r(m)=","physicsmatayom_coulomb's law","0.53e-10")
f=k*q1*q2/r^2
msgbox"F(N)="&f
document.write("physicsmatayom_coulomb's law ; F=k*q1*q2/r^2" &"<br>")
document.write("q1(C)="&q1&"<br>")
document.write("q2(C)="&q2&"<br>")
document.write("r(m)="&r&"<br>")
document.write("F(N)="&f&"<br>")
end sub
</script>
]]>
End note