Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-02-2008, 13:06   #1
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan Javascript kodlarının bir çoğu burada

arama motoru yanda seçenekler var nerede arayacağına karar veriyorsunuz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<script> 

<!-- START HIDE 

var MAX_ENGINES = 35; 

var tp=''; 

var tpp=''; 

var find = 'hunt'; 

var hold=0; 

var hold2=0; 

var gog=0; 

var ap=''; 

function MakeArray(n) { 

for (var i = 1; i <= n; i++) { 

this[i] = 0; 

} 

this.maxlen = n; 

this.len = 0; 

return this; 

} 

var engs = new MakeArray(MAX_ENGINES); 

function find_substring(needle, haystack) { 

var i, needlen = needle.length, haylen = haystack.length; 

for (i=0; i<=haylen-needlen; i++) { 

if (needle == haystack.substring(i,i+needlen)) 

return i; 

} 

return false; 

} 

function Engine(name, opts, home, search) { 

var gotcha = find_substring(find, search); 

this.name = name; 

this.opts = opts; 

this.home = home; 

this.pre_gotcha = search.substring(0,gotcha); 

this.post_gotcha= search.substring(gotcha+find.length, search.length); 

} 

function Add(name, opts, home, search) { 

engs.len++; 

if (engs.len <= engs.maxlen) { 

engs[engs.len] = new Engine(name, opts, home, search) 

} 

else { 

alert ('Better increase MAX_ENGINES: ' + engs.Len + '>' + engs.maxlen) 

} 

} 

function DisplayForm() { 

document.writeln('<CENTER><FORM Name=Gotchaform OnSubmit="HandleForm(this); return false">'); 

document.writeln('<table border=0 bordercolor=black width=325 bgcolor=#FFCC33><tr><td width="125"><b><font size=2 face="arial">Aranacak Kelime:</b></td>&nbsp;<td width="200"><INPUT size=25 name="query"></td></tr></table>'); 

document.writeln('&nbsp;<b><font size=2 face="arial">Nerede aranacak?</b>&nbsp;<SELECT name="service">'); 

for (i=1; i <= engs.len; i++) { 

document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name); 

} 

document.writeln('</SELECT> <br><input type=submit value="Ara ve Bul"><br><a href="http://www.samsunspor.kulubu.com" target="http://www.samsunspor.kulubu.com" >http://www.samsunspor.kulubu.com</a><br>'); 

document.writeln('</FORM> </CENTER>'); 

document.Gotchaform.query.focus() 

} 

function HandleForm(form){ 

var i, newq="", oldq=form.query.value; 

for (i=0; i<oldq.length; i++) {  // compress [ ]+ into \+ 

var thischar = oldq.charAt(i); 

if (thischar =="+")newq += "%2B"; 

else 

if (thischar != ' ') 

newq += thischar; 

else if (lastchar != ' ') 

newq += '+'; 

lastchar = thischar; 

} 

var eng = engs[1+form.service.selectedIndex]; 

// Window 

search=window.open(newq ? eng.pre_gotcha + newq + eng.post_gotcha : eng.home,"SmartSearch","scrollbars=yes,toolbar=yes,location=yes,directories=yes,status=yes,menubar=yes,resizable=yes,width='100%',hight='100%'"); 

} 

Add("Dünya - AltaVista","SELECTED","http://altavista.digital.com/", 

"http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt"); 

Add("Dünya - AltaVista (UseNet)","","http://altavista.digital.com/", 

"http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunt" ); 

Add("Dünya - Yahoo!","","http://www.yahoo.com/", 

"http://search.yahoo.com/bin/search?p=hunt" ); 

Add("Dünya - DejaNews","","http://www.dejanews.com/", 

"http://search.dejanews.com/nph-dnquery.xp?query=hunt&defaultOp=AND&svcclass=dncurrent&maxhits=25"); 

Add("Dünya - HotBot","","http://www.search.hotbot.com", 

"http://www.search.hotbot.com/search.html?MT=hunt&DC=25"); 

Add("Dünya - Infoseek UltraSmart","","http://www.infoseek.com/Home?pg=Home.html&sv=A2", 

"http://www.infoseek.com/Titles?qt=hunt&col=WW&sv=A2"); 

