Login dan Menu di Pascal

Kebetulan ada tugas kuliah nih,

tidak ada salahnya untuk berbagi 🙂

Kali ini saya persembahkan contoh program yang dibuat dengan pascal. Yups lebih tepatnya Turbo Pascal for Windows!

Program sederhana ini mencakup Perulangan, Percabangan, Array dan Procedure.

Dengan input
username : forshared ,
passwordnya : 12345

Deskripsi Program

Tampilan Awal :

Form Login
Input Username dan Password.
Jika Username (bukan ‘forshared’) maka muncul peringatan “INVALID USERNAME”
Serta percabangan untuk mencoba input username/password lagi.Jika Username (forshared) dan password (bukan ‘12345’) maka muncul peringatan “WRONG PASSWORD” , dan pertanyaan untuk mengulang lagi.

Jika Username benar, dan password benar. Maka masuk ke form berikutnya, muncul
Pesan “Berhasil Login”, dan harus menekan enter untuk lanjut ke form berikutnya.

Menu Program
Menu Program hanya bisa diakses jika dan hanya jika username&password valid.

Daftar Menu
Ada 3 Pilihan , antara lain :

1. Program Array
Program yang berisikan Array Nilai Mata Kuliah.
Dengan konsep input jumlah banyak data,
Kemudian dilanjutkan dengan fungsi for untuk merekam data masukan serta memproses data, Jumlah data yang direkam/diproses tergantung banyaknya input awal.
kemudian ditampilkan di form baru dalam bentuk tabel.
Tabel tersebut mencakup Nama, Mata Kuliah, Nilai Tugas, Nilai UTS, dan Nilai UAS.
Adapun sistemasi penilaian rata-rata dengan prosentase sebagai berikut :
Nilai Tugas = 20%
Nilai UTS = 30%
Nilai UAS = 50%

Rumus tersebut include di dalam program
Jumlah Nilai = tugas*0,2 + Nilai UTS*0,3 + Nilai UAS*0,5
Hasil perhitungan Jumlah Nilai akan disertakan nilai dalam bentuk Huruf.
Jika Hasil > 81 dan <100, maka nilai yang didapat = A Jika Hasil > 71 dan <80, maka nilai yang didapat = B Jika Hasil > 61 dan <70, maka nilai yang didapat = C Jika Hasil > 41 dan <60, maka nilai yang didapat = D Jika Hasil <40, maka nilai yang didapat = E Dan Jika Hasil > 100 (mustahil), maka ditampilkan (-)

2. Program X
Menu Pilih : 2 ini memang kosong.
Silahkan di isi dengan kreatifitas anda masing-masing.
3. About Program
Menu Pilih : 3 ini sesuai dengan Judulnya.
Dalam menu ini menampilkan Pembuat Program.

Percabangan
Untuk memilih menu-menu di atas (1-3) menggukanan case sebagai konsep percabangan. Algoritma Jika di input/pilih angka 1 maka menuju ke Program Array. Jika di pilih Angka 2 maka menuju program X. Jika dipilih angka 3 menuju About Program. Jika input/pilihan lebih dari 3 (4,5,6,7,8,9) maka muncul pesan “Menu yang anda pilih tidak terdaftar”.

Di bawah pilihan menu, baik program array,program x,about program, maupun pesan error disertakan pertanyaan/percabangan “Apakah Anda Ingin Keluar?
Jika (y) maka kembali ke tampilan awal (LOGIN) karena konsep keluar dalam hal ini log out account sebagai ‘struktur’.
Jika (n) maka kembali ke menu program lagi. Begitu seterusnya. Tidak ada batasan jumlah akses program.

Script Pascal (TPW)

program ctrl_x;
uses wincrt;
const
user =’forshared’;
password = ‘12345’;
var
u,p : string;
menu : integer;
balik,lagi : char;nama: array[1..10] of string;makul: array[1..10] of string;
tugas: array[1..10] of integer;
uts: array[1..10] of integer;
uas: array[1..10] of integer;
jumlah : array [1..10] of real;
huruf : array[1..10] of char;
i,n : integer;procedure program1;
begin
gotoxy(23,5);write(‘Program Array Nilai Mata Kuliah’);
writeln;
gotoxy(20,8);writeln(‘=====================================’);
gotoxy(25,11);writeln(‘Press Enter Go To The Program’);
readln;
clrscr;write(‘ Input Banyak Data : ‘);
readln(n);
writeln(‘ – – – – – – – – – – – – – – -‘);for i:=1 to n do
begin
write(‘> Masukkan Nama : ‘);
readln(nama[i]);
write(‘> Masukkan Mata Kuliah : ‘);
readln(makul[i]);
write(‘> Masukkan Nilai Tugas : ‘);
readln(tugas[i]);
write(‘> Masukkan Nilai UTS : ‘);
readln(uts[i]);
write(‘> Masukkan Nilai UAS : ‘);
readln(uas[i]);
writeln(‘ – – – – – – – – – – – – – – -‘);

jumlah[i]:=tugas[i]*0.2 + uts[i]*0.3 + uas[i]*0.5;

