Fungsi Tombol-tombol pada Keyboard

Umumnya dikenal sebagai “function keys” atau diartikan dalam bahasa indonesia adalah “tombol fungsi”, F1 sampai F12 mungkin memiliki berbagai kegunaan yang berbeda atau tidak digunakan sama sekali. Tergantung pada sistem operasi yang dipasang dan program perangkat lunak yang dipakai. Sebuah program tidak hanya menggunakan masing-masing “tombol fungsi”, tetapi juga menggabungkan fungsi tombol dengan ALT dan / atau CTRL kunci. misalnya, pengguna Microsoft Windows dapat menekan ALT + F4 untuk menutup program yang sedang aktif.

Di bawah ini adalah daftar pendek dari beberapa fungsi umum dari “tombol fungsi” pada komputer yang menjalankan Microsoft Windows. Seperti yang penulis sebutkan di atas, bahwa tidak semua program mendukung semua “tombol fungsi” dan / atau dapat melakukan tugas yang berbeda-beda seperti yang disebutkan di bawah ini.

F1

F1 = Hampir selalu digunakan sebagai tombol bantuan, hampir setiap program akan membuka layar bantuan (help) ketika tombol ini ditekan.

Windows key + F1 = membuka “Microsoft Windows Help” dan “support center” .

Shift + F1 = menunjukkan format dokumen (MS Word)

ALT + F1 = Pergi ke halaman berikutnya

ALT + Shift + F1 = Pergi ke halaman sebelumnya

CTRL + ALT + F1 = Tampilan Info Sistem Microsoft (tidak bekerja pada Windows Vista)

CTRL + Shift + F1 = Mengubah font (tidak bekerja pada Windows Vista)

F2

F2 = Merubah nama file

Shift + F2 = Salin Teks

CTRL + F2 = perintah Print preview (MS Word)

ALT + Shift + F2 = perintah Simpan (MS Word)

CTRL + ALT + F2 = perintah Buka (MS Word)

F3

F3 = Biasanya berfungsi sebagai fitur pencarian untuk banyak program termasuk Microsoft Windows

Shift + F3 = Perubahan kasus teks di MS Word

CTRL + F3 = Program spesifik. Percobaan dengan yang satu ini, tapi menyimpan pekerjaan Anda pertama!

ALT + F3 = Membuat sebuah blok bangunan di MS Word

F4

F4 = Membuka “Find Window”

Shift + F4 = Mengulangi menemukan atau Pergi Untuk tindakan (MS Word)

CTRL + F4 = akan menutup jendela yang terbuka dalam jendela aktif di Microsoft Windows

Alt + F4 = Menutuputup program yang aktif. Jika tidak ada program yang terbuka, Anda dapat mematikan komputer dengan kombinasi ini!

F5

F5 = di semua browser internet modern, menekan F5 akan me-refresh atau me-reload halaman.

Shift + F5 = Memindahkan ke revisi sebelumnya (MS Word)

CTRL + F5 = Unconditional Refresh (refresh Internet Explorer dari Internet, tidak cache)

ALT + F5 = Menutup Program Word

CTRL + F5 = mengembalikan dokumen ke ukuran windows (tidak fungsional)

F6

F6 = Memindahkan kursor ke Address bar di Internet Explorer dan Mozilla Firefox.

Shift + F6 = Program spesifik. Percobaan risiko Anda sendiri, dan jangan lupa untuk menyimpan pekerjaan Anda terlebih dahulu.

CTRL + F6 = Siklus ke depan antara jendela yang terbuka dalam sebuah program

CTRL + Shift + F6 = Siklus ke belakang antara jendela yang terbuka dalam sebuah program

F7

F7 = Umumnya digunakan untuk memeriksa ejaan dan tata bahasa dokumen dalam program-program Microsoft seperti Microsoft Word, Outlook, dll

Shift + F7 = Membuka perintah Tesaurus di MS Word.

CTRL + F7 = spesifik Program.

CTRL + Shift + F7 = informasi Update di MS Word

ALT + F7 = Mencari salah eja berikutnya atau kesalahan tata bahasa.

F8

F8 = Tombol fungsi yang digunakan untuk masuk ke menu startup Windows, biasa digunakan untuk masuk ke Windows Safe Mode