Add("Dünya - Excite","","http://www.excite.com/", 

"http://www.excite.com/search.gw?searchType=Concept&search=hunt&category=default"); 

Add("Dünya - Infoseek (Usenet)","","http://www.infoseek.com", 

"http://www.infoseek.com/Titles?qt=hunt&col=NN&sv=A2"); 

Add("Dünya - Lycos","","http://www.lycos.com/", 

"http://www.lycos.com/cgi-bin/pursuit?query=hunt&backlink=639"); 

Add("Dünya - Magellan","","http://www.mckinley.com/", 

"http://www.mckinley.com/extsearch.cgi?query=hunt"); 

Add("Dünya - OpenText","","http://search.opentext.com", 

"http://search.opentext.com/omw/simplesearch?SearchFor=hunt&mode=and"); 

Add("Dünya - WebCrawler","","http://webcrawler.com/", 

"http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&maxHits=25"); 

Add("Dünya - Yahoo (PixSearch)","","http://ipix.yahoo.com/", 

"http://ipix.yahoo.com/cgi-bin/y-new/keyword_search.cgi?db=%2Fdata%2Fglobal_keyword&q=hunt"); 

// Software 

Add("Yazılım - ZDNet","","http://www.zdnet.com/", 

"http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&Usrchtype=simple&Utext=hunt"); 

Add("Yazılım - DaveCentral","","http://www.davecentral.com/", 

"http://www.davecentral.com/cgi-bin/search.pl?query=hunt"); 

Add("Yazılım - Filez","","http://www.filez.com/", 

"http://filez.com/cgi/filez.cgi?query=hunt&type=All+Files&hits=50&domain=World&doit=Search/"); 

Add("Yazılım - Shareware.com","","http://www.shareware.com/", 

"http://search.shareware.com/code/engine/Find?logop=and&cfrom=quick&orfile=True&hits=25&search=hunt&category=All-Categories"); 

Add("Yazılım - PC game finder","","http://www.pcgame.com/","http://www.pcgame.com/finder/search.cgi?key=hunt"); 

// Denmark 

Add("Danimarka - AltaVista (DK)","","http://altavista.telia.com/cgi-bin/telia","http://www.danielsen.com/cgi/thornew.cgi?country=danmark&cnt=50&q=hunt"); 

Add("Danimarka - Jubii","","http://www.jubii.dk/","http://soeg.jubii.dk/resultat.asp?startnummer=1&antalresultater=30&soegeord=hunt"); 

Add("Danimarka - Thor","","http://www.danielsen.com/thor/", 

"http://www.danielsen.com/cgi/thornew.cgi?country=danmark&cnt=50&q=hunt"); 

DisplayForm(); 

// STOP HIDE --> 

</script>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:08   #2
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

sade arama motoru
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<script> 

<!-- hide this script from non-JavaScript browsers 

// All code in this script is Copyright(C) 1996, Justin Boyan, jab+j( at )cs.cmu.edu 

// For documentation and more info, see: http://www.cs.cmu.edu/~jab/snark/ 

// This is SNARK Version 1.0, 18 May 1996 

var MAX_ENGINES = 30; 

var SNARK_STRING = "hunting+the+snark"; 

function MakeArray(n) { 

for (var i = 1; i <= n; i++) { 

this[i] = 0; 

} 

this.maxlen = n; 

this.len = 0; 

return this; 

} 

var engs = new MakeArray(MAX_ENGINES); 

function find_substring(needle, haystack) { 

var i, needlen = needle.length, haylen = haystack.length; 

for (i=0; i<=haylen-needlen; i++) { 

if (needle == haystack.substring(i,i+needlen)) 

return i; 

} 

return false; 

} 

function Engine(name, opts, home, search) { 

var snark = find_substring(SNARK_STRING, search); 

this.name = name; 

this.opts = opts; 

this.home = home; 

this.pre_snark = search.substring(0,snark); 

this.post_snark= search.substring(snark+SNARK_STRING.length, search.length); 

} 

function Add(name, opts, home, search) { 

engs.len++; 

if (engs.len <= engs.maxlen) { 

engs[engs.len] = new Engine(name, opts, home, search) 

} 

else { 

alert("Better increase MAX_ENGINES: " + engs.len + ">" + engs.maxlen) 

} 

} 

