|
iLGiNÇ ZEKA TESTİ
Aşağıdaki soruları tam 1 dk. içinde yanıtlamaya çalış. Bir kağıt kalem
al ve yanıtlarını not et ve her soruya bir defa bakmaya çalış. Oldukça
ilginç bir zeka testi... :))
DEĞERLENDİRME:
|
|
|
demirci mesut@meteryus.com
yunus akbulut yunusov@mynet.com Bir üyelik sisteminin oluşturulması için bir veritabanının varlığından söz etmek gerekir. Bu veritabanında membership adında bir tablo olmalı. Bu tablonun alanları ise, userid, username,password, IP, Email, freq gibi alanlardan olmalı. Bu alanlardan en önemlileri username ve password alanlarıdır ve diğerleri isteğe göre değiştirilebilir. Bu tablonun primary key'si userid alanıdır ve bu alan diğer tablolarla ilişki kurmak için çok ideal bir alandır. Bu alanın en büyük özelliği eşsizdir, yani tablodaki her kayıt için bu alanın değeri farklıdır. MS-SQL Server'da, bu tabloyu oluştururken dikkat edilmesi gereken, userid alanının otomatik olarak değişmesidir. Userid alanının tipi integer olmalıdır. Username, password,IP ve email gibi alanlar varchar(N) tipinde olmalıdır. Buradaki N verinin boyutunu gösterir. Freq alanı uyenin ne kadar sıklıkta geldigini göstermek için kullanılabilecek olan bir alandır ve tipi de integer olmalıdır. Üye kaydedebilmek için ise, bir form taşıyan bir html dosyasına ihtiyaç var. Nokta nokta olan yerlere isteğe göre alanlar eklenebilir. Burada önemli olan kısım ise, eklediğimiz alanların veritabanında da yer alıyor olması gerektiğidir. Bu form "BECOME A MEMBER" butonuna tıklandığında, "membership.asp" adlı dosyaya bilgi gönderecektir. Bu dosya server'da bulunması gereken bir dosyadır. Bu dosyanın içeriği ise, <% dim sqlstring,connectionstring,username,password,email,.............. Connectionstring="PROVIDER=SQLOLEDB;DATABASE=MEMBERSHIP;USER ID=SA;PASSWORD=000019" SET Connection=server.createobject("ADODB.Connection") connection.open connectionstring username=Trim(Request.Form("username")) password=Trim(Request.Form("password")) email=Trim(Request.Form("email")) ...................... .................... sqlstring="insert into membership (username,password,email) values ('"&usename&"',''"&password&"',''"&email&"')" SET RecordSet=Server.CreateObject("ADODB.RecordSet") RecordSet.Open sqlstring,connection,adopenstatic,adlockoptimistic,adcmdtext SET RecordSet=NOTHING SET Connection=NOTHING %> Buradaki connectionstring değişkeninin içerdiği bilgi, veri tabanına bağlanmak için gerekli olan bağlantı ifadesidir.Database adı olarak, veri tabanına verdiğimiz isim kullanılmalıdır. User Id SQL Server'a bağlanmak için kullanılan user id ve password de SQL Server'a bağlanmak için gerekli olan şifredir. Daha sonra ki satırda yapılan ise, ADO nesnesini kullanarak bundan bir örnek yaratmak ve veri tabanı ile bağlantının sağlanılmaya çalışılmasıdır. Diğer kullanılan nesne ise ADO nesnesine ait olan RecordSet nesnesidir. Böylece üye tabloya işlenmiş oldu. Böyle bir üyelik sistemi oluşturmak üç ayaklı bir olaydır. İlk ayağı sunucuya gönderilecek olan istemci verisinin yani formun hazırlanması, diğer ayak veri tabanı tasarımı ve son ayak ta, veri tabanı ile istemcinin konuşmasını sağlayan ASP kodudur. Tabi bu kod, sadece üyeyi veri tabanına yazmaktadır. Dikkat edilmesi gereken konu, üye isminin veya şifrenin bir başkası tarafından kullanılıyor olup olmadığıdır. Yani, tabloya bir üyeyi kaydetmeden evvel bunun da kontrolünün yapılması gerekir. Bu bir başka yazıda olacak. uses crt; var t,s:array[1..6]of string; tus:char; padi,kadi:string; i:integer; procedure yeni; begin clrscr;textcolor(white); textbackground(9);writeln;writeln;writeln; gotoxy(30,4);writeln('YENI KAYIT'); writeln;writeln;gotoxy(5,7); writeln('yeni kullanici adi ---> '); writeln;writeln;gotoxy(5,10); writeln('yeni sifre ---> '); writeln;writeln;writeln;textcolor(black); writeln(' sifre 6 karakterden olusmalidir ! ! '); gotoxy(29,7);readln(kadi);if kadi='' then exit; i:=1;gotoxy(28,10);repeat gotoxy((28+i),10); tus:=readkey;if tus='a' then begin s[i]:='a';write('*');i:=i+1; if i=7 then exit;end;if tus='b' then begin s[i]:='b';write('*');i:=i+1; if i=7 then exit;end;if tus='c' then begin s[i]:='c';write('*');i:=i+1; if i=7 then exit;end;if tus='d' then begin s[i]:='d';write('*');i:=i+1; if i=7 then exit;end;if tus='e' then begin s[i]:='e';write('*');i:=i+1; if i=7 then exit;end;if tus='f' then begin s[i]:='f';write('*');i:=i+1; if i=7 then exit;end;if tus='g' then begin s[i]:='g';write('*');i:=i+1; if i=7 then exit;end;if tus='i' then begin s[i]:='i';write('*');i:=i+1; if i=7 then exit;end;if tus='k' then begin s[i]:='k';write('*');i:=i+1; if i=7 then exit;end;if tus='l' then begin s[i]:='l';write('*');i:=i+1; if i=7 then exit;end;if tus='m' then begin s[i]:='m';write('*');i:=i+1; if i=7 then exit;end;if tus='n' then begin s[i]:='n';write('*');i:=i+1; if i=7 then exit;end;if tus='o' then begin s[i]:='o';write('*');i:=i+1; if i=7 then exit;end;if tus='p' then begin s[i]:='p';write('*');i:=i+1; if i=7 then exit;end;if tus='r' then begin s[i]:='r';write('*');i:=i+1; if i=7 then exit;end;if tus='s' then begin s[i]:='s';write('*');i:=i+1; if i=7 then exit;end;if tus='t' then begin s[i]:='t';write('*');i:=i+1; if i=7 then exit;end;if tus='u' then begin s[i]:='u';write('*');i:=i+1; if i=7 then exit;end;if tus='v' then begin s[i]:='v';write('*');i:=i+1; if i=7 then exit;end;if tus='y' then begin s[i]:='y';write('*');i:=i+1; if i=7 then exit;end;if tus='z' then begin s[i]:='z';write('*');i:=i+1; if i=7 then exit;end;until tus=#27; end;procedure d;begin clrscr; repeat textcolor(green);textbackground(black); write(random(9));until 1=5 end; procedure kontrol;begin clrscr; textcolor(white);textbackground(9); writeln;writeln;writeln;gotoxy(30,4); writeln('SIFRE VE KULLANICI ADI GIRISI'); writeln;writeln;gotoxy(5,7);writeln('kullanici adi ---> '); writeln;writeln;gotoxy(5,10);writeln('sifre ---> '); writeln;writeln;writeln;textcolor(black); gotoxy(24,7);readln(padi);if padi='' then exit; i:=1;gotoxy(24,10);repeat gotoxy((23+i),10); tus:=readkey;if tus='a' then begin t[i]:='a';write('*');i:=i+1;if i=7 then d;end; if tus='b' then begin t[i]:='b';write('*');i:=i+1; if i=7 then d;end;if tus='c' then begin t[i]:='c';write('*');i:=i+1;if i=7 then d;end; if tus='d' then begin t[i]:='d';write('*');i:=i+1; if i=7 then d;end;if tus='e' then begin t[i]:='e';write('*');i:=i+1;if i=7 then d;end; if tus='f' then begin t[i]:='f';write('*');i:=i+1; if i=7 then d;end;if tus='g' then begin t[i]:='g';write('*');i:=i+1;if i=7 then d;end; if tus='i' then begin t[i]:='i';write('*');i:=i+1; if i=7 then d;end;if tus='k' then begin t[i]:='k';write('*');i:=i+1; if i=7 then d;end;if tus='l' then begin t[i]:='l';write('*');i:=i+1;if i=7 then d;end; if tus='m' then begin t[i]:='m';write('*');i:=i+1; if i=7 then d;end;if tus='n' then begin t[i]:='n';write('*');i:=i+1;if i=7 then d;end; if tus='o' then begin t[i]:='o';write('*');i:=i+1; if i=7 then d;end;if tus='p' then begin t[i]:='p';write('*');i:=i+1; if i=7 then d;end;if tus='r' then begin t[i]:='r';write('*');i:=i+1; if i=7 then d;end;if tus='s' then begin t[i]:='s';write('*');i:=i+1;if i=7 then d;end; if tus='t' then begin t[i]:='t';write('*');i:=i+1; if i=7 then d;end;if tus='u' then begin t[i]:='u';write('*');i:=i+1;if i=7 then d;end; if tus='v' then begin t[i]:='v';write('*');i:=i+1; if i=7 then d;end;if tus='y' then begin t[i]:='y';write('*');i:=i+1;if i=7 then d;end; if tus='z' then begin t[i]:='z';write('*');i:=i+1; if i=7 then d;end; until tus=#27; end;begin clrscr; repeat clrscr;writeln;writeln;writeln;writeln;writeln; textcolor(red);textbackground(9);gotoxy(17,6); writeln('yesil renkli karakterler ile programi yonetin'); writeln;textcolor(white);gotoxy(30,8);writeln('ILGILERI YENILEME'); writeln;writeln;writeln;gotoxy(32,12);writeln('ROGRAM GIRISI'); writeln;writeln;writeln;gotoxy(20,16);textcolor(red); writeln('! ! ! cikis icin tuslayn ! ! !'); gotoxy(37,16);textcolor(green);write('< ESC >');gotoxy(29,8); textcolor(green);write('B');gotoxy(31,12);write('P');gotoxy(1,1); tus:=readkey;if tus='b' then yeni;if tus='p' then kontrol; if tus='w' then begin clrscr;for i:=1 to 6 do write(s[i]); readln; end; until tus=#27; end. nazım demİr demirnazim@hotmail.com g ü r k a n gurkan27@msn.com Statusbarda belirtilen süre sonunda, sayfa otomatik olarak başka bir sayfaya yönlenecektir... burhan karadag karadag.1453@hotmail.de
CeXzA_____HacK | ||||||||||||
|
Hakkımda KategorilerArkadaşlarım• helinnnnnn |
|||||||||||
They are coming to take me away ha ha
Eğlenceli bir Web Sayfası Yapma Olayı. Web Masterler Sitelerine Yerleştirebilirler. Basit renkli ve hazır web sayfası Yapmak isteyenler için ideal.
ADRESONLİNE
http://www.adresonline.gen.tr.tc
İnternet Kaynakları
Web Araçları
Katkılarından Dolayı HazırKod.com 'a Teşekkürler.
mouse over için bir kaç tane istiyorsanız buton hazırlayın.. bu butonların açıklaması olan metinleri bir movie clip açıp her frame e bir açıklama geelecek şekilde düzenleyin. her frame e stop actions u atayalım. ilk frame boş kalsın. movie clip e aciklama diye isim verin. properties üzerinden bu movie clip e name atayalım.. aciklama denebilir.. butonlara atanacak actions : on (rollOver) { tellTarget ("acik") { gotoAndStop(7); } } on (rollOut) { tellTarget ("acik") { gotoAndStop(1); } } burada rollOver ile gidilecek frame hadefleniyor. en önemli nokta gotoAndStop(7) satırı. buraya bu buton için çıkacak frame numarası yazılacak.. Arka plan rengi