Kaya Ticaret - Karma html kodlari

yap boz oyun html kodu

gece feneri html kodu

şarkı söyleyen çiçek html kodu

Honda reklam animasyonu html kodu

komik klip animasyon html kodu

korku animasyon html kodu

kilo hesaplama html kodu

<HTML>
<HEAD>

<TITLE>Kilo Hesapla</TITLE>

</HEAD>

<BODY>
<TD height="4" width="100%">

<DIV align=center id=aws_4321> 

<DIV style="BACKGROUND: #fffef4; POSITION: relative; TOP: -54px">

<P align=center><BR>

<P>

<SCRIPT language=JavaScript>

function kontrol()

{

if (diyet.boy.value == "" )

{

alert("Boyunuzu giriniz.");

diyet.boy.focus();

return(false);

}

if (diyet.kilo.value == "" )

{

alert("Kilonuzu giriniz.");

diyet.kilo.focus();

return(false);

}

if (diyet.yas.value == "" )

{

alert("Yaşınızı giriniz.");

diyet.yas.focus();

return(false);

}

check()

}

function check()

{

var c1=0 ; var d1=0

var c2=0 ; var d2=0

var c3=0 ; var d3=0

if (document.diyet.boy.value >= 140) {var c1=1}

if (document.diyet.boy.value <= 200) {var d1=1}

if (document.diyet.kilo.value >= 37) {var c2=2}

if (document.diyet.kilo.value <= 140) {var d2=2}

if (document.diyet.yas.value >= 16) {var c3=4}

if (document.diyet.yas.value <= 60) {var d3=4}

var c=c1+c2+c3

var d=d1+d2+d3

alarm=new Array()

alarm[0]="Boy, kilo ve yaş "

alarm[1]="kilo ve yaş "

alarm[2]="boy ve yaş "

alarm[3]="yaş "

alarm[4]="boy ve kilo "

alarm[5]="kilo "

alarm[6]="boy "

if (c==7)

{if (d==7){i_kilo()}

else {alert(alarm[d] + "uygun değil !")}

}

else {alert(alarm[c] + "uygun değil !")}

}

function i_kilo()

{

var temp1 = Math.round(document.diyet.yas.value/49);

var temp2 = Math.round(document.diyet.yas.value/71);

var temp3 = Math.round(document.diyet.yas.value/91);

var tem = document.diyet.cinsiyet.value

var neki = 0

if (tem == 0)

{

if (temp1 != 0) {neki = 21}

if (temp1 == 0) {neki = 20}

}

if (tem != 0)

{

if (temp1 != 0)

{

if (temp2 != 0)

{

if (temp3 != 0) {neki = 24}

if (temp3 == 0) {neki = 23}

}

if (temp2 == 0) {neki = 22}

}

if (temp1 == 0) {neki = 21}

}

document.diyet.ideal.value = Math.round(neki * Math.pow(document.diyet.boy.value,2)/10000)

document.diyet.fark.value = document.diyet.kilo.value - document.diyet.ideal.value

if (document.diyet.fark.value > 0 )

{alert(document.diyet.fark.value + " kilo vermelisiniz.")}

if (document.diyet.fark.value < 0 )

{alert(document.diyet.fark.value*(-1) + " kilo almalısınız.")}

if (document.diyet.fark.value == 0 )

{alert("Bravo. İdeal kilonuzdasınız.")}

}

// end hiding -->

</SCRIPT>

<FONT size=2><BR><BR>

<FORM name=diyet>

<TABLE align=center border=1 cellPadding=5 cellSpacing=2 width=400 ?>

<TBODY>

<TR>

    <TD>Boyunuz</TD>

    <TD><INPUT maxLength=5 name=boy size=2>  cm</TD>

    <TD align=middle bgColor=#fffef4 rowSpan=4 width=160><BR><BR><INPUT onclick=kontrol() type=button value=" hesapla">

      <BR><BR><BR></TD>

    <TD>  </TD>

    <TD>  </TD></TR>

<TR bgColor=#e4ecf3>

    <TD>Kilonuz </TD>

    <TD><INPUT maxLength=5 name=kilo size=2>  kg</TD>

    <TD>İdeal Kilonuz </TD>

    <TD><INPUT name=ideal size=2 type=list>  kg</TD></TR>

<TR bgColor=#e2e2e2>

    <TD>Yaşınız</TD>

    <TD><INPUT name=yas size=2></TD>

    <TD>  </TD>

    <TD>  </TD></TR>

<TR bgColor=#e4ecf3>

    <TD>Cinsiyetiniz</TD>

    <TD><SELECT name=cinsiyet> <OPTION selected value=0>BAYAN</OPTION>

        <OPTION value=1>ERKEK</OPTION></SELECT> </TD>

    <TD>Fark </TD>

    <TD><INPUT name=fark size=2 type=list>  kg</TD></TR>

<TR>

    <TD align=right bgColor=white colSpan=5><A

      href="javascript:window.close();"

      style="BACKGROUND-COLOR: #000000"> </A></FONT><A

      href="javascript:window.close();" style="BACKGROUND-COLOR: #000000"><FONT

      size=1><B><FONT color=white>KAPAT</FONT> </B></FONT></A>

    </TD></TR></TBODY></TABLE></P></DIV></FORM></TD></TR><TR><TD height="15"

width="100%">

<P align=center><B><FONT color=#910000 size=1>.....

</FONT></B></TD></TR></TABLE></SCRIPT>

sağ tuşu engelleme html kodu

hesap makinası html kodu

Dim a As Double

Dim b As Double

Private Sub Command1_Click()

Label1.Caption = a & "1"

a = Label1.Caption

If a = 1 Then

Label1.Caption = "1"

End If

End Sub

Private Sub Command2_Click()

Label1.Caption = a & "2"

a = Label1.Caption

If a = 2 Then

Label1.Caption = "2"

End If

End Sub



Private Sub Command3_Click()

Label1.Caption = a & "3"

a = Label1.Caption

If a = 3 Then

Label1.Caption = "3"

End If

End Sub

Private Sub Command4_Click()

Label3.Caption = Val(a) + Val(b)

End Sub

Private Sub Command5_Click()

Label3.Caption = Val(a) * Val(b)

End Sub

Private Sub Command6_Click()

Label2.Caption = b & "1"

b = Label2.Caption

If b = 1 Then

Label2.Caption = "1"

End If

End Sub

Private Sub Command7_Click()

Label2.Caption = b & "2"

b = Label2.Caption

If b = 2 Then

Label2.Caption = "2"

End If

End Sub

Private Sub Command8_Click()

Label2.Caption = b & "3"

b = Label2.Caption

If b = 3 Then

Label2.Caption = "3"

End If

End Sub

mesaj kutusu html kodu