File Teks Pascal

Program Daftar_Siswa;

Uses WinCrt;

Type Siswa = Record

NIS    : Word;

Nama   : String[15];

Umur   : Byte;

Alamat : String[20];

Kota   : String [15];

End;

Var FileSwa : File of Siswa;

Data : Siswa;

Pil,Ul : Char;

Procedure Menu;

Begin

Clrscr;

Gotoxy(36,1);Write('*MENU PILIHAN*');

Gotoxy(36,2);Write('^_^_^_^^_^_^_^');

Gotoxy(29,4);Write('1. Tambah Data Daftar Siswa');

Gotoxy(29,5);Write('2. Edit Data Daftar Siswa');

Gotoxy(29,6);Write('3. Hapus Data Daftar Siswa');

Gotoxy(29,7);Write('4. Tampilkan Data Daftar Siswa');

Gotoxy(29,8);Write('5. Keluar (Exit)');

gotoxy(29,10);write('^_^_^_^_^_^_^_^^_^_^_^_^_^_^_^');

Gotoxy(20,12);Write('Pilihan [1..6]: ');Pil:=Readkey;

End;

Procedure BukaFile;

Begin

Assign(FileSwa,'Erna.Dat');

{$I-};

Reset(FileSwa);

{$I+};

End;

Procedure Tambah;

Var Lagi: Char;

Ada : Boolean;

i : Integer;

NIMS: Word;

Begin

Ul:='Y';

Lagi:='Y';

Clrscr;

BukaFile;

If IOResult<>0 Then

Rewrite(FileSwa);

Repeat

Clrscr;

Ada:=False;

i:=0;

Gotoxy(32,1);Write('TAMBAH DATA DAFTAR SISWA');

Gotoxy(32,2);Write('=========================');

Gotoxy(22,4);Write('No.Induk Siswa : ');Readln(NIMS);

While (Ada=False) And (i<>Filesize(FileSwa)) Do

Begin

Seek(FileSwa,i);

Read(FileSwa,Data);

If Data.NIS=NIMS Then

Ada:=True

Else

Inc(i);

End;

If (Ada=True) Then

Begin

Gotoxy(22,9);Write('Maaf ya, No.Induk Siswa "',NIMS,'" Ini Sudah Ada !!');

End

Else

Begin

Seek(FileSwa,Filesize(FileSwa));

Data.NIS:=NIMS;

Gotoxy(22,5);Write('Nama Siswa     : ');Readln(Data.Nama);

Gotoxy(22,6);Write('Umur           : ');Readln(Data.Umur);

Gotoxy(22,7);Write('Alamat         : ');Readln(Data.Alamat);

gotoxy(22,8);Write('Kota           : ');Readln(Data.Kota);

Write(FileSwa,Data);

End;

Gotoxy(22,10);Write('Mau Tambah Data Lagi [Y/T]: ');Lagi:=Upcase(Readkey);

Until Lagi<>'Y';

Close(FileSwa);

End;

Procedure Edit;

Var Lagi: Char;

Ada : Boolean;

i : Integer;

NIMS: Word;

Begin

Ul:='Y';

Lagi:='Y';

Clrscr;

BukaFile;

If IOResult<>0 Then

Write('Wah, Maaf ya ! Data Masih Kosong nih ^_^ ')

Else

Begin

Repeat

Clrscr;

Ada:=False;

i:=0;

Gotoxy(32,1);Write('EDIT DATA DAFTAR SISWA');

Gotoxy(32,2);Write('=======================');

Gotoxy(22,4);Write('No.Induk Siswa : '); Readln (NIMS);

While (Ada=False) And (i<>Filesize(FileSwa)) Do

Begin

Seek(FileSwa,i);

Read(FileSwa,Data);

If Data.NIS=NIMS Then

Begin

Ada:=True;

Gotoxy(22,5);Write('Nama Siswa     : ',Data.Nama);

Gotoxy(22,6);Write('Umur           : ',Data.Umur);

Gotoxy(22,7);Write('Alamat         : ',Data.Alamat);

gotoxy(22,8);write('Kota           : ',Data.Kota);

End

Else

Inc(i);

End;

If (Ada=True) Then

Begin

Data.NIS:=NIMS;

gotoxy(22,11);write('Silahkan di Edit Kawan !! ^_^');

Gotoxy(22,12);Write('Nama Siswa     : ');Readln(Data.Nama);

Gotoxy(22,13);Write('Umur           : ');Readln(Data.Umur);

Gotoxy(22,14);Write('Alamat         : ');Readln(Data.Alamat);

gotoxy(22,15);Write('Kota           : ');Readln(Data.Kota);

Seek(FileSwa,i);

Write(FileSwa,Data);

End

Else

Begin

Gotoxy(22,13);Write('Nomor Induk Siswa "',NIMS,'" Ini Tidak Ada!');

End;

Gotoxy(22,17);Write('Mau Edit Data Lagi [Y/T]: ');Lagi:=Upcase(Readkey);

Until Lagi<>'Y';

End;

Close(FileSwa);

