Adil YILDIZ

Not: Aşağıdaki öğrenciler sınavı girmiş ancak kayıtları ders sisteminde bulunamamıştır.
Durumlarını kesinleştirmek için öğrenci işlerine uğramaları menfaatlerinedir.

187663 - Mustafa ALÄ°MAN : 25
187705 - Kerem ÖZTÜRK : 20

Not: Aşağıdaki bazılarının öğrencilerin kayıtları 1. öğretimde olup notlarının sisteme girilmeme durumu kendi ellerinde olup 1. öğretimdeki dersin sorumlusu ile durumlarını görüşmeleri ve durumlarını bana bildirmeleri gerekmektedir. 2. öğretime kayılı olup derse kayıtlı olmayanların öğrenci işlerine uğrayıp durumlarını bildirmeleri ve sonucu bana iletmeleri gerekmektedir.

187324 - Tuğba Sinem HOŞGÖR : 55
204683 - Seyit KABA : 75

Yanında “G” yazan öğrenciler sınava girmemiÅŸ olup 1. öğretim ile aynı sınava girmiÅŸ olabilirler. Durumları bu ÅŸekilde olan öğrencilerin beni yukarıda bulunan ajanda sayfasına tıklayıp nerede bulacaklarını öğrenip, bana danışmaları gerekmektedir.

Not: Aşağıdaki bazılarının öğrencilerin kayıtları 1. öğretimde olup notlarının sisteme girilmeme durumu kendi ellerinde olup 1. öğretimdeki dersin sorumlusu ile durumlarını görüşmeleri ve durumlarını bana bildirmeleri gerekmektedir. 2. öğretime kayılı olup derse kayıtlı olmayanların öğrenci işlerine uğrayıp durumlarını bildirmeleri ve sonucu bana iletmeleri gerekmektedir.

204403 - Ersin DURAN : 50
204407 - Gürsoy GÜNDÜZ : 55
204434 - Saldıray ALTINTAŞ : 65
204441 - Murat MÄ°DÄ°LLÄ° : 45
204446 - Emre ORAL : 40
204454 - Ä°lyas ALTIKAYA : 55
208749 - Samet ÇETİN : 50
208752 - Murat DEMÄ°R : 40
208753 - Fatih DELÄ°HASAN : 55

Not: Aşağıdaki öğrenciler sınavı girmiş ancak kayıtları ders sisteminde bulunamamıştır.
Durumlarını kesinleştirmek için öğrenci işlerine uğramaları menfaatlerinedir.

171490 - Mesut KARALÄ° : 30
194173 - Melek CÄ°N : 52

07.04.2008

08:30:

İklimlendirme ve Soğutma 1 II.Ö - BilgisayarII (İkl. Sın.)

18:00:

Bilgisayar Programcılığı 1 II.Ö - Bilgisayar Donanımı (C23 - C24)

Otomotiv 1 II.Ö - Bilgisayar Kullanımı (C12 - C14)

09.04.2008

14:00:

Bilgisayar Programcılığı 2 I.Ö - Internet Programcılığı 2 (C11 - C12)

16:00:

Bilgisayar Programcılığı 2 I.Ö - Araştırma Teknikleri ve Seminer (C11 - C12)

19:00:

Bilgisayar Programcılığı 2 II.Ö - Internet Programcılığı 2 (B11 - B12)

20:00:

Bilgisayar Programcılığı 2 II.Ö - Araştırma Teknikleri ve Seminer (B11 - B12)

11.04.2008

19:00:

Bilgisayar Programcılığı 2 II.Ö - Görsel Programlama (A1 Lab - A2 Lab)

Proje dosyasını aşağıdaki adresten indirebilirsiniz.

Hedef Vurma

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants,
  Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    Panel1: TPanel;
    Button1: TButton;
    Timer1: TTimer;
    Panel2: TPanel;
    Button2: TButton;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure hedefbelirle();
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  puan: integer;
 
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
hedefbelirle();
end;
 
procedure TForm1.hedefbelirle();
begin
panel1.Left:=Random(360)+40;
panel1.Top:=Random(360)+40;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
hedefbelirle();
Timer1.Enabled:=true;
puan:=0;
Label1.Caption:='0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if((TrackBar1.Position>Panel1.Left) and
(TrackBar1.Position<Panel1.Left+Panel1.Width) and
(TrackBar2.Position>Panel1.Top) and
(TrackBar2.Position<Panel1.Top+Panel1.Height))then
begin
ShowMessage('Vurdun');
puan:=puan+10;
label1.Caption:=inttostr(puan);
end
else
begin
ShowMessage('Vuramadın');
puan:=puan-5;
label1.Caption:=inttostr(puan);
end;
 
hedefbelirle();
end;
 
end.