// ADD YOUR OWN SEARCH ENGINES BELOW. (See http://www.cs.cmu.edu/~jab/snark/ ) 

  

Add("Netnews: AltaVista", "", 

"http://altavista.digital.com/", 

"http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunting+the+snark" ); 

Add("Shareware/Windows", "", 

"http://vsl.cnet.com/", 

"http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=MS-Windows%28all%29&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" ); 

Add("Shareware/Unix", "", 

"http://vsl.cnet.com/", 

"http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=UNIX&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" ); 

Add("the Web: AltaVista", "SELECTED", 

"http://altavista.digital.com/", 

"http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunting+the+snark" ); 

Add("the Web: Lycos", "", 

"http://www.lycos.com/", 

"http://twelve.srv.lycos.com/cgi-bin/pursuit?query=hunting+the+snark" ); 

Add("the Web: Yahoo!", "", 

"http://www.yahoo.com/", 

"http://search.yahoo.com/bin/search?p=hunting+the+snark" ); 

Add("Weather (City, ST)", "", 

"http://www.nnic.noaa.gov/cgi-bin/page?pg=netcast", 

"http://www.nnic.noaa.gov/cgi-bin/netcast.do-it?state=hunting+the+snark&area=Local+Forecast&html=yes&match=strong"); 

  

// ADD YOUR OWN SEARCH ENGINES ABOVE. (See http://www.cs.cmu.edu/~jab/snark/ ) 

function HandleForm(form) { 

form.submit(); // This fixes a mysterious Netscape bug. Without this line, 

// you can't use <enter> to start the search the first time. 

var i, oldq=form.query.value, newq=""; 

for (i=0; i<oldq.length; i++) { // compress [ ]+ into + 

var thischar = oldq.charAt(i); 

if (thischar != ' ') 

newq += thischar; 

else if (lastchar != ' ') 

newq += '+'; 

lastchar = thischar; 

} 

var eng = engs[1+form.service.selectedIndex]; 

location.href = newq ? eng.pre_snark + newq + eng.post_snark : eng.home; 

} 

function DisplayForm() { 

document.writeln('<CENTER><FORM OnSubmit="HandleForm(this); return false">'); 

document.writeln('Search <SELECT name="service">'); 

for (i=1; i <= engs.len; i++) { 

document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name); 

} 

document.writeln('</SELECT> for <INPUT size=26 name="query">'); 

document.writeln('<input type=submit value=" ARA">'); 

document.writeln('</FORM> </CENTER>'); 

} 

DisplayForm(); 

// done hiding from old browsers --> 

</script>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:09   #3
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

tablosu renkli olan arama motoru
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<script language="JavaScript"> 
<!-- 

// 
// Script by Jari Aarniala [www.mbnet.fi/~foo -- foo( at )mbnet.fi] 
// 

function startSearch(){ 
searchString = document.searchForm.searchText.value; 
if(searchString != ""){ 
searchEngine = document.searchForm.whichEngine.selectedIndex + 1; 
finalSearchString = ""; 

if(searchEngine == 1){ 
finalSearchString = "http://www.altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=.&q=" + searchString; 
} 
if(searchEngine == 2){ 
finalSearchString = "http://av.yahoo.com/bin/query?p=" + searchString + "&hc=0&hs=0"; 
} 
if(searchEngine == 3){ 
finalSearchString = "http://www.excite.com/search.gw?trace=a&search=" + searchString; 
} 
if(searchEngine == 4){ 
finalSearchString = "http://www.hotbot.com/?SW=web&SM=MC&MT=" + searchString + "&DC=10&DE=2&RG=NA&_v=2&act.search.x=89&act.search.y=7"; 
} 
if(searchEngine == 5){ 
finalSearchString = "http://www.infoseek.com/Titles?qt=" + searchString + "&col=WW&sv=IS&lk=noframes&nh=10"; 
} 
if(searchEngine == 6){ 
finalSearchString = "http://www.lycos.com/cgi-bin/pursuit?adv=%26adv%3B&cat=lycos&matchmode=and&query=" + searchString + "&x=45&y=11"; 
} 
if(searchEngine == 7){ 
finalSearchString = "http://netfind.aol.com/search.gw?search=" + searchString + "&c=web&lk=excite_netfind_us&src=1"; 
} 

location.href = finalSearchString; 
} 
} 


