SBS AÇIKLANDI

T.C. Millî Eğitim Bakanlığı Ortaöğretime Geçiş Sistemi 2012 Yılı 8. Sınıf Seviye Belirleme Sınav Sonuçları ve Ortaöğretim Yerleştirme Puan Bilgileri   T.C. Kimlik Numaranız : Doğum Tarihiniz :     ©2012 T.C. MİLLÎ EĞİTİM BAKANLIĞI Tüm hakları saklıdır.

KPSS Soruları ve Cevapları açıklandı

SORU KİTAPÇIKLARI VE YANITLARINI GÖRMEK İÇİN TIKLAYINIZ....

Listbox Sıralama

Listbox ve buton ekleyerek,listbooxa girilen bilgileri butona basıldığında sıralayan programın kodu=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Ankara');

ListBox1.Items.Add('İstanbul');

ListBox1.Items.Add('İzmir');

ListBox1.Items.Add('Kırıkkale');

ListBox1.Items.Add('Muğla');

ListBox1.Items.Add('Samsun');

ListBox1.Items.Add('Diyarbakır');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Sorted:=TRUE;

end;

end.

   

Edit1 ve Edit2 arasındaki sayılar

2Edit,1button,1memo ekle,butona basıldığında edit1 ve edit2 arasındaki sayıları memoya yazdıran programın kodu=

Kodu;

procedure TForm1.Button1Click(Sender: TObject);

var a,b,I:word;

begin

a:=StrToInt(edit1.Text) ;

b:=StrToInt(edit2.Text) ;

Memo1.lines.Clear;

for i:=a to b do

memo1.Lines.add (IntToStr(i));

end;

end.

Listbox Toplam Eleman Sayısı

listbox,label,edit eklyerek,listbox’ta toplam eleman sayısını edite yazdıran kod=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Elif');

ListBox1.Items.Add('Kurtoğlu');

ListBox1.Items.Add('Bilgisayar Programcılığı');

ListBox1.Items.Add('Kırıkkale');

ListBox1.Items.Add('Meslek Yüksek Okulu');

ListBox1.Items.Add('2.sınıf');

ListBox1.Items.Add('Normal öğrenim');

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

edit1.Text:=IntToStr(ListBox1.Count);

end;

end.

Listbox seçilen elemanın sırası

listbox,label,edit eklyerek,listbox’ta seçilen elemanın sırasını edite yazdıran kod=

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('Elif');
ListBox1.Items.Add('Kurtoğlu');
ListBox1.Items.Add('Bilgisayar Programcılığı');
ListBox1.Items.Add('Kırıkkale');
ListBox1.Items.Add('Meslek Yüksek Okulu')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text:=IntToStr(ListBox1.ItemIndex+1);
end;
end.

Listbox edite ekle-seçili elemanı sil

Listbox,label,edit eklerek, listbox’ta seçilen elemanı edite yazdıran ve seçilen elemanı silen kod=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Elif');

ListBox1.Items.Add('Kurtoğlu');

ListBox1.Items.Add('Bilgisayar Programcılığı');

ListBox1.Items.Add('Kırıkkale');

ListBox1.Items.Add('Meslek Yüksek Okulu');

ListBox1.Items.Add('2.sınıf');

ListBox1.Items.Add('Normal öğrenim');

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

end.

Listbox Çoklu seçim (Listbox MultiSelect)

Listbox kutusu ekleyerek,içine Algoritma,Delphi,Matematik,TBİ,Girişimcilik,İletişim

Edebiyat bilgilerini ve hepsini seçmemize olanak sağlayan programın kodu=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Algoritma');

ListBox1.Items.Add('Delphi');

ListBox1.Items.Add('Matematik');

ListBox1.Items.Add('TBİ');

ListBox1.Items.Add('Girişimcilik');

ListBox1.Items.Add('İletişim');

ListBox1.Items.Add('Edebiyat');

ListBox1.MultiSelect := True;

end;

end.

           

Renk sürükle bırak

4tane label ekleyiniz,3labele renk veriniz,1labele sürükleyince değişen rengin kodu=

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);

begin

label4.Color:=(source as Tlabel).Color;

end;

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;

  State: TDragState; var Accept: Boolean);

begin

accept:=source is Tlabel;

end;

end.

Hangi bileşene tıklandı?

label,edit,Groupbox ve buton yerleştirerek,labele seç ismini veriniz,butona kapat ismini veriniz. Checkbox ve radiobutton ekleyiniz.

Kod;

procedure TForm1.Edit1DblClick(Sender: TObject);

begin