if (jumlah[i]>=81) and (jumlah[i]<=100) then huruf[i]:=’A’; if (jumlah[i]>=71) and (jumlah[i]<=80) then huruf[i]:=’B’; if (jumlah[i]>=61) and (jumlah[i]<=70) then huruf[i]:=’C’; if (jumlah[i]>=41) and (jumlah[i]<=60) then huruf[i]:=’D’; if (jumlah[i]<=40) then huruf[i]:=’E’; if (jumlah[i]>100) then
huruf[i]:=’-‘;
end;

clrscr;
gotoxy(20,3);writeln(‘ – – – TABEL NILAI MAHASISWA – – – ‘);
writeln;
gotoxy(11,5);writeln(‘=======================================================’);
gotoxy(11,6);writeln(‘| NO | NAMA | MAKUL | JUMLAH | NILAI |’);
gotoxy(11,7);writeln(‘=======================================================’);
for i:=1 to n do
begin
writeln(‘ |’, i:3 , nama[i]:12 , makul[i]:12 , jumlah[i]:13:2 , huruf[i]:9,’ |’);
end;

readln;
end;

procedure program2;
begin
gotoxy(28,5);write(‘Anda Memilih Program X’);
gotoxy(27,7);write(‘Menu Program ini Kosong’);
readln;
end;

procedure about;
begin
clrscr;
gotoxy(24,4);writeln(‘=====================================’);
gotoxy(24,6);writeln(‘=====================================’);
gotoxy(24,16);writeln(‘=====================================’);
gotoxy(24,18);writeln(‘=====================================’);
gotoxy(36,5);writeln(‘ABOUT PROGRAM’);
gotoxy(30,9);writeln(‘Program Ini Disusun Oleh :’);
gotoxy(38,12);writeln(‘sipradana’);
gotoxy(31,17);write(‘http:/www.ctrl-x.co.cc’);
readln;
end;

procedure tanya;
begin
gotoxy(24,20);write(‘Apakah Anda Ingin Keluar? [y/n] : ‘);
readln(balik);
end;

procedure benar;
begin
if u=user then
begin
if p=password then
begin
clrscr;
gotoxy(24,8);writeln(‘=====================================’);
gotoxy(24,12);writeln(‘=====================================’);
gotoxy(35,10);writeln(‘BERHASIL LOGIN’);
gotoxy(33,30);write(‘PRESS ENTER TO MENU’);
readln;
clrscr;
balik:=’n’;
while balik=’n’ do
begin
clrscr;
gotoxy(24,4);writeln(‘=====================================’);
gotoxy(24,6);writeln(‘=====================================’);
gotoxy(24,16);writeln(‘=====================================’);
gotoxy(24,18);writeln(‘=====================================’);
gotoxy(34,17);writeln(‘PROGRAM FOR SHARED’);
gotoxy(35,5);writeln(‘Menu Program’);
gotoxy(24,8);writeln(‘1. Program Array’);
gotoxy(24,10);writeln(‘2. Program X ‘);
gotoxy(24,12);writeln(‘3. About Program’);
gotoxy(24,14);write(‘Masukkan Pilihan Menu [1-3] : ‘);
readln(menu);
clrscr;
case menu of
1 : begin
program1;
tanya;
end;
2 : begin
program2;
tanya;
end;
3 : begin
about;
tanya;
end;
4..9 : begin
gotoxy(22,8);writeln(‘=======================================’);
gotoxy(22,9);writeln(‘Menu Yang Anda Masukkan Tidak Terdaftar’);
gotoxy(22,10);writeln(‘=======================================’);
tanya;
end;

end;
end;
end
else if p<>password then
begin
clrscr;
gotoxy(20,8);writeln(‘==========================================’);
gotoxy(20,16);writeln(‘==========================================’);
gotoxy(35,7);writeln(‘WRONG PASSWORD!’);
gotoxy(25,11);writeln(‘Password Yang Anda Masukkan Salah!’);
gotoxy(30,13);write(‘Try Again? [y/n]’);
readln(lagi);
readln;
end;
end;
end;

procedure salah;
begin
if u<>user then
begin
clrscr;
gotoxy(20,8);writeln(‘==========================================’);
gotoxy(20,16);writeln(‘==========================================’);
gotoxy(33,7);writeln(‘INVALID USERNAME!’);
gotoxy(28,10);writeln(‘ Username Tidak Terdaftar’);
gotoxy(32,13);write(‘Try Again? [y/n]’);
readln(lagi);
end;
end;

begin
clrscr;
lagi:=’y’;
while lagi=’y’ do
begin
clrscr;
gotoxy(20,8);writeln(‘==========================================’);
gotoxy(20,16);writeln(‘==========================================’);
gotoxy(38,7);writeln(‘LOGIN’);
gotoxy(25,10);write(‘Masukkan Username : ‘);
readln(u);
gotoxy(25,13);write(‘Masukkan Password : ‘);
readln(p);
benar;
salah;

end;
end.

*maaf jika program saya tidak sebagus milik anda..#from simple to be smart