membuat sistem penggajian di qbasic

sekarang kita akan membuat program sistem gaji di programan qbasic
nah ... langsung saja kita belajar membuatnya
mula - mula kita buka dulu programnya  biar enakan hehhehe leeetttzzz gooo

silahkan masukan codingan ini pada program kalian kawan.

CLS
FOR i = 1 TO 4
    INPUT "Masukan Nama Anda =", n$(i)
    INPUT "Masuakan Jumlah Anak =", anak(i)
    INPUT "Masukan Golongan/Jabatan=", g$(i)
NEXT i
CLS
PRINT TAB(23); "DAFTAR GAJI KARYAWAN PT. LOMBARDO Tbk."
PRINT "__________________________________________________________________________"
PRINT TAB(2); "NIP"; TAB(10); "NAMA"; TAB(22); "JUMLAH ANAK"; TAB(38); "JABATAN"; TAB(53); "TOTAL GAJI"
PRINT "__________________________________________________________________________"
FOR i = 1 TO 4
    SELECT CASE g$(i)
        CASE "A", "DIREKTUR"
            GAJI = 2000000
        CASE "B", "MANAGER"
            GAJI = 1500000
        CASE "C", "SUPERVISOR"
            GAJI = 1000000
        CASE "D", "OPERATOR"
            GAJI = 750000
    END SELECT
    IF anak(i) > 1 THEN tunj = 50000 * anak(i) ELSE tunj = 50000
    Totgaji = GAJI + tunj
    PRINT TAB(2); i; TAB(10); n$(i); TAB(22); anak(i); TAB(38); g$(i); TAB(53); Totgaji
NEXT i
PRINT "__________________________________________________________________________"
END

jika kalian sudah maka akan tampil seperti ini.
 
silahkan tekan F5/run pada programnya

SILAHKAN DI COBA KAWAN DAN SEMOGA SUKSES
SLAM ILMU

Komentar

Posting Komentar

Postingan populer dari blog ini

MAARVIC MINIALES Juara GP LOSAIL - QATAR

Gambar
           Qatar – Losail seri perdana moto GP menjadi momen terbaik bagi Marvic Miniales. Bagaimana tidak miniales yang notabennya pindahan dari tim Suzuki kini tampil impresif dengan motor barunya, dia membuktikan dirinya layak sebagai partner bintang valentine rossi dengan naik podium pertama di race Qatar diikuti oleh davisiozo dan valentine rossi di urutan ketiga. Sementara itu max marques yang sempat memimpin podium di lap lap awal harus puas dengan urutan ke-4 diikuti partnernya pedrosa. Dan Jorge Lorenzo yang menunggangi motor Ducati dipaksa untuk menyesuaikan diri dengan motor Ducatinya karena Lorenzo gagal menjadi urutan 3 besar di race ini. Dengan hasil ini marvic miniales sudah memiliki poin 25, modal penting untuk race selanjutnya yang akan di helad di Argentina – Termas de Rio Hondo 09 April – 00:02 WIB.
Baca selengkapnya

IBU

Gambar
saat aku kecil tanganmu adalah malaikat bagiku kakimu adalah langkah pasti bagiku pelukanmu adalah selimut terhangat yang pernah aku rasa matamu adalah penerang jalanku kata-katamu adalah do’a untukku oh ibu kau lebih dari bidadari dihati ibu, kehidupanku tak berarti tanpa usapan tanganmu tanpa ukiran kata yang telah kau beri tanpa langkah kaki yang kau ajarkan oh ibu kini aku bersyukur telah mempunyai syurga di jalan hidupku in i PUISI-IBU  
Terus membaca

TUGAS ILMU SOSIAL DASAR BAB 8 - 10

TUGAS ILMU SOSIAL DASAR KELOMPOK I BAB 8,9,10 KELAS: 1KA19 SALEMBA UNIVERSITAS GUNADARMA Nama : Maria Febrianti Gaso Badeoda Npm : 18116098      Nama : Nurul Tania Rantetana      Npm :15116637 Nama : Gilbert Kevin DionNpm : 13116048 Nama : Nurma Hermawan Npm : 15116590 Nama : Jeremy Felix Npm : 13116703 BAB 8 Pertentangan Sosial dan Integrasi Masyarakat  Jelaskan perbedaan kepentingan Kepentingan merupakan dasar dari timbulnya tingkah laku individu. Individu bertingkah laku karena adanya dorongan untuk memenuhi kepentingannya. Kepentingan ini sifatnya esensial bagi kelangsungan hidup individu itu sendiri, jika individu berhasil memenuhi kepentingannya, maka ia akan merasakan kepuasan dan sebaliknya kegagalan dalam memenuhi kepentingan akan menimbilkan masalah baik bagi dirinya maupun bagi lingkungannya. Dengan berpegang prinsip bahwa tingkah laku individu merupakan...
Terus membaca