Edit1.Text := 'Edit bileşenine çift tıklandı ';

end;

procedure TForm1.Label1DblClick(Sender: TObject);

begin

Edit1.Text := 'Label bileşenine çift tıklandı ';

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

Edit1.Text := 'CheckBox1''e tıklandı ';

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

Edit1.Text := 'CheckBox2''e tıklandı ';

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Edit1.Text := 'RadioButton1 bileşenine tıklandı ';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Edit1.Text := 'RadioButton2 bileşenine tıklandı ';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text := 'Kapat düğmesine tıklandı ';

end;

end.

Memo kontrolü kaybettiğinde

Memo1 bileşeni kontrolü kaybettiğinde rengini mavi yapan kod=

procedure TForm1.Memo1Exit(Sender: TObject);

begin

memo1.Color:=clblue;

end;

end.

Edit kontrolü aldığında

Edit1 kontrolü aldığında rengini kırmızı yapan kod=

procedure TForm1.Edit1Enter(Sender: TObject);

begin

edit1.Color:=clred;

end;

end.

Delphi form rengi

Forma tıklayınca kırmızı,tıklamaya bitirince eski rengini alan kod=

var

Form1: TForm1;

FormColor: TColor;

procedure TForm1.FormCreate(Sender: TObject);

begin

KeyPreview := True;

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if Key = VK_F1 then

begin

FormColor := Form1.Color;

Form1.Color := clAqua;

end;

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if Key = VK_F1 then

Form1.Color := FormColor;

end;

Delphi Enter tuşu

Enter tuşuna basılıp basılmadığını gösteren kod=

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key = VK_RETURN then ShowMessage('enter tuşuna basıldı');

end;

end.

Delphi F1 tuşuna basılınca mesaj

Forma gelip F1 tuşuna basıldığında ‘merhaba’ yazdıran kod=

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key=VK_F1 then ShowMessage('merhaba');

end;

end.

Edit'e harf girilsin

Edit1 kutusuna sadece harflerin girilmesini sağlayan kod=

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if (key<'A') or (key>'Z') then key:=#0;

end;

end.

Adsense'de En çok kazandıran Kelimeler - Yabancı kelimeler

1. donate your car sacramento $45.74 2. illinois asbestos attorney $43.82 3. new york mesothelioma lawyers $43.59 4. tax attorney columbus ohio $43.36 5. phoenix dui attorney $43.13 6. dui attorney phoenix $43.13 7. tempe dui attorney $42.95 8. buy structured settlements $42.93 9. los angeles dwi lawyer $42.73 10. new york mesothelioma attorneys $42.43 11. claim fee no no uk win $42.40 12. criminal defense attorneys los angeles $42.39 13. dui lawyers phoenix $42.32 14. phoenix dui lawyers $42.32 15. phoenix dui lawyer $42.16 16. dui lawyer phoenix $42.16 17. denver data recovery $42.14 18. data recovery denver $42.14 19. vehicle donation san diego $41.90 20. data recovery hard drive raid $41.85 21. phoenix arizona dui lawyer $41.81 22. no win no fee accident $41.70 23. find insurance quotes $41.63 24. indiana car insurance quote $41.62 25. data raid recovery server $41.54 26. raid server data recovery $41.54 27. buy to let building insurance $40.99 28. building insurance buy to let $40.99 29. to let building insurance $40.93 30. lemon law attorneys california $40.86 31. california lemon law attorneys $40.86 32. sell structured insurance settlements $40.84 33. self employed secured loans $40.83 34. attorney dui florida south $40.83 35. austin texas dwi lawyer $40.67 36. phoenix dui $40.59 37. dui phoenix $40.59 38. ny car insurance quotes $40.54 39. car insurance in austin $40.38 40. fort worth dwi attorney $40.25 41. remortgage with bad credit $40.25 42. attorney dwi fort worth $40.25 43. car insurance quotes texas $40.19 44. texas car insurance quotes $40.16 45. inyo county sheriff $40.05 46. car donation orange county $39.98 47. orange county car donation $39.97 48. consolidation of school loans $39.95 49. remortage uk $39.87 50. des moines car insurance $39.84 51. auto insurance charlotte $39.80 52. raleigh auto insurance $39.78 53. dui attorney arizona $39.78 54. auto insurance raleigh $39.78 55. arizona dui attorney $39.78 56. cheap car insurance quotation $39.71 57. car cheap insurance quotation $39.71 58. donate a car los angeles $39.67 59. no win no fee claims $39.65 60. personal injury attorneys in los angeles $39.61 61. pennsylvania birth injury lawyer $39.58 62. no fee claims $39.46 63. consolidation school loans $39.46 64. school loans consolidation $39.46 65. school consolidation loans $39.46 66. auto insurance tucson $39.41 67. adverse credit remortgages $39.32 68. los angeles copper repipe $39.25 69. tax lawyers maryland $39.18 70. dallas dwi attorneys $39.15 71. irs tax lawyers $39.12 72. los angeles water damage $39.04 73. drug rehab center los angeles $39.02 74. vermont car insurance $39.00 75. car insurance vermont $39.00 76. san diego dwi lawyer $38.98 77. arizona home equity loans $38.92 78. home equity loans arizona $38.92 79. auto insurance tulsa $38.91 80. cheap life assurance uk $38.84 81. cab debt advice $38.82 82. water damage los angeles $38.76 83. time recording solutions $38.75 84. dui lawyer arizona $38.73 85. arizona dui lawyer $38.73 86. how to consolidate student loans $38.66 87. studen loan consolidation $38.64 88. car donation oakland $38.63 89. endowment policy sales $38.63 90. repipe los angeles $38.58 91. interest rates student loan consolidatio... $38.56 92. auto insurance columbus $38.56 93. student loan consolidation interest rate... $38.56 94. dui attorneys arizona $38.56 95. arizona dui attorneys $38.56 96. sell structured insurance settlement $38.47 97. conference call vonage $38.32 98. free automobile insurance quotes $38.28 99. vonage conference call $38.23 100. tax attorneys texas $38.22 alıntıdır

