أكواد

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:21 pm

أضف هذه الصفحة للمفضلة لديك

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:22 pm

زلزل صفحتك بالضغط هنا

/*****************************************
* Visit our site at http://www.star28.com/ for more code
***********************************************/

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:25 pm

function bmiCalc(form) {
var weight = Number(form.wt.value);
var height = Number(form.ht.value);

if (!checkNum(weight,"WEIGHT")) {
form.wt.select();
form.wt.focus();
return false
}

if (!checkNum(height,"HEIGHT")) {
form.ht.select();
form.ht.focus();
return false
}

if (form.wu.selectedIndex == 0) {
// What units for weight?
// 0 = lbs
// 1 = kg
weight = weight * 0.45359237; // Convert wt (lbs to kg)
}

if (form.sex[1].checked) { // Is the patient female?
// 0 = male
// 1 = female
leanConvert = 148;
idealConvert = 45.5; // conversion factors for women
} else {
leanConvert = 128;
idealConvert = 50; // conversion factors for men
}

if (form.hu.selectedIndex == 0) {
// if height units are "inches"
heightInches = height;
heightMeters = height * 2.54 / 100;
}

if (form.hu.selectedIndex == 1) {
// if height units are "cm"
heightInches = height / 2.54;
heightMeters = height / 100;
}

if (form.hu.selectedIndex == 2) {
// if height units are "meters"
heightInches = height * 100 / 2.54;
heightMeters = height;
}

var bsa = 0.20247 * Math.pow(heightMeters,0.725) *
Math.pow(weight,0.425);
var leanKg = 1.1 * weight - leanConvert * (Math.pow(weight,2) /
Math.pow((100 * heightMeters),2));
var leanLbs = leanKg * 2.2046226;
var idealKg = idealConvert + 2.3 * (heightInches - 60);
var idealLbs = idealKg * 2.2046226;
var bmi = weight / Math.pow(heightMeters,2);

bsa = rounding(bsa,2);
leanKg = Math.round(leanKg);
leanLbs = Math.round(leanLbs);
idealKg = Math.round(idealKg);
idealLbs = Math.round(idealLbs);
bmi = rounding(bmi,1);
if (bmi < 18.5) {
var interp = " اقل من المعدل الطبيعي"
} else {
if (bmi < 25.0) {
var interp = "مبروك بحدود المعدل الطبيعي"
} else {
if (bmi < 30.0) {
var interp = "اعلى من المعدل الطبيعي"
} else {
var interp = "وزنك زائد يجب عليك الحرص في انقاصه"
}
}
}

form.bsa.value = bsa;
form.leanKg.value = leanKg;
form.leanLbs.value = leanLbs;
form.idealKg.value = idealKg;
form.idealLbs.value = idealLbs;
form.bmi.value = bmi;
form.interp.value = interp;

return true
}

function checkNum(val,text) {
if ((val == null) || (isNaN(val)) || (val == "") || (val < 0)) {
alert("رجاء ادخال ارقام في حقلي الطول و الوزن");
return false
}
return true;
}

function rounding(number,decimal) {
multiplier = Math.pow(10,decimal);
number = Math.round(number * multiplier) / multiplier;
return number
}

// BY WWW.STRA28.COM

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:28 pm

/*
Snake Game Written by Omar Wally surfsup_79@hotmail.com
Permission granted to Dynamicdrive.com to include script in archive
For this and 100's more DHTML scripts, visit http://dynamicdrive.com
* Translated By www.soft.vip600.com/
* Visit our site at http://www.star28.com/ for more code
*/

function opengame(){
if (document.all)
window.open("game.htm","gamewin","status,width=220,height=260,border=0")
else
alert("You need IE 4+ to play Snake. Sorry")
}

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:31 pm

هههههه

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:32 pm

/*
Document firework script (By Kurt Gregg, kurt.grigg@virgin.net)
Modified granted to Dynamic Drive to feature script in archive
For full source and 100's more DHTML scripts, visit http://dynamicdrive.com
*/

