Tutorial membuat Sistem Pembayaran SKS dengan Delphi 7

Membuat Sistem Pembayaran SKS dengan Delphi 7

Tutorial yang ane share ini sangat sederhana dan gampang pembuatannya, tidak butuh kopi, gula, teh, dan lain-lain. hehe

yang penting scriptnya sama seperti di bawah...

Tentunya tutorial ini khusus bagi yang udah punya installasi software Delphi 7. Tapi yang belum punya softwarenya gak perlu khawatir ataupun sedih karena shobat bisa download Delphi 7 di sini

Dan yang ingin sedikit berhemat kapasitas harddisk bisa download Delphi 7 portable di sini

Langsung aja Ke TKP…

1.            Buat table di Program Delphi seperti di bawah ini.

Scripnya di bawah ini:

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    Label7: TLabel;

    Edit7: TEdit;

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure Edit6Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

edit3.Text := 'Teknik Informatika S1';

edit4.Text := '650000';

edit5.Text := '35000';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

edit3.Text := 'Teknik Informatika D3';

edit4.Text := '550000';

edit5.Text := '30000';

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

edit3.Text := 'Sistem Informasi';

edit4.Text := '600000';

edit5.Text := '32500';

end;

procedure TForm1.Edit6Change(Sender: TObject);

 var

uspp,jumlahsks,usks,totalbayar : single;

kode : integer;

sspp,sjumlahsks,susks,stotalbayar : string [30];

begin

val (edit4.text, uspp,kode);

val (edit5.text,usks,kode);

val(edit6.text,jumlahsks,kode);

Totalbayar := uspp+(jumlahsks * usks);

str(totalbayar:20:2,stotalbayar);

edit7.text:=stotalbayar;

end;

end.

Penjelasan:

2.            Klik radio button 1, maka akan muncul kotak, masukkan scrip seperti berikut

edit3.Text := 'Teknik Informatika S1';

edit4.Text := '650000';

edit5.Text := '35000';

3.            Lalu klik radio button 2, maka akan muncul kotak, masukkan scrip seperti berikut

edit3.Text := 'Teknik Informatika D3';

edit4.Text := '550000';

edit5.Text := '30000';

4.            Lalu klik radio button 2, maka akan muncul kotak, masukkan scrip seperti berikut

edit3.Text := 'Sistem Informasi';

edit4.Text := '600000';

edit5.Text := '32500';

Keterangan:

Misal Radio button 1.

“Edit3.Text” berisikan tentang jurusan maka, jika kita jalankan program dan kita klik missal radio button 1, maka akan muncul tulisan “Teknik Informatika S1”. “Edit4.Text” berisikan tentang biaya spp, maka kita masukkan besarnya biaya spp yang akan dibayar. Dan edit5.text berisikan tentang biaya sks yang harus kita bayar (per 1 sks).

5.         Masuk ke langkah selanjutnya

6.         Klik edit 6 lalu masukkan text seperti berikut

var

uspp,jumlahsks,usks,totalbayar : single;

kode : integer;

sspp,sjumlahsks,susks,stotalbayar : string [30];

begin

val (edit4.text, uspp,kode);

val (edit5.text,usks,kode);

val(edit6.text,jumlahsks,kode);

Totalbayar := uspp+(jumlahsks * usks);

str(totalbayar:20:2,stotalbayar); ----> (Maksudnya kaksimal 20 digit, dan ada 2 digit di belakang koma)

edit7.text:=stotalbayar;

end;

Maka ketika kita jalankan program tersebut, akan tampil seperti di bawah ini.

Misal kita masukkan NIM 11.5.00007

Nama : Stevan de Paijo

Jurusan, SPP Tetap, dan Biaya/SKS langsung muncul ketika kita clik radio button yang ada di samping kanan. Misal kita click Jurusan TI/S1, maka secara otomatis Jurusan, SPP Tetap, dan Biaya/SKS akan terisi. Hal ini karena kita telah mengisi format radio button di awaul tadi.

Lalu kita ketikkan Jumlah SKS 10, maka dengan sendirinya Total Bayar akan berubah. (SPP+(jumlah sks*Biaya sks).

Gak usah pusing-pusing, sederhana kan??? Kalo program tidak berjalan dengan baik, coba ceck kembali script yang ada di atas tadi

Selamat mencoba….

komputerbox.blogspot.com