Edit sadece rakam

Edit1 kutusu ekleyerek sadece rakamların girilmesini sağlayan kod=

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if (key<'0') or (key>'9') then key:=#0;

end;

end.

Delphi Çarpma İşlemi (Multiplication Delphi Process)

2 Edit ekleyin,1 Button ekleyin, Butona tıklandığında edit1 ve edit2ye girilen sayıları ekrana mesaj olarak çarpımını gösteren kod=

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

 a:=strtoint(edit1.Text);

 b:=strtoint(edit2.Text);

 showmessage(inttostr(a*b));

end;

end.

Delphi Toplama İşlemi

2 Edit ekleyin,1 Button ekleyin, Butona tıklandığında edit1 ve edit2ye girilen sayıları ekrana mesaj olarak toplamını gösteren kod=

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

 a:=strtoint(edit1.Text);

 b:=strtoint(edit2.Text);

 showmessage(inttostr(a+b));

end;

end.

Edit Tab Tuşu

3 Edit ekleyip,1. Editten tab tuşuna basıldığında 2.Edite uğramadan 3.edite geçen kod=

procedure TForm1.Edit2Change(Sender: TObject);

begin

edit2.TabStop:=false;

end;

end.

Delphi Hint

1 Edit ekleyerek, Editin üzerine fare işaretcisi ile gelindiğinde “E-posta adresinizi yazınız’ mesajını ekranda gösteren kod=

procedure TForm1.Edit1Change(Sender: TObject);

begin

edit1.Hint:='E-posta adresinizi giriniz';

edit1.ShowHint:=true;

end;

end.

Edit pasif (edit the passive)

2 Edit ekleyerek,1.Editi aktif 2.Editi pasif yapan kod:

Edit1 kod;

procedure TForm1.Edit1Change(Sender: TObject);

begin

edit1.Enabled:=true;

end;

Edit2 kod;

procedure TForm1.Edit2Change(Sender: TObject);

begin

edit2.Enabled:=false;

end;
end.

Edit değeri değişince mesaj versin

1 Edit ekleyip,’Editin değeri değişti’ diye bir mesaj veren kod

procedure TForm1.Edit1Change(Sender: TObject);

begin

if Edit1.Modified then ShowMessage('Editin Değeri Değişti');

end;

end.

edit biçim değiştirme

Renk-boyut-font-font biçimi değiştirme

4 Edit ekleyip,1.Editin rengini,2.Editin boyutunu,3.Editin fontunu,4.Editini font biçimini değiştiren programın kodu:

Edit1 kodu;

procedure TForm1.Edit1Change(Sender: TObject);

begin

edit1.Font.Color:=clGreen;

end;

Edit2.kodu;

procedure TForm1.Edit2Change(Sender: TObject);

begin

edit2.Font.Size:=15;

end;

Edit3 kodu;

procedure TForm1.Edit3Change(Sender: TObject);

begin

edit3.Font.Name:='courier';

end;

Edit4 kodu;

procedure TForm1.Edit4Change(Sender: TObject);

begin

edit4.Font.Style:=[fsbold,fsitalic];

