Laman

Senin, 08 Desember 2014

I.              Deskripsi Program

Program ini dibuat bertujuan untuk menambahkan data seseorang dengan memasukkan nim dan nama serta tanggal lahir orang tersebut sehingga masuk didalam database program dan program ini juga dibuat untuk memudahkan dalam mencari data orang yang telah diinputkan tersebut dengan memasukkan kata kunci NiMnya saja lalu program akan mencari secara otomatis.
II.           Interface Program
III.              Coding Program
Nama Komponen
Event
Perintah
Button1
OnClick
Procedure TForm1.Button1Click(Sender: TObject);
begin
  table1.Locate('NIM',edit1.Text,[]);
  if not table1.Locate('NIM',edit1.Text,[]) then
    messagedlg('"'+edit1.Text+'"Tidak Ditemukan',mterror,[mbok],0);
end;
Button2
OnClick
Procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Append;
table1['NIM']:=edit2.Text;
table1['Nama']:=edit3.Text;
table1['tgl_lahir']:=DateTimePicker1.Date;
if edit2.text='' then showmessage('Please Clompleting Entry From');
if edit3.text='' then showmessage('Please Clompleting Entry From');
end;
Button3
OnClick
Procedure TForm1.Button3Click(Sender: TObject);
begin
edit2.Text:='';
edit3.Text:='';
end;

end.
Form1
OnShow
procedure TForm1.FormShow(Sender: TObject);
begin
edit2.Text:='';
edit3.Text:='';
DateTimePicker1.Date;
end;

IV.            Output


Diposting oleh di Tidak ada komentar:

Rabu, 26 November 2014

Program Pertama
I.              Deskripsi Program
Program ini adalah program pengolah kata sederhana. Memuat 1 Main Menu, 1 Save Dialog, 1 Font Dialog, 1 Color Dialog, dan 2 Memo. Pada Main Menu berisikan menu-menu seperti file, edit, dan option yang masing-masing berisikan beberapa menu lagi. Pada file berisikan New, Open, Save dan Exit, pada Edit berisikan Copy, Cut, Paste dan Select All sedangkan pada Option berisikan Font Size, Font Type dan Font Color.
II.           Interface Program




III.              Coding Program
Nama Komponen
Event
Perintah
New
OnClick
ProcedureTForm1.New1Click(Sender: TObject);
begin
  memo1.Clear;
end;
Save
OnClick
procedure TForm1.Save1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  memo1.Lines.SaveToFile(savedialog1.FileName);
end;
Exit
OnClick
procedure TForm1.Exit1Click(Sender: TObject);
begin
  close;
end;
Copy
OnClick
procedure TForm1.Copy1Click(Sender: TObject);
begin
  memo1.CopyToClipboard;
end;
Cut
OnClick
procedure TForm1.Cut1Click(Sender: TObject);
begin
  memo1.CutToClipboard;
end;
Paste
OnClick
procedure TForm1.Paste1Click(Sender: TObject);
begin
  memo1.PasteFromClipboard;
end;
Font-Size
OnClick
procedure TForm1.FontSize1Click(Sender: TObject);
begin
  if fontdialog1.Execute then
  memo1.Font:=fontdialog1.Font;
end;
Font-Color
OnClick
procedure TForm1.FontColor1Click(Sender: TObject);
begin
  if colordialog1.Execute then
  memo1.Color:=colordialog1.Color;
end;

IV.            Output










Program Kedua
I.              Deskripsi Program
Program ini adalah program web browser sederhana yang dapat dijalankan sebagaimana web browser pada mestinya. Memuat 4 BitBtn, 1 ComboBox, dan 1 Webrwoser. Terdapat button Back dan Forward untuk memudahkan pengguna serta button Home.
II.           Interface Program

III.              Coding Program
Nama Komponen
Event
                          Perintah
BitBtn1
OnClick
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  webbrowser1.GoBack;
end;
BitBtn2
OnClick
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  webbrowser1.GoForward;
end;
BitBtn3
OnClick
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
combobox1.Text:='www.google.co.id';
  if combobox1.Items.IndexOf('www.google.co.id')=-1 then
    combobox1.Items.Append('www.google.co.id');
  webbrowser1.Navigate(combobox1.Text);
end
BitBtn4
OnClick
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
 webbrowser1.Navigate(combobox1.Text);
end;


IV.                Output



