| 11 April 2013 | 23 Comments |

Delphi: Tugas Pertemuan 10

Tags: , ,

Category: Kuliah, Tugas

Borland-DelphiSesuai dengan apa yang telah saya sampaikan saat perkuliahan, berikut adalah tugas kedua untuk Anda mahasiswa saya yang mengambil matakuliah Pemrograman Delphi Kelas B Semester 5 Jurusan Sistem Informasi.


Tugas Anda adalah membuat sebuah project untuk memasukkan kata atau kalimat menggunakan fasilitas InputBox yang ada pada Delphi dan menerapkan konsep PERULANGAN dengan ketentuan sebagai berikut:

  • Project hanya terdiri dari 3 komponen atau kontrol yaitu sebuah Form, sebuah Button dan sebuah ListBox.
  • Ketika pertama kali dijalankan, Caption pada Button1 adalah “Mulai” dan ListBox dalam keadaan kosong.
  • Saat Button1 diklik, muncul Message dialog yang menanyakan apakah Anda ingin menginputkan kata?
  • Jika diklik tombol No, kembali ke awal (kondisi semula).
  • Sedangkan jika diklik tombol Yes, maka Caption pada Button1 akan berubah menjadi “Selesai” dan akan ditampilkan kotak isian InputBox.
  • Melalui InputBox ini Anda memasukkan kata atau kalimat terserah Anda, apabila diklik OK maka kata atau kalimat yang Anda masukkan tadi akan terdaftar di dalam ListBox.
  • Kotak isian InputBox ini akan terus tampil dan tidak akan berhenti tampil sampai Anda mengetik kata “STOP” dan mengklik OK.
  • Saat kata “STOP” dimasukkan, kata tersebut tidak ikut dimasukkan ke dalam ListBox.
  • Apabila Button1 diklik (yang mana Captionnya sudah berubah menjadi “Selesai”), maka aplikasi akan ditutup.
  • Untuk lebih jelasnya, silahkan lihat video trailer berikut ini πŸ™‚

  • Oke, semoga dengan ilustrasi ketentuan dan juga video trailer di atas dapat memperjelas bagaimana seharusnya Anda mengerjakan tugas tersebut.
  • Perlu saya ingatkan bahwa Anda harus menggunakan PERULANGAN, boleh menggunakan FOR, WHILE-DO, atau REPEAT-UNTIL. Silahkan Anda analisis mana yang tepat untuk digunakan πŸ™‚
  • Akan lebih baik jika Anda menggunakan variabel sebagai bantuan untuk mempermudah Anda.

Adapun cara pengumpulan tugas ini adalah sebagai berikut:

  • Yang saya minta adalah source code dari project Anda, berupa isi dari file .pas
  • Tugas ini dikumpulkan pada posting ini melalui form Komentar di bagian bawah, seperti tugas Delphi sebelumnya.
  • kotak Nama diisi dengan NIM Anda, ingat hanya NIM saja tanpa nama atau yang lainnya. Kotak email diisi dengan alamat email Anda masing-masing dan untuk kotak website/blog boleh Anda kosongkan.
  • Silahkan Anda ketik/paste source code Anda pada bagian kotak komentar dengan mengetik tanda seperti gambar di bawah. Jadi source code Anda berada diantara kedua tanda seperti gambar berikut:
  • PERHATIAN!! Pengumpulan tugas paling lambat tanggal 16 April 2013 pukul 06.00 WIB

Selamat mengerjakan, semoga berhasil ya πŸ˜€



Comments (23)