if (document.all)
with(document){
write('

')
write('

')
}

var Clrs=new Array(9)
Clrs[0]='ff0000';
Clrs[1]='00ff00';
Clrs[2]='000aff';
Clrs[3]='ff00ff';
Clrs[4]='ffa500';
Clrs[5]='ffff00';
Clrs[6]='00ff00';
Clrs[7]='ffffff';
Clrs[8]='fffff0';
var sClrs=new Array(5)
sClrs[0]='ffa500';
sClrs[1]='55ff66';
sClrs[2]='AC9DFC';
sClrs[3]='fff000';
sClrs[4]='fffff0';
var yBase;
var xBase;
var step;
var currStep = 0;
var Xpos = 1;
var Ypos = 1;
var initialStarColor='ffa000';
var Mtop=250;
var Mleft=250;

function Fireworks() {
if (document.all)
{
yBase = window.document.body.offsetHeight/3;
xBase = window.document.body.offsetWidth/8;
}
else if (document.layers)
{
yBase = window.innerHeight/3;
xBase = window.innerWidth/8;
}
if (document.all)
{
step=5;
for ( i = 0 ; i < starsDiv.all.length ; i++ )
{
for (ai=0; ai < Clrs.length; ai++)
{
var c=Math.round(Math.random()*[ai]);
}
if (currStep < 90)
starsDiv.all[i].style.background=initialStarColor;
if (currStep > 90)
starsDiv.all[i].style.background=Clrs[c];
starsDiv.all[i].style.top = Mtop + yBase*Math.sin((currStep+i*5)/3)*Math.sin(550+currStep/100)
starsDiv.all[i].style.left = Mleft + yBase*Math.cos((currStep+i*5)/3)*Math.sin(550+currStep/100)
}
}
else if (document.layers)
{
step = 5;
for ( j = 0 ; j < 14 ; j++ ) //number of NS layers!
{
var templayer="a"+j
for (ai=0; ai < Clrs.length; ai++)
{
var c=Math.round(Math.random()*[ai]);
}
if (currStep < 90)
document.layers[templayer].bgColor=initialStarColor;
if (currStep > 90)
document.layers[templayer].bgColor=Clrs[c];
document.layers[templayer].top = Mtop + yBase*Math.sin((currStep+j*5)/3)*Math.sin(550+currStep/100)
document.layers[templayer].left = Mleft + yBase*Math.cos((currStep+j*5)/3)*Math.sin(550+currStep/100)
}
}
currStep+= step;
http://window.status=currStep;
T=setTimeout("Fireworks()",5);
if (currStep==220)
{
currStep=-10;
for (n=0; n < sClrs.length; n++)
{
var k=Math.round(Math.random()*n);
}
initialStarColor=sClrs[k];
if (document.all)
{
Dtop=window.document.body.clientHeight-250;
Dleft=xBase*3.5;
Mtop=Math.round(Math.random()*Dtop);
Mleft=Math.round(Math.random()*Dleft);
document.all.starsDiv.style.top=Mtop+document.body.scrollTop;
document.all.starsDiv.style.left=Mleft+document.body.scrollLeft;
}
else if (document.layers)
{
Dleft=window.innerWidth-100;
Dtop=window.innerHeight-100;
Mtop=Math.round(Math.random()*Dtop+window.pageYOffset);
Mleft=Math.round(Math.random()*Dleft+window.pageXOffset);
document.layers[templayer].top=Mtop;
document.layers[templayer].left=Mleft;
}
if ((Mtop < 20) || (Mleft < 20))
{
Mtop+=90;
Mleft+=90;
}
}
}
if (document.all||document.layers)
Fireworks();

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:35 pm

[/code]

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:35 pm

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:36 pm

الأكواد الغير ظاهرة للمدراء بس عشانك عأرسلها لكم بعد الرد

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:37 pm

face="Monotype Koufi">حمزةface="Tahoma"> size="6">

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:40 pm



var photos=new Array() var which=0 /Change the below variables to reference your own images. You may have as many images in the slider as you wish/ photos[0]="http://www.mowjeldoha.com/mix-pic/world%20flags/3dflagsdotcom_syria_2fawm.gif" photos[1]="http://gifsandco.free.fr/gifs/gifs_jeux/jeux-gif-004.gif" photos[2]="http://gifsandco.free.fr/gifs/gifs_jeux/manette.gif" photos[3]="https://hamzah.ahlamontada.net/users/15/15/59/avatars/gallery/thbeel10.gif" photos[4]="https://2img.net/i/fa/onyx/logo.jpg" function backward(){ if (which>0){ window.status='' which-- document.images.photoslider.src=photos[which] } } function forward(){ if (whichwhich++ document.images.photoslider.src=photos[which] } else window.status='End of gallery' } onClick="backward()"> onClick="forward()"> من البداية

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:42 pm

منتديات التقنية ترحب بالأعضاء الكرام

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:43 pm

منتديات التقنية ترحب بالأعضاء الكرام

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:44 pm

موضوع: رد: أكواد الجمعة يناير 04, 2008 2:47 pm