Shift + F8 = Mengecilkan pilihan saat ini (MS Word)

CTRL + F8 = spesifik Program. Dalam Microsoft Project itu mengubah ukuran jendela proyek.

Alt + F8 = Membuka menu makro (MS Word)

F9 (kombinasi ini hanya berlaku untuk MS Word)

Shift + F9 = Beralih di antara kode halaman dan itu hasil

CTRL + F9 = Insert dan kosong halaman

CTRL + Shift + F9 = hapus bidang

ALT + F9 = Beralih di antara semua kode halaman dan hasilnya

F10 (Fungsi lain MS Word)

Shift + F10 = Menampilkan menu shortcut

CTRL + F10 = Memaksimalkan dokumen pada jendela

CTRL + Shift + F10 = Mengaktifkan to ruler (Non-fungsional)

ALT + F10 = Memaksimalkan jendela program

F11

F11 = Modus layar penuh di semua browser Internet modern.

Shift + F11 = Pergi ke halaman sebelumnya (MS Word)

CTRL + F11 = Kunci bidang

CTRL + Shift + F11 = Aktifkan bidang

ALT + Kode F11 = Tampilan Microsoft Visual Basic

ALT + SHIFT + F11 = Microsoft Visual Studio Tampilan Kode

F12

Shift + F12 = Pilih Simpan perintah (MS Word)

CTRL + F12 = Membuka Pilihan perintah

CTRL + Shift + F12 = Pilih perintah Cetak print

Read More

LATIHAN PASCAL

SoalLatihan

Mata Kuliah     :  AlgoritmaPemrograman 2                                 Tipe     :  A (NIM Akhir1, 5&7)

CV. PUTRA RAHMAN memilikiinformasipembayarangajikaryawansebagaiberikut :

1.        KodeBagianterdiridari3KodeBagian.

2.        NamaBagianberdasarkanKodeBagian.

3.        GolKaryawanterdiridari 3 Golongan.

4.        GajiPokokberdasarkanNamaBagiandanGolKaryawan.

5.        BesarTunjanganberdasarkan Status danJumlahAnak.

Jika Status MenikahdanAnak>= 3 makaTunjangan = 110000 x 3,

Jika Status MenikahdanAnak< 3 makaTunjangan = 125000 x JumlahAnakselainitutidakmendapatkanTunjangan.

6.        Total GajididapatdariperhitunganGajiPokokdanBesarTunjangan.

Dari informasi di atas, buatlahlisting program denganmenggunakan statement IFatau CASEdengankeluaransebagaiberikut :

NamaKaryawan, KodeBagian, NamaBagian, GolKaryawan, GajiPokok, Status, JumlahAnak, BesarTunjangandan Total Gaji.

Mata Kuliah     :  AlgoritmaPemrograman 2                                 Tipe     :  B (NIM Akhir 0, 2 & 9)

HOTEL NYAMANmemilikiinformasipembayarankamarsebagaiberikut :

1.      KodeKamarterdiridari3KodeKamar.

2.      NamaKamarberdasarkanKodeKamar.

3.      JenisKamarterdiridari 2 JenisKamar.

4.      FasilitasKamarberdasarkanJenisKamar.

5.      JenisBed terdiridari2Jenis, yaitu Single Bed dan Double Bed.

6.      HargaKamarberdasarkanNamaKamardanJenisKamar.

7.      Biaya Extra berdasarkanJenis BeddanJenisKamar.

8.      Total Bayar didapatdariperhitunganHargaKamardanBiaya Extra.

Dari informasi di atas, buatlahlisting program denganmenggunakan statement IFatau CASEdengankeluaransebagaiberikut :

NamaTamu, KodeKamar, NamaKamar, JenisKamar, FasilitasKamar, Jenis Bed, HargaKamar, Biaya Extra dan Total Bayar.

Mata Kuliah     :  AlgoritmaPemrograman 2                                 Tipe     :  C (NIM Akhir3,4,6& 8)

TOKO ELECTRO memilikiinformasipenjualanbarang-barangelektroniksebagaiberikut :

1.        KodeBarangterdiridari3KodeBarangelektronik.