Diposting oleh di Tidak ada komentar:
I.              Deskripsi Program
Program ini memuat 1 Label, 1 Edit, 2 Button, dan 1 Timer.  Fungsi button pertama adalah untuk menjalankan program berupa perintah untuk menampilkan skrip tulisan per huruf dan button kedua berfungsi untuk menghentikan jalannya program.
II.           Interface Program
III.              Coding Program
NamaKomponen
Event
Perintah
Timer1
OnTimer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
n:=n+1;

if n= 1 then
begin
Form1.Text:='L';
Label1.Caption:='C';
Edit1.Text:='A';
end
else

if n= 2 then
begin
Form1.Text:=Form1.Text+'a';
Label1.Caption:=label1.Caption+'o';
Edit1.Text:=Edit1.Text+'n';
end
else

if n= 3 then
begin
Form1.Text:=Form1.Text+'t';
Label1.Caption:=label1.Caption+'n';
Edit1.Text:=Edit1.Text+'i';
end
else

if n= 4 then
begin
Form1.Text:=Form1.Text+'i';
Label1.Caption:=label1.Caption+'t';
Edit1.Text:=Edit1.Text+'m';
end
else

if n= 5 then
begin
Form1.Text:=Form1.Text+'h';
Label1.Caption:=label1.Caption+'o';
Edit1.Text:=Edit1.Text+'a';
end
else

if n= 6 then
begin
Form1.Text:=Form1.Text+'a';
Label1.Caption:=label1.Caption+'h';
Edit1.Text:=Edit1.Text+'s';
end
else

if n= 7 then
begin
Form1.Text:=Form1.Text+'n';
Label1.Caption:=label1.Caption+' ';
Edit1.Text:=Edit1.Text+'i';
end
else

if n= 8 then
begin
Form1.Text:=Form1.Text+' ';
Label1.Caption:=label1.Caption+'P';
Edit1.Text:=Edit1.Text+' ';
end
else

if n= 9 then
begin
Form1.Text:=Form1.Text+'D';
Label1.Caption:=label1.Caption+'r';
Edit1.Text:=Edit1.Text+'D';
end
else

if n= 10 then
begin
Form1.Text:=Form1.Text+'e';
Label1.Caption:=label1.Caption+'o';
Edit1.Text:=Edit1.Text+'e';
end
else

if n= 11 then
begin
Form1.Text:=Form1.Text+'l';
Label1.Caption:=label1.Caption+'g';
Edit1.Text:=Edit1.Text+'n';
end
else

if n= 12 then
begin
Form1.Text:=Form1.Text+'p';
Label1.Caption:=label1.Caption+'r';
Edit1.Text:=Edit1.Text+'g';
end
else

if n= 13 then
begin
Form1.Text:=Form1.Text+'h';
Label1.Caption:=label1.Caption+'a';
Edit1.Text:=Edit1.Text+'a';
end
else

if n= 14 then
begin
Form1.Text:=Form1.Text+'i';
Label1.Caption:=label1.Caption+'m';
Edit1.Text:=Edit1.Text+'n';
end
else

if n= 15 then
begin
Label1.Caption:=label1.Caption+' ';
Edit1.Text:=Edit1.Text+' ';
end
else

if n= 16 then
begin
Label1.Caption:=label1.Caption+'A';
Edit1.Text:=Edit1.Text+'D';
end
else

if n= 17 then
begin
Label1.Caption:=label1.Caption+'n';
Edit1.Text:=Edit1.Text+'e';
end
else

if n= 18 then
begin
Label1.Caption:=label1.Caption+'i';
Edit1.Text:=Edit1.Text+'l';
end
else

if n= 19 then
begin
Label1.Caption:=label1.Caption+'m';
Edit1.Text:=Edit1.Text+'p';
end
else

if n= 20 then
begin
Label1.Caption:=label1.Caption+'a';
Edit1.Text:=Edit1.Text+'h';
end
else

if n= 21 then
begin
Label1.Caption:=label1.Caption+'s';
Edit1.Text:=Edit1.Text+'i';
end
else

if n= 22 then
begin
Label1.Caption:=label1.Caption+'i';
n:=0;
end

end;
Form1
OnCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=0;
end;
Button1
OnClick
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
Button2
OnClick
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end.

IV.               Output




Diposting oleh di 1 komentar:
Langganan: Komentar (Atom)