Program Akhir Softskill

Nama : ·         

52413515 - Dimas Rizki ·       

53413328 - Fauzi Pratama ·        

 55413951 - Muhammad Hamim

Form :

Listing :

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)

    btnStart: TButton;

    Button2: TButton;

    lblClick: TLabel;

    btn1: TButton;

    btn2: TButton;

    btn3: TButton;

    btn4: TButton;

    Label2: TLabel;

    lblScore: TLabel;

    Label4: TLabel;

    edtName: TEdit;

    Timer2: TTimer;

    Timer3: TTimer;

    lblBravo: TLabel;

    Timer1: TTimer;

    Label1: TLabel;

    Label3: TLabel;

    Timer4: TTimer;

    lblWkt: TLabel;

    Label6: TLabel;

    procedure Selesai;

    procedure btnStartClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn3Click(Sender: TObject);

    procedure btn4Click(Sender: TObject);

    procedure edtNameKeyPress(Sender: TObject; var Key: Char);

    procedure Timer2Timer(Sender: TObject);

    procedure Timer3Timer(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Timer4Timer(Sender: TObject);

  private

    { Private declarations }

  public

  Tukar, Score, Tanya,Waktu : Integer;

  Blink : Boolean;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Selesai;

begin

Timer1.Enabled := False;

Timer4.Enabled := False;

btn1.Enabled := False;

btn2.Enabled := False;

btn3.Enabled := False;

btn4.Enabled := False;

lblScore.Visible := False;

edtName.Enabled := True;

edtName.SetFocus;

lblClick.Visible := False;

end;

procedure TForm1.btnStartClick(Sender: TObject);

begin

Score := 0;

Waktu := 60;

Tukar := 0;

lblScore.Visible := True;

lblClick.Visible := True;

lblClick.Left := 33;

lblBravo.Caption := '';

lblBravo.Visible := False;

edtName.Enabled := False;

edtName.Clear;

Timer1.Enabled := True;

Timer4.Enabled := True;

btn1.Enabled := True;

btn2.Enabled := True;

btn3.Enabled := True;

btn4.Enabled := True;

lblScore.Caption := '0';

lblWkt.Caption := '60';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

CapTmp : String;

begin

CapTmp := btn1.Caption;

btn1.Caption := btn2.Caption;

btn2.Caption := btn3.Caption;

btn3.caption := btn4.Caption;

btn4.Caption := CapTmp;

Inc(Tukar);

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

if btn1.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

lblScore.Caption := IntToStr(Score);

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

if btn2.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

lblScore.Caption := IntToStr(Score);

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

if btn3.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

lblScore.Caption := IntToStr(Score);

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

if btn4.Caption = 'x' then

Score := Score + 10

else

Score := Score - 5;

lblScore.Caption := IntToStr(Score);

end;

procedure TForm1.edtNameKeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 Then

begin

lblBravo.Visible := True;

if Score >= 50 then

lblBravo.Caption := 'Selamat Anda Menang' + ' ' + edtName.Text

else

lblBravo.Caption := 'Not Lucky' + ' ' + edtName.Text;

btnStart.SetFocus;

end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Blink := not Blink;

if Blink then

lblBravo.Font.Color := clRed

else

lblBravo.Font.Color := clBlue;

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

if lblClick.Left <= 230 Then

lblClick.Left := lblClick.Left + 1

else

lblClick.Left := 0;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Tanya := Application.MessageBox('Apa kau yakin ingin keluar permainan ?',

'Confirmation', MB_YESNO + MB_ICONQUESTION);

if Tanya = 6 then

begin

Application.MessageBox('Terimakasih telah bermain', 'Byee. . Byee..', MB_OK + MB_ICONINFORMATION);

Application.Terminate;

end;

end;

procedure TForm1.Timer4Timer(Sender: TObject);

begin

if lblWkt.Caption = '0' then

Selesai

else

Waktu := Waktu - 1;

lblWkt.Caption := IntToStr(Waktu);

end;

end.

Output :

Read More

Gambar

Read More

Komponen Pada Borland Delphi 7 (Bagian 2)

52413515 - Dimas Rizki 

53413328 - Fauzi Pratama 

55413951 - Muhammad Hamim 

Read More

Komponen Pada Borland Delphi 7

Nama : 
52413515 - Dimas Rizki
53413328 - Fauzi Pratama
55413951 - Muhammad Hamim 

Borland Delphi 7 merupakan salah satu perangkat lunak atau program pengembangan aplikasi berbasis object yang menggunakan bahasa pemrograman pascal yang di produksi oleh Borland Company. Sebagai salah satu bahasa pemrograman Borland Delphi 7 mempunyai keunggulan dari segi produktifitas, yaitu :

• Kualitas dari lingkungan pengembangan visual
• Kecepatan dari compiler dibandingkan dengan kompleksitasnya
• Kekuatan dari bahasa pemrograman dibandingkan dengan kompleksitasnya
• Fleksibilitas dari arsitektur basis data
• Pola desain dan pemakaian yang diwujudkan oleh framework-nya

Borland Delphi 7 dapat digunakan untuk membuat berbagai jenis aplikasi seperti permainan (games), internet, hingga ke aplikasi database. Khusus untuk pemrograman database, Boland Delphi 7 menyediakan fitur objek yang kuat dan lengkap yang memudahkan programmer dalam membuat program. Format database yang dapat diakses Borland Delphi 7 adalah format database Paradox, dBase, Microsoft Access, ODBC, SyBASE, Oracle, MySQL, MS SQL Server, Informix, Interbase dan lain-lain.

Menggunakan Borland Delphi 7
Untuk memulai atau menjalankan program aplikasi Delphi 7 langkah-langkahnya adalah sebagai berikut:

• Jika sudah ada icon Delphi 7 di desktop, di klik 2x saja.

• Jika belum ada, pertama kita harus mengklik menu Start >> All Programs >> Pilih Borland Delphi 7, kemudian klik Delphi 7

Sesaat kemudian akan muncul tampilan lingkungan kerja Borland Delphi 7 (IDE) seperti yang ditunjukkan pada gambar dibawah ini.

Jendela IDE Delphi 7 mempunyai perangkat-perangkat yang dapat dipergunakan untuk memudahkan seorang programmer dalam membuat program. Secara default , Borland telah mengatur letak perangkat-perangkat sedemikian rupa, perangkat-perangkat tersebut diantaranya :

1. Menu Bar
2. Tool Bar
3. Component Palette
4. Object TreeView
5. Object Inspector
6. Form Designer
7. Code Editor
8. Code Explorer

1. Menu Bar
Menu pada Delphi memiliki kegunaan seperti menu pada aplikasi Windows lainnya. Dari menu ini programmer dapat memanggil, menyimpan program, menjalankan program, meremove komponen atau menambahkan komponen baru dan lain sebagainya. Singkatnya segala sesuatu yang berhubungan dengan IDE Delphi dapat Anda lakukan dari menu.

2. Speed Bar / Tool Bar
Speed Bar atau yang sering juga disebut toolbar berisi kumpulan tombol yang tidak lain adalah pengganti beberapa item menu yang sering digunakan. Dengan kata lain, setiap tombol pada Speed Bar menggantikan salah satu item menu. Sebagai contoh, tombol kiri atas adalah pengganti File New , tombol disebelah kanannya adalah pengganti menuFile Open , dan seterusnya.

3. Component Palette 
Component Palette berisi kumpulan icon yang melambangkan komponen-komponen pada VCL ( Visual Component Library ). VCL adalah merupakan pustaka komponen yang dengannya Anda dapat membangun sebuah aplikasi. Pada Component Palette , terdapat beberapa tab, yaitu Standard , Additionals , Data Access , Data Controls dan lain sebagainya.

4. Object TreeView 
Object TreeView berisi struktur pohon yang menampilkan semua nama komponen yang telah Anda letakkan pada form designer atau biasa juga disebut dengan hirarki seperti pada Windows Explorer .

5. Object Inspector 
Object Inspector digunakan untuk mengubah karakteristik dari sebuah komponen. Ada dua tab pada Object Inspector , yaitu Properties dan Events . Pada tab Properties Anda dapat mengubah nilai dari beberapa komponen yang telah diletakkan pada form , sedangkan tab Eventsdigunakan untuk menyisipkan kode untuk menangani kejadian tertentu. Kejadian dapat dibangkitkan karena bebarapa hal, seperti pengklikan mouse, penekanan tombol keyboard, penutupan jendela dan lain sebagainya.

6. Form Designer 
Form Designer merupakan tempat dimana programmer dapat merancang jendela aplikasi atau tempat untuk desain interface dari aplikasi Windows . Desain form dilakukan dengan cara meletakkan komponen-komponen yang diambil dari Component Palette .

7. Code Editor 
Code Editor adalah tempat dimana programmer menuliskan kode program yang pernyataan-pernyataannya dalam bahasa Object Pascal . Hal utama yang perlu diperhatikan dalam Code Editor adalah Anda tidak perlu menuliskan seluruh kode sumber karena Delphi telah menuliskan semacam kerangka sumber.

8. Code Explorer

Code Explorer merupakan fasilitas baru yang terdapat di dalam Delphi 7 yang tidak ditemukan pada versi-versi sebelumnya. Code Explorer digunakan untuk memudahkan pemakai berpindah antar file unit yang terdapat di dalam jendela Code Editor.

Disini saya akan menambahkan sebuah tutorial untuk button. Sebelum membuat tutorialnya, telebih dahulu mengetahui dimana letak button tersebut. Button berada di dalam component palette, disini juga berisikan banyak menu.

Menu dalam component palette terdiri dari : 

• Standard
• Additional
• Win32
• System
• Data Access
• Data Controls
• dbExpress
• DataSnap
• BDE
• ADO
• InterBase
• Web Services
• InternetExpress
• Internet
• WebSnap
• Decision Cube
• Dialogs
• Win 3.1
• dan lain-lain

Karena button berada di menu standard, sebelum itu terlebih dahulu mengetahui apa saja komponen yang ada di dalam menu standard. Menu standard terdiri dari :

• Frame
• MainMenu
• PopupMenu
• Label
• Edit
• Memo
• Button
• CheckBox
• RadioButton
• ListBox
• ComboBox
• ScroolBar
• GroupBox
• RadioGroup
• Panel
• ActionList

Seperti yang sudah saya jelaskan diatas, bahwa saya akan membuat sebuah tutorial pada button, bagaimana cara kerjanya dan apa fungsinya.

Buatlah sebuah form.

caranya : klik file kemudian pilih new dan yang terakhir klik form seperti berikut :

Masukan komponen-komponen berikut pada form :

Berikut adalah gambar setelah kita memasukkan komponen diatas :

Masukan listing pada button Proses sebagai berikut dengan meng-klik 2 kali :

var

total, akhir : integer;

begin

total := StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+StrToInt(Edit4.Text);

Edit5.Text:=IntToStr(total);

akhir := total div 3;

Edit6.Text:=IntToStr(akhir);

if akhir >= 85 then

Edit7.Text:='A'

else if akhir >= 70 then

Edit7.Text:='B'

else if akhir >= 60 then

Edit7.Text:='C'

else if akhir >= 50 then

Edit7.Text:='D'

else

Edit7.Text:='E';

//Keterangan

if Edit7.Text='E' then

Label8.Caption:='Tidak Lulus'

else

Label8.Caption:='Lulus';

4. Listing Baru sbb:

Edit1.Enabled:=True;

Edit2.Enabled:=True;

Edit3.Enabled:=True;

Edit4.Enabled:=True;

Edit5.Enabled:=True;

Edit6.Enabled:=True;

Edit7.Enabled:=True;

BitBtn1.Enabled:=True;

Edit1.Text:='';

Edit2.Text:='0';

Edit3.Text:='0';

Edit4.Text:='0';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Label8.Caption:='_';

Edit1.SetFocus;

Listing program pada button Keluar sbb:

Application.Terminate;

Masukan listing pada Form Aktivate, caranya klik pada bagian Events kemudian klik 2x sebelah kanan pada OnAktivate.mlihat gambar dibawah ini. 

Masukan listing berikut :

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Edit4.Enabled:=False;

Edit5.Enabled:=False;

Edit6.Enabled:=False;

Edit7.Enabled:=False;

BitBtn1.Enabled:=False;

Penjelasan Program :

Ketika program dijalankan, pada bagian edit yaitu edit1 sampai edit 7 dan tombol Proses bersifat Enable (tidak berfungsi) dan setfocus pada tombol Baru. Dalam artian kita blum bisa mengimput data, Jadi ketika mau mengimput kita harus klik dulu tombol Baru, baru bisa mengimput data.
Silahkan lihat gambar-gambar dibawah ini.

         

Berikut merupakan output program jika kita me-run program dengan klik symbol warna hijau :

 

           

Read More