2.      NamaBarangberdasarkanKodeBarang.

3.      MerkBarangterdiridari 3 MerkBarangyaitu LG/Sharp/Panasonic.

4.      HargaBarangberdasarkanNamaBarangdanMerkBarang.

5.      Bonus PembelianberdasarkanJumlahBelidanMerkBarang. Bonus berupabarangelektronik yang lebihkecil.

6.      Total Bayar didapatdariperhitunganHargaBarangdanJumlahBeli.

Dari informasi di atas, buatlahlisting program denganmenggunakan statement IFatau CASEdengankeluaransebagaiberikut :

NamaPembeli, KodeBarang, NamaBarang, MerkBarang, HargaBarang, JumlahBeli, Bonus Pembeliandan Total Bayar.

Jawaban

Tipe-A

Program TIPE_A;

{ ProgramLatihandenganperintahPercabangan }

{ Created by  : Me..

  Date Write  : 26 Maret 2012 }

USES WINCRT;

VAR KDBAG              : CHAR;

    NMKAR,NMBAG,STATUS : STRING[10];

    GOL                : STRING[3];

    JANAK              : BYTE;

    GPOKOK,BTUNJ,TGAJI : REAL;

BEGIN

CLRSCR;       

WRITELN(' CV. PUTRA RAHMAN');

WRITELN('==================');      

WRITELN;

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

WRITE('KODE BAGIAN [A..C]       : ');READLN(KDBAG);

CASE KDBAG OF                             

     'A','a' : NMBAG := 'KEUANGAN';

     'B','b' : NMBAG := 'PERSONALIA';

     'C','c' : NMBAG := 'HUMAS';

END;

WRITELN('NAMA BAGIAN              : ',NMBAG);

WRITE('GOL KARYAWAN [II/III/IV] : ');READLN(GOL);

IF (NMBAG='KEUANGAN') AND (GOL='II') THEN

GPOKOK := 1000000

ELSE IF (NMBAG='KEUANGAN') AND (GOL='III') THEN

GPOKOK := 1500000

ELSE IF (NMBAG='KEUANGAN') AND (GOL='IV') THEN

GPOKOK := 2000000

ELSE IF (NMBAG='PERSONALIA') AND (GOL='II') THEN

GPOKOK := 800000

ELSE IF (NMBAG='PERSONALIA') AND (GOL='III') THEN

GPOKOK := 1200000

ELSE IF (NMBAG='PERSONALIA') AND (GOL='IV') THEN

GPOKOK := 1600000

ELSE IF (NMBAG='HUMAS') AND (GOL='II') THEN

GPOKOK := 900000

ELSE IF (NMBAG='HUMAS') AND (GOL='III') THEN

GPOKOK := 1300000

ELSE IF (NMBAG='HUMAS') AND (GOL='IV') THEN

GPOKOK := 1700000;

WRITELN('GAJI POKOK               : Rp ',GPOKOK:7:0);

WRITE('STATUS [MENIKAH/BELUM]   : ');READLN(STATUS);

WRITE('JUMLAH ANAK              : ');READLN(JANAK);

IF (STATUS='MENIKAH') AND (JANAK >= 3) THEN BTUNJ := 110000*3

ELSE IF (STATUS='MENIKAH') AND (JANAK < 3) THEN BTUNJ := 125000*JANAK

ELSE BTUNJ := 0;

WRITELN('BESAR TUNJANGAN          : Rp ',BTUNJ:7:0);

TGAJI := GPOKOK + BTUNJ;

WRITELN('TOTAL GAJI               : Rp ',TGAJI:7:0);

READLN;

CLRSCR;

GOTOXY(30,05);WRITE('CV. PUTRA RAHMAN');

GOTOXY(29,06);WRITE('==================');

GOTOXY(25,08);WRITE('NAMA KARYAWAN   : ',NMKAR);

GOTOXY(25,09);WRITE('KODE BAGIAN     : ',KDBAG);   

GOTOXY(25,10);WRITE('NAMA BAGIAN     : ',NMBAG);

GOTOXY(25,11);WRITE('GOL KARYAWAN    : ',GOL);

