<!--- KAYNAK: http://www.turkmencii.tr.gg ---> <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> <FORM name=diyet> <TABLE cellSpacing= cellPadding=20 width=592 border=1> <TBODY> <TR bgColor="005999"> <TD><FONT color="white"><strong>Boyunuz</strong> </TD> <TD><INPUT maxLength=5 size=3 name=boy> <FONT color="white"><strong>Cm</strong></TD> <TD align=middle width=1 background="" rowSpan=4><INPUT onclick=kontrol() style="background-color:#ebe2d3" type=button value="HESAPLA"> </TD> <TD> </TD> <TD> </TD></TR> <TR bgColor="#556f95"> <TD><font color="#FFFFFF">Kilonuz</font></TD> <TD><INPUT maxLength=5 size=3 name=kilo> <font color="#FFFFFF">Kg</font></TD> <TD><font color="#FFFFFF">İdeal Kilonuz</font> </TD> <TD><INPUT type=list size=3 name=ideal> <font color="#FFFFFF">Kg</font></TD></TR> <TR bgColor="#556f95"> <TD><font color="#FFFFFF">Yaşınız</font></TD> <TD><INPUT size=3 name=yas></TD> <TD> </TD> <TD> </TD></TR> <TR bgColor="#005999"> <TD><font color="#FFFFFF">Cinsiyetiniz</font></TD> <TD><SELECT name=cinsiyet> <OPTION value=0 selected>Bayan</OPTION> <OPTION value=1>Erkek</OPTION></SELECT> </TD> <TD><font color="#FFFFFF">Fark </font></TD> <TD><INPUT type=list size=3 name=fark> <font color="#FFFFFF">Kg</font></TD></TR> </TBODY></TABLE></FORM> <!--- KAYNAK: http://www.turkmencii.tr.gg --->
--SİTE SAHİBLERİ-- SİTENİZ VAR AMA İÇİ BOŞMU BUYRUN SİTENİZİ EN GÜZEL DURUMA GETİRİN SİTENE EKLE-SİTENİ DÜZENLE TIKLAMANIZ YETER
SİTENE EKLE-SİTENİ DÜZENLE
TIKLAMANIZ YETER
İSLAM-HUZUR
ÖLÜM ANI VİDEO HALİNDE.
Dini gifler
Bilgisayar & İnternet
Windows Vista Kurulumu
XP açılırken HoŞGeLDiNiZ yazsınız Değiştirme
Explorer Giriş Sayfanız Değişmiyor mu?
Bilgisayarı Kapat Tuşunu Masaüstüne Taşıyın
XP İlaçları
Kendine Özel İnternet Explorer Başlığı Yap
You Tube Takılmaya Son
YouTube Kapandı Ama Çözüm
Youtube'a Video Upload Etmek
MSN HAKKINDA
MSN Spaces Site Açmak Videolu
Msn Nick
Farklı Ülke Uzantılı Hotmail Adresi Alma
Msn messenger 9.0 hakkında
Msn Renkli Nick Resimli
Msn Messenger Hata Kodları ve Çözümleri
Avatar Arşivi
Msn Smiley Ekleme Videolu
3D Msn İfadeleri Ekle
W.W.W.T.U.R.K.M.E.N.C.İ.İ.C.O.M
İLETİŞİM İRTİBAT
SİTE SAHİBİ
İletişim
Ziyaretşi defteri
FORM
ANKET
GİZLİ SAYFALAR
yapımda...
www.turkmencii.tr.gg
SANAL ALEMİN EN BÜYÜK SOHBET SİTESİ MUTKAKA GELİP BAKMANIZI TAVSİYE EDERİZ !! turkmencii.tr.gg TIKLAMANIZ YETERLİ