Cara Membuat Aplikasi Data Mahasiswa dengan Delphi7

      Permasalahan : Membuat atau Menampilakan Data Mahasiswa yang diinput secara manual

    Penyelesaian :

1.       Membuat Logika Dasar terlebih dahulu

2.       Membuat Design Aplikasi

Design Aplikasi

  Keterangan :

  Label1 = DATA MAHASISWA

  Label2 = Nama

  Label3 = NIM

  Label4 = Alamat

  Label5 = Fakultas

  Edit1 = Kosong

  Edit2 = Kosong

  Edit3 = Kosong

  Edit4 = Kosong

  Edit5 = Kosong

  Edit6 = Kosong

  Edit7 = Kosong

  Edit8 = kosong

  Button1 = Tampilkan

  Button2 = Hapus

  Button3 = Keluar

3.       Membuat Script Pada Button

  Button1 (Tampilkan)

Source Code Button Tampilkan

Keterangan :

Pada Button1 tambahkan Source Code seperti gambar yang artinya, Pada saat diinputkan data di “Edit1” maka data akan muncul di “Edit5” , Jadi Source code yang saya gunakan disini Edit5.Text:=(‘Nama = ‘)+Edit1.Text; begitu pula selanjutnya.

Button2 (Hapus)

Source Code Hapus 

Keterangan :

Pada Button2 kedua ini saya maksudkan untuk menghapus field input dan output data, Jadi jika sudah selesai ditampilkan maka user akan diarahkan untuk menekan tombol hapus yang sudah saya sisipkan source code Edit1.Text:= ‘  ‘; .

  Button3 (Keluar)

                                 

Source Code Button Keluar

Keterangan :

Pada Button ketiga saya mencoba berinovasi dan mencoba bahasa perumpamaan yaitu If Then , Inovasi ini bermula karena saya ingin beda dan sekalian belajar bahasa if di delphi tentunya dibantu ilmu dari google, Nah penjelasan dari if yang saya buat ini adalah jika user menekan tombol keluar maka akan tampil suatu pesan [ didelphi adalah Application.MessageBox() ] “Apakah Anda Yakin Keluar ?, lalu dibawahnya akan muncul pilihan Yes atau No, Jika yes maka Program akan secara otomatis terminate atau berhenti.

   

Read more

Cara Membuat Aplikasi Nilai untuk Mahasiswa dengan Delphi7

2.      Penyelesaian :

Langkah 1 :

·         Menentukan logika terlebih dahulu 

Langkah 2 :

·         Membuat desain untuk program nilai

                             

Gambar 1.1  (Design Program)

Keterangan :

·         Label1 = DATA MAHASISWA

·         Label2 = Nama

·         Label3 = NIM

·         Label4 = Alamat

·         Label5 = Fakultas

·         Edit1 = Kosong

·         Edit2 = Kosong

·         Edit3 = Kosong

·         Edit4 = Kosong

·         Edit5 = Kosong

·         Edit6 = Kosong

·         Edit7 = Kosong

·         Edit8 = kosong

·         Edit9 = kosong

·         Edit10 = kosong

·         Edit11 = kosong

·         Button1 = Tampilkan

·         Button2 = Hapus

·         Button3 = Keluar

·         Button4 = Proses

Langkah 3 :

·         Membuat syntax untuk tombol proses yang bertujuan untuk memproses nilai yang diinputkan user terdapat atau masuk dalam range mana.

Gambar 1.3 (Source Code Button Proses)

Langkah 4 :

·         Membuat syntax untuk button tampilkan, untuk perintah program disini ditujukkan untuk menampilkan inputan yang sudah dinput user yaitu nama, alamat, nim dan nilai.

Gambar 1.4 (Source Code Button Tampilkan)

Langkah 5 :

·         Membuat Syntax hapus, untuk perintah tombol hapus syntax yang digunakan untuk menghapus field input dan output data adalah Edit1.Text:= ‘  ‘;. Jadi jika sudah selesai ditampilkan maka user akan diarahkan untuk menekan tombol hapus yang sudah saya sisipkan source code 

Gambar 1.5 (Source Code Hapus) 

Langkah 6 :

·         Pada Button Keluar saya mencoba berinovasi dan mencoba bahasa perumpamaan yaitu If Then , Inovasi ini bermula karena saya ingin beda dan sekalian belajar bahasa if di delphi tentunya dibantu ilmu dari google, Nah penjelasan dari if yang saya buat ini adalah jika user menekan tombol keluar maka akan tampil suatu pesan [ didelphi adalah Application.MessageBox() ] “Apakah Anda Yakin Keluar ?, lalu dibawahnya akan muncul pilihan Yes atau No, Jika yes maka Program akan secara otomatis terminate atau berhenti.