GOTOXY(25,12);WRITE('GAJI POKOK      : Rp ',GPOKOK:7:0);

GOTOXY(25,13);WRITE('STATUS KARYAWAN : ',STATUS);

GOTOXY(25,14);WRITE('JUMLAH ANAK     : ',JANAK,' ORANG');

GOTOXY(25,15);WRITE('BESAR TUNJANGAN : Rp ',BTUNJ:7:0);

GOTOXY(25,16);WRITE('TOTAL GAJI      : Rp ',TGAJI:7:0);

READLN;

END.

Tipe-B

Program TIPE_B;

{ ProgramLatihandenganperintahPercabangan }

{ Created by  : Me..

  Date Write  : 26 Maret 2012 }

USES WINCRT;

VAR KDKMR               : CHAR;

    NMTAMU,NMKMR,JNSKMR,FASILITAS,JNSBED : STRING[10];

    HRGKMR,BEXTRA,TBYR  : REAL;

BEGIN

CLRSCR;       

WRITELN(' HOTEL NYAMAN');

WRITELN('==============');      

WRITELN;

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

WRITE('KODE KAMAR [A..C]        : ');READLN(KDKMR);

CASE KDKMR OF                             

     'A','a' : NMKMR := 'MAWAR';

     'B','b' : NMKMR := 'MELATI';

     'C','c' : NMKMR := 'ANGGREK';

END;

WRITELN('NAMA BAGIAN              : ',NMKMR);

WRITE('JENIS KAMAR [VIP/DELUXE] : ');READLN(JNSKMR);

IF JNSKMR='VIP' THEN FASILITAS := 'LED TV'

ELSE IF JNSKMR='DELUXE' THEN FASILITAS := 'LCD TV';

WRITELN('FASILITAS KAMAR          : ',FASILITAS);

WRITELN('JENIS BED [SINGLE BED /DOUBLE BED]');

WRITE('JENIS BED                : ');READLN(JNSBED);

IF (NMKMR='MAWAR') AND (JNSKMR='VIP') THEN

HRGKMR := 300000

ELSE IF (NMKMR='MAWAR') AND (JNSKMR='DELUXE') THEN

HRGKMR := 200000

ELSE IF (NMKMR='MELATI') AND (JNSKMR='VIP') THEN

HRGKMR := 250000

ELSE IF (NMKMR='MELATI') AND (JNSKMR='DELUXE') THEN

HRGKMR := 150000

ELSE IF (NMKMR='ANGGREK') AND (JNSKMR='VIP') THEN                                                                     

HRGKMR := 200000

ELSE IF (NMKMR='ANGGREK') AND (JNSKMR='DELUXE') THEN

HRGKMR := 150000;

WRITELN('HARGA KAMAR              : Rp ',HRGKMR:6:0);

IF (JNSBED='DOUBLE BED') AND (JNSKMR='VIP') THEN

BEXTRA := 0.3 * HRGKMR

ELSE IF (JNSBED='DOUBLE BED') AND (JNSKMR='DELUXE') THEN

BEXTRA := 0.25 * HRGKMR

ELSE BEXTRA := 0;

WRITELN('BIAYA EXTRA              : Rp ',BEXTRA:6:0);

TBYR := HRGKMR + BEXTRA;

WRITELN('TOTAL BAYAR              : Rp ',TBYR:6:0);

READLN;

CLRSCR;

GOTOXY(32,05);WRITE('HOTEL NYAMAN');

GOTOXY(31,06);WRITE('==============');

GOTOXY(25,08);WRITE('NAMA TAMU       : ',NMTAMU);

GOTOXY(25,09);WRITE('KODE KAMAR      : ',KDKMR);   

GOTOXY(25,10);WRITE('NAMA KAMAR      : ',NMKMR);

GOTOXY(25,11);WRITE('JENIS KAMAR     : ',JNSKMR);

GOTOXY(25,12);WRITE('FASILITAS       : ',FASILITAS);

GOTOXY(25,13);WRITE('JENIS BED       : ',JNSBED);

GOTOXY(25,14);WRITE('HARGA KAMAR     : Rp ',HRGKMR:6:0);

GOTOXY(25,15);WRITE('BIAYA EXTRA     : Rp ',BEXTRA:6:0);

