Menu Bar, Dialog Box dan Web Browser

I.         Deskripsi Program

Program dibuat  menggunakan Borland Delphi 7. Program ini dibuat untuk menyimpan dan membuat files text. Program ini sama seperti text editor pada notepad akan tetapi dibuat untuk mempermudah mengedit text dengan toolbar. Pada toolbar disediakan untuk membuat baru text,merubah font size,font style,dan nama font.

II.      Interface Program

III.       Coding Program

Nama Komponen	Event	Perintah
Save1 ToolButton1 Open1 CBFontSize TBNew Paste1 Copy1 Cut1 Paste Cut Copy Exit1 New1 TNotepad	OnClick OnClick OnClick OnChange OnClick OnClick OnClick OnClick OnClick OnClick OnClick OnClick OnClick OnCreate	procedure TNotepad.Save1Click(Sender: TObject); var   F:textfile;   namafile : string; begin   if SaveDialog1.Execute then   begin     NamaFile := SaveDialog1.FileName;     AssignFile(F,namafile);     Rewrite(F);     Write(F,Text.Text);     CloseFile(F);   end; end; procedure TNotepad.ToolButton1Click(Sender: TObject); begin    if (Sender as TToolButton).Down then   begin     case (Sender as TToolButton).Tag of       1 :  text.Font.Style := text.Font.Style + [fsBold];       2 :  text.Font.Style := text.Font.Style + [fsItalic];       3 :  text.Font.Style := text.Font.Style + [fsUnderline];     end;   end   else   begin     case (Sender as TToolButton).Tag of       1 :  text.Font.Style := text.Font.Style - [fsBold];       2 :  text.Font.Style := text.Font.Style - [fsItalic];       3 :  text.Font.Style := text.Font.Style - [fsUnderline];     end;   end; end; procedure TNotepad.Open1Click(Sender: TObject); begin   if OpenDialog1.Execute then     begin       openDialog1.InitialDir := GetCurrentDir;       openDialog1.Options := [ofFileMustExist]; text.Lines.LoadFromFile(openDialog1.FileName);     end    else    ShowMessage('Open file was cancelled'); end; procedure TNotepad.CBFontSizeChange(Sender: TObject); begin text.Font.Size:=strtoint(CBFontSize.Text); end; procedure TNotepad.TBNewClick(Sender: TObject); begin   text.Clear; end; procedure TNotepad.Paste1Click(Sender: TObject); begin   paste.Click; end; procedure TNotepad.Copy1Click(Sender: TObject); begin   copy.Click; end; procedure TNotepad.Cut1Click(Sender: TObject); begin   cut.Click; end; procedure TNotepad.PasteClick(Sender: TObject); begin   text.PasteFromClipboard; end; procedure TNotepad.CutClick(Sender: TObject); begin   text.CutToClipboard; end; procedure TNotepad.CopyClick(Sender: TObject); begin   text.CopyToClipboard; end; procedure TNotepad.Exit1Click(Sender: TObject); begin   if MessageDlg('Anda Yakin Ingin Menutup Program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then     application.Terminate; end; procedure TNotepad.New1Click(Sender: TObject); begin   text.Clear; end; procedure TNotepad.FormCreate(Sender: TObject); begin   CBFontSize.ItemIndex:=6;   CBFontName.ItemIndex:=6; end;

IV.      Output

4.1     Tampilan awal program

4.2     Tampilan ketika menginput data dan mengklik tombol italic

 4.3     Tampilan ketika klik kanan pada text editor

4.4     Tampilan ketika mensave file

4.5     Tampilan ketika membuka file

Untuk source code secara lengkap bisa diunduh
Via MirrorCreator

Tab Additional II (Representasi Data Diagram Pie Di Delphi)

I.         Deskripsi Program

Program dibuat  menggunakan Borland Delphi 7. Program ini dibuat untuk mempresentasikan jumlah mahasiswa aktif universitas lambung mangkurat ke dalam diagram pie. Pengguna cukup memilih fakultas dan menginputkan jumlah mahasiswa aktif di fakultas yang dipilih. Representasi diagram pie akan secara otomatis dibuat berdasarkan jumlah data yang di inputkan, bukan hanya membuat diagram pie secara otomatis akan tetapi juga otomatis memberikan legend pada diagram pie beserta label dan warna tiap tiap data. Ketika pengguna mengklik tombol simpan maka data tidak hanya di representasikan ke dalam diagram pie akan tetapi juga dimasukan ke dalam stringgrid untuk menampilkan pada pengguna jika legend terlalu banyak.

II.      Interface Program

III.   Coding Program

Nama Komponen	Event	Perintah
bSave Form1	OnClick OnCreate	procedure TForm1.BSaveClick(Sender: TObject); var   i:integer; begin stringgrid1.RowCount:=stringgrid1.RowCount+1; stringgrid1.Cells[1,stringgrid1.RowCount-1]:=Edit1.Text; stringgrid1.Cells[0,stringgrid1.RowCount-1]:=combobox1.Text;   Chart1.Series[0].clear;   for i:=1 to stringgrid1.rowcount-1 do  chart1.Series[0].Add(strtoint(stringgrid1.cells[1,i]) ,stringgrid1.cells[0,i]); end; procedure TForm1.FormCreate(Sender: TObject); begin    StringGrid1.Cells[0,0]:='Fakultas';    StringGrid1.Cells[1,0]:='Jumlah'; end;

IV.   Output

4.1 Tampilan awal program dijalankan

4.2 Tampilan ketika data yang diinputkan hanya satu

4.3 Tampilan data yang diinputkan lebih dari 1

Tab Additional

I.      Deskripsi Program

Program dibuat  menggunakan Borland Delphi 7. Program ini berjudul Program Printing. Program ini dibuat untuk memudahkan pengguna untuk menghitung biaya printing. Pengguna hanya perlu menginput jumlah kertas dan jumlah uang yang dibayar. Ketika pengguna mengisi data secara tidak urut, misal langsung menginput jumlah kertas maka akan ada peringatan harus memilih tinta yang digunakan, sehingga mengurangi kesalahan pengguna dan membantu program dalam error handling.

Sistem Operasi Masa Depan (Regalia OS)

1.1.  Latar Belakang

Paper ini ditulis setelah mencermati perkembangan teknologi informasi yang berkembang pesat. Perkembangan ini membuat kita suka atau tidak harus mempelajari dan bila perlu mengikutinya. Hal ini perlu dilakukan karena tantangan masa depan yang akan kita hadapi bersama.

Perkembangan ini menuntut pula para institusi pendidikan dan para developer baik hardware maupun software untuk memenuhi kebutuhan pengguna di zaman sekarang.

Perulangan Delphi (Program Mencari Pangkat)

I.         Deskripsi Program

       Program dibuat  menggunakan Borland Delphi 7. Program ini dibuat untuk mencari pangkat dua dengan menambahkan batas awal dengan nilai tambah hingga kurang dari sama dengan batas akhir.Ketika pengguna mengklik kembali tombol ok maka kolom pada listbox sebelum dipangkatkan dan sesudah dipangkatkan akan dibersihkan dan diganti dengan nilai yang baru.