// --> 
</script> 

<basefont face="Verdana, Arial, sans-serif"> 

<form name="searchForm"> 

<table width=320 border cellpadding=3 cellspacing=2 bgcolor=444444> 

<tr> 
<td bgcolor=lightblue><font size=1 face="Verdana, Arial, sans-serif">Aranacak kelime:<br> 
<td bgcolor=lightblue><font size=1 face="Verdana, Arial, sans-serif">Aranacak site: 
<td bgcolor=lightblue> 

<tr> 
<td bgcolor=navajowhite><input style="background: dddddd" name="searchText" type="text"> 
<td bgcolor=navajowhite> 
<select style="background: dddddd" name="whichEngine"> 
<option selected>Altavista 
<option>Yahoo! 
<option>Excite 
<option>Hotbot 
<option>Infoseek 
<option>Lycos 
<option>AOL Netfind 
</select> 
<td bgcolor=navajowhite><input type="button" value="ARA" onClick="startSearch()"> 

</select> 
</table> 
</form>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:10   #4
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

bu da bi başka arama motoru kutularda nerde arayacağını tıklıyorsun ve o arıyor
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<b>JavaScript Arama Motoru</b><p> 
Bu script ile bir defada en fazla  <br> 
4 sitede arama yaptırabilirsiniz. 
<form name="choose4" action="javascript:numChecked(document.choose4) //"><p> 
<table><tr><td><b>Directories</b><br> 
<input type="checkbox" name="check1" value="Yahoo" 
onClick="choose4.check1.value='Yahoo'">Yahoo<br> 
<input type="checkbox" name="check1" value="Magellan" 
onClick="choose4.check1.value='Magellan'">Magellan<br> 
<input type="checkbox" name="check1" value="Point" 
onClick="choose4.check1.value='Point'">Point<br><br></td> 
<td width="15"></td> 
<td><b>Search Engines</b><br> 
<input type="checkbox" name="check1" value="Alta" 
onClick="choose4.check1.value='Alta'">Alta Vista<br> 
<input type="checkbox" name="check1" value="Open" 
onClick="choose4.check1.value='Open'">Open Text<br> 
<input type="checkbox" name="check1" value="Lycos" 
onClick="choose4.check1.value='Lycos'">Lycos<br> 
<input type="checkbox" name="check1" value="Excite" 
onClick="choose4.check1.value='Excite'">Excite<br></td> 
<td><br><input type="checkbox" name="check1" value="Crawler" 
onClick="choose4.check1.value='Crawler'">Webcrawler<br> 
<input type="checkbox" name="check1" value="InfoSeek" 
onClick="choose4.check1.value='InfoSeek'">InfoSeek<br> 
<input type="checkbox" name="check1" value="DejaNews" 
onClick="choose4.check1.value='DejaNews'">DejaNews<br> 
<input type="checkbox" name="check1" value="Inktomi" 
onClick="choose4.check1.value='Inktomi'">Inktomi<br> </td> 
<td width="15"></td> 
<td><b>Meta Searches</b><br> 
<input type="checkbox" name="check1" value="MetaCrawler" 
onClick="choose4.check1.value='MetaCrawler'">MetaCrawler<br> 
<input type="checkbox" name="check1" value="SavySearch" 
onClick="choose4.check1.value='SavySearch'">SavySearch<BR><br><br> 
</td></tr></table><P> 
<B>Aranacak kelimeyi girin</B>:<BR> 
<input type="text" name="text" size=30> 
<input type="submit" name="send" value="Ara"> 
</form>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:11   #5
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

sayfa içi arama motoru
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<font face="Tahoma" size="2"><b>Bulunulan sayfa içinde arama 

 <script language="JavaScript"> 
var NS4 = (document.layers); // hangi browser? 
var IE4 = (document.all); 

var win = window; 
var n = 0; 

function findInPage(str) { 

var txt, i, found; 

if (str == "e") 
return false; 

if (NS4) { 

if (!win.find(str)) 
while(win.find(str, false, true)) 
n++; 
else 
n++; 

if (n == 0) 
alert("Aradığınız kelime sayfada bulunamadı."); 
} 

if (IE4) { 
txt = win.document.body.createTextRange(); 

for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) { 
txt.moveStart("character", 1); 
txt.moveEnd("textedit"); 
} 

if (found) { 
txt.moveStart("character", -1); 
txt.findText(str); 
txt.select(); 
txt.scrollIntoView(); 
n++; 
} 

else { 
if (n > 0) { 
n = 0; 
findInPage(str); 
} 

else 
alert("Aradığınız kelime sayfada bulunamadı."); 
} 
} 