GOTOXY(25,16);WRITE('TOTAL BAYAR     : Rp ',TBYR:6:0);

READLN;

END.

Tipe-C

Program TIPE_C;

{ ProgramLatihandenganperintahPercabangan }

{ Created by  : Me..

  Date Write  : 26 Maret 2012 }

USES WINCRT;

VAR KDBRG                     : CHAR;

    NMPBELI,NMBRG,MRBRG,BONUS : STRING[10];

    JBELI                     : BYTE;

    HBRG,TBYR                 : REAL;

BEGIN

CLRSCR;       

WRITELN(' TOKO  ELECTRO');

WRITELN('===============');      

WRITELN;

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

WRITE('KODE BARANG [A..C] : ');READLN(KDBRG);

CASE KDBRG OF                             

     'A','a' : NMBRG := 'TELEVISI';

     'B','b' : NMBRG := 'LEMARI ES';

     'C','c' : NMBRG := 'MESIN CUCI';

END;

WRITELN('NAMA BARANG        : ',NMBRG);

WRITELN('MERK BARANG [LG/SHARP/PANASONIC]');

WRITE('MERK BARANG        : ');READLN(MRBRG);

IF (NMBRG='TELEVISI') AND (MRBRG='LG') THEN

HBRG := 1000000

ELSE IF (NMBRG='TELEVISI') AND (MRBRG='SHARP') THEN

HBRG := 1100000

ELSE IF (NMBRG='TELEVISI') AND (MRBRG='PANASONIC') THEN

HBRG := 1050000

ELSE IF (NMBRG='LEMARI ES') AND (MRBRG='LG') THEN

HBRG := 800000

ELSE IF (NMBRG='LEMARI ES') AND (MRBRG='SHARP') THEN

HBRG := 700000

ELSE IF (NMBRG='LEMARI ES') AND (MRBRG='PANASONIC') THEN

HBRG := 750000

ELSE IF (NMBRG='MESIN CUCI') AND (MRBRG='LG') THEN

HBRG := 1500000

ELSE IF (NMBRG='MESIN CUCI') AND (MRBRG='SHARP') THEN

HBRG := 1600000

ELSE IF (NMBRG='MESIN CUCI') AND (MRBRG='PANASONIC') THEN

HBRG := 750000;

WRITELN('HARGA BARANG       : Rp ',HBRG:7:0);

WRITE('JUMLAH BELI        : ');READLN(JBELI);

IF (JBELI > 2) AND (MRBRG='LG') THEN BONUS := 'DVD'

ELSE IF (JBELI > 2) AND (MRBRG='SHARP') THEN BONUS := 'SETRIKA'

ELSE IF (JBELI > 2) AND (MRBRG='PANASONIC') THEN BONUS := 'DISPENSER'

ELSE BONUS := 'TIDAK ADA';

WRITELN('BONUS PEMBELIAN    : ',BONUS);

TBYR := HBRG * JBELI;

WRITELN('TOTAL BAYAR        : Rp ',TBYR:7:0);

READLN;

CLRSCR;

GOTOXY(32,05);WRITE('TOKO ELECTRO');

GOTOXY(31,06);WRITE('==============');

GOTOXY(25,08);WRITE('NAMA PEMBELI    : ',NMPBELI);

GOTOXY(25,09);WRITE('KODE BARANG     : ',KDBRG);

GOTOXY(25,10);WRITE('NAMA BARANG     : ',NMBRG);

GOTOXY(25,11);WRITE('MERK BARANG     : ',MRBRG);

GOTOXY(25,12);WRITE('HARGA BARANG    : Rp ',HBRG:7:0);

GOTOXY(25,13);WRITE('JUMLAH BELI     :    ',JBELI:7);

GOTOXY(25,14);WRITE('BONUS PEMBELIAN : ',BONUS);

GOTOXY(25,15);WRITE('TOTAL BAYAR     : Rp ',TBYR:7:0);

READLN;

END.

Read More

TUGAS PASCAL1

PROGRAM PENJUALAN_TIKET_PESAWAT;

{ PROGRAM PENJUALAN TIKET PESAWAT TRAVEL PUTRA RAHMAN }

{ CREATED BY  : FENGKI PRANATA F

  NIM         : 310111021707

  DATE WRITE  : 22 MARET 2012 }

USES WINCRT;

VAR NAMA    : STRING[22];

    KDPSWAT  : STRING[4];

    NMPSWAT  : STRING[10];

    JAMBKT  : STRING[5];

    TJPSWAT  : STRING[15];

    JSPNUM  : STRING[6];

    HRGTKT,BKBGSI,TTLBYR,KBGSI : REAL;

    JMLBGS,TBAGSI  : BYTE;

    ULANG         : CHAR;

LABEL MULAI;

  { MENGINPUTAN DATA }

   BEGIN

    MULAI:

    CLRSCR;

    WRITELN ('INPUT DATA TRAVEL PUTRA RAHMAN');

    WRITELN ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

    WRITELN ('');

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

    WRITE   ('KODE PESAWAT [P-01/P-02/P-03]          : ');READLN(KDPSWAT);

    WRITE   ('JAM BERANGKAT [09.30/11.45/15.45] WITA : ');READLN(JAMBKT);

    {NAMA PESAWAT DAN JUMLAH BAGASI}

                                 

        IF (KDPSWAT='P-01') OR (KDPSWAT='p-01') THEN

       BEGIN

            NMPSWAT:='AIRLINES';

            JMLBGS:=20;

       END

    ELSE IF (KDPSWAT='P-02') OR (KDPSWAT='p-02') THEN

       BEGIN

            NMPSWAT:='BOURAQ';

            JMLBGS:=15;

       END

    ELSE IF (KDPSWAT='P-03') OR (KDPSWAT='p-03') THEN

       BEGIN

            NMPSWAT:='GARUDA';

            JMLBGS:=25;

       END;

    {TUJUAN PESAWAT DAN JAM KEBERANGKATAN}

         IF (NMPSWAT='AIRLINES') AND (JAMBKT='09.30') THEN TJPSWAT:='SURAKARTA'

    ELSE IF (NMPSWAT='AIRLINES') AND (JAMBKT='11.45') THEN TJPSWAT:='BALI'

    ELSE IF (NMPSWAT='AIRLINES') AND (JAMBKT='15.45') THEN TJPSWAT:='JAKARTA'

    ELSE IF (NMPSWAT='BOURAQ') AND (JAMBKT='09.30') THEN TJPSWAT:='MEDAN'

    ELSE IF (NMPSWAT='BOURAQ') AND (JAMBKT='11.45') THEN TJPSWAT:='BALI'

    ELSE IF (NMPSWAT='BOURAQ') AND (JAMBKT='15.45') THEN TJPSWAT:='MEDAN'

    ELSE IF (NMPSWAT='GARUDA') AND (JAMBKT='09.30') THEN TJPSWAT:='MEDAN'

    ELSE IF (NMPSWAT='GARUDA') AND (JAMBKT='11.45') THEN TJPSWAT:='JAKARTA'

    ELSE IF (NMPSWAT='GARUDA') AND (JAMBKT='15.45') THEN TJPSWAT:='JAKARTA';

    WRITELN ('NAMA PESAWAT                           : ',NMPSWAT);

    WRITELN ('TUJUAN PESAWAT                         : ',TJPSWAT);

    WRITE   ('JENIS PENUMPANG [ANAK/DEWASA]          : ');READLN(JSPNUM);

    WRITE   ('TOTAL BAGASI PESAWAT                   : ');READLN(TBAGSI);  

                           

    {HARGA PENJUALAN TIKET}

                                           

    IF (TJPSWAT='SURAKARTA')      AND (JSPNUM='ANAK')   THEN HRGTKT:=300000

    ELSE IF (TJPSWAT='SURAKARTA') AND (JSPNUM='DEWASA') THEN HRGTKT:=350000

    ELSE IF (TJPSWAT='MEDAN')     AND (JSPNUM='ANAK')   THEN HRGTKT:=150000

    ELSE IF (TJPSWAT='MEDAN')     AND (JSPNUM='DEWASA') THEN HRGTKT:=250000

    ELSE IF (TJPSWAT='BALI')      AND (JSPNUM='ANAK')   THEN HRGTKT:=120000

    ELSE IF (TJPSWAT='BALI')      AND (JSPNUM='DEWASA') THEN HRGTKT:=320000

    ELSE IF (TJPSWAT='JAKARTA')   AND (JSPNUM='ANAK')   THEN HRGTKT:=305000

    ELSE IF (TJPSWAT='JAKARTA')   AND (JSPNUM='DEWASA') THEN HRGTKT:=130000;

    IF TBAGSI>JMLBGS THEN KBGSI:=(TBAGSI-JMLBGS) ELSE KBGSI:=0;

    BKBGSI:=(10000 * KBGSI);

    TTLBYR:=HRGTKT+BKBGSI;

    {MENAMPILKAN OUTPUT DATA}

    CLRSCR;

    GOTOXY(30,02);WRITE('*T R A V E L  P U T R A  R A H M A N*');

    GOTOXY(28,03);WRITE('++++++++++++++++++++++++++++++++++++++');

    GOTOXY(01,06);WRITE('==============================================================================');

    GOTOXY(01,07);WRITE('NAMA     KODE NAMA    JAM    JUMLAH  JENIS  HARGA   TTL  KLBHN  BIAYA    TOTAL');

    GOTOXY(01,08);WRITE('PNMPNG   PSWT PSWT    BRNGKT BAGASI  PNMPNG TIKET   BGSI BGSI   BAGASI   BAYAR');

    GOTOXY(01,09);WRITE('==============================================================================');

                        {12345678901234567890123456789012345678901234567890123456789012345678901234567890}

    GOTOXY(01,10);WRITE(NAMA);

    GOTOXY(10,10);WRITE(KDPSWAT);

    GOTOXY(15,10);WRITE(NMPSWAT);

    GOTOXY(23,10);WRITE(JAMBKT);

    GOTOXY(30,10);WRITE(JMLBGS);

    GOTOXY(38,10);WRITE(JSPNUM);

    GOTOXY(45,10);WRITE(HRGTKT:6:0);

    GOTOXY(53,10);WRITE(TBAGSI);

    GOTOXY(58,10);WRITE(KBGSI:2:0);

    GOTOXY(65,10);WRITE(BKBGSI:6:0);

    GOTOXY(74,10);WRITE(TTLBYR:6:0);

    GOTOXY(01,11);WRITE('===============================================================================');

    READLN;

WRITE('UNTUK MENGULANGI LAGI TEKAN [Y/T] : ');READLN(ULANG);

IF UPCASE(ULANG)='Y' THEN GOTO MULAI ELSE EXIT;

END.

Read More

Meningkatkan Kinerja Windows 7

Berikut ini adalah trik yang hampir sama, hanya saja trik ini untuk windows 7 (seven) yaitu meningkatkan kinerja atau optimasi windows 7 :

1. Matikan efek-efek yang tidak penting, setting best performance
   Visual efek ini memang untuk menambah keindahan tampilan, baik pada windows xp maupun windows 7. Akan tetapi hal ini juga mempengaruhi kinerja computer. Apabila efek visual ini dinonaktifkan, maka kinerja computer akan bertambah cepat. Untuk menonaktifkan visual efek tadi, caranya adalah : Klik kanan pada [Computer] > klik [properties] > klik [Advance system setting] > pada bagian performance klik tombol [setting] sehingga muncul jendela Performance Options. Klik[adjust for best performance]. ( Kalau saya lebih suka menghilangkan semua tanda centang, kecuali pada dua opsi paling bawah saya centang ). kemudian klik [OK]
2. Mengoptimalkan hard disk.
   Maksudnya ialah, bahwa hard disk ( khususnya pada drive C: ) jika sisa ruang kosong yang tersedia sedikit tentu akan membuat kinerja windows lambat. Biasanya yang menyebabkan kapasitas hard disk berkurang adalah adanya point system restore. Setiap ada perubahan pada windows, biasanya akan membuat point system restore. Semakin banyak point restore yang dibuat maka kapasitas hard disk akan berkurang. Karena system restore ini juga berguna suatu saat windows terjadi error, maka tetap kita pergunakan. Nah biar tidak selalu menghapus point restore yang sudah terlalu lama, maka sebaiknya kita atur kapasitas hard disk yang akan digunakan sebagai restore point. Caranya adalah sebagai berikut :
   Klik kanan [Computer] > pilih [Properties] > klik [System Protection] > klik pada tombol [Configure]> Kemudian atur kapasitas yang hendak digunakan. Jangan terlalu besar, menurut saya 5-10 % dari sisa kapasitas hard disk yang tersisa sudah cukup. klik OK
3. Matikan / Nonaktifkan fitur-fitur yang jarang dipergunakan.
   Pada windows 7 tersedia banyak sekali fitur-fitur khususnya fitur untuk mempercantik tampilan. Kalau fitur ini diaktifkan maka akan banyak memakan ruang di vga maupun memori. akibatnya kinerja computer juga menjadi lambat.
• Nonaktifkan Aero themes
  Klik kanan [desktop] > klik [personalize] > pilih [windows 7 basic]. tutup jendela personalize.
• Non aktifkan Aero Peek.
  Aero peek ini digunakan untuk membuat transparan jendela yang sedang terbuka.
  Untuk menonaktifkan fitur ini dengan cara : Klik kanan pada [taskbar] > klik [properties] > hilangkan tanda centang pada “ use aero Peek to preview desktop”
• Nonaktifkan aero shake.
  Misal ada beberapa jendela yang aktif, Jika salah satu jendela yang aktif di gerak-gerakkan, maka secara otomatis jendela yang lain akan di minimize. Untuk menonaktifkan fitur aero shake ini dilakukan dengan cara :
• Buka group policy editor dengan cara klik tombol [start] kemudian ketik “gpedit.msc” (tanpa tanda”) kemudian tekan [enter].
• Setelah muncul halaman local group policy editor, masuk ke [User Configuration] >[administrative template] > [desktop]. Pada jendela sebelah kanan klik ganda “ turn off aero shake windows minimizing mouse gesture” > pilih [enable] dan klik [OK].
• Nonaktifkan aero snap
  Cara menonaktifkan aero snap adalah :
  
  • Masuk ke [control panel], Klik [ease of acces] > klik [ease of acces center] > klik[Make the mouse easier to use]
  • Beri centang pada “Prevent windows from being automatically arranged when to the edge of the screen”. Klik OK.
4. Lakukan defragmentasi hard disk paling tidak satu bulan sekali
   [Start] > [all program] > [Accessories] > [System tools] > [disk defragmenter]. Pilih salah satu drive kemudian klik [defragment].
5. Matikan aplikasi yang tidak perlu dijalankan pada saat startup.
   [Start] > ketik “msconfig” tekan [enter] > Klik pada tab [startup] > hilangkan centang pada aplikasi yang tidak diperlu dijalankan saat startup. Klik OK.
6. Nonaktifkan service yang tidak diperlukan
   [Start] > ketik “services” (tanpa tanda “) > tekan [enter]. Klik kanan pada service yang mau dinonaktifkan kemudian klik [properties]. Klik [disable] jika kita ingin service tidak selalu dijalankan pada saat windows dinyalakan, atau klik [stop] untuk mematikannya. Klik [OK].
7. Tidak usah pasang gadget di desktop.
   Untuk menonaktifkan gadget pada windows 7 dilakukan dengan cara : [Start] > [Control Panel] >[Programs] >[Turn Windows features on or off ]> hilangkan centang pada “Windows gadget platform > Klik [OK].
8. Menggunakan semua core untuk booting. 
   Komputer dengan prosesor banyak core, sebaiknya menggunakan semua core pada saat windows booting. Untuk mengatur agar semua core dipakai saat windows boot dapat dilakukan dengan cara :
   
   • Masuk pada system configuration dengan cara klik [start] kemudian mengetik “msconfig”, lalu tekan [enter]
   • Klik tab [boot] > pilih [system operasi windows 7].
   • Klik tombol [advanced options], sehingga muncul kotak dialog boot advance option, beri centang pada [Number of processor] kemudian pilih jumlah processor.
9. Jika anda pengguna internet, jadikan browser anda dengan sedikit addons. Karena addons yang terpasang juga membutuhkan ruang di memori.

Read More