Semoga Bermanfaat...
Program STMIK_DB;
uses crt;
Var
Pilih : integer;
q : char;
procedure Password; {Password}
var pass: string;
Begin
Repeat
clrscr;
Write ('Masukkan Password : ');
readln(pass);
if (pass='STMIK') or (pass='stmik') then begin
clrscr;
writeln('Sedang Menunggu untuk Login ');
delay(1000);
end else begin
writeln('Salah Memasukkan Passowrd');
writeln('Silahkan coba lagi');
delay(500);
end;
until (pass='STMIK') or (pass='stmik');
end;
Procedure PSI; {Program SI}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Profil Sistem Informasi::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' S1 SISTEM INFOMASI');
Writeln(' ');
Writeln(' Konsentrasi:');
Writeln(' a. Multimedia Dan Animasi');
Writeln(' b. Pemrograman Web');
Writeln(' c. Pemrograman Basis Data');
Readln;
end;
Procedure MSI; {Program MSI}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Mata Kuliah Sistem Informasi::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester I');
Writeln(' 1. Agama ');
Writeln(' 2. Pancasila');
Writeln(' 3. Bahasa Inggris I');
Writeln(' 4. Pengantar Manajemen');
Writeln(' 5. Algoritma & Struktur data I');
Writeln(' 6. Logika Matematika');
Writeln(' 7. Pengantar Teknologi Informasi');
Writeln(' 8. Sistem Operasi I');
Writeln(' 9. Praktek Dasar Komputer');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester II ');
Readln;
Textcolor(LightCyan);
Writeln(' ');
Writeln(' Semester II');
Writeln(' 1. Bahasa Inggris II');
Writeln(' 2. Akuntasi I');
Writeln(' 3. Konsep Sistem Informasi');
Writeln(' 4. Algoritma & Struktur Data II');
Writeln(' 5. Aljabar LInier');
Writeln(' 6. Pengetahuan Bisnis');
Writeln(' 7. Statistika I');
Writeln(' 8. Pemrograman Berbasis Web I');
Writeln(' 9. Bahasa Pemrograman I');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester III ');
readln;
Textcolor(LightRed);
Writeln(' ');
Writeln(' Semester III');
Writeln(' 1. Matematika Diskrit');
Writeln(' 2. Teori Organisasi Umum');
Writeln(' 3. Pendidikan Kewarganegaraan');
Writeln(' 4. Pemrograman Visual');
Writeln(' 5. Akuntansi II');
Writeln(' 6. Analisis Proses Bisnis');
Writeln(' 7. Bahasa Pemrograman II');
Writeln(' 8. Statistika II');
Writeln(' 9. Sistem Basis Data I');
Writeln(' 10. Bahasa Indonesia');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester IV ');
readln;
Textcolor(White);
Writeln(' ');
Writeln(' Semester IV');
Writeln(' 1. Manajemen Sains');
Writeln(' 2. Jaringan Komputer');
Writeln(' 3. Pemrograman Basis Data');
Writeln(' 4. Pemrograman Berbasis Web II');
Writeln(' 5. Sistem Informasi Akuntansi');
Writeln(' 6. Sistem Informasi Manjemen');
Writeln(' 7. Organisasi Dan Arsitektur Komputer');
Writeln(' 8. Metodologi Penelitian');
writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester V ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester V');
Writeln(' 1. Interaksi Mnusia Dan Komputer');
Writeln(' 2. Sistem Terdistribusi');
Writeln(' 3. Pemrograman Berorientasi Object I');
Writeln(' 4. Keamanan Sistem Informasi');
Writeln(' 5. Analisis Dan Perancangan Sistem');
Writeln(' 6. Kecerdasan Buatan');
Writeln(' 7. Sistem Pendukung Keputusan');
Writeln(' 8. Sistem Operasi II');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VI ');
readln;
Textcolor(LightCyan);
Writeln(' ');
Writeln(' Semester VI');
Writeln(' 1. Pemrograman Berorientasi Object II');
Writeln(' 2. Rekayasa Perangkat Lunak');
Writeln(' 3. Etika Profesi');
Writeln(' 4. Kecakapan Antar Personal');
Writeln(' 5. Sistem Basis Data II');
Writeln(' 6. Kewirausahaan');
Writeln(' 7. Test Dan Implementasi Sistem');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VII ');
readln;
Textcolor(LightRed);
Writeln(' ');
Writeln(' Semester VII');
Writeln(' 1. Manajemen Proyek Sistem Informasi');
Writeln(' 2. Sistem Pakar');
Writeln(' 3. Multimedia');
Writeln(' 4. Pemrograman Multiuser');
Writeln(' 5. Pengembangan Sistem Informasi');
Writeln(' 6. Kerja Praktik');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VIII ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester VIII');
Writeln(' SKRIPSI ');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Tombol Sembarang Untuk Melihat Opsi Pilihan ');
readln;
end;
Procedure PTI; {Program TI}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Profil Teknik Informatika::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' S1 TEKNIK INFORMATIKA');
Writeln(' ');
Writeln(' Konsentrasi:');
Writeln(' a. Robotika');
Writeln(' b. Teknologi Mobile');
Readln;
end;
Procedure MTI; {Program MTI}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Mata Kuliah Teknik Informatika::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester I');
Writeln(' 1. Agama ');
Writeln(' 2. Pancasila');
Writeln(' 3. Pengntar Teknologi Informasi');
Writeln(' 4. Logika Matematika');
Writeln(' 5. Fisika I');
Writeln(' 6. Pengantar Manajemen');
Writeln(' 7. Praktik Dasar Komputer');
Writeln(' 8. Baha Inggris I');
Writeln(' 9. Sistem Operasi I');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester II ');
Readln;
Textcolor(LightCyan);
Writeln(' ');
Writeln(' Semester II');
Writeln(' 1. Bahasa Indonesia');
Writeln(' 2. Fisika II');
Writeln(' 3. Algoritma DanPemrograman');
Writeln(' 4. Kalkulus I');
Writeln(' 5. Pemrograman Web I');
Writeln(' 6. Statistik');
Writeln(' 7. Teknik Digital');
Writeln(' 8. Bahasa Inggris II');
Writeln(' 9. Aljabar Linier');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester III ');
readln;
Textcolor(LightRed);
Writeln(' ');
Writeln(' Semester III');
Writeln(' 1. Struktur Data (Pascal)');
Writeln(' 2. Matematika Diskrit');
Writeln(' 3. Jaringan Komputer');
Writeln(' 4. Kalkulus II');
Writeln(' 5. Organisasi Dan Arsitektur Komputer');
Writeln(' 6. Rekayasa Perangkat Lunak');
Writeln(' 7. Teori Bahasa Dan Otomata');
Writeln(' 8. Pendidikan Kewarganegaraan');
Writeln(' 9. Bahasa Pemrograman I(Delphi)');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester IV ');
readln;
Textcolor(White);
Writeln(' ');
Writeln(' Semester IV');
Writeln(' 1. Analisa Dan Perancangan Sistem');
Writeln(' 2. Bahasa Pemrograman Web II');
Writeln(' 3. Mikroprosesor');
Writeln(' 4. Pemrograman Berorientasi Object I(i)');
Writeln(' 5. Sistem Berkas');
Writeln(' 6. Metode Numerik');
Writeln(' 7. Manajemen Sains');
Writeln(' 8. Bahasa Pemrograman II (Delphi)');
writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester V ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester V');
Writeln(' 1. Interaksi Manusia Dan Komputer');
Writeln(' 2. Komunikasi Data');
Writeln(' 3. Metodologi Penelitian');
Writeln(' 4. Teknik Kompilasi');
Writeln(' 5. Teknologi Komunikasi');
Writeln(' 6. Neural Network & Fuzzy');
Writeln(' 7. Sistem Informasi Manajemen (SIM)');
Writeln(' 8. Pemrograman Berorientasi Object II (Java)');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VI ');
readln;
Textcolor(LightCyan);
Writeln(' ');
Writeln(' Semester VI');
Writeln(' 1. Embeded System');
Writeln(' 2. Sistem Terdistribusi');
Writeln(' 3. Pengolahan Citra');
Writeln(' 4. Kriptografi');
Writeln(' 5. Sistem Multimedia');
Writeln(' 6. Sistem Basis Data');
Writeln(' 7. Kewirausahaan');
Writeln(' 8. Sistem Operasi II');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VII ');
readln;
Textcolor(LightRed);
Writeln(' ');
Writeln(' Semester VII');
Writeln(' 1. Pemrograman Platform Independent');
Writeln(' 2. Data Mining');
Writeln(' 3. Etika Profesi');
Writeln(' 4. Kerja Praktik');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VIII ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester VIII');
Writeln(' SKRIPSI ');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Tombol Sembarang Untuk Melihat Opsi Pilihan ');
readln;
end;
Procedure PMI; {Program MI}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Profil Manajemen Informatika::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' D3 MANAJEMEN INFORMATIKA');
Writeln(' ');
Writeln(' Konsentrasi:');
Writeln(' a. Pemrograman Akuntansi');
Writeln(' b. Pemrograman Aplikasi Perkantoran');
Readln;
end;
Procedure MMI; {Program MMI}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Mata Kuliah Manajemen Informatika::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester I');
Writeln(' 1. Agama ');
Writeln(' 2. Pancasila');
Writeln(' 3. Bahasa Inggris I');
Writeln(' 4. Pengantar Manajemen');
Writeln(' 5. Akuntansi Dasar 1');
Writeln(' 6. Logika Matematika');
Writeln(' 7. Pengantar Teknologi Informasi');
Writeln(' 8. Sistem Operasi I');
Writeln(' 9. Praktek Dasar Komputer');
Writeln(' 10. Algoritma Dan Struktur Data I');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester II ');
Readln;
Textcolor(LightCyan);
Writeln(' ');
Writeln(' Semester II');
Writeln(' 1. Akuntansi Dasar II');
Writeln(' 2. Aljabar Linier');
Writeln(' 3. Statistika I');
Writeln(' 4. Algoritma & Struktur Data II');
Writeln(' 5. Bahasa Inggris II');
Writeln(' 6. Sistem Basis Data I');
Writeln(' 7. Bahasa Pemrograman I');
Writeln(' 8. Pengetahuan Bisnis');
Writeln(' 9. Pemrograman Berbasis WEB I');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester III ');
readln;
Textcolor(LightRed);
Writeln(' ');
Writeln(' Semester III');
Writeln(' 1. Kewarganegaraan');
Writeln(' 2. Statistika II');
Writeln(' 3. Analisa Dan Perancangan Sistem Informasi I');
Writeln(' 4. Sistem Informasi Manajemen');
Writeln(' 5. Pengantar Jaringan Komputer');
Writeln(' 6. Bahasa pemrograman II');
Writeln(' 7. Pemrograman Basis Data');
Writeln(' 8. Etika Profesi');
Writeln(' 9. Sistem Basis Data II');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester IV ');
readln;
Textcolor(White);
Writeln(' ');
Writeln(' Semester IV');
Writeln(' 1. Analisa Dan Perancangan Sistem Informasi II');
Writeln(' 2. Pemrograman Multiuser');
Writeln(' 3. Sistem Informasi Akuntansi');
Writeln(' 4. Pemrograman Berbasis Web II');
Writeln(' 5. Kecakapan Antar Personal');
Writeln(' 6. Manajemen Sains');
Writeln(' 7. Metodologi Penelitian');
Writeln(' 8. Bahasa Indonesia');
Writeln(' 9. Interaksi Manusia Dan Komputer');
writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester V ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester V');
Writeln(' 1. Manajemen Proyek Sistem Informasi');
Writeln(' 2. Sistem Operasi II');
Writeln(' 3. Teori Organisasi Umum');
Writeln(' 4. Multimedia');
Writeln(' 5. Pemrograman Berbasis Web III');
Writeln(' 6. Kerja Praktik');
Writeln(' 7. Kewirausahaan');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VI ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester VI');
Writeln(' TUGAS AKHIR ');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Tombol Sembarang Untuk Melihat Opsi Pilihan ');
readln;
end;
Procedure PTK; {Program TK}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Profil Teknik Komputer::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' D3 TEKNIK KOMPUTER');
Writeln(' ');
Writeln(' Konsentrasi:');
Writeln(' a. Teknik Komputer Dan Jaringan');
Writeln(' b. Mikrokotroler');
Readln;
end;
Procedure MTK; {Program MTK}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Mata Kuliah Teknik Komputer::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester I');
Writeln(' 1. Agama ');
Writeln(' 2. Pancasila');
Writeln(' 3. Bahasa Inggris I');
Writeln(' 4. Dasar Sistem Komputer');
Writeln(' 5. Jaringan Komputer I');
Writeln(' 6. Logika Matematika');
Writeln(' 7. Pengantar Teknologi Informasi');
Writeln(' 8. Sistem Operasi I');
Writeln(' 9. Praktek Dasar Komputer');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester II ');
Readln;
Textcolor(LightCyan);
Writeln(' ');
Writeln(' Semester II');
Writeln(' 1. Bahasa Inggris II');
Writeln(' 2. Aljabar Linier');
Writeln(' 3. Fisika Dasar');
Writeln(' 4. Algoritma Dan Struktur Data');
Writeln(' 5. Jaringan Komputer II');
Writeln(' 6. Pemrograman Berorietasi Objek I');
Writeln(' 7. Sistem Operasi II');
Writeln(' 8. Elektronika I');
Writeln(' 9. Pengantar Telekomunikasi');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester III ');
readln;
Textcolor(LightRed);
Writeln(' ');
Writeln(' Semester III');
Writeln(' 1. Pendidikan Kewarganegaraan');
Writeln(' 2. Elektronika II');
Writeln(' 3. Komunikasi Data');
Writeln(' 4. Pemrograman Berorientasi Objek II');
Writeln(' 5. Basis Data');
Writeln(' 6. Jaringan Komputer III');
Writeln(' 7. Mikro Kontroler I');
Writeln(' 8. Matematika Diskrit');
Writeln(' 9. Pemrograman WEB');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester IV ');
readln;
Textcolor(White);
Writeln(' ');
Writeln(' Semester IV');
Writeln(' 1. Etika Profesi');
Writeln(' 2. Mikro Controler II');
Writeln(' 3. Jaringan Komputer IV');
Writeln(' 4. Bahasa Indonesia');
Writeln(' 5. Rangkaian Digital');
Writeln(' 6. Pemrograman Berorientasi Objek III');
Writeln(' 7. Metodologi Penelitian');
Writeln(' 8. Analisa Dan Perancangan Sistem');
Writeln(' 9. Troubleshooting');
writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester V ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester V');
Writeln(' 1. Pemodelan Dan Simulasi');
Writeln(' 2. Pemrograman Visual');
Writeln(' 3. Kecakapan Antar Personal');
Writeln(' 4. Interfacing');
Writeln(' 5. Pemrograman Berorientasi Objek IV');
Writeln(' 6. Kerja Praktik');
Writeln(' 7. Kewirausahaan');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Enter Untuk Melihat Mata Kuliah Semester VI ');
readln;
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Semester VI');
Writeln(' TUGAS AKHIR ');
Writeln('');
Textcolor(Yellow);
Writeln(' Tekan Tombol Sembarang Untuk Melihat Opsi Pilihan ');
readln;
end;
Procedure Credits;
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' --=::Profil Programmer::=-- ');
Textcolor(LightGreen);
Writeln(' Nama : Angga Yulius Ade Putra');
Writeln(' NIM : 140202004 ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::D3 MAnajemen Informatika 2014::==--');
Readln;
end;
Procedure Daftar; {Program daftar}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Syarat Pendaftaran::==--');
Textcolor(LightGreen);
writeln(' ');
Writeln(' 1. Mengisi Formulir Pendaftaran');
Writeln(' 2. Membayar Biaya Pendaftaran Rp. 200.000,-');
Writeln(' 3. Membayar Biaya Atribut Rp. 900.000,-');
Writeln(' 4. Mengumpulkan Fotocopy Nilai Raport Semester 1 s/d 5 yang dilegalisir');
writeln(' (bagi siswa kelas XII)');
Writeln(' 5. Mengumpulkan Pas Foto ukuran 3X4 (Berwarna) @4 lembar');
Writeln(' 6. Mengumpulkan Ijasah & Transkip Nilai bagi yang transfer @ 2 lembar');
writeln(' dan dilegalisir');
Readln;
end;
Procedure wdaftar; {Program Waktu Pendaftaran}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Waktu Pendaftaran::==--');
Textcolor(LightGreen);
Writeln(' Gel. Dini : 15 November 2014 s/d 28 Februari 2015');
Writeln(' Gel. I : 4 Maret 2015 s/d 30 April 2015');
Writeln(' Gel. II : 1 Mei 2015 s/d 30 Juni 2015');
Writeln(' Gel. III : 1 Juli 2015 s/d 30 Agustus 2015');
Writeln(' Gel. IV : 31 Agustus 2015 s/d 28 September 2015');
Writeln(' Gel. V : 29 September 2015 s/d 30 Oktober 2015');
Readln;
end;
Procedure prestasi; {Program prestasi}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Prestasi STMIK Duta Bangsa::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' 1. Pemenang HIBAH TIK DIKTI Tahun 2006');
Writeln(' 2. Pemenang HIBAH INHEREN DIKTI Tahun 2007');
Writeln(' 3. Pemenang Program Kreatifitas Mahasiswa');
Writeln(' (PKM) Tahun 2009');
Writeln(' 4. Pemenang HIBAH Penelitian Dosen Muda');
Writeln(' Tahun 2010-2014');
Writeln(' 5. Pemenang HIBAH PHPPTS 2010');
Writeln(' 6. Pemenang HIBAH PHPPTS 2011');
Writeln(' 7. Pemenang HIBAH PHPPTS 2012');
Writeln(' 8. Pemenang HIBAH PHPPTS 2013');
Readln;
end;
Procedure fas; {Program Fasilitas}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Fasilitas::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' 1. Semua Komputer Dual Core, Core i3');
Writeln(' 2. Fasilitas Internet Gratis');
Writeln(' 3. Dosen Ahli Komputer dengan gelar');
Writeln(' Doktor, Magister dan Sarjana Komputer');
Writeln(' 4. Memiliki 5 Laboratorium Komputer');
Writeln(' 5. Ruang Kuliah ber-AC');
Writeln(' 6. Pembelajaran Berbasis Multimedia Dengan');
Writeln(' Fasilitas LCD Proyektor');
Writeln(' 7. Fasilitas Internet/Video Converence');
Writeln(' 8. Free Hot Spot Area');
Writeln(' 9. Informasi Lowongan Kerja/Part Time');
Writeln(' 10. Perpustakaan Dan Digital Library');
Writeln(' 11. Sertifikat Uji Kompetensi');
Readln;
end;
Procedure Bea; {Program Beasiswa}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Beasiswa::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' 1. Beasiswa Prestasi Akademik');
Writeln(' 2. Beasiswa Bantuan Belajar Mahasiswa');
Writeln(' 3. Anak Yatim Yang Tidak Mampu Bebas SPP');
Writeln(' Selama Kuliah');
Writeln(' 4. Beasiswa Unggulan Bagi Siswa SLTA Berprestasi');
Writeln(' Tanpa Membayar Dana Pengembangan Maupun SPP');
Writeln(' 5. Beasiswa STMIK Duta Bangsa Surakarta');
Writeln(' 6. dan sebagainya.');
Writeln(' Rata-rata Tiap Tahun 20% Mendapatan Beasiswa');
Readln;
end;
Procedure wkul; {Program Waktu Kuliah}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Waktu Kuliah::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' Kelas Pagi : Jam 08.00-16.00 WIB');
Writeln(' Kelas Malam : Jam 17.00-21.00 WIB');
Writeln(' (Khusus Karyawan)');
Writeln(' Kelas Week End : Sabtu Minggu');
Writeln(' (Khusus Karyawan)');
Readln;
end;
Procedure kmhs; {Program Kegiatan Kemahasiswaan}
Begin
Clrscr;
Writeln(' ');
Textcolor(LightRed);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Writeln(' --==::Kegiatan Kemahasiswaan::==--');
Textcolor(LightGreen);
Writeln(' ');
Writeln(' 1. Badan Eksekutif Mahasiswa (BEM)');
Writeln(' 2. Band Kampus');
Writeln(' 3. Wana Buana (Pecinta Alam)');
Writeln(' 4. Forum Mahasiswa Muslim/Non Muslim');
Writeln(' 5. Olahraga');
Writeln(' 6. Program Kreatifitas Mahasiswa');
Writeln(' 7. dan lain sebagainya');
Readln;
end;
Procedure SI; {sub program SI}
begin
repeat
clrscr;
Textcolor(LightCyan);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Profil Sistem Informasi ');
Writeln(' 2. Mata Kuliah Sistem Informasi ');
writeln(' 3. Keluar');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(Pilih);
case pilih of
1 : PSI;
2 : MSI;
3 : exit;
else
writeln;
Textcolor(LightRed);
writeln(' Maaf Pilihan Diluar Jangkauan Program');
writeln;
end;
write(' Tekan 4 untuk keluar dari program atau tombol lain untuk mengulang ?'); readln(q);
q:=upcase(q);
until q='4';
Textcolor(LightCyan);
writeln;
writeln;
writeln('');
writeln(' Anda Akan Keluar Dari Program');
writeln(' Silahkan Tekan Enter Satu Kali Lagi');
writeln(' TERIMAKASIH');
readln;
end;
Procedure TI; {sub program TI}
begin
repeat
clrscr;
Textcolor(LightCyan);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Profil Teknik Informatika ');
Writeln(' 2. Mata Kuliah Teknik Informatika ');
Writeln(' 3. Keluar ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(Pilih);
case pilih of
1 : PTI;
2 : MTI;
3 : exit;
else
writeln;
Textcolor(LightRed);
writeln(' Maaf Pilihan Diluar Jangkauan Program');
writeln;
end;
write(' Tekan 4 untuk keluar dari program atau tombol lain untuk mengulang ?'); readln(q);
q:=upcase(q);
until q='4';
Textcolor(LightCyan);
writeln;
writeln;
writeln('');
writeln(' Anda Akan Keluar Dari Program');
writeln(' Silahkan Tekan Enter Satu Kali Lagi');
writeln(' TERIMAKASIH');
readln;
end;
Procedure MI; {sub program MI}
begin
repeat
clrscr;
Textcolor(LightCyan);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Profil Manajemen Informatika ');
Writeln(' 2. Mata Kuliah Manajemen Informatika ');
Writeln(' 3. Keluar ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(Pilih);
case pilih of
1 : PMI;
2 : MMI;
3 : exit;
else
writeln;
Textcolor(LightRed);
writeln(' Maaf Pilihan Diluar Jangkauan Program');
writeln;
end;
write(' Tekan 4 untuk keluar dari program atau tombol lain untuk mengulang ?'); readln(q);
q:=upcase(q);
until q='4';
Textcolor(LightCyan);
writeln;
writeln;
writeln('');
writeln(' Anda Akan Keluar Dari Program');
writeln(' Silahkan Tekan Enter Satu Kali Lagi');
writeln(' TERIMAKASIH');
readln;
end;
Procedure TK; {sub program TK}
begin
repeat
clrscr;
Textcolor(LightCyan);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Profil Teknik Komputer ');
Writeln(' 2. Mata Kuliah Teknik Komputer ');
Writeln(' 3. Keluar ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(Pilih);
case pilih of
1 : PTK;
2 : MTK;
3 : exit;
else
writeln;
Textcolor(LightRed);
writeln(' Maaf Pilihan Diluar Jangkauan Program');
writeln;
end;
write(' Tekan 4 untuk keluar dari program atau tombol lain untuk mengulang ?'); readln(q);
q:=upcase(q);
until q='4';
Textcolor(LightCyan);
writeln;
writeln;
writeln('');
writeln(' Anda Akan Keluar Dari Program');
writeln(' Silahkan Tekan Enter Satu Kali Lagi');
writeln(' TERIMAKASIH');
readln;
end;
begin
textcolor(15);
password; {Main Program}
repeat
clrscr;
Textcolor(LightCyan);
Writeln('******************************************************************************** ');
Textcolor(LightRed);
Writeln(' ---==::Angga Yulius Ade Putra::==--- ');
Textcolor(LightCyan);
Writeln('******************************************************************************** ');
Textcolor(Yellow);
writeln(' ');
Writeln(' <<<<<<< STMIK DUTA BANGSA >>>>>>> ');
Writeln(' <<<<<< SURAKARTA >>>> ');
writeln(' ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(LightRed);
writeln(' = Provided by Angga = ');
Textcolor(LightCyan);
writeln('-------------------------------------------------------------------------------- ');
Textcolor(Yellow);
Writeln(' Pilihan : ');
Textcolor(LightGreen);
Writeln(' 1. Sistem Informasi ');
Writeln(' 2. Teknik Informatika ');
Writeln(' 3. Manajemen Informatika ');
Writeln(' 4. Teknik Komputer ');
Writeln(' 5. Prestasi STMIK Duta Bangsa');
Writeln(' 6. Beasiswa');
Writeln(' 7. Fasilitas');
Writeln(' 8. Waktu Kuliah');
Writeln(' 9. Kegiatan Kemahasiswaan');
Writeln(' 10. Syarat Pendaftaran');
Writeln(' 11. Waktu Pendaftaran');
Writeln(' 12. Credits ');
Textcolor(Yellow);
Write(' Pilih Angka untuk memilih pilihan : ');
Readln(pilih);
case pilih of
1 : SI;
2 : TI;
3 : MI;
4 : TK;
5 : Prestasi;
6 : Bea;
7 : Fas;
8 : Wkul;
9 : Kmhs;
10 : Daftar;
11 : Wdaftar;
12 : Credits;
else
writeln;
Textcolor(LightRed);
writeln(' Maaf Pilihan Diluar Jangkauan Program');
writeln;
end;
write(' Tekan 5 untuk keluar dari program atau tombol lain untuk mengulang ?'); readln(q);
q:=upcase(q);
until q='5';
Textcolor(LightCyan);
writeln;
writeln;
writeln('');
writeln(' Anda Akan Keluar Dari Program');
writeln(' Silahkan Tekan Enter Satu Kali Lagi');
writeln(' TERIMAKASIH');
readln;
end.
Tidak ada komentar:
Posting Komentar