Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

Pertemuan-6-Latihan_2

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

Pertemuan-6-Latihan_2

NAMA NOVA TEGAR ADIYANSYAH
NIM 312010145

Program Menghitung Gaji Karyawan

Dalam Struktur organisasi perusahaan ketentuan gaji perusahaan terbagi menjadi 3 struktur utama

Jabatan Gaji Pokok
Direktur 5000000
Manager 3000000
Karyawan 1000000

Besarnya tunjangan ditentukan oleh status kepegawaian

Status Pegawai Tunjangan
Tetap 1500000
Honorer 500000

Hasil Desan Form

Program Penjualan Barang

Kode Nama Barang Harga Barang SUbTotal Diskon
A01 Speaker 50000 >=100000 15%
A02 Mouse 25000 >=500000 10%
A03 Harddisk 750000 >=25000 5%
A04 Mouse Pad 5000 =25000 0%

Dengan ketentuan:

pascal
* Data yang diinputkan hanya kode barang dan quantity.
* Quantity pembelian tidak boleh lebih dari 10.
* Data yang dimasukan harus divalidasi.

Hasil Desain Form

===================== P ============== P ===================

Deskripsi Gambar