Praktikum Pertemuan 1 Memulai Dengan Delphi

PERTEMUAN KE – I

Memulai Dengan Delphi

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS LAMBUNG MANGKURAT
PROGRAM STUDI S-1 ILMU KOMPUTER
BANJARBARU
2014

I.                   Tujuan Praktikum

Adapun tujuan praktikum ini adalah untuk mengetahui atau mengenal perangkat lunak dalam bahasa pemrograman, yaitu Delphi pada mata kuliah praktikum pemrograman visual, sehingga praktikan bisa membuat program sederhana dari Delphi.

II.                Deskripsi Program

Program ini bernama program cari lingkaran. Program ini berisi input bernama jari-jari lingkaran. Ketika nilai dari jari-jari lingkaran dimasukkan, maka secara otomatis, proses perhitungan keliling, luas, dan diameter dari lingkaran tersebut akan muncul. Program ini dibuat dengan menggunakan Delphi 7. Didalam program ini diselipkan dengan tombol kembali, maksudnya adalah ketika ditekan kembali, maka akan kembali ke menu awal,yaitu memasukkan kembali input jari-jari lingkaran.

III.             Interface Program

IV.             Coding Program

NamaKomponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); var   i:real; begin i:=strtofloat(edit1.Text); form2.edit1.Text:=floattostr(i); i:=strtofloat(edit1.Text)*2; form2.edit2.Text:=floattostr(i); i:=2*3.14*strtofloat(edit1.Text); form2.Edit3.Text:=floattostr(i); i:=2*3.14*(strtofloat(edit1.text)*strtofloat(edit1.text)); form2.Edit4.Text:=floattostr(i); form2.show; form1.Hide; end;
Button2	Onclick	procedure TForm2.Button1Click(Sender: TObject); begin form2.Hide; form1.show; end;

V.                Output

Praktikum Pertemuan 7 Database dengan delphi

PERTEMUAN KE – VII

Database dengan Delphi

Avila Marlini

J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

I.              Tujuan Praktikum

Tujuan dari praktikum yang berjudul “Mengenal dengan Delphi” ini adalah untuk mempelajari hubungan database dengan Delphi yang di mana dalam proses pembelajaran praktikum ini akan mengetahui cara membuat table-tabel yang diperlukan dalam pemuatan database, selain itu dapat mengetahui komponen-komponen yang menghubungkan database ke delphi.

II.           Deskripsi Program

Program ini adalah program database yang dapat ditambahkan dan pencarian data karyawan. Program ini menggunakan BitBtn, TabSheet, maskedit, statictext. Sedangkan untuk tabel databasenya adalah komponen DBGrid, DataSource, ADOConnection, dan ADOtable.

III.        Interface Program

1.      Table pada Microsoft Acces

2.    Form Program

III.        Coding Program

Program Penjualan

Nama Komponen	Event	Perintah
BitBtn1	OnClick	procedure TForm1.BitBtn1Click(Sender: TObject); begin   ADOTable1.Append;   ADOTable1['NIP']:=MaskEdit1.Text;   ADOTable1['Nama']:=MaskEdit2.Text;   ADOTable1['Alamat']:=MaskEdit3.Text;   ADOTable1['Tgl_Lahir']:=MaskEdit4.Text;   ADOTable1['Gaji']:=MaskEdit5.Text; end;
BitBtn2	OnClik	procedure TForm1.BitBtn2Click(Sender: TObject); begin   ADOTable1.Delete;   MaskEdit1.Clear;   MaskEdit2.Clear;   MaskEdit3.Clear;   MaskEdit4.Clear;   MaskEdit5.Clear; end;
Bitbtn3	OnClik	procedure TForm1.BitBtn3Click(Sender: TObject); begin   if ADOTable1.Locate('NIP',MaskEdit6.Text,[]) then   begin     MaskEdit1.Text:=ADOTable1['NIP'];     MaskEdit2.Text:=ADOTable1['Nama'];     MaskEdit3.Text:=ADOTable1['Alamat'];     MaskEdit4.Text:=ADOTable1['Tgl_Lahir'];     MaskEdit5.Text:=ADOTable1['Gaji'];   end; end;

