aplkasi penghitung nilai akhir semester

Oke Teman-Teman, kali ini saya akan memposting bagaimana cara membuat aplikasi untuk menghitung nilai akhir dari setiap mata kuliah.... buat yang berminat untuk memcoba membuatnya silahkan aja di coba... di bawah ini merupakan desain form utama dari aplikasi ane... 

jika di klik tombol kuis akan muncul form seperti ini ...

jika di klik tombol Tugas akan muncul form seperti ini ...

untuk coddingnya anda bisa Lihat di bawah ini ....

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB,

  jpeg;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    GroupBox2: TGroupBox;

    Edit7: TEdit;

    Edit8: TEdit;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Edit9: TEdit;

    Button1: TButton;

    ADOconnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Button2: TButton;

    Edit10: TEdit;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    Image1: TImage;

    Label4: TLabel;

    GroupBox3: TGroupBox;

    Edit11: TEdit;

    Label10: TLabel;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    Nama, NPM : string;

    Kehadiran, tugas, kuis, uts, uas, nilai, grade : real;

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

 var a,b,c,d,e : real ;

begin

  Nama := edit1.Text;

  NPM := edit2.Text;

  Kehadiran := strtofloat (edit3.Text);

  Kuis := strtofloat (edit4.Text);

  Tugas := strtofloat (edit10.Text);

  UTS := strtofloat (edit5.Text);

  UAS := strtofloat (edit6.Text);

  nilai := (kehadiran+tugas+kuis+uts+uas)/4;

  edit7.Text := nama;

  edit8.Text := NPM;

  edit9.Text := floattostr (nilai);

  if nilai >80 then

  edit11.Text := ('A');

  if nilai <80 then

  edit11.Text := ('B');

  if nilai <70 then

  edit11.Text := ('C');

  if nilai <60 then

  edit11.Text := ('D');

  if nilai <50 then

  edit11.Text := ('E');

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

  Close;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

edit1.Text := ' ';

  edit2.Text := ' ';

  edit3.Text := ' ';

  edit4.Text := ' ';

  edit5.Text := ' ';

  edit6.Text := ' ';

  edit7.Text := ' ';

  edit8.Text := ' ';

  edit9.Text := ' ';

  edit10.Text := ' ';

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

  close;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

  AdoTable1.Open;

  AdoTable1.Append;

  ADOTable1.FieldByName('Nama')   .AsString:= edit1.Text;

  ADOTable1.FieldByName('NPM').AsString:= edit2.Text;

  ADOTable1.FieldByName('Kehadiran')    .AsString:= edit3.Text;

  ADOTable1.FieldByName('Kuis')    .AsString:= edit4.Text;

  ADOTable1.FieldByName('Tugas') .AsString:= edit10.Text;

  ADOTable1.FieldByName('UTS') .AsString:= edit5.Text;

  ADOTable1.FieldByName('UAS') .AsString:= edit6.Text;

  ADOTable1.FieldByName('Total Nilai') .AsString:= edit9.Text;

  ADOTable1.FieldByName('Grade') .AsString:= edit11.Text;

  ADOTable1.Post;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  form3.show;

end;

end.

Selamat Mencoba sobat .... good luck

Belajar Membuat Aplikasi Jadwal Kuliah

salam sahabat blogger,,,, ane kadang suka lupa ini sama jadwal kuliah ane sendiri,,, nah karena itu ane berinisiatif untuk membuat aplikasi dari delphi supaya mempermudah untuk menyimpan dan mengingat jadwal kuliah ane ..... buat yang berminat untuk memcoba membuatnya silahkan aja di coba... di bawah ini merupakan desain form utama dari aplikasi jadwal kuliah...

untuk coddingnya anda bisa Lihat di bawah...

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons,

  jpeg;