return false; 
} 

</script> 

</b></font> 

<form name="search" onSubmit="return findInPage(this.string.value);"> 
<font size=3><input name="string" type="text" size=15 onChange="n = 0;"></font> 
<input type="submit" value=" Ara "> 
</form> 
<strong>ŞAİRLER</strong>  <br> 
Ne gördükse iyi kötü<br> 
Ömür biter biz hâlâ<br> 
Söyleriz.<br> 
<br> 
Ne varsa şu dünyada<br> 
Türlü görüntüler<br> 
Gelsek de sonuna<br> 
Söyleriz.<br> 
<br> 
Bazan boş günler<br> 
Geçer birden dolunca<br> 
Söyleriz.<br> 
<br> 
Ne biter<br> 
Ne kalır geçmiş kitaplarda<br> 
Ölümden sonra da<br> 
Söyleriz.<br> 

<strong>Devrim Gürer </strong>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:12   #6
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

site içi arama motoru
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<form method=get action="javascript:void(0)" onsubmit="search(this); return false;"> 
<tr><td><input type=text name=srchval value=""><input type=submit value="Ara"></td></tr> 
</form>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:12   #7
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

arkadan toplar uçuşarak sitenin ortasına gitsin renkli
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<script language="JavaScript"> 

<!-- Space Variation by kurt.grigg( at )virgin.net 