Praktikum Pertemuan 4 & 5 Tab Additional & Tab Additional 2

PERTEMUAN KE – IV

Tab Additional

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

I.             Tujuan Praktikum

Tujuan dari praktikum yang berjudul ”Tab Additional” ini adalah agar praktikan dapat mengetahui komponen-komponen yang ada pada Tab Additional yang telah siap untuk digunakan dengan komponen-komponen yang lebih variatif sehingga dapat langsung memilih komponen yang di perlukan dalam membuat suatu program.

II.          Deskripsi Program

Program berikut adalah program yang menggunakan komponen yang ada pada tab additional yaitu Bitbtn, Checklistbox, dan Speedbutton. Langkah awal yaitu menginputkan data berupa nama dengan tipe string, jika inputan bukan bertipe string maka muncul kotak pesan yang memberitahu “Invalid Key”. Kemudian klik input untuk mengisi checklistbox, tombol reset berfungsi untuk mengosongkan isi edit1 dan checklistbox dan tombol cek untuk menghitung berapa jumlah input yang telah dilakukan di checklistbox.

III.      Interface Program

IV.             Coding Program

a.       Program Hasil perulangan

Nama Komponen	Event	Perintah
Edit1	OnKeyPress	procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['a'..'z','A'..'Z',#8,#32]) then begin  showmessage('Invalid Key:'+key);  key:=#0 ; end; end;
Bitbtn1	OnClik	procedure TForm1.BitBtn1Click(Sender: TObject); begin checklistbox1.Items.Add(edit1.Text); end;
Bitbtn2	OnClik	procedure TForm1.BitBtn2Click(Sender: TObject); begin edit1.clear; checklistbox1.Clear; end;
SpeedButton1	OnClik	procedure TForm1.SpeedButton1Click(Sender:  TObject); var  n:integer; begin if edit1.Text= ' ' then  showmessage('Jumlah Item pada Checklistbox ada  0')  else begin  n:=checklistbox1.items.count;   showmessage('Jumlah Item pada Checklistbox  ada' + inttostr(n)); end; end;

 PERTEMUAN KE – V

Tab Additional 2

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

I.                   Tujuan Praktikum

Praktikum yang berjudul ”Tab Additional 2” ini adalah lanjutan dari Tab Additional yang bertujuan agar praktikan dapat menggunakan komponen shape, di mana komponen ini dapat mempermudah dalam membuat bentuk grafik seperti kotak, lingkaran, elipse dan bentuk-bentuk lainnya.

II.                Deskripsi Program

Program di bawah ini merupakan program yang memakai komponen-komponen pada tab additional, yaitu program animasi text berjalan. Pada form tedapat tulisan nama dan nim sedangkan pada label1 adalah contoh program animasi dan pada edit1 animasi dengan Delphi. Teks yang ada pada form akan berjalan jika button1 (mulai) di klik dan jika ingin berhenti klik button2 (stop).

III.                   Interface Program

IV.                  Coding Program

Nama Komponen	Event	Perintah
Bitbtn1	OnClik	procedure TForm1.BitBtn1Click(Sender: TObject); begin Timer1.Enabled:=true; end;
Bitbtn2	OnClik	procedure TForm1.BitBtn2Click(Sender: TObject); begin Timer1.Enabled:=false; end;
Form1	OnCreate	procedure TForm1.FormCreate(Sender: TObject); begin a:=0; end;
Timer1	OnTime	procedure TForm1.Timer1Timer(Sender: TObject); begin a:=a+1;  if a=1 then  begin   Form1.Text:='N';   statictext1.Caption:='C';   maskedit1.Text:='A';  end;  if a=2 then  begin   form1.Text:=form1.Text+'o';   statictext1.Caption:=StaticText1.Caption+'o';   MaskEdit1.Text:=MaskEdit1.Text+'n';  end;  if a=3 then  begin   form1.Text:=form1.Text+'o';   statictext1.Caption:=StaticText1.Caption+'n';   MaskEdit1.Text:=MaskEdit1.Text+'i';  end;  if a=4 then  begin   form1.Text:=form1.Text+'r ';   statictext1.Caption:=StaticText1.Caption+'t';   MaskEdit1.Text:=MaskEdit1.Text+'m';  end;  if a=5 then  begin   form1.Text:=form1.Text+'A';   statictext1.Caption:=StaticText1.Caption+'o';   MaskEdit1.Text:=MaskEdit1.Text+'a';  end;  if a=6 then  begin   form1.Text:=form1.Text+'z';   statictext1.Caption:=StaticText1.Caption+'h ';   MaskEdit1.Text:=MaskEdit1.Text+'s';  end;  if a=7 then  begin   form1.Text:=form1.Text+'i';   statictext1.Caption:=StaticText1.Caption+'p';   MaskEdit1.Text:=MaskEdit1.Text+'i ';  end;  if a=8 then  begin   form1.Text:=form1.Text+'z';   statictext1.Caption:=StaticText1.Caption+'r';   MaskEdit1.Text:=MaskEdit1.Text+'D';  end;  if a=9 then  begin   form1.Text:=form1.Text+'a';   statictext1.Caption:=StaticText1.Caption+'o';   MaskEdit1.Text:=MaskEdit1.Text+'e';  end;  if a=10 then  begin   form1.Text:=form1.Text+'h';   statictext1.Caption:=StaticText1.Caption+'g';   MaskEdit1.Text:=MaskEdit1.Text+'n';  end;  if a=11 then  begin   form1.Text:=form1.Text+'h';   statictext1.Caption:=StaticText1.Caption+'r';   MaskEdit1.Text:=MaskEdit1.Text+'g';  end;  if a=12 then  begin   form1.Text:=form1.Text+'_';   statictext1.Caption:=StaticText1.Caption+'r';   MaskEdit1.Text:=MaskEdit1.Text+'a';  end;  if a=13 then  begin   form1.Text:=form1.Text+'J';   statictext1.Caption:=StaticText1.Caption+'a';   MaskEdit1.Text:=MaskEdit1.Text+'n ';  end;  if a=14 then  begin   form1.Text:=form1.Text+'1';   statictext1.Caption:=StaticText1.Caption+'m ';   MaskEdit1.Text:=MaskEdit1.Text+'D';  end;  if a=15 then  begin   form1.Text:=form1.Text+'F';   statictext1.Caption:=StaticText1.Caption+'A';   MaskEdit1.Text:=MaskEdit1.Text+'e';  end;  if a=16 then  begin   form1.Text:=form1.Text+'1';   statictext1.Caption:=StaticText1.Caption+'n';   MaskEdit1.Text:=MaskEdit1.Text+'l';  end;  if a=17 then  begin   form1.Text:=form1.Text+'1';   statictext1.Caption:=StaticText1.Caption+'i';   MaskEdit1.Text:=MaskEdit1.Text+'p';  end;  if a=18 then  begin   form1.Text:=form1.Text+'1';   statictext1.Caption:=StaticText1.Caption+'m';   MaskEdit1.Text:=MaskEdit1.Text+'h';  end;  if a=19 then  begin   form1.Text:=form1.Text+'0';   statictext1.Caption:=StaticText1.Caption+'a';   MaskEdit1.Text:=MaskEdit1.Text+'i';  end;  if a=20 then  begin   form1.Text:=form1.Text+'0';   statictext1.Caption:=StaticText1.Caption+'s';  end;  if a=21 then  begin   form1.Text:=form1.Text+'6';   statictext1.Caption:=StaticText1.Caption+'i';  end; end;