type

  TForm1 = class(TForm)

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Hari: TLabel;

    Nama_MK: TLabel;

    SKS: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Jam: TLabel;

    Kelas: TLabel;

    Edit4: TEdit;

    Edit5: TEdit;

    Label1: TLabel;

    Edit6: TEdit;

    Label2: TLabel;

    Timer1: TTimer;

    Label3: TLabel;

    Label4: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    Image1: TImage;

    Label5: TLabel;

    procedure Timer1Timer(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  label3.Caption := Timetostr (Time) ;

  label4.Caption := FormatDateTime('dddd,dd-mm-yyyy',Date);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  AdoTable1.Open;

  AdoTable1.Append;

  ADOTable1.FieldByName('Hari')   .AsString:= edit1.Text;

  ADOTable1.FieldByName('Nama MK').AsString:= edit2.Text;

  ADOTable1.FieldByName('SKS')    .AsString:= edit3.Text;

  ADOTable1.FieldByName('Jam')    .AsString:= edit4.Text;

  ADOTable1.FieldByName('Kelas') .AsString:= edit5.Text;

  ADOTable1.FieldByName('Dosen') .AsString:= edit6.Text;

  ADOTable1.Post;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

  edit1.Text := ' ';

 edit2.Text := ' ';

 edit3.Text := ' ';

 edit4.Text := ' ';

 edit5.Text := ' ';

 edit6.Text := ' ';

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

 Close;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

 fm.show;

end;

end.

Selamat Mencoba ....

Cara Membuat Program Total Gaji Karyawan Sederhana Dengan Borland Delphi 7

Sebenarnya ini adalah tugas yang diberikan kampus saat semester 2 yang mana tidak ada salahnya di publish disini agar bisa juga buat pelajaran bagi teman-teman yang sedang belajar program sederhana dari Borland Delphi 7 ini.

Soalnya seperti ini :

Hitung total gaji karyawan berdasarkan ketentuan sebagai berikut :
- Jika golongan 3A maka gaji pokok Rp. 1.500.000
- Jika golongan 3B maka gaji pokok Rp. 1.800.000
- Jika golongan 3C maka gaji pokok Rp. 2.200.000
- Jika golongan 3D maka gaji pokok Rp. 2.600.000

Tunjangan kesehatan di berikan berdasarkan kepada status,
- Jika status belum menikah maka tunjangan kesehatan Rp. 250.000
- Jika status menikah maka tunjangan kesehatan diberikan berdasarkan jumlah anak

a. Jumlah anak 1-2 org maka tunjangan kesehatan Rp. 500.000
b. Jumlah anak 3-4 org maka tunjangan kesehatan Rp. 700.000
c. Jumlah anak lebih dari 4 maka tunjangan kesehatan Rp. 800.000
d. Jika telah menikah tapi belum punya anak maka tunjangan kesehatan Rp. 400.000

Total gaji = gaji pokok + tunjangan kesehatan + lembur

Untuk uang lembur di hitung dari kelebihan jam kerja dimana setiap jam kelebihan dibayar Rp. 15.000

Screenshoot Form dari Program Total Gaji Karyawan Sederhana Dengan Borland Delphi 7

Untuk Form diatas, hanya memakai 3 buah COmbobox dengan 2 buah edit text, dan satu tombol button, untuk variasi terserah dari selera masing-masing.

Oke, karena udah hampir jam 12 malam, maka langkah-langkahnya bisa sobat pelajari sendiri dirumah, dan silahkan download programnya dibawah ini..

Jadwal Kuliah Gua

Jadwal Kuliah STMIK Umitra

  

    
Hari
    
Nama MK 
    
Sks
    
Jam
    
Kelas

  

    
Senin
    
Riset Operasional
    
4
    
1 dan 2
    
C.4.3

 

    
Senin
    
Metode Penelitian
    
2
    
3
    
C.4.4

 

    
Senin
    
Organisasi Komputer
    
3
    
4
    
C.4.2

  

    
Selasa
    
Pemrograman Delphi
    
2
    
4
    
C.4.3

  

    
Rabu
    
Pengetahuan Bisnis
    
2
    
3
    
C.4.3

  

    
Kamis
    
Prak Pemrograman Foxpro
    
2
    
1 dan 2
    
LAB 4

 

    
Kamis
    
Pemrograman Foxpro
    
2
    
4
    
C.4.2

 

    
Kamis
    
Prak Pemrograman Delphi
    
2
    
4 dan 5
    
LAB 4

  

    
Jum'at
    
Internet
    
2
    
2 dan 3
    
LAB 4

  

    
Sabtu
    
Konsep Sistem Informasi
    
3
    
2
    
C.4.7

Membuat Program Grade Nilai

1. Buka Aplikasi Delphi anda, tampilan awal akan muncul form 1

2. Isi dengan label untuk memberikan keterangan pada langkah langkahnya, pilih menu label pada icon " A" , kemudian sesuaikan dengan kebutuhan anda

3. Kemudian Buatlah tempat untuk penginputan data dengan memilih menu edit.text pada icon, seperti berikut 

untuk membuat kolom inputan

4. kemudian buatlah button untuk memproses program tersebut dengan memilih menu button click

button.click

5. Kemudian klik 2x pada button click tersebut untuk mengisi script. isi script seperti contoh dibawah ini 

procedure TForm1.Button1Click(Sender: TObject);

Var

  N1, N2, N3, NA : real;

begin

  N1 := strtofloat(edit1.Text);

  N2 := strtofloat(edit2.Text);

  N3 := strtofloat(edit3.Text);

  NA := (N1+N2+N3)/3;

  edit4.Text := floattostr(NA);

  if (NA >= 90) AND (NA <= 100) then

  edit5.Text := 'A'

  else if (NA >= 75) AND (NA <= 89) then

  edit5.Text := 'B'

  else

  edit5.Text := 'C';

end;

6. Setelah itu coba jalankan program tersebut dengan menekan F9,

Program sederhana penentuan grade nilai anda telah selesai.

Membuat Program kalkulator sederhana menggunakan delphi 7

Siapkan 1 Button, 1 Combobox, 3 Edit, dan 4 Label

Kemudian setting Properties seperti gambar dibawah ini :

Untuk mengisi combobox cari items di properties combobox seperti pada gambar dibawah :

Kemudian isi string list editor seperti gambar dibawah

Setelah semua selesai masukan syntax dibwah ke button 1

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z: real;

begin

x:= strtofloat(edit1.Text);

y:=strtofloat(edit2.Text);

if combobox1.Text = ‘+’ then

z:=x+y

else

if combobox1.text = ‘-‘ then

z:=x-y

else

if combobox1.text=’/’ then

z:=x/y

else

if combobox1.text=’*’ then

z:=x*y;

edit3.text:=floattostr(z);

end;

Kemudian silahkan Compile :)

Catatan : Program ini memiliki kelemahan apabila dibagi 0, Karena apabila bilangan dibagi 0 hasilnya adalah tidak terhingga