if (document.all){ 

xL=5; 

xH=0; 

xW=0; 

xR=0; 

xE=0; 

xMY=0; 

xMX=0; 

xWd=0; 

xHd=0; 

xF=new Array(); 

xY=new Array(); 

xX=new Array(); 

xS=new Array(); 

xA=new Array(); 

xB=new Array(); 

ini=new Array(); 

cl=new Array('#fff000','#0000FF','#ff0000','#00ff00','#ff00ff','#ffa500') 

document.write('<div id="xouter" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); 

for (i=0; i < xL; i++){ 

document.write('<div id="xie" style="position:absolute;top:0;left:0;width:10px;height:10px;' 

+'font-family:Courier New;font-size:50px;color:#ffffff">.</div>'); 

} 

document.write('</div></div>'); 

//Initial Placement! 

function Set(){ 

for (i=0; i < xL; i++){ 

xH=window.document.body.offsetHeight; 

xW=window.document.body.offsetWidth; 

xA[i]=Math.round(Math.random()*xH); 

xB[i]=Math.round(Math.random()*xW); 

xS[i]=Math.random()*0.07+0.05; 

xR=Math.round(Math.random()*3); 

xE=Math.round(Math.random()*2500+50) 

if (xR == 3) xB[i]=-xE; 

if (xR == 2) xB[i]=xW+xE; 

if (xR == 1) xA[i]=-xE; 

if (xR == 0) xA[i]=xH; 

xF[i]=xW/14; 

} 

} 

Set(); 

function Assign(){ 

xouter.style.top=document.body.scrollTop; 

for (i=0; i < xL; i++){ 

xF[i]-=xS[i]*25; 

if (xF[i] < 4) xF[i]=3; 

xie[i].style.top =xY[i]; 

xie[i].style.left=xX[i]; 

xie[i].style.fontSize=xF[i]; 

xie[i].style.filter='glow(color='+ini[i]+', strength='+xF[i]/3+')'; 

} 

} 

function fly(){ 

var N=Math.floor(Math.random()*cl.length) 

xMY=window.document.body.clientHeight/2; 

xMX=window.document.body.clientWidth/2; 

xWd=Math.round(Math.random()*40+5); 

xHd=Math.round(Math.random()*30+5); 

for (i=0; i < xL; i++) 

{ 

xY[i]=xA[i]+=(xMY-xA[i])*(xS[i]);              

xX[i]=xB[i]+=(xMX-xB[i])*(xS[i]);  

if ((xX[i] > xMX-xWd) && (xX[i] < xMX+xWd) && (xY[i] > xMY-xHd) && (xY[i] < xMY+xHd)){ 

  

 xH=window.document.body.offsetHeight; 

 xW=window.document.body.offsetWidth; 

 xA[i]=Math.round(Math.random()*xH); 

 xB[i]=Math.round(Math.random()*xW); 

 xS[i]=Math.random()*0.05+0.05; 

 xR=Math.round(Math.random()*3); 

 xE=Math.round(Math.random()*50+50) 

 if (xR == 3) xB[i]=-xE; 

 if (xR == 2) xB[i]=xW+xE; 

 if (xR == 1) xA[i]=-xE; 

 if (xR == 0) xA[i]=xH+xE; 

} 

if ((xX[i] < 0) || (xX[i] > xW) || (xY[i] < 0) || (xY[i] > xH)) 

 { 

 xF[i]=xW/14; 

 ini[i]=cl[N]; 

 } 

} 

Assign(); 

setTimeout('fly()',10); 

} 

fly(); 

} 

// --> 

</script>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:13   #8
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

menüden rengi seç arkaplan renk değiştirsin
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<select name="schemesel" onChange="document.bgColor = 

this.options[selectedIndex].value" size="1" style="background-color: rgb(57,57,57); color: rgb(255,255,255)"> 

<option value="000000" selected>SİYAH </option> 

<option value="0000FF">MAVİ </option> 

<option value="A0A0A0">GRİ </option> 

<option value="E9E900">SARI </option> 

<option value="A0A0FF">ŞAFAK MAVİSİ </option> 

<option value="C70000">KIRMIZI </option> 

<option value="FFFFA0">AÇIK SARI </option> 

<option value="F0F0FA">İNCİ BEYAZI</option> 

<option value="FF00FF">MOR </option> 

<option value="00FFFF">TURKUAZ </option> 

</select>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:13   #9
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

arkaplandan mesaj ver ziyaretçilere
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<script language="JavaScript"> 
<!-- Original:  Charles Foster (wcms_sf( at )msn.com) --> 
<!-- Begin 
var speed = 50; 
var cycledelay = 2000; 
var maxsize = 48; 

var x = 0; 
var y = 0; 
var themessage, size; 
var esize = "</font>"; 

function initArray() { 
this.length = initArray.arguments.length; 
for (var i = 0; i < this.length; i++) { 
this[i] = initArray.arguments[i]; 
   } 
} 
var themessage2 = new initArray( 
"Javascript Bankası", 
"Mesajlarınız böyle görünecek", 
"http://javascriptbankasi.com.tr.tc", 
"JAVASCRIPT BANKASI" 
); 
if(navigator.appName == "Netscape") 
document.write('<layer id="wds"></layer><br>'); 
if (navigator.appVersion.indexOf("MSIE") != -1) 
document.write('<span id="wds"></span><br>'); 
function upwords(){ 
themessage = themessage2[y]; 
if (x < maxsize) { 
x++; 
setTimeout("upwords()",speed); 
} 
else setTimeout("downwords()",cycledelay); 

if(navigator.appName == "Netscape") { 
size = "<font point-size='"+x+"pt'>"; 
document.wds.document.write(size+"<center>"+themessage+"</center>"+esize); 
document.wds.document.close(); 
} 
if (navigator.appVersion.indexOf("MSIE") != -1){ 
wds.innerHTML = "<center>"+themessage+"</center>"; 
wds.style.fontSize=x+'px' 
   } 
} 
function downwords(){ 
if (x > 1) { 
x--; 
setTimeout("downwords()",speed); 
} 
else { 
setTimeout("upwords()",cycledelay); 
y++; 
if (y > themessage2.length - 1) y = 0; 
} 
if(navigator.appName == "Netscape") { 
size = "<font point-size='"+x+"pt'>"; 
document.wds.document.write(size+"<center>"+themessage+"</center>"+esize); 
document.wds.document.close(); 
} 
if (navigator.appVersion.indexOf("MSIE") != -1){ 
wds.innerHTML = "<center>"+themessage+"</center>"; 
wds.style.fontSize=x+'px' 
   } 
} 
setTimeout("upwords()",speed); 
//  End --> 
</script>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2008, 13:14   #10
Orion3
 
Giriş: 07/02/2008
Şehir: edirne
Mesaj: 14
Excel Vers. ve Dili:
Javascript
Varsayılan

arka plandan mesaj verin ziyaretçilere iki arkaplan da yazı sağa sola dönüp duruyor ilginç
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<style type="text/css"> 

#supertext { 
position:absolute; 
left:0; 
top:0; 
visibility:hide; 
visibility:hidden; 

} 

