PROGRAM SEDERHANA UNTUK MENAMPILKAN DATA DIPESAN

PROGRAM SEDERHANA UNTUK MENAMPILKAN DATA DIPESAN

Dari pada suntuk ga’ tau mau ngapain…iseng-iseng buat program…eh,ternyata berhasil juga buat ni program sederhana..

Buat kawan-kawan yang mau coba ni program,,,silahkan ja liat-liat tulisan dibawah ni…

Desian Form seperti gambar di bawah..

Trus Ketik dech LISTING PROGRAMNYA …

unit UMAHASISWA;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, jpeg, ExtDlgs, XPMan;

type

  TFMahasiswa = class(TForm)

    Panel4: TPanel;

    EDNIM: TEdit;

    EDNAMA: TEdit;

    EDTTL: TEdit;

    ComboBoxAgama: TComboBox;

    ComboBoxPendidkan: TComboBox;

    DPTLahir: TDateTimePicker;

    BitBtn4: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Panel1: TPanel;

    Image1: TImage;

    ComboBoxStudi: TComboBox;

    GroupBox1: TGroupBox;

    CheckBoxOlahraga: TCheckBox;

    CheckBoxKomputer: TCheckBox;

    CheckBoxKesenian: TCheckBox;

    CheckBoxLain: TCheckBox;

    EDLain: TEdit;

    Panel2: TPanel;

    BTPROSES: TBitBtn;

    BTBERSIH: TBitBtn;

    BTKELUAR: TBitBtn;

    ProgressBar1: TProgressBar;

    OpenPictureDialog1: TOpenPictureDialog;

    XPManifest1: TXPManifest;

    Image2: TImage;

    RGPerkawinan: TRadioGroup;

    RGBiaya: TRadioGroup;

    RGJK: TRadioGroup;

    StatusBar1: TStatusBar;

    Timer1: TTimer;

    Label9: TLabel;

    procedure BTKELUARClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

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

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

    procedure CheckBoxLainClick(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BTPROSESClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

//    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FMahasiswa: TFMahasiswa;

  judul : string;

i : integer;

implementation

{$R *.dfm}

procedure TFMahasiswa.BTKELUARClick(Sender: TObject);

begin

if MessageDlg('Anda ingin keluar ?', mtConfirmation, [mbyes,mbno],0)

= mryes then

begin

MessageDlg('Terima kasih anda telah menggunakan program ini', mtInformation,

[mbOK], 0);

Application.Terminate;

end;

end;

procedure TFMahasiswa.FormCreate(Sender: TObject);

begin

ComboBoxAgama.Items.Add('ISLAM');

ComboBoxAgama.Items.Add('KHATOLIK');

ComboBoxAgama.Items.Add('PROTESTAN');

ComboBoxAgama.Items.Add('HINDA');

ComboBoxAgama.Items.Add('BUDHA');

ComboBoxPendidkan.Items.Add('S1');

ComboBoxPendidkan.Items.Add('S2');

ComboBoxPendidkan.Items.Add('D3');

ComboBoxPendidkan.Items.Add('SMA');

ComboBoxStudi.Items.Add('INFORMATIKA');

ComboBoxStudi.Items.Add('AKUNTANSI');

EDLain.Enabled := false;EDLain.Visible := false;

end;

procedure TFMahasiswa.EDNIMKeyPress(Sender: TObject; var Key: Char);

begin

 if key = #13 then

EDNama.SetFocus;

if not (key in ['0'..'9',#13,#8]) then  //UNTUK PENGINPUTAN BILANGAN SAJA

key := #0;

end;

procedure TFMahasiswa.EDNAMAKeyPress(Sender: TObject; var Key: Char);

begin

 if key = #13 then

EDTTL.SetFocus;

if not (key in ['a'..'z','A'..'Z',#13,#8,#32]) then   //UNTUK PENGINPUTAN HURUF

key := #0;

end;

procedure TFMahasiswa.CheckBoxLainClick(Sender: TObject);

begin

if CheckBoxLain.Checked = true then

begin

EDLain.Enabled := true;

EDLain.Visible := true;

end

else

begin

EDLain.Enabled := false;

EDLain.Visible := false;

end;

end;

procedure TFMahasiswa.BitBtn4Click(Sender: TObject);

var

namafile : string;

begin

if OpenPictureDialog1.Execute = false then exit;

namafile := OpenPictureDialog1.FileName;

Image1.Picture.LoadFromFile(namafile);

end;

procedure TFMahasiswa.BTPROSESClick(Sender: TObject);

var

JumlahBaris,Indeks : integer;

TglLahir : tdate;

biaya,perkawinan,jk,hobby : string;

begin

if CheckBoxOlahraga.Checked then

hobby := 'Olahraga';

if CheckBoxKomputer.Checked and (hobby <> '') then

hobby := hobby+',komputer'

else

if CheckBoxKomputer.Checked and (hobby = '') then

hobby := 'komputer';

if CheckBoxKesenian.Checked and (hobby <> '') then

hobby := hobby+',kesenian'

else

if CheckBoxKesenian.Checked and (hobby = '') then

hobby := 'kesenian';

if CheckBoxLain.Checked and (hobby <> '') then

hobby := hobby + ','+EDLain.Text

else

if CheckBoxLain.Checked and (hobby = '') then

hobby := EDLain.Text;

if RGJK.ItemIndex =0 then

jk := 'Laki-laki'

else

jk := 'Perempuan';

if RGPerkawinan.ItemIndex = 0 then

perkawinan := 'Belum Menikah'

else if RGPerkawinan.ItemIndex =1 then

perkawinan := 'Menikah'

else if RGPerkawinan.ItemIndex =2 then

perkawinan := 'janda'

else

perkawinan := 'Duda';

if RGBiaya.ItemIndex = 0 then

biaya := 'Ditanggung sendiri'

else if RGBiaya.ItemIndex = 1 then

biaya := 'Orangtua / keluarga'

else

biaya := 'Bea Siswa';

TglLahir := DPTLahir.Date;

FMahasiswa.Height := 483;

Panel2.Top := 20;

ProgressBar1.Visible := true;

JumlahBaris := 5000;

ProgressBar1.Min := 0;

ProgressBar1.Max := JumlahBaris;

ProgressBar1.Position := 0;

for Indeks := 1 to JumlahBaris do

ProgressBar1.Position := Indeks;

MessageDlg('DATA MAHASISWA SUDAH TERSIMPAN.' + chr(10) + ' ' + chr(10) +

'Nim : ' + EDNim.Text + chr(10) +

'Nama : ' + EDNama.Text + chr(10) +

'Tempat/Tanggal Lahir : ' + EDTTL.Text + ' / ' + DateToStr(TglLahir)

+ chr(10) +

'Agama : ' + ComboBoxAgama.Text + chr(10) +

'Jenis Kelamin : ' + jk + chr(10) +

'Jenjang Pendidikan : ' + ComboBoxPendidkan.Text + chr(10) +

'Program Studi : ' + ComboBoxStudi.Text + chr(10) +

'Minat/Bakat : ' + hobby + chr(10) +

'Status Perkawinan : ' + perkawinan+chr(10) +

'Biaya Kuliah : ' + biaya,mtInformation,[mbok],0);

Image1.Picture := nil;

ProgressBar1.Position :=0;

ProgressBar1.Visible :=false;

Panel2.Top := 20;

FMahasiswa.Height := 513;

end;

procedure TFMahasiswa.Timer1Timer(Sender: TObject);

begin

 statusbar1.Panels [2].Text:='Jam : '+chr(32)+timetostr(now);

  statusbar1.Panels [1].Text :='Created By Gali Rakasiwi';

  IF Label9.Visible THEN  Label9.Visible:=FALSE

  ELSE

  Label9.Visible:=TRUE;

end;

end.


bagi temen - temen yang ga' mau capek nulisin tu code diatas...
ni juga da disiapin program jadinya...
tinggal download ja disini...






Selamat berkreasi.....
"jangan pernah berhenti untuk mencoba".