banjalukaforum.com https://banjalukaforum.com/ |
|
Zanimljiv PHP https://banjalukaforum.com/viewtopic.php?f=18&t=12492 |
Stranica 1 od 2 |
Autoru: | [KS] [ 06 Mar 2005, 03:03 ] |
Tema posta: | Zanimljiv PHP |
Hajde ovde postujte php skripte koje ste pravili a mislite da su zanimljive. Nemoraju biti nista slozeno, posebno, a i mogu ![]() ![]() Evo za pocetak skripta koja iscrtava sinus i kosinus (koristi GD biblioteke) Kod: <?php
Header("Content-type: image/png"); $picWidth=360*2; $picHeight=400; $pic=ImageCreate($picWidth+50,$picHeight+50); $cWhite=ImageColorAllocate($pic,255,255,255); $cBlack=ImageColorAllocate($pic,0,0,0); $cGray=ImageColorAllocate($pic,228,228,228); $cBlue=ImageColorAllocate($pic,0,0,255); $cRed=ImageColorAllocate($pic,255,0,0); $cGreen=ImageColorAllocate($pic,0,255,0); ImageFilledRectangle($pic,0+20,0,$picWidth+1+25,$picHeight+1,$cWhite); for ($a=0;$a<=$picHeight+50;$a=$a+90) { ImageLine($pic, 0, $a-5+25, $picWidth+50, $a-5+25, $cGray); } for ($a=0;$a<=$picWidth;$a=$a+90) { ImageLine($pic, $a+25, 0, $a+25, $picHeight, $cGray); $b=$a/2; imagestring($pic, 3, $a-5+25, $picHeight+2, $b."°", $cBlack); } ImageLine($pic,0+25,$picHeight/2,$picWidth+25,$picHeight/2,$cGray); for ($x=1;$x<=360;$x++) { $x1=($x-1)*($picWidth/360); $y1=($picHeight/2)-(sin(deg2rad($x-1))*($picHeight/2)); $x2=$x*($picWidth/360); $y2=($picHeight/2)-(sin(deg2rad($x))*($picHeight/2)); ImageLine($pic, $x1+25, $y1, $x2+25, $y2, $cBlue); } for ($x=1;$x<=360;$x++) { $x1=($x-1)*($picWidth/360); $y1=($picHeight/2)-(cos(deg2rad($x-1))*($picHeight/2)); $x2=$x*($picWidth/360); $y2=($picHeight/2)-(cos(deg2rad($x))*($picHeight/2)); ImageLine($pic, $x1+25, $y1, $x2+25, $y2, $cRed); } imagestring($pic, 3, 360, $picHeight+20, "----- Sinus", $cBlue); imagestring($pic, 3, 360, $picHeight+35, "----- Kosinus", $cRed); ImagePNG($pic); ImageDestroy($pic); ?> |
Autoru: | S [ 06 Mar 2005, 12:52 ] |
Tema posta: | |
Kod: <?php print("Hello World !\n"); ?> ![]() |
Autoru: | Nemesis [ 06 Mar 2005, 17:02 ] |
Tema posta: | |
Super sto ste ovo pokrenuli.Ja sam apsolutni pocetnik sa php. Ovaj kod ne radi (mislim na kosinus). Sta bi moglo biti,kaze da ne moze prikazati sliku. |
Autoru: | Vertygo [ 06 Mar 2005, 18:13 ] |
Tema posta: | |
Otvori php.ini i obrisi ";" ispred gd2.dll ![]() |
Autoru: | [KS] [ 06 Mar 2005, 21:03 ] |
Tema posta: | ... |
Ev upravo sam gore malo izmjenio skriptu. Nista posebno samo da bude malo ljepsi rezultat i to je to ![]() Hajde saljite vi malo nesto ![]() |
Autoru: | [KS] [ 07 Mar 2005, 15:15 ] |
Tema posta: | Funkcija... |
Evo jedan .php znam da nije savrsen ima par propusta. Sluzi za crtanje grafika funkcije. Jednostavno ukucajte funkciju bez y= npr (x*x) i voila ![]() Kod: <?
if(!$_POST["y"]) { echo " <center> <form name=\"form1\" method=\"post\" action=\"funkcija.php\"> Y= <input type=\"test\" name=\"y\"> <input type=\"submit\" name=\"Submit\" value=\"Grafik!\"> </form> "; } else { Header("Content-type: image/png"); //Slanje header-a browseru //Osnovne varijable sa sliku $slDuzina=300; //Duzina slike $slSirina=200; //Sirina slika //Osnove varijable za funkciju $izraz=$_POST["y"]; //Matematicki izraz za y $xMax=-1000; //Maksimum funkcije $sl=ImageCreate($slDuzina,$slSirina); //Pravljenje slike //Funkcije za osnovne boje $bBijela=ImageColorAllocate($sl,255,255,255); $bCrna=ImageColorAllocate($sl,0,0,0); $bSiva=ImageColorAllocate($sl,228,228,228); $bTamnoSiva=ImageColorAllocate($sl,180,180,180); $bPlava=ImageColorAllocate($sl,0,0,255); $bCrvena=ImageColorAllocate($sl,255,0,0); $bZelena=ImageColorAllocate($sl,0,255,0); //Odredjivanje minimuma i maksimuma for ($a=-1000;$a<=1000;$a++) { $izraz1=str_replace("x", $a,$izraz); eval("\$y=$izraz1;"); if ($y>$xMax && $y<$slSirina/2) { $xMax = $a; } } //Iscrtavanje koordinatnog sistema ImageLine($sl, $slDuzina/2, 0, $slDuzina/2, $slSirina, $bCrna); //Y Osa ImageLine($sl, 0, $slSirina/2, $slDuzina, $slSirina/2, $bCrna); //X Osa ImageLine($sl, $slDuzina-10, $slSirina/2-3, $slDuzina, $slSirina/2, Crvena); //Strelica na ImageLine($sl, $slDuzina-10, $slSirina/2+3, $slDuzina, $slSirina/2, $bCrvena); //X osi ImageLine($sl, $slDuzina/2-3, 10, $slDuzina/2, 0, $bCrvena); //Strelica na ImageLine($sl, $slDuzina/2+3, 10, $slDuzina/2, 0, $bCrvena); //Y osi ImageString($sl, 3, $slDuzina/2+5, $slSirina/2+5, "0", $bCrna); //Nula kod koordinatnog pocetka $x=0; $lPixX="bla"; $lPixY="bla"; for ($a=0;$a<=$slDuzina/2;$a=$a+$slDuzina/($xMax*2)) { // Rijesavanje funkcije za crtanje grafika za x>=0 $izraz1=str_replace("x", $x,$izraz); eval("\$y=$izraz1;"); ImageSetPixel($sl, $a+$slDuzina/2, $slSirina/2-$y, $bPlava); if ($lPixX!="bla" && $lPixY!="bla") { ImageLine($sl, $lPixX, $lPixY, $a+$slDuzina/2, $slSirina/2-$y, $bPlava); } $lPixX=$a+$slDuzina/2; $lPixY=$slSirina/2-$y; $x++; } $x=-$xMax*2; $lPixX="bla"; $lPixY="bla"; for ($a=-$slDuzina;$a<=0;$a=$a+$slDuzina/($xMax*2)) { // Rijesavanje funkcije za crtanje grafika x<=0 $izraz1=str_replace("x", $x,$izraz); eval("\$y=$izraz1;"); ImageSetPixel($sl, $a+$slDuzina/2, $slSirina/2-$y, $bPlava); if ($lPixX!="bla" && $lPixY!="bla") { ImageLine($sl, $lPixX, $lPixY, $a+$slDuzina/2, $slSirina/2-$y, $bPlava); } $lPixX=$a+$slDuzina/2; $lPixY=$slSirina/2-$y; $x++; } //Kraj ImagePNG($sl); //Slanje slike browseru ImageDestroy($sl); //Zatvaranje slike u PHP-u } ?> </center> |
Autoru: | che.guevara [ 07 Mar 2005, 16:13 ] |
Tema posta: | |
Filtriraj taj unos da ti neko ne bi preuzeo kontrolu nad sajtom ... Inače, jel i tebe Grbić tjerao da praviš program za crtanje funkcije ??? ![]() |
Autoru: | Nemesis [ 07 Mar 2005, 21:52 ] |
Tema posta: | |
Meni opet ono gore nece.Trazio sam ";" ispred gd2.dll ali ja samo imam na jednom mestu to i onda mi nece da radi apache. |
Autoru: | [KS] [ 07 Mar 2005, 22:35 ] |
Tema posta: | ... |
che nije me grbic tjerao, meni je rekao da radim neki edukativni software u delphi-u tipa memorija (ono naci dve iste slike) ![]() ovo nisam filtrirao jer nemam namjeru da to ubacim na sajt ![]() Nemesis: kad uklonis ; ispred extension=php_gd2.dll onda fino iz foldera extensions koji se nalazi u php folderu iskopiraj fajl php_gd2.dll u php folder. Nadam se da ce proradit ![]() che 02.04.2005. opet ono sranje dosadno koje se lako prolazi ![]() |
Autoru: | Nemesis [ 08 Mar 2005, 00:26 ] |
Tema posta: | |
Probacu pa cu javiti Evo nesto od mene (ne ljutite se,ipak sam pocetnik) Kod: <?php
for($x=1;$x<=10;$x++) { for ($y=1;$y<=10;$y++) { print("<center>Broj $x pomnozen brojem $y daje broj ".($x*$y)."<BR></center>"); } } ?> |
Autoru: | che.guevara [ 08 Mar 2005, 14:55 ] |
Tema posta: | Re: ... |
[KS] je napisao: che 02.04.2005. opet ono sranje dosadno koje se lako prolazi
Hej, moš mislit - OPŠTINSKO ![]() ![]() Mogli su da naprave i školsko ![]() Aj, pripremaj se ![]() ![]() |
Autoru: | Nemesis [ 08 Mar 2005, 22:49 ] |
Tema posta: | |
Ovaj kod mi konacno radi. Btw jel Grbic onaj profa iz gimnazije? |
Autoru: | [KS] [ 09 Mar 2005, 00:16 ] |
Tema posta: | |
druzhe che napravio bih ja to u delphiu ali nemam DELPHI! Riknuo mi cd od Delphi 7, a Delphi 2005 nema nigdje u BL nabaviti zbog ovog sranja s piraterijom. Ajde ako imas ti, ili znas nekog ko ima, da mi posudis samo da narezem platicu ako treba. Nisam radio u delphiu ima pola godine. Poludicu ![]() btw nije opstinsko no regionalno ![]() ![]() ![]() ![]() ![]() |
Autoru: | S [ 09 Mar 2005, 01:13 ] |
Tema posta: | |
Imam ja D4,5,6,7, 2005 |
Autoru: | che.guevara [ 09 Mar 2005, 16:33 ] |
Tema posta: | |
Ja imam sedmicu, orginal ![]() Aj ti S ako možeš, bio bih ti zahvalan ,da KS-u prebaciš delphi 2005 (ili kako ga još zovu delphi.net) a ja ću mu sutra donijeti delphi 7. Može ? Poz. |
Autoru: | [KS] [ 09 Mar 2005, 22:00 ] |
Tema posta: | |
Ovaj ljudi hvala vam ako napravim neki megahit napisacu da ste vi pomogli ![]() ![]() |
Autoru: | che.guevara [ 10 Mar 2005, 19:13 ] |
Tema posta: | |
[KS] je napisao: Ovaj ljudi hvala vam ako napravim neki megahit napisacu da ste vi pomogli
![]() ![]() nemoj da se hvališ, tata će da se naljuti ![]() |
Autoru: | [KS] [ 10 Mar 2005, 19:32 ] |
Tema posta: | ... |
Mah, nit ja dobih Delphi 7 nit dobih Delphi 2005. Toliko od megahita ![]() |
Autoru: | S [ 10 Mar 2005, 21:36 ] |
Tema posta: | |
KS: Oces da ostavim kod Blackhanda D7? 2005 je onaj sa borlandovog sajta al nije sad kod mene. To moze tamo iza ponedeljka. |
Autoru: | mangia [ 10 Mar 2005, 23:47 ] |
Tema posta: | |
jeste vi culi za privatne poruke? ima ispod svakog posta jedno dugme "pp" |
Stranica 1 od 2 | Sva vremena su u UTC [ DST ] |
Powered by phpBB® Forum Software © phpBB Group http://www.phpbb.com/ |