</style> 


<script language="JavaScript1.2"> 

/* 
Bouncy message script- By Dynamicdrive.com 
Code based on Lloyd Hassell's, at http://www.dynamicdrive.com/dynamicindex4/bounceimage.htm 
For full source, TOS, and 100s DTHML scripts, visit http://dynamicdrive.com 
*/ 

//Configure the below three variables 

//1) Set message to display (HTML accepted) 
var thecontent='<h2><font color="#0000FF">JAVASCRIPT BANKASI!</font></h2>' 
//2) Set delay after which message should be hidden, in miliseconds ('' makes it incessantly visible on the screen) 
var hidetimer=''; 
//3) Set speed of animation (1-50), where larger is faster 
var BallSpeed = 20; 



///NO NEED TO EDIT BELOW THIS LINE/////////// 

var contentWidth; 
var contentHeight; 
var maxBallSpeed = 50; 


var xMax; 
var yMax; 
var xPos = 0; 
var yPos = 0; 
var xDir = 'right'; 
var yDir = 'down'; 
var superballRunning = true; 
var tempBallSpeed; 
var currentBallSrc; 
var newXDir; 
var newYDir; 

function initializeBall() { 
   if (document.all) { 
      xMax = document.body.clientWidth 
      yMax = document.body.clientHeight 
      document.all("supertext").style.visibility = "visible"; 
      contentWidth=supertext.offsetWidth 
      contentHeight=supertext.offsetHeight 
      } 
   else if (document.layers) { 
      xMax = window.innerWidth; 
      yMax = window.innerHeight; 
      contentWidth=document.supertext.document.width 
      contentHeight=document.supertext.document.height 
      document.layers["supertext"].visibility = "show"; 
      } 
   setTimeout('moveBall()',400); 
   if (hidetimer!='') 
   setTimeout("hidetext()",hidetimer) 
   } 

function moveBall() { 
   if (superballRunning == true) { 
      calculatePosition(); 
      if (document.all) { 
         document.all("supertext").style.left = xPos + document.body.scrollLeft; 
         document.all("supertext").style.top = yPos + document.body.scrollTop; 
         } 
      else if (document.layers) { 
         document.layers["supertext"].left = xPos + pageXOffset; 
         document.layers["supertext"].top = yPos + pageYOffset; 
         } 
      animatetext=setTimeout('moveBall()',20); 
      } 
   } 

function calculatePosition() { 
   if (xDir == "right") { 
      if (xPos > (xMax - contentWidth - BallSpeed)) { 
         xDir = "left"; 
         } 
      } 
   else if (xDir == "left") { 
      if (xPos < (0 + BallSpeed)) { 
         xDir = "right"; 
         } 
      } 
   if (yDir == "down") { 
      if (yPos > (yMax - contentHeight - BallSpeed)) { 
         yDir = "up"; 
         } 
      } 
   else if (yDir == "up") { 
      if (yPos < (0 + BallSpeed)) { 
         yDir = "down"; 
         } 
      } 
   if (xDir == "right") { 
      xPos = xPos + BallSpeed; 
      } 
   else if (xDir == "left") { 
      xPos = xPos - BallSpeed; 
      } 
   else { 
      xPos = xPos; 
      } 
   if (yDir == "down") { 
      yPos = yPos + BallSpeed; 
      } 
   else if (yDir == "up") { 
      yPos = yPos - BallSpeed; 
      } 
   else { 
      yPos = yPos; 
      } 
   } 

function hidetext(){ 
if (document.all) 
supertext.style.visibility="hidden" 
else if (document.layers) 
document.supertext.visibility="hide" 
clearTimeout(animatetext) 
} 

if (document.all||document.layers){ 
document.write('<span id="supertext"><nobr>'+thecontent+'</nobr></span>') 
window.onload = initializeBall; 
window.onresize = new Function("window.location.reload()"); 
} 

</script>
Orion3 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 05:52


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden