MEMBUAT WEB PEMBELIAN TIKET BUS ONLINE SEDERHANA

Selamat Malam Gan dan Sis semuanya, berjumpa lagi dengan saya, berkebetulan saya membuat postingan ini pada malam hari heheheee...., disini saya akan berbagi cara bagaimana membuat web pembelian Tiket Bus Online walau pun itu sederhana bangetsss.... , tapi gak apalah namanya juga belajar yakaaann..?.

baiklah dari pada banyak bicara langsung saja kita melihat-lihat dibawah tampilannya web nya.
untuk melihat codingnya bisa langsung klik di bawah ini.

TIKET BUS ONLINE www.TiketBusOnline.com
NO TIKET	:		FOTO
TANGGAL BERANGKAT	:
KODE	:
NAMA PENUMPANG	:
ALAMAT	:
TELP	:
JAM	:	BERANGKAT
		TIBA
TUJUAN	:	+++-- PILIH TUJUAN --+++ PERBAUNGAN MEDAN PADANG PEKAN BARU JAMBI JAKARTA
NO. KURSI	:

Semoga postingan saya ini dapat bermanfaat dan membantu Agan dan Sis semuanya.

Terima kasih Telah berkunjung.

Read more »

QUIS

SOAL QUIS  :

Buatlah output program Menghitung Gaji Pegawai seperti tampilan dibawah ini Menggunakan Bahasa Pascal :

                                     MENGHITUNG GAJI PEGAWAI 

===============================================================

Nik                   :

Nama               :

Golongan         :

Gaji Pokok       :

Pajak                :

Gaji Bersih       :

   Dengan ketentuan proses sebagai berikut :

•  Nik,Golongan input
• Proses Nama Pegawai

          Jika Nik = 1 maka

                 Nama Pegawai = “Hendro”

          Jika Nik = 2 maka

                Nama Pegawai = “Dian”

          Jika Nik = 3 maka

                Nama Pegawai = “Jhoni”

• Proses Gaji Pegawai

           Jika Gol = 1 maka

                Gaji Pokok = 1500000

           Jika Gol = 2 maka

                Gaji Pokok = 2500000

           Jika Gol = 3 maka

                 Gaji Pokok = 3500000

• Pajak = 0.05 * Gaji Pokok
• Gaji Bersih = Gaji Pokok – Pajak

 JAWABAN QUIS  : 

Uses crt ;

Var      gp : longint;

             n : string[25];

            gol,nik : byte;

            p,gb : real;

Begin

     Clrscr;

     Writeln('                             MENGHITUNG GAJI PEGAWAI');

     Writeln('                        +++---------------------------+++');

     Writeln;

     Write('NIK PEGAWAI    : '); Readln(nik);

     begin

     if nik = 1 then n:='Hendro'

     else if nik = 2 then n:='Dian'

     else if nik = 3 then n:='Jhoni'

     end;

     Write('NAMA           : ',n);

     Writeln;

     Write('GOLONGAN       : '); Readln(gol);

     begin

     if gol= 1 then gp := 1500000

     else if gol= 2 then gp := 2500000

     else if gol= 3 then gp := 3500000;

     end;

     Write('GAJI POKOK     : ',gp);

     Writeln;

     p:=(0.05 * gp);

     write('PAJAK          : ',p : 3 : 2);

     gb:= gp - p;

     writeln;

     Write('GAJI BERSIH    : ',gb:3:2);

     readln;

END.

Tampilan Program :

Read more »