R10.net Giriş Sayfası Gibi Nasıl Yaparım? (Rastgele Resimli Index) - Sayfa 2

27-06-2007, 21:53:02

#10

~~ReGuaL~~

Üyeliği durduruldu

Hepinizde Teşekkürler Arkadaşlar

29-06-2007, 15:15:58

#11

~~Zombie~~

Üyeliği durduruldu

<SCRIPT LANGUAGE="JavaScript">
today=new Date();
jran=today.getTime();
function rnd() {
ia=9301;
ic=49297;
im=233280;
jran = (jran*ia+ic) % im;
return jran/(im*1.0);
};
function rand(number) {
return Math.ceil(rnd()*number);
};
document.write("<CENTER>");
for(i=1;i<=1;i++) {
myNum=(rand(12));
if(myNum == 1) document.write("<img src=''resim1.jpg''>"); 
if(myNum == 2) document.write("<img src=''resim2.jpg''>");
if(myNum == 3) document.write("<img src=''resim3.jpg''>");
if(myNum == 4) document.write("<img src=''resim4.jpg''>");
if(myNum == 5) document.write("<img src=''resim1.jpg''>");
if(myNum == 6) document.write("<img src=''resim2.jpg''>");
if(myNum == 7) document.write("<img src=''resim3.jpg''>");
if(myNum == 8) document.write("<img src=''resim4.jpg''>");
if(myNum == 9) document.write("<img src=''resim1.jpg''>");
if(myNum == 10) document.write("<img src=''resim2.jpg''>");
if(myNum == 11) document.write("<img src=''resim3.jpg''>");
if(myNum == 12) document.write("<img src=''resim4.jpg''>");
else {
document.write();
}
};
</script>

bir yolda benden

29-06-2007, 15:39:35

#12

~~KorcanErgun~~

Üyeliği durduruldu

<?PHP
$sayi=rand(1,3);
echo "<img src='buimaij_$sayi.jpg'>";
?>

ordaki rand fgonksiyo ile 1-3 arasında rastgele sayı oluşturuyorsun kaç resim değiştirecekse ona göre değiştirirsin sonra.buimaj_1.jpg buimaj_2.jpg .... gibi koyarsın resimleri

29-06-2007, 15:56:22

#13

~~Crazy_Blood~~

Üyeliği durduruldu

Bi Alternatif te Benden;

<?php
$resim = array('resim1','resim2','resim3','resim4','resim5');
shuffle($resim);
echo"<center><img src=\"resimler/$resim[0].jpg\" width=\"553\" height=\"352\" alt=\"$resim[0]\"></center>";
?>

array('resim1','resim2','resim3','resim4','resim5' ); Olan Kısma Resimlerin Adlarını yazıyoruz, İstediğimiz Kadar Çoğaltabiliriz, ama uzantılarını değil sadece adlarını, Resimler "resimler" Klasöründe bulunacak, Uzantıları .jpg Olmalı.

18-07-2007, 01:44:41

#14

HxE

ya arkadaşlar ben bunu yapamadım resim.php dosyasını ilk mesajdaki gibi hatta diger mesajalardakini bile denedim ama bir türlü resimleri göremedim başaramdım resimler görünmedi ne yaptıysam olmadı lütfen bunu kendisi yapan bir arkadaş varsa güzel bir şekilde tekrar anlatabilrmi çok teşekür ederim...

18-07-2007, 02:28:06

#15

webrlis

bi asp versiyonu da benden olsun

banner klasöründeki resimleri rastgele gösterir tek tek tün resimleri belirtmenize gerek yok klasöre atın yeter

Alıntı

<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject" )
Set Klasor = FSO.GetFolder(Server.MapPath("Banner" ))
Set Resimler = Klasor.Files
ResimDizi = Array(0)
For Each Resim In Resimler
If Right(Resim.Name,2) <> "db" Then

ResimDizi(Ubound(ResimDizi)) = Resim.Name
ReDim Preserve ResimDizi(Ubound(ResimDizi)+1)

End If
Next
Randomize Timer
Sayi = Int(Rnd*Ubound(ResimDizi))

%>

resmi koyacağınız yere

Alıntı

19-07-2007, 19:12:28

#16

HxE

yokar arkaşlar ben yapamadım bunu r10 daki nin hazır kodu yoklu lütfen bi y6ardımcı olun teşekür ederim...

19-07-2007, 20:32:52

#17

DeadLy

Misafir

Coştu millet

Hepinize thanks

24-07-2007, 12:34:42

#18

HxE

arkadaşlar bu konuda bi açıklama yapacak olan yokmu ben yapamadım bunu lüften bi code de benden olsun diye mesaj yazmayın bana bu sitedeki php kodu nu ve nasıl uygulanacağı hakkında bilgi veriniz çok teşekür ederim...