End;

Procedure Hapus;

Var Filecut : File of Siswa;

Lagi,Hapus: Char;

Ada : Boolean;

i : Integer;

NIMS : Word;

Begin

Ul:='Y';

Lagi:='Y';

Clrscr;

Repeat

BukaFile;

If IOResult<>0 Then

Write('Wah, Maaf ya ! Data Masih Kosong nih ^_^ ')

Else

Begin

Clrscr;

Assign(Filecut,'Swa.cut');

Rewrite(Filecut);

Ada:=False;

i:=0;

Gotoxy(32,1);Write('HAPUS DATA DAFTAR SISWA');

Gotoxy(32,2);Write('========================');

Gotoxy(22,4);Write('No.Induk Siswa : ');Readln(NIMS);

While (Ada=False) And (i<>Filesize(FileSwa)) Do

Begin

Seek(FileSwa,i);

Read(FileSwa,Data);

If Data.NIS=NIMS Then

Ada:=True

Else

Inc(i);

End;

If (Ada=True) Then

Begin

Gotoxy(22,5);Write('Nama Siswa     : ',Data.Nama);

Gotoxy(22,6);Write('Umur           : ',Data.Umur);

Gotoxy(22,7);Write('Alamat         : ',Data.Alamat);

gotoxy(22,8);write('Kota           : ',Data.Kota);

Gotoxy(22,9);Write('Data Ini Mau Di Hapus [Y/T]: ');Readln(Hapus);

If Upcase(Hapus)='Y' Then

Begin

For i := 1 to Filesize(FileSwa) Do

Begin

Seek(FileSwa,i-1);

Read(FileSwa,Data);

If Data.NIS<>NIMS Then

Write(Filecut,Data);

End;

Close(FileSwa);

Assign(FileSwa,'Erna.Dat');

Erase(FileSwa);

Assign(Filecut,'Swa.cut');

Rename(Filecut,'Erna.Dat');

Gotoxy(22,10);Write('Nomor Induk Siswa "',NIMS,'" Sudah Di Hapus!');

End;

End

Else

Begin

Gotoxy(22,10);Write('Nomor Induk Siswa "',NIMS,'" Ini Tidak Ada!');

End;

Gotoxy(22,11);Write('Mau Hapus Data Lagi [Y/T]: ');Lagi:=Upcase(Readkey);

End;

Until Lagi<>'Y';

End;

Procedure Tampil;

Var i : Integer;

Begin

Ul:='Y';

BukaFile;

If IoResult <> 0 Then

Write('Wah, Maaf ya ! Data Masih Kosong nih ^_^ ')

Else

Begin

Clrscr;

Writeln(' DATA DAFTAR SISWA ');

Writeln;

Writeln('========================================================');

Writeln(' NO NIS    NAMA   UMUR   ALAMAT       KOTA ');

Writeln('========================================================');

i:=0;

While Not EoF(FileSwa) Do

Begin

Inc(i);

Read(FileSwa,Data);

Writeln(i:2,Data.NIS:4,Data.Nama:9,Data.Umur:5,Data.Alamat:12,Data.Kota:11);

writeln('========================================================');

End;

Close(FileSwa);

End;

Writeln;

gotoxy(20,13);Write('Silahkan Tekan Tombol Sembarang tuk melanjutkan !...');Readkey;

End;

Begin

Repeat

Menu;

Case Pil Of

'1' : Tambah;

'2' : Edit;

'3' : Hapus;

'4' : Tampil;

End;

Until (Ul<>'Y') Or (Pil='5');

DoneWinCrt;

End.

Foto-Foto J-Rock's

ni dia band.. yg mingkin dibilang orang biasa aza,,, but bwt q ni ban bener luar biasa... hehehee. ya begitulah lu suka n kagum, pokoknya smwny luar biasa, kayak gak ada lecetnya sama sekali. ini dia nama BANDnya.... JENG.....!! JENG....... !!!! JENG....!!! JENG-JENG.....!!!!

Ini dia, J-ROCK'S!!!!!!!!!!! yeeeeeeeeeeeeeeeeee...

lucu deh picture_nya ^_^

 

Jujur sih q dulu waktu denger laguny, gak tw tuh klu yg nyanyi tu j-rock's... abiznya lagunya tu bwt q jadi semangat,, klu gak salah tu lagu q dengeri waktu klaz 2 smp deh,, tu lu ingetanq gak salah sih,,
pokoknya inti lagu ntu.. mw rasanya gimanapun qta tu mesti CERIA. meskipun tuh sedih,  tersiksa, gundah, galau atau apa za deh. qta tu hruz tetep ceria. coz dengan begitu tu mendung kelabu bakal hilang,, sebab klu mendung sampai ujan badai sekalipun bakal lenyap klu MATAHARI udah nampakkan diri. coz matahari tu ibarat cahaya keceriaan bagiq ataupun bagi smw orang.
   

