Admin
مدير المنتدى
 عدد المساهمات: : 148
نقاط : 902
السٌّمعَة : 0
تاريخ التسجيل : 29/10/2010
العمل/الترفيه : الرياضة
 |  موضوع: حصريا جدا كود حساب المسافات الجوية بين مدن العالم رااااائع جدا  الإثنين نوفمبر 15, 2010 8:16 pm | |
| :بسم الله الرحم
السلام عليكم ورحمة الله وبركاته
اقدم لكم اليوم كود حساب المسافات الجوية بين مدن العالم رااااائع جدا
تفضلو الكود
| الرمز: |
<p align="center"> </p>
<DIV align=center>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD align=middle width=550>
<P align=center><B><FONT color=#0ff080 size=5>حساب المسافات الجوية بين مدن العالم </FONT></B></P>
<SCRIPT language=JavaScript>
<!-- Hide from JavaScript-Impaired Browsers
var l=0;
var r=0;
var tc="";
var al=" abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123456789";
var ns="0123456789";
function iA(){
this.length=iA.arguments.length;
for (var i=0;i<this.length;i++){
this[i]=iA.arguments[i];
}
}
/* 3011 byte database of air distances uses position in the
string "al" to substitute for the numerics, saving a bit
over 4k download to visitors. */
var a=new iA(36);
a[0]="برلين (المانيا)* ciagchdcheihh dadeee gcaa hdef egeghfaci"
+"ibf da cifdcd ebehe eddegagecehadhfaa gcgh e debbfageedkbgdca";
a[1]="بومبي (الهند)* ibga deacde dhabfgh bbiifhgddfhg caefa igb"
+"cacggiei dacigddcfbifbffgcgeaihbfchdj dggdcacbdcdaigfhbhf";
a[2]="بيونس آيرس (الإرجنتين)* jbddbgiaceifkdfgefgegggffibfabk "
+"dgbcdfchchec hhegfacchfhhkiggcfefhga abbfic gffialb ihfkd fbffdb";
a[3]="كلكتا (الهند)* f ccgdeebaecg dcfefccdiehaebaieeeie cdeg"
+"ibebgddfjaadhib bceagdhedaichde jiigbbbaaagicaig dchf";
a[4]="كيب تاون (جنوب أفريقيا)* fiee hgcgkecebbjccf aiiggecfdahea"
+"fbigh jaafdig aehdh edeighfgaacggebee jb h ff bi gg bbce";
a[5]="داروين (أستراليا)* ibgbfdecfgcigaahf ghdaihaifi hg eiiffb"
+"dh bjcehehcgcgafigbhfciifhaihifgfbcadb hccgccafda";
a[6]="جيبلاتر* fhch hahgebga ieidgdhjh efcbdacfced agidic iff"
+" abahcchb edgha cfdaedfffegbcfiil fda ";
a[7]="هونج كونج (الصين)* eeddihefceihgbd fidfahghdddh edeeecdj h"
+"eifabcdihgfef ck eggkfafdg ggafeah eheeda";
a[8]="هونولولو (هاواي)* ha bhbgbcbefec eeacghg cdifc fghe"
+"begdce ghgde f hhaih bfgibfhdicfgachedgajhg";
a[9]="استنبول (تركيا)* ee aeefhdeffi iga a ie aea aebfgead dch"
+" fidfdbeffd hehagf fdifecgeefjffcca";
a[10]="جونياو (الولايات المتحدة), * ddbahdehgh dcbbdecbhea id eddfdfcde"
+"bfbbbffcbggf ebegbg i dhggbdd agdhhh ";
a[11]="لندن (بريطانيا)* eddffgje eedaeecdfdch gaebh bae eba"
+"eca aagegg higbfdghegafgdeidkfhdf ";
a[12]="لوس أنجلوس (الولايات المتحدة)* gbggicaedf gbdebhheccc ef"
+" fbegecbehdcafc fcceec iffdhhggedgfgaj b";
a[13]="مانيلا (الفلبين)* cidhhceachdidhbf bjbhffgagg"
+"efbhabffekbefdfjicffdaaeadhahfeafegf";
a[14]="ملبورن (استراليا)* hdbhifjcfgefiici bjd efghffje jedh"
+"aiiicg haie acgfe iaf fh ";
a[15]="مكسيكو سيتي (المكسيك)* ffib idcaegaae egaggcgfgbdedfbdggfc"
+"ed ebcdh djcag dfi idh";
a[16]="موسكو (روسيا)* dffd da bfgaaedcf agadbdb fgb adghgieb d"
+"bdebddfejbhdbg";
a[17]="نيويورك (الولايات المتحدة)* cggcfgbbccfbfhbeei ddbehdh"
+"bdbge ibdagcfifcfgdhiegg ";
a[18]="نومي (الولايات المتحدة)* chdeeddegcdcegecdiccgheie hhcfaihcghf"
+"aebihgchhba";
a[19]="أوسلو (النرويج)* efi hcdcfbbacbfa hfdhabdgiadeie bfbeebbjig"
+"dh ";
a[20]="بنما سيتي (بنما)* echhiagaebffdgacbiei bidcfeicbkfihd"
+"bgdchbe";
a[21]="باريس (فرنسا)* ea aihcbdacheg fhgbediiegeffgf ckgidd ";
a[22]="بكين (الصين)* dehfdbdi jgge ekgged ffbggacafg eh ";
a[23]="بور سعيد (مصر)* ebecbcfbdacbh ifgfeace ieh"
+"djbebgc";
a[24]="كيوبيك (كندا)* baieaccidee bcefihia fdbibcgdd";
a[25]="ريكيافيك (ايسلندا)* fabb dgbccfaeefgafedgjgbegf";
a[26]="ريودي جانيرو (البرازيل)* efiahffhikcdiggkedgceeei";
a[27]="روما (ايطاليا)* gdbeffefhfbcfabkebcga";
a[28]="سانتيجو (تشيلي)* fbckfejbcjfdegigah";
a[29]="سياتل (الولايات المتحدة)* eg h fdghgbdicf";
a[30]="شنغهاي (الصين)* bcha if eeig";
a[31]="سنغافورة (سنغافورة)* cc ebiddh";
a[32]="طوكيو (اليابان)* egfg d";
a[33]="ويلنغتون (نيوزلندا)* hab";
a[34]="زنجبار (تنزانيا)* ";
a[35]="مكة * dfytg cv jgyuhjeil";
var b=new iA(4);
b[0]=1;
b[1]=10;
b[2]=100;
b[3]=1000;
b[4]=10000;
function getMiles(form){
lf=(document.isn.isn1.options[document.isn.isn1.selectedIndex].value);
rf=(document.isn.isn2.options[document.isn.isn2.selectedIndex].value);
l=al.indexOf(lf);
r=al.indexOf(rf);
if (r<l){
l=r;
r=al.indexOf(lf);
}
ls=a[l];
pos=ls.indexOf("*")
ls1="مـــن "+ls.substring(0,pos)+" إلـــى "
+a[r].substring(0,a[r].indexOf("*"))+" ";
ls=ls.substring(pos+1,ls.length);
tc=ls.substring(((r*3)-(l*3)),ls.length);
if (document.isn.rb[1].checked){
dispKm();
}
else{
dispMi();
}
}
function dispMi(){
ch=tc.charAt(0);
ls1+=al.indexOf(ch);
ch=tc.charAt(1);
ls1+=al.indexOf(ch);
ch=tc.charAt(2);
if (ch!=" "){
ls1+=(al.indexOf(ch)*10)+"ميل";
} http://1.613
else ls1+="00"+" ميل";
document.isn.disp.value=ls1;
}
function dispKm(){
ch=tc.charAt(0);
km="";
km+=al.indexOf(ch);
ch=tc.charAt(1);
km+=al.indexOf(ch);
ch=tc.charAt(2);
if (ch!=" "){
km+=(al.indexOf(ch)*10);
}
else{
km+="00";
}
num=0;
kml=km.length;
for (var i=kml-1;i>-1;i--){
cr=km.substring(i,i+1);
pos=ns.indexOf(cr);
num+=pos*b[kml-i-1];
}
km="";
km+=num*1.613;
pos=km.indexOf(".");
if (pos>-1){
km=km.substring(0,pos);
}
ls1+=km+" كيلو متر";
document.isn.disp.value=ls1;
}
// End Hiding -->
</SCRIPT>
<!-- Your Web Page Content Here -->
<FORM name=isn>
<DIV align=center>
<TABLE border=1
width=335>
<TBODY>
<TR>
<TD align=middle bgColor=#ff8000 width=238 dir="rtl">
<P align=center><FONT face=System><B><FONT color=#003300>من
مدينة</FONT></B><BR></FONT><FONT face="Arial (Arabic),Arial"><SELECT
name=isn1 size=12
style="BACKGROUND-COLOR: #f0e2d2; COLOR: #003300; FONT-FAMILY: 'Tahoma Arabic)', Tahoma; FONT-SIZE: 10pt">
<SCRIPT language=JavaScript>
<!-- Hide from JavaScript-Impaired Browsers
ls="";
for (var i=0;i<35;i++){
ls+='<OPTION VALUE="'+al.substring(i,i+1)+'" onClick=""';
if (i==0){ls+=' SELECTED';}
ls+='>'+a[i].substring(0,a[i].indexOf("*"));
}
document.write(ls);
// End hiding -->
</SCRIPT>
<OPTION onclick="" selected value=" ">برلين (المانيا)<OPTION
onclick="" value=a>بومبي (الهند)<OPTION onclick="" value=b>بيونس
آيرس (الإرجنتين)<OPTION onclick="" value=c>كلكتا
(الهند)<OPTION
onclick="" value=d>كيب تاون (جنوب أفريقيا)<OPTION onclick=""
value=e>داروين (أستراليا)<OPTION onclick="" value=f>جيبلاتر<OPTION
onclick="" value=g>هونج كونج (الصين)<OPTION onclick=""
value=h>هونولولو (هاواي)<OPTION onclick="" value=i>استنبول
(تركيا)<OPTION onclick="" value=j>جونياو
(الولايات المتحدة),<OPTION onclick="" value=k>لندن
(بريطانيا)<OPTION
onclick="" value=l>لوس أنجلوس (الولايات
المتحدة)<OPTION onclick=""
value=m>مانيلا (الفلبين)<OPTION onclick="" value=n>ملبورن
(استراليا)<OPTION onclick="" value=o>مكسيكو سيتي
(المكسيك)<OPTION
onclick="" value=p>موسكو (روسيا)<OPTION onclick="" value=q>نيويورك
(الولايات المتحدة)<OPTION onclick="" value=r>نومي
(الولايات المتحدة)<OPTION onclick="" value=s>أوسلو
(النرويج)<OPTION
onclick="" value=t>بنما سيتي (بنما)<OPTION onclick=""
value=u>باريس (فرنسا)<OPTION onclick="" value=v>بكين
(الصين)<OPTION onclick="" value=w>بور سعيد (مصر)<OPTION onclick=""
value=x>كيوبيك (كندا)<OPTION onclick="" value=y>ريكيافيك
(ايسلندا)<OPTION onclick="" value=z>ريودي جانيرو
(البرازيل)<OPTION
onclick="" value=A>روما (ايطاليا)<OPTION onclick=""
value=B>سانتيجو (تشيلي)<OPTION onclick="" value=C>سياتل
(الولايات المتحدة)<OPTION onclick="" value=D>شنغهاي
(الصين)<OPTION
onclick="" value=E>سنغافورة (سنغافورة)<OPTION onclick=""
value=F>طوكيو (اليابان)<OPTION onclick="" value=G>ويلنغتون
(نيوزلندا)<OPTION onclick="" value=H>زنجبار
(تنزانيا)</OPTION></SELECT></FONT></P></TD>
<TD align=middle vAlign=top width=4 dir="rtl">
<P align=center><FONT face="Arial (Arabic),Arial"><BR></FONT></P>
<TD align=middle bgColor=#ff8000 width=244 dir="rtl">
<P align=center><B><FONT color=#003300 face=System>إلى
مدينة</FONT></B><FONT face=System><BR></FONT><FONT
face="Arial (Arabic),Arial"><SELECT name=isn2 size=12
style="BACKGROUND-COLOR: #f0e2d2; COLOR: #003300; FONT-FAMILY: 'Tahoma Arabic)', Tahoma; FONT-SIZE: 10pt">
<SCRIPT language=JavaScript>
<!-- Hide from JavaScript-Impaired Browsers
ls="";
for (var i=0;i<35;i++){
ls+='<OPTION VALUE="'+al.substring(i,i+1)+'" onClick=""';
if (i==1){ls+=' SELECTED';}
ls+='>'+a[i].substring(0,a[i].indexOf("*"));
}
document.write(ls);
// End hiding -->
</SCRIPT>
<OPTION onclick="" value=" ">برلين (المانيا)<OPTION onclick=""
selected value=a>بومبي (الهند)<OPTION onclick="" value=b>بيونس
آيرس (الإرجنتين)<OPTION onclick="" value=c>كلكتا
(الهند)<OPTION
onclick="" value=d>كيب تاون (جنوب أفريقيا)<OPTION onclick=""
value=e>داروين (أستراليا)<OPTION onclick="" value=f>جيبلاتر<OPTION
onclick="" value=g>هونج كونج (الصين)<OPTION onclick=""
value=h>هونولولو (هاواي)<OPTION onclick="" value=i>استنبول
(تركيا)<OPTION onclick="" value=j>جونياو
(الولايات المتحدة),<OPTION onclick="" value=k>لندن
(بريطانيا)<OPTION
onclick="" value=l>لوس أنجلوس (الولايات
المتحدة)<OPTION onclick=""
value=m>مانيلا (الفلبين)<OPTION onclick="" value=n>ملبورن
(استراليا)<OPTION onclick="" value=o>مكسيكو سيتي
(المكسيك)<OPTION
onclick="" value=p>موسكو (روسيا)<OPTION onclick="" value=q>نيويورك
(الولايات المتحدة)<OPTION onclick="" value=r>نومي
(الولايات المتحدة)<OPTION onclick="" value=s>أوسلو
(النرويج)<OPTION
onclick="" value=t>بنما سيتي (بنما)<OPTION onclick=""
value=u>باريس (فرنسا)<OPTION onclick="" value=v>بكين
(الصين)<OPTION onclick="" value=w>بور سعيد (مصر)<OPTION onclick=""
value=x>كيوبيك (كندا)<OPTION onclick="" value=y>ريكيافيك
(ايسلندا)<OPTION onclick="" value=z>ريودي جانيرو
(البرازيل)<OPTION
onclick="" value=A>روما (ايطاليا)<OPTION onclick=""
value=B>سانتيجو (تشيلي)<OPTION onclick="" value=C>سياتل
(الولايات المتحدة)<OPTION onclick="" value=D>شنغهاي
(الصين)<OPTION
onclick="" value=E>سنغافورة (سنغافورة)<OPTION onclick=""
value=F>طوكيو (اليابان)<OPTION onclick="" value=G>ويلنغتون
(نيوزلندا)<OPTION onclick="" value=H>زنجبار
(تنزانيا)</OPTION></SELECT></FONT></P></TD></TR>
<TR>
<TD align=middle colSpan=3 width=498><TABLE border=1
cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<P align=center><FONT face="Tahoma (Arabic),Arial"><b>
<FONT
color=#FF0000>ميل <INPUT CHECKED name=rb onclick=""
type=radio
value=a>
<INPUT name=rb onclick="" type=radio value=b></FONT></b><FONT
color=#FF0000><b>كيلومتر </b></FONT><FONT
color=#997009>
</FONT>
<INPUT name=but onclick=getMiles(this.form)style="border:1px solid #FFFF00; BACKGROUND-COLOR: #000080; COLOR:#FF0000; FONT-FAMILY: 'Tahoma Arabic)', Tahoma" type=button value=احسبالمسافه></FONT></P></TD></TR> <TR>
<TD>
<P align=center><FONT face="Arial (Arabic),Arial">
<INPUT
name=disp size=66
style="border-style:ridge; border-width:1;BACKGROUND-COLOR: #FFFFFF; COLOR: #FF0000; FONT-FAMILY: 'TahomaArabic)',Tahoma"></FONT></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></FORM></TD></TR>
<TR>
<TD width="100%"></TD></TR></TBODY></TABLE></CENTER></DIV>
|
طريقة الوضع يوجد في ادارة صفحات الهتمل او البوابة و شكرا اجمل تحية  |
|
alexa
عضو نشيط
عدد المساهمات: : 100
نقاط : 100
السٌّمعَة : 1
تاريخ التسجيل : 16/11/2010
| | موضوع: رد: حصريا جدا كود حساب المسافات الجوية بين مدن العالم رااااائع جدا الثلاثاء نوفمبر 16, 2010 2:18 pm | |
| |
|