Trackback URL | Comments RSS Feed

  1. C1157201084 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  2. C1157201065 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  3. C1157201080 berkata:
     procedure TForm1.Mulai(Sender: TObject);
    
    var input, a: string; 
    
    begin 
    
    if button1.Caption ='Selesai' then close else 
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then button1.Caption :='Mulai' else 
    
    repeat 
       begin button1.Caption := 'Selesai'; 
    
    input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.',''); 
    
    a :=''; 
    
    if input ='STOP' then
    listbox1.Items.Add(s) else listbox1.Items.Add(input); 
    end; 
    
    until
      input='STOP';
     end; 
    end. 
    
    
  4. C1157201080 berkata:
    
    procedureTForm1.MulaiSender:TObject;
    
    var input, a :string; 
    
    begin
    if button1.Caption='Selesai' then close else 
    
    if messagedlg ('Anda akan melakukan perulangan input kata??',mtconfirmation,mbyes,mbno,0)=mrno then 
    
    button1.Caption:='Mulai' else 
    
    repeat
     begin
    
    button1.Caption:='Selesai';
    
    input:=inputbox('InputKata','Masukkan kata apa saja yang Anda inginkan', +char(13)+'ketik STOP untuk berhenti.','';
    
    a:='';
    
    if input='STOP' then 
    
    listbox1.Items.Add (a) else listbox1.Items.Add (input); 
    end;
    
    until
     input='STOP';
    
    end;
    end.
    
    
  5. C1157201080 berkata:

    Jawaban kedua pak lah lain yg pertama dikirim.

    Melky Sandy Ganteng

  6. C1157201031 berkata:
    
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        ListBox1: TListBox;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var kata, x : string;
    
    begin
            if button1.Caption ='Selesai' then
            close else
            if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbYes, mbNo],0) = mrNo then
            button1.Caption :='Mulai' else
    
    repeat
    begin
            button1.Caption :='Selesai';
            kata := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(15)+'ketik STOP untuk berhenti.','');
            x :='';
            if kata ='STOP' then
            listbox1.Items.Add(x) else
            listbox1.Items.Add(kata);
    end;
    until
    kata='STOP';
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    button1.Caption:='Mulai';
    end;
    
    end.
    
    
  7. C1157201066 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  8. c1157201056 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  9. C1157201044 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  10. C1157201037 berkata:
    
    procedure TPerulangan.button1Click(Sender: TObject);
    var
    input, i: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
    repeat
      begin
      button1.Caption :='Selesai';
    
      input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
      i :='';
    
      if input ='STOP' then
      listbox1.Items.Add(i) else
      listbox1.Items.Add(input);
      end;
    
    until
      input='STOP';
    
    end;
    
    end.
    
    
  11. C1157201047 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  12. C1157201085 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  13. C1157201073 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  14. C1157201034 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  15. C1157201064 berkata:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        ListBox1: TListBox;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
      var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    end;
    
    end.
    
  16. c1157201045 berkata:

    delphiprocedureTForm1.MulaiSender:TObject;varinput,s:string;beginifbutton1.Caption=SelesaithencloseelseifmessagedlgAndaakanmelakukanperulanganinputkata?,mtconfirmation,mbyes,mbno,0=mrnothenbutton1.Caption:=Mulaielserepeatbeginbutton1.Caption:=Selesai;input:=inputboxInputKata,MasukkankatayangAndainginkan,char13ketikSTOPuntukberhenti.,;s:=;ifinput=STOPthenlistbox1.Items.Addselselistbox1.Items.Addinput;end;untilinput=STOP;end;end./delphi

  17. C1157201046 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  18. C1157201076 berkata:
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    button1.caption := 'Mulai'
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
     input='STOP';
    
     end;
    end.
    
  19. C1157201067 berkata:
    
    procedure TForm1.Mulai(Sender: TObject);
    var input, s: string;
    
    begin
    if button1.Caption ='Selesai' then
    close else
    
    if messagedlg('Anda akan melakukan perulangan input kata??',mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :='Mulai' else
    
     repeat
      begin
        button1.Caption :='Selesai';
    
        input := inputbox('Input Kata','Masukkan kata apa saja yang Anda inginkan,'+char(13)+'ketik STOP untuk berhenti.','');
        s :='';
    
        if input ='STOP' then
        listbox1.Items.Add(s) else
        listbox1.Items.Add(input);
    
      end;
     until
      input='STOP';
    
     end;
    
    end.
    
  20. C1157201093 berkata:

    Mantappak

  21. C1257201139 berkata:

    procedure TForm1.Button1Click(Sender: TObject);

    var
    input, kata: string;
    begin

    if button1.Caption =’Selesai’ then
    close else

    if messagedlg(‘Anda akan melakukan perulangan input kata??’,mtconfirmation,[mbyes, mbno],0) = mrno then
    button1.Caption :=’Mulai’ else

    repeat
    begin
    button1.Caption :=’Selesai’;

    input := inputbox(‘Input Kata’,’Masukkan kata apa saja yang Anda Inginkan,’+char(13)+’ketik STOP untuk berhenti.’,”);
    kata :=”;

    if input =’STOP’ then
    lst1.Items.Add(kata) else
    lst1.Items.Add(input);

    end;
    until
    input=’STOP’;

    end;

    end.

  22. C1257201147 berkata:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        ListBox1: TListBox;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var kata : string;
    var pilihan : integer;
     begin
        if  button1.caption = 'Selesai' then
        close;
        pilihan := messagedlg ('Anda akan Melakukan Perulangan Input Kata', mtconfirmation , [mbyes, mbno],0);
        if pilihan = mryes then
        begin
           button1.caption := 'Selesai';
           while kata <> 'STOP' do
           begin
           kata:=  inputbox('Input Kata','Masukan kata apa saja yang anda inginkan ' +chr(10)+ 'Ketik STOP untuk Berhenti','');
           listbox1.Items.Add(kata);
           end;
       end;
     end;
    end.
    
  23. C1257201146 berkata:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        ListBox1: TListBox;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var kata : string;
    var pilihan : integer;
     begin
        if  button1.caption = 'Selesai' then
        close;
        pilihan := messagedlg ('Anda akan Melakukan Perulangan Input Kata', mtconfirmation , [mbyes, mbno],0);
        if pilihan = mryes then
        begin
           button1.caption := 'Selesai';
           while kata <> 'STOP' do
           begin
           kata:=  inputbox('Input Kata','Masukan kata apa saja yang anda inginkan ' +chr(10)+ 'Ketik STOP untuk Berhenti','');
           listbox1.Items.Add(kata);
           end;
       end;
     end;
    end.
    

Leave a Reply