Rabu, 05 Maret 2014

Home » » Catatan belajar komputer & internet

Catatan belajar komputer & internet

By 1 comment

Di pos kan oleh bheddul 06 Maret 2014

Cara Membuat Tampilan Menu Dalam pascal
Cara Membuat Tampilan Menu Dalam pascal
Salam Damai…..(hehehehehe) :D
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 

Related Posts:

  • hacker comunityCara memperlambat waktu billing warnet ni make CE nah bagi yg belum punya CE ( Cheat Engine ) silahkan Download disini, terserah mau versi yg berapa… Read More
  • Memahami Kehidupan . . Hidup bebas itu yg ingin selalu di rasakan oleh setiap orang-orang hidup bebas itu ga selalu indah melain kan dia punya 2 macam : di antara nya… Read More
  • "Koruptor itu penjahat paling atas. Mereka telah membunuh orang dan mematikan ekonomi orang. Kita mau membuat pola pikir kalau korupsi jangan sampa… Read More
  • MisTeri Hiduppenyesalan memang selalu datang terlambat . . . jika saya tahu massa depan hidup saya begini , saya tidak akan melanggar aturan mu tapi saya sangat be… Read More
  • hari ini tgl 27 july 2012 gu sangat terpukul cuman gara-gara hal sepele gu harus mundur dari kuliah . . . gu mundur kuliah karna gu ngalah . . .… Read More

1 komentar:

luvne.com tipscantiknya.com ayeey.com cicicookies.com mbepp.com kumpulanrumusnya.com.com