UAS PBO 1 JAVA PROGRAMMING

Nama : Sonia Indah Sari
Nim   : 1202161044
Kelas : Reguler Malam
Jurusan : Sistem Informasi

Database SQL serta Relasi (Pengadaan Barang masuk dan Keluar)

assalamualaikum wr.wb

Selamat Malam....

saya jarang sekali menulis dan hari ini saya akan menjelaskan Pengadaan Barang Masuk dan Barang Keluar. menggunakan Database SQL serta bagaimana merelasikannya.

Kenapa disini saya mengambil Pengadaan Barang karena hal ini dilakukan untuk mengetahui pemasukkan serta keluaran barang itu sendiri.
tabel yang kita butuhkan yaitu tabel user_login, tabel barang_masuk, tabel barang_keluar, tabel data_barang, dan tabel persediaan_barang.
ok langsung saja hal yang pertama kita lakukan adalah membuat database serta tabel-tabelnya.

pertama-tama kita buat database ya

create database tes;

lalu, setelah itu kita buat tabel seperti di bawah ini :

create table barang_masuk (
 id_masuk int(10) PRIMARY KEY,
    tanggal date,
    kode_barang varchar(30),
    jumlah varchar(10)
    );

kemudian insert data  ke tabel tersebut.
lakukan hal yang sama pada tabel lainnya hingga jadi beberapa tabel seperti dibawah ini.
kemudian kita relasikan bisa dengan SQL atau juga bisa dengan Navicate. disini saya menggunakan SQL server

cara membuatnya terdapat dibawah ini

untuk membuat relasi dibutuhkan Primary Key dan Foreign Key.
selanjutnya saya akan manggabungkan 2 tabel
berikut SQL nya.

SELECT *FROM stok_barang INNER JOIN data_barang on stok_barang.id_stok-data_barang.id_stok

Mungkin itu saja yang dapat saya sampaikan . kurang lebihnya saya mohon maaf. terima kasih
wassalamualaikum wr. wb

Materi Pemrograman Prosedural (pascal)

    Sejarah Pascal

              Pascal merupakan bahasa tingkat tinggi (high level language) yang orientasinya pada segala tujuan, dirancang oleh Professor Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematika dan philosopi terkenal abad  dari perancis.

          Pascal digunakan untuk membuat suatu program terstruktur.

        Struktur Pascal

Program namaprogram  { nama  program}

Uses    { mendefinisikan hardware }

Type    { tipe variabel }

Const    { konstanta } 

Var    { variabel }

Begin  {awal program}

  Statemen;  {pernyataan-pernyataan}

End.  {akhir program}

Input dan Output

oInput : Read dan Readln

  Read = menerima inputan dari keyboard tanpa ganti baris

  Readln = menerima inputan dari keyboard dengan ganti baris

oOutput : Write dan Writeln

  Write = mencetak teks tanpa ganti baris

  Writeln = mencetak teks dengan ganti baris

SEMOGA BERMANFAAAT :)

TPW (Turbo Pascal) IF THEN ELSE

TUGAS PEMROGRAMAN PROSEDURAL

“PASCAL”

NAMA                 : SONIA INDAH SARI

NIM                     : 1202161044

FAKULTAS         : ILMU KOMPUTER

PROG. STUDI     : SISTEM INFORMASI  (MALAM)

7.    Hitung Gaji Bersih berikut :

Gol             Gaji Pokok                  Tunjangan

1                 1 Jta                             200.000,-

2                 1,5 jta                          300.000,-

3                 2 jta                             400.000,-

Gaji kotor = gaji pokok + tunjangan

pajak sebesar 2,5% dari gaji kotor

gaji bersih = gaji kotor - pajak       

input : NIK, Nama, Gol

Output : Gaji Pokok, Tunjangan, Gaji Bersih, pajak dan gaji Kotor        

PROGRAM GAJI;

USES WINCRT;

VAR

   GOL             :CHAR;

   NIK              :STRING[16];

   NAMA         :STRING[25];

   TUNJANGAN,POKOK,PAJAK,KOTOR,BERSIH :REAL;

BEGIN

     WRITE('NAMA                 :');READLN(NAMA);

     WRITE('NIK                      :');READLN(NIK);

     WRITE('GOLONGAN      :');READLN(GOL);

     IF (GOL='1') THEN

     BEGIN

          POKOK:=1000000;

          TUNJANGAN:=200000;

     END

     ELSE IF (GOL='2') THEN

     BEGIN

          POKOK:=1500000;

          TUNJANGAN:=300000;

     END

     ELSE IF (GOL='3') THEN

     BEGIN

          POKOK:=2000000;

          TUNJANGAN:=400000;

     END;

     KOTOR:=POKOK+TUNJANGAN;

     PAJAK:=2.5/100*KOTOR;

     BERSIH:=KOTOR-PAJAK;

     WRITELN('GAJI POKOK           :RP.',POKOK:7:0);

     WRITELN('GAJI KOTOR           :RP.',KOTOR:7:0);

     WRITELN('TUNJANGAN         :RP.',TUNJANGAN:6:0);

     WRITELN('PAJAK                      :RP.',PAJAK:6:0);

     WRITELN('GAJI BERSIH          :RP.',BERSIH:7:0);

READLN;

END.

HASIL RUNNING:

2.        Sebuah perkumpulan terdiri dari golongan orang ‘Biasa’, ‘Penting’, ‘VIP’. Peraturan menetapkan sebagai berikut :

- Orang biasa(B)  = Iuran bulanan sebesar 5 % dari gajinya, boleh menggunakan lapangan Tenis dan Ruang Fitnes.

- Orang penting (P) =  Iuran bulanan sebesar 10 % dari gajinya, boleh menggunakan lapangan Tenis dan Ruang Fitnes, dan Golf

- VIP (V)     =    Iuran bulanan sebesar 15 % dari gajinya, boleh menggunakan lapangan Tenis dan Ruang Fitnes,Golf dan Kolam Renang

Input = Nama, Gaji, Golongan

Output = Iuran yang harus dibayar dan Fasilitas yang boleh digunakan

PROGRAM GOLONGAN1;

USES WINCRT;

VAR

   GOLONGAN             :STRING[7];

   NAMA,FASILITAS  :STRING;

   IURAN,GAJI             :REAL;

BEGIN

     WRITE('NAMA               :');READLN(NAMA);

     WRITE('GOLONGAN    :');READLN(GOLONGAN);

     WRITE('GAJI                  :RP.');READLN(GAJI);

     IF (GOLONGAN='BIASA') THEN

     BEGIN

          IURAN:=5/100*GAJI;

          FASILITAS:='LAPANGAN TENIS DAN RUANG FITNES';

     END

     ELSE IF (GOLONGAN='PENTING')THEN

     BEGIN

          IURAN:=10/100*GAJI;

          FASILITAS:='LAPANGAN TENIS,RUANG FITNES DAN GOLF';

     END

     ELSE IF (GOLONGAN='VIP') THEN

     BEGIN

          IURAN:=15/100*GAJI;

          FASILITAS:='LAPANGAN TENIS,RUANG FITNES,GOLF DAN KOLAM  

          RENANG';

     END;

     WRITELN('IURAN YANG HARUS DIBAYAR  :RP.',IURAN:6:0);

     WRITELN('FASILITAS YANG DIDAPATKAN :',FASILITAS);

READLN;

END.

HASIL RUNNING :

SEMOGA BERMANFAAT :)