Setelah lama, baru tw lu ni lagu yg nyanyi'in tu J-ROCK'S n' judulny CERIA. Q gak nyangka sih, klu akhirny q suka n kagum ma ni band, apa lagi dengan prestasinya...(hhhee... jadi curcol ni!! )
 

nih beberapa foto ttg J-ROCK's yg q dapet dari O'Om GOOGLE..

J-Rocks memakai kostum Batik di ajang "A Mild Soundrenaline 2008"

 

 

 

nih ? lu gak salah J-ROCK's on JAPAn deh,,

 

 

lucu n' COOl deh !!!

cukup skian dulu ya.........

BEAUTIFULL HOUSE

so,,,, cute banget sih ni HOME !! ^_^

            Pantai tempat yang indah dan memiliki daya tarik tersendiri dibandingkan dengan pemandangan lainya, seperti pegunungan. Apa lagi pemandangan pantai yang indah dengan pasir berserta bebatuan besar di pesisirnya memberikan panorama yang sejuk dan menyegarkan. Rumah yang berada dekat dengan laut adalah rumah yang saya idamkan. Rumah yang saya idamkan ini berkonsep kaca besar. Bentuk rumah ini hanya memanjang tanpa tingkat. Atap pada dapur menggunakan kayu, sedangkan pada ruangan lainnya menggunakan semen. Desain kaca yang menghadap ke pantai dibuat besar atau lebar agar dapat menikmati pemandangan laut secara langsung.

Diluar semua itu, setiap ruangan di dalam rumah memiliki nuansa yang nyaman dan sederhana, seperti ruang tamu, ruang keluarga, kamar, dapur dan ruang makan. Ketika menginjakkan kaki di ruang tamu terlihat ada kursi rotan yang bertempat tepat di sisi kiri pintu. Di atas meja terdapat sekelompok bunga-bunga kecil di dalam sebuah vas bunga serta di kanan dan kiri vas bunga tersebut ada kristal berbentuk kuda. Beberapa langkah ke depan ada sebuah lukisan ka’bah yang cukup besar lengkap dengan orang-orang yang mengerjakan ibadah haji mengelilingi ka’bah. Tiga jengkal ke sisi kanan lukisan ada sebuah jam dinding klasik. Beberapa langkah ke sisi kiri likusan tepatnya di sudut ruangan terdapat pohon yang tidak terlalu tinggi berada di dalam pot yang bentuknya mirip sebuah pangkal pohon. Ketika melihat ke atas ada tiga buah lampu yang menyala terang. Di ruang keluarga terdapat sebuah televisi plasma 27 in dan terdapat pula sebuah kursi panjang menghadap ke arah televisi. Di samping televisi tersebut ada meja yang diatasnya terdapat sebuah lampu dan satu jengkal ke kiri lampu ada telepon rumah. Di ruang ini terdapat dua pintu yang menghubungkan dengan ruang baca dan koridor. Pintu yang pertama mengarah ke ruang baca, di ruang baca terdapat dua buah lemari lima tingkat. Lemari yang satu berisi buku bacaan seperti, novel, komik, dan lain-lain, sedang lemari yang satunya berisi file-file yang penting. Lemari ini terbuat dari kaca dengan ukiran kayu ala mesir dan diletakkan di sisi kiri pintu. Beberapa jengkal ke sisi kiri lemari da beberapa deretan lukisan keluarga yang di tata seperti tangga. Di ruang ini juga terdapat sebuah meja kerja yang membelakangi dinding yang menghadap ke laut sehingga bila penat bekerja dapat langsung memandang lautan untuk menenangkan pikiran dan bersantai menikmati pemandangan. Pintu yang selanjutnya, menghubungkan ruang keluarga dengan koridor. Koridor ini memanjang dan di ujung koridor terdapat ruang makan yang sederhana dengan meja makan yang terbuat dari kayu dan dikelilingi potongan kayu besar bulat yang berfungsi sebagai kursi. Beberapa langkah ke sisi kanan kursi terdapat sebuah aquarium ikan yang di desain seperti air terjun yang terus mengalir tanpa henti. Di ruang makan ini sekaligus terdapat dapur yang berbentuk liter L. Di sisi sebelah kanan sepanjang koridor terdapat empat kamar, yaitu sebuah kamar utama dan kamar anak-anak. Di kamar utama, ranjang dibuat mengarah ke laut dan cat dinding berwarna putih dengan ukiran bunga sakura. Di sisi kana kiri ranjang ada meja yang di atasnya ada sebuah lampu. Tepat di sisi kiri ranjang terdapat kamar mandi. Kamar selanjutnya adalah kamar anak-anak, di kamar ini cat dinding berwarna biru langit dan ukiran urung yang berterbangan di langit. Ranjang di kamar ini juga mengarah ke laut dan kamar mandi tepat di sisi kana ranjang.

Setiap sudut ruang dalam rumah ini memiliki konsep yang sederhana, tapi sangat memikat mata. Ditambah lagi pemandangan di luar rumah yang sangat indah dan bernuansa alam. Jadi, inilah rumah yang saya idamkan dan sangat ingin saya wujudkan menjadi sebuah kenyataan.