Salam Damai…..(hehehehehe) 
Kali ini postingan ane (Ignatius J) masih seputar pemrograman pascal (walaupun bahasa pemrograman tua tapi masih layak untuk di pelajari, hehehehehe…..) yaitu Cara Membuat Tampilan Menu Dalam pascal.
Ane menggunakan Turbo Pascal 1.5.
Oke gan langsung aja kita lihad coding nya.
1
2
3
4
5
6
7
8
uses wincrt;
type pdata=^data;
data=record
nim,nama:string;
nilai:integer;
next:pdata;
end;
var pawal,pakhir:pdata;
Selanjutnya buat Procedure Untuk menampilkan Menu, untuk memahami procedure silahkan bacaMengenal Procedure dan Function dengan Bahasa Pemrograman Pascal.
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
procedure menu; FORWARD;
procedure identitas;
begin
clrscr;
gotoXY(55, 8); write(' This PROGRAM was Created By : ');
gotoXY(10,10); write('Name : Ignatius J');
gotoXY(10,12); write('NIM : 10220013');
gotoXY(10,14); write('Title : Programming');
gotoXY(10,16); write('Prodi : Teknik Informatika');
gotoXY(10,18); write('Fakultas : Sains dan Teknologi');
gotoXY(10,20); write('UNIVERSITAS RESPATI YOGYAKARTA');
gotoXY(10,22); write('Date : Sunday, 17th MAy 2012');
gotoXY(50,24); write(' Untuk Menyelesaikan Ujian Responsi : ');
gotoXY(10,26); write('Bidang Studi : Praktikum Struktur Data');
gotoXY(10,28); write('Dosen Pengampu : Ni Made Kariati');
gotoXY(15,30); write('Press Enter To Retrun To The Menu !!');
gotoXY(15,31); write(' _');
readln; menu;
end;
procedure MainMenu;
var nilai,jum,i,Pil:integer;
nim,nama:string;
begin
clrscr;
gotoXY(45, 4); write('**** MAIN MENU ****');writeln;
gotoXY(20, 8); Write('1. Input Data');
gotoXY(20,10); Write('2. Lihat Data');
gotoXY(20,12); Write('3. Hapus Data Pertama');
gotoXY(20,14); Write('0. Exit');writeln;
gotoXY(40,16); Write('Enter Your Choice (0,1,2,3) !!! : ');Readln(Pil);writeln;
case pil of
1 : begin
clrscr;
write('Jumlah data : ');
readln(jum);writeln;
for i:=1 to jum do
begin
write('NIM : ');readln(nim);
write('Nama : ');readln(nama);
write('Nilai : ');readln(nilai);
writeln(' *** ');
TambahData(nim,nama,nilai);
end;
end;
2 : begin
cetakdata; MainMenu;
end;
3 : begin
DeleteData; MainMenu;
end;
0 : begin
menu;
end;
else
gotoXY(20, 26); write('Data Belum di Input Mas.../mbak...Bro (Press Enter To Select Return)');readln;
MainMenu;
end;
end;
procedure menu;
var pil : integer;
begin
clrscr;
gotoXY(40, 4); write(' *********** " MENU " *********** ');
gotoXY(10,10); write('1. Authors Identity');
gotoXY(10,12); write('2. Entry Data');
gotoXY(10,14); write('0. Exit Program');
gotoXY(20,18); write(' Enter Your Choice (0,1,2) !!! : '); readln(pil);
case pil of
1 : identitas;
2 : begin
clrscr;
MainMenu;
end;
0 : begin
clrscr;
gotoXY(24,16); write('_____Thank you for using this Simple Program_____'); readln;
donewincrt;
end;
else
gotoXY(20,20);write(' Option Only 0 - 2 Mas Bro!!!!!'); readln;
menu;
end;
end;
Selanjutnya buat Procedure Untuk menampilkan tambah data, cetak data, hapus data
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
procedure cetakdata;
var buff:pdata;
begin
clrscr;
new(buff);
buff:=pawal;
if buff = nil then
begin
writeln('Data kosong..silahkan isi dahulu..');
end;
if buff <> nil then
begin
writeln('Data-data yang telah Anda input : ');
writeln;
end;
while buff<>nil do
begin
writeln('NIM : ',buff^.nim);
writeln('Nama : ',buff^.nama);
writeln('Nilai : ',buff^.nilai);
writeln(' *** ');
buff:=buff^.next;
end;writeln;
write('Tekan ENTER untuk kembali ke MAIN MENU');
readln;
end;
procedure TambahData(nim,nama:string;nilai:integer);
var buff:pdata;
begin
new(buff);
buff^.nim:=nim;
buff^.nama:=nama;
buff^.nilai:=nilai;buff^.next:=nil;
if pawal=nil then
begin
pawal:=buff;
pakhir:=buff;
end
else
begin
pakhir^.next:=buff;
pakhir:=buff;
end;
end;
Procedure DeleteData;
var hapus:pdata;
begin
clrscr;
writeln('Data pertama akan dihapus..');
write('Tekan [Enter] untuk konfirmasi');writeln;
new(hapus);
hapus := pawal;
pawal := hapus^.next;
dispose(hapus);
readkey;
write('Data pertama telah dihapus');
readkey;
cetakdata;
end;
Terakhir membuat program pada program pascal tersebut.
1
2
3
4
5
6
7
8
9
10
11
12
{Program Utama}
begin
screensize.x := 600;
screensize.y := 800;
menu;
begin
MainMenu;
end;
clrscr;
gotoXY(20,16); write('_____Thank you for using this Simple Program_____'); readln;
donewincrt;
end.
download source code program disini.
Itulah sedikit ilmu yang bisa ane bagikan pada kesempatan ini, mudah-mudahan bisa bermanfaat bagi agan2 semua….
Selamat mencoba…. :). Jika ada yang kurang jelas silahkan memberi tanggapan di bagian komentar, semoga bermanfaat bagi sahabat CB (Catatan Belajar) dan berikan juga +1 Google sahabat di tulisan ini
Kali ini postingan ane (Ignatius J) masih seputar pemrograman pascal (walaupun bahasa pemrograman tua tapi masih layak untuk di pelajari, hehehehehe…..) yaitu Cara Membuat Tampilan Menu Dalam pascal.
Ane menggunakan Turbo Pascal 1.5.
1
2
3
4
5
6
7
8
| uses wincrt;type pdata=^data; data=record nim,nama:string; nilai:integer; next:pdata;end;var pawal,pakhir:pdata; |
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
| procedure menu; FORWARD;procedure identitas; begin clrscr; gotoXY(55, 8); write(' This PROGRAM was Created By : '); gotoXY(10,10); write('Name : Ignatius J'); gotoXY(10,12); write('NIM : 10220013'); gotoXY(10,14); write('Title : Programming'); gotoXY(10,16); write('Prodi : Teknik Informatika'); gotoXY(10,18); write('Fakultas : Sains dan Teknologi'); gotoXY(10,20); write('UNIVERSITAS RESPATI YOGYAKARTA'); gotoXY(10,22); write('Date : Sunday, 17th MAy 2012'); gotoXY(50,24); write(' Untuk Menyelesaikan Ujian Responsi : '); gotoXY(10,26); write('Bidang Studi : Praktikum Struktur Data'); gotoXY(10,28); write('Dosen Pengampu : Ni Made Kariati'); gotoXY(15,30); write('Press Enter To Retrun To The Menu !!'); gotoXY(15,31); write(' _'); readln; menu; end;procedure MainMenu; var nilai,jum,i,Pil:integer; nim,nama:string; begin clrscr; gotoXY(45, 4); write('**** MAIN MENU ****');writeln; gotoXY(20, 8); Write('1. Input Data'); gotoXY(20,10); Write('2. Lihat Data'); gotoXY(20,12); Write('3. Hapus Data Pertama'); gotoXY(20,14); Write('0. Exit');writeln; gotoXY(40,16); Write('Enter Your Choice (0,1,2,3) !!! : ');Readln(Pil);writeln; case pil of 1 : begin clrscr; write('Jumlah data : '); readln(jum);writeln; for i:=1 to jum do begin write('NIM : ');readln(nim); write('Nama : ');readln(nama); write('Nilai : ');readln(nilai); writeln(' *** '); TambahData(nim,nama,nilai); end; end; 2 : begin cetakdata; MainMenu; end; 3 : begin DeleteData; MainMenu; end; 0 : begin menu; end; else gotoXY(20, 26); write('Data Belum di Input Mas.../mbak...Bro (Press Enter To Select Return)');readln; MainMenu; end; end;procedure menu; var pil : integer; begin clrscr; gotoXY(40, 4); write(' *********** " MENU " *********** '); gotoXY(10,10); write('1. Authors Identity'); gotoXY(10,12); write('2. Entry Data'); gotoXY(10,14); write('0. Exit Program'); gotoXY(20,18); write(' Enter Your Choice (0,1,2) !!! : '); readln(pil); case pil of 1 : identitas; 2 : begin clrscr; MainMenu; end; 0 : begin clrscr; gotoXY(24,16); write('_____Thank you for using this Simple Program_____'); readln; donewincrt; end; else gotoXY(20,20);write(' Option Only 0 - 2 Mas Bro!!!!!'); readln; menu; end; end; |
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
| procedure cetakdata; var buff:pdata; begin clrscr; new(buff); buff:=pawal; if buff = nil then begin writeln('Data kosong..silahkan isi dahulu..'); end; if buff <> nil then begin writeln('Data-data yang telah Anda input : '); writeln; end; while buff<>nil do begin writeln('NIM : ',buff^.nim); writeln('Nama : ',buff^.nama); writeln('Nilai : ',buff^.nilai); writeln(' *** '); buff:=buff^.next; end;writeln; write('Tekan ENTER untuk kembali ke MAIN MENU'); readln; end;procedure TambahData(nim,nama:string;nilai:integer); var buff:pdata; begin new(buff); buff^.nim:=nim; buff^.nama:=nama; buff^.nilai:=nilai;buff^.next:=nil; if pawal=nil then begin pawal:=buff; pakhir:=buff; end else begin pakhir^.next:=buff; pakhir:=buff; end; end;Procedure DeleteData; var hapus:pdata; begin clrscr; writeln('Data pertama akan dihapus..'); write('Tekan [Enter] untuk konfirmasi');writeln; new(hapus); hapus := pawal; pawal := hapus^.next; dispose(hapus); readkey; write('Data pertama telah dihapus'); readkey; cetakdata; end; |
1
2
3
4
5
6
7
8
9
10
11
12
| {Program Utama}begin screensize.x := 600; screensize.y := 800; menu; begin MainMenu; end; clrscr; gotoXY(20,16); write('_____Thank you for using this Simple Program_____'); readln; donewincrt;end. |
Selamat mencoba…. :). Jika ada yang kurang jelas silahkan memberi tanggapan di bagian komentar, semoga bermanfaat bagi sahabat CB (Catatan Belajar) dan berikan juga +1 Google sahabat di tulisan ini
0 komentar:
Posting Komentar