end;

Delphi Query İle Arama

Query İle delphide arama yapılmasını sağlayan kod(Query to search with the Delphi-Abfrage mit der Delphi-Suche-Delphiで検索するクエリ-Query di ricerca con la Delphi)


Query1.Sql.Clear; 
Query1.Sql.Add('select * from Veritabanim where Tablom nerede= :aranacak'); 
Query1.ParamByName('aranacak').AsString:=edit1.text ;
Query1.open;

Form içinde form açma

Form2'yi form 1 içinde göstermek istiyorsun, o zaman form1 içine bir panel at, panelin DockSite özelliğini true yap. Sonra da ManualDock metodunu kullanarak Form2'yi panele gömebilirsin.
 Kod:
 form2.ManualDock(panel1);
 form2.Visible := true;

Veri Türleri

Sütunlar çeşitli veri türlerine bağlı olarak veri saklarlar. Örneğin sayısal bir değer olabileceği gibi harflerden oluşan bir değere de sahip olabilirler. İşte MySQL'in veri türleri de bir tablo oluştururken ya da daha sonradan tablonun sütun türünü değiştirirken kullandığımız kodlardır.

Genel olarak 3 veri türünden bahsedebiliriz:

- Integer (Sayısal)
- Text (Alfasayısal)
- Date (Tarih)

Sayısal Değer İçerenler (INTEGER)

Bunlar sadece rakamdan oluşan sayısal değerler barındırabilirler. Hepsi UNSIGNED ve AUTO_INCREMENT özelliği alabilirler. Bunları tanıyalım:

TINYINT, 0 ile 255 arasında sayı barındırabilirler. Eğer UNSIGNED özelliği belirtilmişse -128 ile 127 arasında değerleri depolarlar.

SMALLINT, 0 ile 65535 arasında sayı değerlerini barındırabilirler. Eğer UNSIGNED belirtilmişse -32768 ile 32767 arasındaki değerleri alırlar.

MEDIUMINT, 0 ile 16777215 arasındaki sayı değerlerini barındırabilirler. Eğer UNSIGNED belirtilmişse -8388608 ile 8388607 arasındaki değerleri alırlar.

INT, 0 ile 4294967295 arasındaki sayıları depolarlar. UNSIGNED kullanılmışsa -2147683648 ile 2147683647 arasındaki değerler alt ve üst limitleri olur.

BIGINT, -9223372036854775808 ile 9223372036854775807 arasındaki sayıları depolayabilirler.

FLOAT, pozitif ondalık sayıları depolar.
DOUBLE, negatif ve pozitif ondalık sayıları depolar.
DECIMAL, 10'luk değerleri depolar.

İhtiyaca göre sayısal değer içerek sütunlarda bu veri türleri kullanılabilir.

Alfasayısal (Sözel) Veriler (VARCHAR, TEXT)

Barındıracağı harf/veri uzunluğuna göre belirlenirler. Bunlar karakterleri depolarlar. Aşağıda parantez ile belirtilen yere bir sayı gelir. Örneğin VARCHAR(10) dersek bu 10 karakter barındırabileceğini anlatır, (abcdefghij) gibi..

CHAR(x), x kadar karakter barındırır (x en fazla 255 olabilir).
VARCHAR(x), x kadar karakter barındırır (x en fazla 255 olabilir).

TINYTEXT, kısa yazılar.
MEDIUMTEXT, orta uzunlukta yazılar.
TEXT, uzun yazılar.
LONGTEXT, çok uzun yazılar.

Tarih İçeren Veriler (DATE)

Format hiçbir zaman değişmemekle birlikte veriler tıpkı alfasayısal veriymiş gibi işlenir ve ancak belli fonksiyonlarla sorgulanabilir.

DATE, YYYY-AA-GG formatıyla tarihi depolar.

TIME, hh:mm:ss formatıysa saati depolar.

DATETIME gün önce başlamak üzere tarih ve saati depolar.

TIMESTAMP sayısal bir değer olarak saati işler.

YEAR yılı depolar.

KPSS 2011/1 önlisans puanları

PUANLAR İÇİN TIKLA

KPSS 2012

2012 yılında gerçekleştirilecek olan KPSS'nin başvuru süresi 18.06.2012'de başlıyor ve 11.07.2012 tarihinde sona eriyor.
 SINAV TARİHİ=2012 yılında gerçekleştirilecek 2012-KPSS Ortaöğretim/Önlisans programı tek oturumda ve 23.09.2012 tarihinde gerçekleşecek.
  SINAV ÜCRETİ=35 TL