<html>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-7">
<title>ΝΟΜΟΣ Ohm.</title>
<meta name="Author"
content="Νίκος Α. Πανουσόπουλος ΠΕ19 / ΥΠ.Ε.Π.Θ.">


<script>
<!-- 
function error_chk(ar2)
{
error=0
error2=0
ach=""+ar2
al=ach.length





w=0
v=0

for ( i=1; i<=al; i++) {

rep=ach.substring(i-1,i)

if (!((rep=="0")^(rep=="1")^(rep=="2")^(rep=="3")^(rep=="4")^(rep=="5")^(rep=="6")^(rep=="7")^(rep=="8")^(rep=="9")^(rep==".")^(rep==",")))   {
error2=1
}


if (rep==".") {
w=w+1
}

if (rep==",") {
v=v+1
}

if (w>=2) {
error=1
}
if (v>=2) {
error=1
}
if ((v+w)>=2) {
error=1
}


}

if ((error==0)&&(error2==0)) {
error3=0
}
if ((error==1)||(error2==1)) {
error3=1
}

return (error3)
}

// --></script>



<script>
<!-- 
function check(ar)
{

ach=""+ar
al=ach.length


ach2=ach
ach3=""
for ( i=1; i<=al; i++) {

rep=ach2.substring(i-1,i)
if (rep==","){
rep="."
}


ach3=ach3+rep
}



return (ach3)
}
// --></script>


<script>
<!-- 

function calc() // υπολογισμοί 

{
n1b=document.form1.numb1.value
n2b=document.form1.numb2.value

if (n1b=="") {
n1b="0"
}

if (n2b=="") {
n2b="0"
}




if (error_chk(n1b)==1) {
alert("ΛΑΘΟΣ Η ΤΙΜΗ ΤΗΣ ΤΑΣΗΣ - V !!!")
}

if (error_chk(n2b)==1) {
alert("ΛΑΘΟΣ Η ΤΙΜΗ ΤΗΣ ΕΝΤΑΣΗΣ - I !!!")
}

if ((error_chk(n1b)==0)&&(error_chk(n2b)==0)) {



n1=eval(check(n1b))
n2=eval(check(n2b))


document.form1.numb1.value=n1
document.form1.numb2.value=n2

if ((n2==0)&&(n1==0)) {
document.form1.numb3.value=" ? "
document.form1.numb4.value=" ?" +" Ω"
}
if ((n2==0)&&(n1!=0)) {
document.form1.numb3.value=" ∞ "
document.form1.numb4.value=" -∞" +" Ω"
}
if (n2!=0) {
n3=n1/n2
document.form1.numb3.value=n3
document.form1.numb4.value=" -"+n3 +" Ω"
}

}


}
// --></script>

<body background="ohm.jpg">
<font color="white">

<h1><font=+10>Πειραματική Επιβεβαίωση Φυσικού Νόμου.</h1>
<h1><font=+10><u>ΝΟΜΟΣ Ohm:</u></h1>

<form name="form1">

</br>


<table width=100%>


<td width=5%><font size=+10 color="white"> R =</td>
<td width=5%><font size=+10 color="white"><center> V </br>
<hr size=+10 color="yellow">
 I </center></br>




</td>
<td>

</br>






</font>



</td>
<td width=50%>
<center></br></br></br></br></br></br>
<input type="text" name="numb4" value="" size=6 style=" font:bold; color:black; font-size:50; text-align:center; background-color:grey" size=1 maxlength=6>
</td>

</table>



</br><table>
<td>
<font size=+10 color="white"> = </font></td>
<td>






<font size=+10 color="white">
<input type="text" name="numb1" value="" size=6 style=" font:bold; color:yellow; font-size:50; text-align:center; background-color:black" size=1 maxlength=6> V </br>

<hr size=+10 color="yellow">
<input type="text" name="numb2" value="" size=6 style=" font:bold; color:yellow; font-size:50; text-align:center; background-color:black" size=1 maxlength=6> A
</td>
</table>
</br>
<input type="button" value=" AC " style=" font:bold; color:navy; font-size:30; text-align:center;" onclick="reset()">
<input type="button" value="ΥΠΟΛΟΓΙΣΜΟΣ" style=" font:bold; color:navy; font-size:30; text-align:center;" onclick="calc()">
</br></br><font size=+10 color="white"> = 
<input type="text" name="numb3" value="" size=6 style=" font:bold; color:yellow; font-size:50; text-align:center; background-color:black" size=1 maxlength=6> Ω</br>
</br>
</form>

</br>
</td>
</font>
</body>
</html>