Öğrenci takip programı & Otopark programı

3333

Emektar
27 Ara 2005
3,212
45
Little Town.
Öğrenci takip programı

" denemedim çalışmama bilir!: ) "

KOd:

uses crt;
type
kayit=record
isim:string;
soyad:string;
sinif:string;
no:string;
y1,y2,y3:integer;
evno:longint;
f:char;
end;
var
dosya:file of kayit;
kay:kayit;
tus,t:char;
i,kod:integer;
Procedure kayityap;
begin
assign(dosya,'ogr.dat');
{$i-} Reset (dosya);kod:=ioresult;{$i+}
if kod<>0 then rewrite(dosya);
repeat
clrscr;
gotoxy(15,5); write('Ogrencinin;');
gotoxy(15,7); write('Adi Girin...'); Readln(kay.isim);
if kay.isim='' then
begin
close(dosya);exit;end;
gotoxy(15,9);write('Soyadi Girin...');readln(kay.soyad);
gotoxy(15,11);write('Sinifi Girin...'); readln(kay.sinif);
gotoxy(15,13);write('Numarasi Girin... ');readln(kay.no);
gotoxy(15,15);write('Ev Telefonu Girin...');readln(kay.evno);
gotoxy(15,17);write('1.Yazili Notu Girin...');readln(kay.y1);
gotoxy(15,19);write('2.Yazili Notu Girin...');readln(kay.y2);
gotoxy(15,21);write('3.Yazili Notu Girin...');readln(kay.y3);
gotoxy(16,23);write('Bilgiler Dosyaya yazilsin mi? [E / H ]');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
begin
kay.f:='*';
seek(dosya,filesize(dosya));
write(dosya,kay);
end;
until 1=2;
end;
Procedure listeleme;
var
s:integer;
begin
assign(dosya,'ogr.dat');
{$i-} reset (dosya); i:=ioresult; {$i+}
if i<>0 then
begin
gotoxy(33,40); writeln('... Kayit yok ...');
tus:=readkey; halt;
end;
clrscr;
gotoxy(3,3);
writeln(' KAYITLI OGRENCILERIN LISTESI');
writeln(' ****************************');
s:=0;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i); read(dosya,kay);
if kay.f='*' then
begin
s:=s+7;
writeln;
writeln('* Adi :',kay.isim);
writeln('* Soyadi :',kay.soyad);
writeln('* Sinifi :',kay.sinif);
writeln('* Numarasi :',kay.no);
end;
if s>18 then
begin
gotoxy(25,60);
write('... Diger kayitlar i‡in bir tusa bas ...');
tus:=readkey;
s:=0;
clrscr;
end;
end;
gotoxy(25,40);
write('... Listelenecek Kayitlar Bitti ...');
tus:=readkey;
close(dosya);
end;
procedure arama;
var
ara:string;
begin
assign(dosya,'ogr.dat');
{$i-} reset(dosya); kod:=ioresult; {$i+}
if kod<>0 then
begin
gotoxy(33,40); writeln('... kayit yok ...');
tus:=readkey; exit;
end;
repeat
clrscr;
gotoxy(22,4); write('Aradiginiz isim...:'); readln(ara);
if ara='' then
begin
close(dosya); exit;
end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i); read(dosya,kay);
if (kay.f='*') and (kay.isim=ara) then
begin
clrscr;
gotoxy(15,7); write('Adi...:',kay.isim);
gotoxy(15,9); write('Soyadi...:',kay.soyad);
gotoxy(15,11); write('Sinifi...:',kay.sinif);
gotoxy(15,13); write('Numarasi...:',kay.no);
gotoxy(15,15); write('Ev Numarasi...:',kay.evno);
gotoxy(15,17); write('1.Yazili...:',kay.y1);
gotoxy(15,19); write('2.Yazili...:',kay.y2);
gotoxy(15,21); write('3.Yazili...:',kay.y3);
gotoxy(25,23); write('Aradiginiz Kayit Bu Mu? [E/H]...:');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
begin
close(dosya); exit;
end;
end;
end;
writeln;
gotoxy(15,25);
write('Aradiginiz Kayit Yok. Devam etmek i‡in bir tusa bas');
tus:=readkey;
until 1=2;
end;
procedure duzeltme;
var
ara:string;
begin
assign(dosya,'ogr.dat');
{$i-} reset (dosya); kod:=ioresult; {$i+}
if kod<>0 then
begin
gotoxy(33,40); write('... Kayit yok ...');
tus:=readkey; exit;
end;
clrscr;
gotoxy(15,4); write('D?zeltilecek isim...:'); readln(ara);
if ara='' then
begin
close(dosya); exit;
end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i); read(dosya,kay);
if (ara=kay.isim) and (kay.f='*') then
begin
clrscr;
gotoxy(15,7); write('Adi...:',kay.isim);
gotoxy(15,9); write('Soyadi...:',kay.soyad);
gotoxy(15,11); write('Sinifi...:',kay.sinif);
gotoxy(15,13); write('Numarasi...:',kay.no);
gotoxy(15,15); write('Ev Numarasi...:',kay.evno);
gotoxy(15,17); write('1.Yazili...:',kay.y1);
gotoxy(15,19); write('2.Yazili...:',kay.y2);
gotoxy(15,21); write('3.Yazili...:',kay.y3);
gotoxy(20,23); write('D?zeltilecek Kayit Bu Mu? [E/H]...:');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
repeat
clrscr;
gotoxy(15,7); write('1) Adi...:',kay.isim);
gotoxy(15,9); write('2) Soyadi...:',kay.soyad);
gotoxy(15,11); write('3) Sinifi...:',kay.sinif);
gotoxy(15,13); write('4) Numarasi...:',kay.no);
gotoxy(15,15); write('5) Ev Numarasi...:',kay.evno);
gotoxy(15,17); write('6) 1.Yazili...:',kay.y1);
gotoxy(15,19); write('7) 2.Yazili...:',kay.y2);
gotoxy(15,21); write('8) 3.Yazili...:',kay.y3);
gotoxy(15,23); write('9) Islem Sonu');
gotoxy(20,25); write('Se‡iminiz (1 . . 9) ...:');
repeat
tus:=readkey;
until tus in ['1'..'9'];
case tus of
'1':begin
gotoxy(15,30);
write('Adi...:'); readln(kay.isim);
end;
'2':begin
gotoxy(15,30);
write('Soyadi...:'); readln(kay.soyad);
end;
'3':begin
gotoxy(15,30);
write('Sinifi...:'); readln(kay.sinif);
end;
'4':begin
gotoxy(15,30);
write('Numarasi...:'); readln(kay.no);
end;
'5':begin
gotoxy(15,30);
write('Ev Numarasi...:'); readln(kay.evno);
end;
'6':begin
gotoxy(15,30);
write('1.Yazili...:'); readln(kay.y1);
end;
'7':begin
gotoxy(15,30);
write('2.Yazili...:'); readln(kay.y2);
end;
'8':begin
gotoxy(15,30);
write('3.Yazili...:'); readln(kay.y3);
end;
'9':begin
seek(dosya,i);
write(dosya,kay);
gotoxy(30,28); write('... Islem Tamamlandi ...');
close (dosya);
tus:=readkey; exit;
end;
#27:exit;
end;
until 1=2;
end;
end;
gotoxy(33,40); write('... Kayit Yok ...');
close(dosya);
tus:=readkey;
end;
procedure silme;
var
ara:string;
begin
assign(dosya,'ogr.dat');
{$i-} reset(dosya); kod:=ioresult; {$i+}
if kod<>0 then
begin
gotoxy(33,40); writeln('... kayit yok ...');
tus:=readkey;
exit;
end;
clrscr;
gotoxy(15,4); write('Silinecek isim...:'); readln(ara);
if ara='' then
begin
close(dosya); exit;
end;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (ara=kay.isim) and (kay.f='*') then
begin
clrscr;
gotoxy(15,7); write('Adi...:',kay.isim);
gotoxy(15,9); write('Soyadi...:',kay.soyad);
gotoxy(15,11); write('Sinifi...:',kay.sinif);
gotoxy(15,13); write('Numarasi...:',kay.no);
gotoxy(15,15); write('Ev Numarasi...:',kay.evno);
gotoxy(15,17); write('1.Yazili...:',kay.y1);
gotoxy(15,19); write('2.Yazili...:',kay.y2);
gotoxy(15,21); write('3.Yazili...:',kay.y3);
gotoxy(25,23); write('Silinecek Kayit Bu Mu? [E/H]...:');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
begin
kay.f:='s';
seek(dosya,i); write(dosya,kay);
gotoxy(33,40); write('... Kayit Silindi ...');
close(dosya);
tus:=readkey;
exit;
end;
end;
end;
gotoxy(33,40); write('... kayit yok ...');
close(dosya);
tus:=readkey;
end;
procedure menu;
begin
repeat
clrscr;
writeln(''); writeln(''); writeln(''); writeln('');
writeln(''); writeln(''); writeln(''); writeln('');
writeln(''); writeln(''); writeln(''); writeln('');
writeln(''); writeln(''); writeln(''); writeln('');
textcolor(9);
writeln(' OGRENCI KAYIT PROGRAMI');
writeln('');writeln(''); writeln('');
writeln(' ************************************************** *');
writeln(' * *********************************************** *');
writeln(' * * * *');
writeln(' * * ****** MENU ****** * *');
writeln(' * * 1- KAYIT GIRISI * *');
writeln(' * * 2- KAYIT LISTELEME * *');
writeln(' * * 3- KAYIT ARAMA * *');
writeln(' * * 4- KAYIT DUZELTME * *');
writeln(' * * 5- KAYIT SILME * *');
writeln(' * * 6- CIKIS=ESC * *');
writeln(' * * * *');
writeln(' * *********************************************** *');
writeln(' ************************************************** *');
textcolor(2); gotoxy(100,100);
writeln('');
writeln('');
writeln('');
writeln('');
write(' Se‡iminiz...:');
textcolor(15); gotoxy(100,100);
repeat
tus:=readkey;
until tus in ['1'..'6',#27];
if tus<>#27 then
case tus of
'1':kayityap;
'2':listeleme;
'3':arama;
'4':duzeltme;
'5':silme;
'6':exit;
end;
until tus=#27;
end;
begin
menu;
end.

__________________________________________________ ________


Otopark programı

" Otopark Programı tam ne işe yaradığını bilmiyorum ama işinize yarıya bilir : ))"

kod :


uses crt;
var
sec,sec2,ts:char;
arpl,arre,ari,armo,arma:array[1..20]of string;
x,i:longint;
aranan,silinen,duz:string;
k,l,e,h,s:real;
begin textcolor(black); textbackground(red);
repeat
clrscr;
gotoxy(36,7);writeln('MENš');
gotoxy(30,8);writeln('_________________');
gotoxy(30,10);writeln('[1]Ara‡ kaydi girisi');
gotoxy(30,12);writeln('[2]Ara‡ kaydi listesi');
gotoxy(30,14);writeln('[3]Ara‡ kaydi arama');
gotoxy(30,16);writeln('[4]Ara‡ kaydi silme');
gotoxy(30,18);writeln('[5]Ara‡ kaydi d�zeltme');
gotoxy(30,20);writeln('[ESC]€ikis');
x:=3;
repeat
sec:=readkey;
until sec in['1'..'5',#27];
if sec='4' then
begin
clrscr;
repeat

write('Silmek istediginiz Aracin Sahibinin ismini girin:');readln(silinen);
readln;
for i:=1 to 15 do
begin
if silinen=ari then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');
gotoxy(1,10);write(ari,'-');
gotoxy(16,10);write(arma,'-');
gotoxy(31,10);write(armo,'-');
gotoxy(46,10);write(arre,'-');
gotoxy(61,10);writeln(arpl,'-');
readln;
clrscr;
ari:=' ';
arma:=' ';
armo:=' ';
arre:=' ';
arpl:=' ';
k:=1;
end;
end;

if k=0 then writeln('Aranan Kayit bulunamadi.');
write('Baska Kayit Silecekmisiz E/H');
ts:=readkey;
clrscr;
until ts='h';
end;

if sec='5' then
begin
clrscr;
repeat

write('D�zeltmek istediginiz Aracin Sahibinin ismini girin:');readln(duz);
readln;
if duz<>'' then begin
for i:=1 to 15 do
begin
if duz=ari then
begin
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');
gotoxy(1,10);write(ari,'-');
gotoxy(16,10);write(arma,'-');
gotoxy(31,10);write(armo,'-');
gotoxy(46,10);write(arre,'-');
gotoxy(61,10);writeln(arpl,'-');
ari:=' '; write('yeni ara‡ sahibinin ismi:'); readln(ari);
arma:=' '; write('yeni ara‡ markasi:'); readln(arma);
armo:=' '; write('yeni ara‡ Modeli:'); readln(armo);
arre:=' '; write('yeni ara‡ Rengi:'); readln(arre);
arpl:=' '; write('yeni ara‡ Plakasi:'); readln(arpl);
k:=1;
end;
end;

end;
if k=0 then writeln('Aranan Kayit bulunamadi.');
readln;
write('Baska Kayit D�zeltecekmisiniz E/H');
ts:=readkey;

until ts='h';
end;


if sec='1' then
begin
clrscr;
repeat
i:=i+1;
x:=0;
write('Ara‡ Sahibinin ismini girin:');readln(ari);
write('Ara‡ Markasi girin:');readln(arma);
write('Ara‡ Modeli girin:');readln(armo);
write('Ara‡ Rengi girin:');readln(arre);
write('Aracin Plakasini girin:');readln(arpl);
write('Baska Kayit Girilecekmi E/H');ts:=readkey;
if ts='e' then
x:=1;
if ts='h' then
x:=0;
until x=0;

end;




if sec='2' then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);write('-----------------------------------------------------------------------------');
for i:=1 to 15 do
begin
gotoxy(1,10+i);write(ari,'-');
gotoxy(16,10+i);write(arma,'-');
gotoxy(31,10+i);write(armo,'-');
gotoxy(46,10+i);write(arre,'-');
gotoxy(61,10+i);write(arpl,'-');
end;
readln;
end;


if sec='3' then
begin
clrscr;
k:=0;
repeat
aranan:=' ';
gotoxy(32,7);writeln('ARAMA MENšSš');
gotoxy(30,8);writeln('_________________');
gotoxy(30,10);writeln('[1]isme G”re Arama');
gotoxy(30,12);writeln('[2]Plakaya G”re Arama');
writeln('-----------------------------------------------------------------------------');
ts:=readkey;
if ts='1' then
begin
write('Aramak istediginiz Kisinin ismini girin:');readln(aranan);
for i:=1 to 15 do
begin
if aranan=ari then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');

gotoxy(1,10+i);write(ari,'-');
gotoxy(16,10+i);write(arma,'-');
gotoxy(31,10+i);write(armo,'-');
gotoxy(46,10+i);write(arre,'-');
gotoxy(61,10+i);writeln(arpl,'-');
k:=1;
end;
end;
if k=0 then writeln('Aranan kayit bulunamadi.');
readln;
clrscr;
end;
if ts='2' then
begin
write('Aramak istediginiz Aracin Plakasini girin:');readln(aranan);
for i:=1 to 15 do
begin
if aranan=arpl then
begin
clrscr;
gotoxy(1,8);write('Arac Sahibi');
gotoxy(16,8);write('Arac markasi');
gotoxy(31,8);write('Arac modeli');
gotoxy(46,8);write('Arac rengi');
gotoxy(61,8);write('Arac Plakasi');
gotoxy(1,9);writeln('-----------------------------------------------------------------------------');
gotoxy(1,10+i);write(ari,'-');
gotoxy(16,10+i);write(arma,'-');
gotoxy(31,10+i);write(armo,'-');
gotoxy(46,10+i);write(arre,'-');
gotoxy(61,10+i);writeln(arpl,'-');
k:=1;
end;

end;
if k=0 then writeln('Aranan kayit bulunamadi.');
readln;
clrscr;
end;

write('Baska arama yapacakmisiniz E/H');
ts:=readkey;
clrscr;
until ts='h';
sec:=readkey;

end;
until sec in [#27];
end.
 

cemil974

Yeni üye
29 Ocak 2007
10
0
Hiç Bir Açiklama Yok Ne şekilde Yazilicana Dair Ama Profosyonel Kodlayicilarin Işi Bu Ben çözemedim Açiklamali Ve Resimli Anlatilirsa Daha Iyi öğrenicez Biz Daha Yolun çok Başindayiz Neyin Nereye Yazicağini Bile Bilmiyorum.ama Yinede Emeğe Saygi.teşekkürler
 

espirix35

Yeni üye
12 Şub 2007
30
0
Baskanım program calısıyoda bu pascal:D:D:D
Visual basic yokmu sööle sqlle birleşmiş bi program:D:D:D
 

NEZİR

Yeni üye
1 Nis 2007
2
0
evet bu codlar vb değil kardeş.yine paylaşım için sağol , emek harcamışsın.
 

Banno

Yeni üye
11 Kas 2009
29
0
pascal ne olum :D açıkca konusun yolun basındayim resimli anlatim yapin yaw :S :D
 

yuaufqwe

Yeni üye
20 Ara 2009
23
0
bodrum
Daha yolun başındayım ben ama öğrenmek için resimli anlatım fln lazım böyle okuyarak olmaz ki :S Zaten pascalmış :) (paylaşım için saol)
 

enkanet

Katılımcı Üye
7 Nis 2012
877
0
Ya kardeşim Konu Tarihi 2006 Ne Güncelliyon yaa..Afedersiniz de Adamlar BANLASA Haklılar..
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.