Gambar 1.6 (Source Code Button Keluar)

Read more

Cara Membuat Aplikasi Penjualan Sederhana dengan Delphi 7

 STUDI KASUS

Buatlah program sederhana untuk penjualan, misalnya seperti dibawah ini

Gambar 1.1 Contoh Aplikasi Penjualan

 PENYELESAIAN KASUS

Langkah ke-1: Membuat design layout terlebih dahulu

Beberapa Komponen yang dibutuhkan untuk membuat Design Layout Aplikasi Kasir diantaranya sebagai berikut:

Komponen	Name	Text	Caption
Label1	Label1	-	Aplikasi Kasir Sederhana
Label2	Label2	-	Harga(Rp)
Label3	Label3	-	Jumlah Barang (Q)
Label4	Label4	-	Input Pembayaran
Label5	Label5	-	Total Bayar
Label6	Label6	-	Kembalian
Label7	Label7	-	Rp
Label8	Label8	-	Rp
Edit1	Edtharga	-	-
Edit2	Edtjml	-	-
Edit3	Edtbyr	-	-
GroupBox1	GroupBox1	-	Panel Button
GroupBox1	GroupBox1	-	Rincian Pembelian
Button1	Button1	-	Hitung
Button2	Button2	-	New
Button3	Button3	-	Keluar

 Berikut tampilan design dengan menggunakan komponen diatas:

  Gambar 1.2 Tampilan Design Layout

Langkah ke-2: Membuat Source Code untuk Button Hitung

Gambar 1.3 Source Code Button Hitung

Pada langkah kedua kita akan membuat source code untuk button hitung berikut source code nya untuk membuat button hitung supaya memproses perhitungan total bayar dan kembalian, serta menampilkan angka dengan format Rp. #.###,# seperti pada kasus diatas:

procedure TForm1.Button1Click(Sender: TObject);

var

  harga, bayar, kembalian, total : real;

  jumlah: integer;

begin

  if((Edtharga.Text = ' ') or (Edtjml.Text = ' ') or (Edtbyr.Text = ' ')) then

    begin

      messageDlg('Maaf Ada Data yang Belum Terisi, Mohon Cek kembali!!!',

      mtError,[mbOk],0);

      Edtharga.SetFocus;

      exit;

    end;

  harga:= StrtoFloat(Edtharga.Text);

  jumlah:= StrtoInt(Edtjml.Text);

  bayar:= StrtoFloat(Edtbyr.Text);

  total:=harga*jumlah;

  kembalian:=bayar-total;

  lblbayar.Caption := FormatFloat('Rp #,###,#0.00',total);

  lblkembali.Caption := FormatFloat('Rp #,###,#0.00',kembalian);

 Langkah ke-3: Membuat Source Code Button New:

Gambar 1.4 Source Code Button New

Pada langkah ketiga kita membuat source code untuk button New, konsep button new hampir sama saat kita membuat button hapus, berikut source codenya:

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edtharga.Text:= '  ';

  Edtjml.Text:= '  ';

  Edtbyr.Text:= '  ';

  lblbayar.Caption:= ' ';

  lblkembali.Caption:= ' ';

end;

Langkah ke-4 à Membuat Source Code Button Keluar

Gambar 1.5 Source Code Button Keluar

Pada Langkah ketiga kita akan membuat Source code untuk button keluar, dengan menggunakan fungsi IF supaya pada saat user aplikasi menekan tombol keluar akan muncul opsi untuk pilihan yes atau no, berikut source codenya:

procedure TForm1.Button3Click(Sender: TObject);

begin

If(Application.MessageBox('Apakah Anda Yakin Keluar? ','konfirmasi',MB_YesNo)=ID_Yes)then

  Application.Terminate;

end;

OUTPUT

Gambar 1.6 Tampilan Awal Running

Gambar 1.7 Tampilan Saat User Memasukkan Data

Gambar 1.8 Tampilan Saat User Menekan Tombol Hitung

Gambar 1.9 Tampilan Saat User Menekan Tombol New

Gambar 2.1 Tampilan Saat User Menekan Tombol Keluar

Bagaimana sangat mudah kan membuat aplikasi penjualan sederhana menggunakan delphi?? . Untuk pertanyaan atau saran, atau yang mau minta filenya untuk referensi tugas bisa meninggalkan komentar. 

Read more