Membuat Tampilan Menu Dalam Pascal
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.
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
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