Sabtu, 10 Maret 2012

kejahatan di layanan umum

Posted by Maulana Syarif HIidayatulloh in - 0 komentar

Gw Maulana gw cowo dan gw sangat malu dan sangat benci,panas,marah saat mendengar banyak korban pemerkosaan yang marak saat ini,yah kita sebut saja tersangka dengan sebutan "banci". BANCI ini sungguh tak punya otak kiri maupun kanan.Mungkin pas pembagian otak tuh orang ga dateng. Gw panas liat dan denger berita banyak kaum perempuan di perkosa. Itu mebuat gw was-was an!.

kenapa????

Karena gw punya kakak perempuan dan 1 orang kekasih yg gw sayang. Bukan gw berfikir asal jangan mereka yang jadi korban. Dari dulu gw mikir tindak kejahatan pemerkosaan itu sangat keji,dan tingkat kejahatan yang sanagt rendah. Banyak sekali sekarang terjadi pemerkosaan di angkot. Saya bertanya dimana otak para pelaku saat melakukan itu,apa gak mikir tuh orang klo sampe anak atau istrinya di gituin gimana rasanya. Sudah banyak sekarang orang yang tak berfikir panjang,kejahatan sudah dimana-mana. Di fasilitas umumpun kejahatan ini malahan yang meraja lela.

Saya hanya berharap para petugas di perketat,jangan cuma uangnya aja pada pengen. Petugas di sini berperan penting untuk memeriksa mobil dan supir sudah memenuhi syarat atau tidak.
terimakasih.

Jumat, 06 Januari 2012

Ipod generasi ke 6

Posted by Maulana Syarif HIidayatulloh in - 0 komentar


      Apple kini merilis kembali iPod Nano, dengan bentuknya yang mungil dan pastinya memiliki keunggulan tersendiri di banding iPod sebelumnya. Apple merubah bentuk iPodnya dengan interface tombol dihilangkan dan di gantikan dengan interface multitouch. Dengan dimensi 46% lebih kecil dan 42% lebih ringan dari generasi sebelumnya, iPod Nano terbaru ini memang sedikit terlihat berbeda. iPod ini memiliki layar yang berukuran 1,54 inchi (Res. 240 x 240 pixel) ini mengadopsi teknologi HD seperti yang dipakai di iPhone 4. Kapasitas dalam menyimpan data ada dua pilihan yaitu 8GB dan 16 GB. Bobot iPod ini termasuk sangat ringan yaitu hanya 21,1 gram. Karena ukurannya yang mungil, tak sedikit para pengguna yang menjadikannya sebagai jam dengan tambahan aksesoris. iPod Nano generasi ke-enam ini memiliki 7 pilihan warna.
Kelebihan dan Kekurangan iPod Generasi 6 :
Kelebihan  :
  1. Dengan body yang bisa dikatakan mungil, benda ini dapat di jepitkan pada saku.
  2. Layar sentuh HD dengan mutly-touch.
  3. Terdapat fitur LivePause dan Genius. 
Kekurangan  :
  1. Kamera tidak dapat digunakan untuk foto.
  2. Dihilangkannya trackwheel
Spesifikasi :
  • Tombol dan kontrol eksternal 
  • Audio Playback

  1. Frequency response: 20Hz to 20,000Hz
  2. Audio Format yang di dukung: AAC (8 hingga 320 Kbps), Protected AAC (dari iTunes Store), HE-AAC, MP3 (8 hingga 320 Kbps), MP3 VBR, Audible (format 2, 3, 4, Audible Peningkatan Audio, AAX and AAX+), Apple Lossless, AIFF and WAV
  3. Pengguna-dikonfigurasi batas maksimum volume
  • Radio FM
  1. Regional pengaturan untuk Amerika, Asia, Australia, Eropa dan Jepang
  2. Fitur hidup jeda untuk berhenti siaran radio dan memutar (dalam buffer 15-menit)
  • Sensor
  1. Accelerometer
  • Baterai dan Power3
  1. Built-in rechargeable litthium-ion
  2. Pemutaran musik bisa sampai 24 jam saat terisi penuh 
  3. Pengisian melalui USB ke sistem komputer atau adaptor listrik
  4. Waktu pengisian cepat : sekitar 1,5 jam (hingga 80% dari kapasitas baterai)
  5. Waktu pengisian penuh : sekitar 3 jam
  • Dalam Kotak
  1. iPod Nano
  2. Apple earphones
  3. Dock konektor untuk kabel USB
  4. Quick Start Guide dan Informasi produk penting

  • Headphones
  1. Earphones
  2. Frekuensi respon: 20Hz sampai 20.000Hz
  3. Impedansi: 32 ohm
  • Aksesibilitas
  1. VoiceOver gerakan berbasis pembaca layar
  2. LCD resolusi tinggi layar dengan pengaturan lampu latar disesuaikan untuk membaca lebih mudah dalam cahaya rendah
  3. White-on-black layar
  4. Mono Audio
  • Persyaratan Sistem
  1. Komputer mac dengan port USB 2.0, OS X v10.5.8 atau yang lebih baru dari iTunes 10 atau later4
  2. PC dengan port USB 2.0, Windows 7, Vista atau XP Home atau Professional (SP3) atau lambat, dan iTunes 10 atau yang lebih
  3. Internet akses yang di perlukan, di anjurkan broadband, biaya mungkin berlaku

Dunia fotografi dan etikanya

Posted by Maulana Syarif HIidayatulloh in - 0 komentar

Dunia fotografi memang sebuah hobi yang menyenangkan. Bagaimana tidak, setelah kita mengambil sebuah objek yang menarik dan hasilnya bagus itulah yang membuat kita terpuaskan. Tapi jangan mengira menjadi seorang fotografer handal dan profesional itu adalah hal mudah. Banyak yang harus di perhatikan saat pengambilan gambar. Dan banyak yang harus di lakukan setelah pengambilan gambar. Tak sedikit orang yang menyangka kalau menjadi seorang fotografer adalah hal yang sangat enak karena selalu membuat foto setiap waktu dan juga jalan-jalan setiap waktu. Padahal menurut survei, ini sangat bertolak belakang dengan yang di bayangkan sebagian besar orang. Survei menyatakan bahwa 80% fotografer memakai waktu mereka untuk membuat foto, kemudian 15% mereka gunakan untuk jalan-jalan dan 5% pesta layaknya bintang rock. Dalam dunia fotografi juga memiliki etika, salah satunya etika dalam mempublikasikan hasil potretan. Sekarang ini banyak fotografer yang mengambil gambar yang berobjek manusia dengan tidak meminta izin terlebih dahulu. Padahal jika kita meminta izin mereka akan merasa nyaman untuk diambil gambarnya. Banyak hal yang tak difikirkan terlebih dahulu oleh para fotografer sekarang ini. Yang mereka fikir adalah mengambil gambar maka pekerjaan telah selesai.
Tak hanya etika dalam pengambilan gambar, etika dalam pempublikasian juga kini kian terabaikan. Banyak fotografer yang mempublikasikan foto-foto yang seharusnya tidak di publikasikan. Seperti foto mayat korban kecelakan tanpa di tutupi wajahnya dengan kain atau yang lain. Kita memang membutuhkan informasi dari para pencari berita atau gambar seperti mereka, namun kita juga terkadang risih akan pengambilan foto mereka.
Jadilah seorang fotografer yang baik, dengan memperlakukan orang lain dengan baik. Maka kalian akan menjadi fotografer yang profesional.

PENGURASAN PULSA

Posted by Maulana Syarif HIidayatulloh in - 0 komentar

Kasus pencurian pulsa kini semakin marak terjadi di khalayak masyarakat. Yang bermula dengan menyodorkan nama Papah, Ibu dan kini Pacar yang menjadi trendcenter. Adapun sms dari salah satu provider yang menjanjikan sebuah RBT gratis, namun kenyataannya setiap provider tersebut memberikan info mengenai hal-hal yang tidak penting, pulsa seorang pengguna selalu berkurang sebanyak Rp 2.000. Hal ini tentu sangat merugikan masyarakat pengguna telepon genggam. Tidak sedikit orang yang merasakan hal tersebut, saya pun pernah mendapatkan sms tersebut.
Untuk mengatasi hal tersebut, sebaiknya jika kita mendapat sms yang berisikan hal-hal aneh seperti RBT atau seperti "kirimkan mama pulsa segera" JANGAN DIBALAS DAN LANGSUNG DI HAPUS TANPA DI BUKA.
Namun jika sms tersebut menyebutkan kita telah memakai sebuah RBT padahal kita tidak pernah mendaftarkan untuk memakai RBT tersebut sebaiknya CEPAT DI UNREG.

tragedi mesuji

Posted by Maulana Syarif HIidayatulloh in - 0 komentar

Tragedi Mesuji berawal dari sengketa perebutan lahan seluas 3600 hektare antara perusahaan PT Silva dengan warga Lampung. Kasus itu sudah terjadi sejak tahun 1996 namun kali ini semakin memanas. Entah sampai kapan sengketa perebutan lahan itu terjadi. Lambatnya gerakan dari pemerintah dalam menangani masalah tersebut menyebabkan semakin banyaknya korban yang berjatuhan.
Kenapa permasalahan sengketa tanah di negara ini selalu di menangkan oleh mereka yang memiliki modal besar ??.
Bukankah negara ini negara hukum ? tidak memihak siapa yang memiliki uang banyak dialah yang menang. Sebenarnya pada kasus ini warga Lampung memiliki hak untuk lahan mereka. Lahan tersebut merupakan tempat tinggal mereka dan salah satu pencaharian mereka sejak nenek moyang mereka. Mereka memiliki hak untuk mempertahankan kepunyaan mereka. Jika lahan mereka di ambil semua oleh perusahaan tersebut, kemana mereka harus tinggal ? dan kemana mereka harus menggantungkan hidupnya ???.
Tragedi Mesuji harus di usut dengan tuntas, karena itu menyangkut hak rakyat untuk memiliki tempat tinggal.
Jika rumah tempat kita berteduh di gusur sewajarnya kita melakukan pertahanan dan perlawanan.coba itu terjadi pada rumah diri anda masing-masing.

Memakai headsett saat tidur tidak baik

Posted by Maulana Syarif HIidayatulloh in - 0 komentar

        Di zaman modern ini sangat banyak teknologi yang bermunculan. Berbagai gadget yang tingkat kecanggihannya semakin tinggi selalu di kenalkan kepada khalayak. Namun salah satu accessories pendukung untuk gadget yang ada sekarang ini adalah headset. Tak sedikit orang dewasa bahkan anak-anak yang memakai headset untuk mendengarkan musik. Bentuknya yang simple membuat semua orang nyaman dalam mendengarkan musik. Tapi tak sedikit pula yang melakukan kebiasaan seperti tidur sambil mendengarkan musik melalui headset, atau menonton televisi sampai tertidur, atau membiarkan lampu di ruangan tidur menyala terang.
Sebenarnya hal tersebut aman atau tidak ya??
Memang sulit menghilangkan kebiasaan yang membuat kita cepat tertidur, tapi setelah tahu kabar berikut apakah anda tidak ingin merubah kebiasaan anda??
        Benar, banyaknya alat elektronik yang menyala akan membuat kita cepat lelah dan mengantuk. Tetapi pada kenyataannya setelah terbangun mereka merasa lebih tegang (stress) dan capek.
Kenapa hal tersebut bisa terjadi??
       Hal itu terjadi karena pada saat kita tidur sebenarnya otak kita tidak pernah tidur. Otak selalu menjalankan aktifitasnya walaupun tidak sesibuk seperti di saat bangun, yaitu menjalankan metabolisme tubuh. Pada malam hari, seiring menurunnya aktifitas tubuh, ritme gelombang otak pun mengalami penurunan. Namun apabila kita tidur sambil mendengarkan musik, televisi dalam keadaan hidup atau lampu ruangan sedang menyala terang, maka gelombang suara atau cahaya yang dipancarkan oleh peralatan tersebut tetap diterima oleh indera pendengaran dan penglihatan kita. Gelombang suara diterima oleh alat pendengaran di dalam telinga dan gelombang cahaya tetap dapat menembus kelopak mata dan diterima oleh retina dan lensa mata. Gelombang-gelombang tersebut akan diteruskan ke otak kita. Otak yang harusnya beristirahat akan kembali terangsang untuk bekerja dan mengolah informasi yang masuk. Apabila hal ini berlangsung sepanjang malam, berarti kita hanya tidur menurut tubuh luar, tetapi tidak menurut otak. Otak akan terus bekerja mengolah informasi yang masuk tersebut.
Dari penjelasan di atas, sudah cukup jelas bahwa sangat tidak baik jika elektronik di pakai secara berlebihan. Mulai sekarang, matikan semua alat elektronik ketika hendak tidur karena itu bisa melelahkan otak. Sayangi tubuh anda dan jangan sia-siakan kesehatan anda!!

Rabu, 09 November 2011

cobol : Menu

Posted by Maulana Syarif HIidayatulloh in - 0 komentar


<<<INI ADALAH CODING DARI COBOL>>

       IDENTIFICATION DIVISION.
       PROGRAM-ID. BIODATA.
       AUTHOR. MAULANA_SH.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. TOSHIBA.
       OBJECT-COMPUTER. THOSHIBA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 BIODATA.
           02 NAMA1 PIC A(16).
           02 NPM1 PIC 9(8).
           02 KELAS1 PIC X(5).
       01 EDIT.
           02 NAMA2 PIC A(4).
           02 NPM2 PIC Z(3).
           02 KELAS2 PIC X(3)/X(5).
       01 MASUKAN.
           02 NILAI1 PIC 99.
           02 NILAI2 PIC 99.
           02 NILAI-TAMPIL PIC 99.
       01 JAWAB PIC X VALUE SPACE.
           88 LAGI VALUE "Y", "y".
           88 TIDAK VALUE "T", "t".
       77 PIL PIC X.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 MENU.
           02 LINE 2 COLUMN 28 VALUE '>>>MENU<<<', FOREGROUND-COLOR 3.
           02 LINE 3 COLUMN 23 VALUE '[1]. MASUKKAN DATA',
           FOREGROUND-COLOR 3.
           02 LINE 4 COLUMN 23 VALUE '[2]. LIHAT HASIL',
           FOREGROUND-COLOR 3.
           02 LINE 5 COLUMN 23 VALUE '[3]. ARITMATIKA',
           FOREGROUND-COLOR 3.
           02 LINE 6 COLUMN 23 VALUE '[4]. PEMBUAT', FOREGROUND-COLOR 3.
           02 LINE 7 COLUMN 23 VALUE 'SILAKAN MASUKKAN PILIHAN ANDA',
           FOREGROUND-COLOR 3.
           02 COLUMN PLUS 2 PIC X TO PIL, FOREGROUND-COLOR 3.
       01 INPUT-DATA.
           02 LINE 3 COLUMN 10 VALUE '>>>MASUKAN DATA<<<'.
           02 LINE 4 COLUMN 6 VALUE 'NAMA  : '.
           02 COLUMN PLUS 2 PIC A(16) TO NAMA1.
           02 LINE 5 COLUMN 6 VALUE 'NPM   : '.
           02 COLUMN PLUS 2 PIC 9(8) TO NPM1.
           02 LINE 6 COLUMN 6 VALUE 'KELAS : '.
           02 COLUMN PLUS 2 PIC X(5) TO KELAS1.
       01 IP.
           02 LINE 4 COLUMN 28 VALUE '>>MASUKAN NILAI<<'.
           02 LINE 5 COLUMN 26 VALUE '====================='.
           02 LINE 6 COLUMN 30 VALUE 'NILAI A ='.
           02 COLUMN PLUS 2 PIC 99 TO NILAI1.
           02 LINE 7 COLUMN 30 VALUE 'NILAI B ='.
           02 COLUMN PLUS 2 PIC 99 TO NILAI2.
           02 LINE 8 COLUMN 26 VALUE '====================='.
      
       01 LAYAR-TAMPIL.
           02 LINE 9 COLUMN 30 VALUE 'HASIL   ='.
           02 COLUMN PLUS 2 PIC 99 FROM NILAI-TAMPIL.
       01 LULUS.
           02 LINE 13 COLUMN 32 VALUE 'ANDA LULUS'.
       01 TIDAK-LULUS.
           02 LINE 13 COLUMN 29 VALUE 'ANDA TIDAK LULUS'.
       01 FINISH.
           02 LINE 7 COLUMN 33 'TERIMA KASIH..!!',
           FOREGROUND-COLOR 3.
           02 LINE 8 COLUMN 17,
           'PROGRAM INI DIBUAT OLEH: MAULANA SYARIF HIDAYATULLOH',
           FOREGROUND-COLOR 3.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY MENU.
           ACCEPT MENU.
       SELEKSI.
           IF PIL=1
           PERFORM HASIL
           PERFORM TANYA.
           IF PIL=2
           PERFORM HASIL1
           PERFORM DATAKU
           PERFORM HASIL2.
           IF PIL=3
           PERFORM LAYAR-KELUAR
           PERFORM SELEKSI2
           PERFORM TANYA.
           IF PIL=4
           PERFORM SUDAH
           ELSE GO TO
           SELESAI.
       SELESAI.
           STOP RUN.
       TANYA.
           DISPLAY SPACE.
           DISPLAY SPACE.
           DISPLAY 'APAKAH ANDA INGIN MEMASUKKAN DATA BARU [Y/T] :'.
           ACCEPT JAWAB.
           IF LAGI GO TO HASIL.
           IF TIDAK GO TO MULAI
           ELSE GO TO SUDAH.
       HASIL.
           DISPLAY HAPUS-LAYAR.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           GO TO TANYA.
       HASIL1.
           DISPLAY HAPUS-LAYAR.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
       DATAKU.
           MOVE NAMA1 TO NAMA2.
           MOVE NPM1 TO NPM2.
           MOVE KELAS1 TO KELAS2.
       HASIL2.
           DISPLAY HAPUS-LAYAR.
           DISPLAY '    ***PERUBAHAN***'.
           DISPLAY NAMA1  '  MENJADI  ' NAMA2.
           DISPLAY NPM1 '  MENJADI  ' NPM2.
           DISPLAY KELAS1 '  MENJADI  ' KELAS2.
           GO TO TANYA.
       LAYAR-KELUAR.
           DISPLAY HAPUS-LAYAR.
           DISPLAY IP.
           ACCEPT IP.
           COMPUTE NILAI-TAMPIL=(NILAI1 + NILAI2)/2.
           DISPLAY LAYAR-TAMPIL.
           DISPLAY SPACE.
           DISPLAY SPACE.
       SELEKSI2.
           IF NILAI-TAMPIL =60
           DISPLAY LULUS.
           IF NILAI-TAMPIL >60
           DISPLAY LULUS
           ELSE
           DISPLAY TIDAK-LULUS.   
       SUDAH.
           DISPLAY HAPUS-LAYAR.
           DISPLAY FINISH.




KETERANGAN :
SYARAT PROGRAM COBOL ADA 4 DIVISI.
1.       IDENTIFICATION DIVISION.
DISINI BERISI TENTANG JUDUL PROGRAM  YAITU PROGRAM –ID DAN PEMBUAT PROGRAM YAITU AUTHOR.
2.         ENVIRONMENT DIVISION.
PADA PROGRAM DI ATAS ENVIRONMENT DIVISION TERDAPAT 1 SECTION YANG BERISI TENTANG KOMPONEN-KOMPONEN YANG DI PAKAI.
3.         DATA DIVISION.
ADA DUA SECTION DI DALAMNYA CODINGAN DI ATAS,YAITU: 
+ WORKING-STORAGE SECTION.
                UNTUK MENDEKLARASIKAN VARIABLE DAN TIPE DATA YANG DI GUNAKAN.
CONTOH.
01 BIODATA .                                  ADALAH RECORD.
02 NAMA1 PIC A(16).                     :     ADALAH KETERANGAN ATAU ISI DARI RECORD 
                                                                DENGAN MEMAKAI PICTURE CLAUSE A DI BATASI 
                                                                SAMPAI 16 KARAKTER.
+ SCREEN SECTION.
                ADALAH PROSES UNTUK FORMAT TAMPILAN PADA PROGRAM INI BAIK INPUT MAUPUN OUTPUT.
CONTOH.
01 HAPUS-LAYAR.                            :     LEVEL-NUMBER NAMA LAYAR..
02 BLANK SCREEN.                          :    UNTUK MENGHAPUS LAYAR ATAU CLEAR SCREEN.
01 MENU.                                            : NAMA LAYAR.
02 LINE 2 COLUMN 28 VALUE ‘>>>MENU<<<’, FOREGROUND-COLOR 3. 
 : BARIS 2 KOLOM 3 AKAN MENCETAK OUTPUT  >>>MENU<<< DENGAN NOMOR COLOR
   YG KETIGA. AKAN MENCETAK APA YG ADA DI DALAM TANDA PETIK.
01 INPUT-DATA                                  :NAMA LAYAR.
02 LINE 4 COLUMN 6 VALUE ‘NAMA :’.
02 COLUMN PLUS 2 PIC A(16)  TO NAMA1.
:BARIS 4 KOLOM 6 AKAN MENCETAK NAMA :
: AKAN MENGINPUT PLUS 2 KOLOM DARI NAMA1  DENGAN ALPHABET SEBANYAK 16
 KARAKTER.

4.       PROCEDURE DIVISION.
BERISI TENTANG SEMUA STATEMENT INTRUKSI DI BUAT.
CONTOH:
MULAI                                                    : ADALAH NAMA INTRUKSI.
DISPLAY HAPUS-LAYAR                    : UNTUK SCREEN ATAU MEMBERSIHKAN
                                                                   LAYAR.
DISPLAY MENU                                    : UNTUK MENJALANKAN RECORD MENU.
ACCEPT MENU                                     : UNTUK MENERIMA INPUTAN KETERANGAN
                                                                  RECORD TERSEBUT
SELEKSI.                                                : ADALAH NAMA INTRUKSI.
IF PIL=1                                                  : JIKA PILHAN SAMA DENGAN 1
PERFORM HASIL                                  :KE INTRUKSI HASIL
PERFROM TANYA.                               :KE INTRUKSI TANYA.
IF PIL=2                                                  :JIKA PILIHAN SAMA DENGAN 2
PERFORM HASIL1                                :KE INTRUKSI HASIL1
PERFORM DATAKU                             :KE INTUKSI DATAKU
PERFORM HASIL2                                :KE INTRUKSI HASIL2.
IF PIL=3                                                  :JIKA PILHAN SAMA DENGAN 3
PERFORM LAYAR-KELUAR                :KE INTRUKSI LAYAR-KELUAR
PERFORM SELEKSI2                            :KE INTRUKSI SELEKSI2
PERFORM TANYA                                :KE INTRUKSI TANYA
SELESAI                                                 :ADALAH NAMA INTRUKSI.
STOP RUN.                                            :ISI DARI INTRUKSI SELESAI YANG BERFUNGSI 
                                                                 MENGAKHIRI PROGRAM.
TANYA.                                                  :ADALAH NAMA INTRUKSI.
DISPLAY SPACE                                   :UNTUK MENG-ENTER 1X KE BAWAH.

DISPLAY ‘APAKAH ANDA INGIN MEMASUKAN DATA BARU [Y/T]’.
ACCEPT JAWAB
IF LAGI GO TO HASIL.
IF TIDAK GO TO MULAI
ELSE GO TO SUDAH.
PENGERTIANNYA
JIKA INPUTAN  ‘Y’ MAKA LOMPAT KE INTRUKSI HASIL.
JIKA ‘T’ MAKA LOMPAT KE INTRUKSI MULAI
SELAIN ITU KE INTRUKSI SUDAH.
HASIL                                                              :NAMA INTRUKSI.
DISPLAY INPUT-DATA                                :UNTUK MENJALANKAN RECORD INPUT-DATA.
ACCEPT INPUT-DATA                                 :UNTUK MENERIMA INPUTAN KETERANGAN
                                                                          RECORD TERSEBUT
GO TO TANYA                                               :KE INTRUKSI TANYA.
HASIL1.                                                           : NAMA INTRUKSI
DISPLAY INPUT-DATA                                :UNTUK MENJALANKAN RECORD INPUT-DATA.
ACCEPT INPUT-DATA                                 :UNTUK MENERIMA INPUTAN KETERANGAN
                                                                         RECORD TERSEBUT
DATAKU.                                                        :NAMA INTRUKSI.
MOVE NAMA1 TO NAMA2.                        :MENGUBAH OUTPUT NAMA1 MENJADI NAMA2.
MOVE NPM1 TO NPM2.                               :MENGUBAH OUTPUT NPM1 MENJADI NPM2.
MOVE KELAS1 TO KELAS2.                       :MENGUBAH OUTPUT KELAS1 MENJADI KELAS2.
HASIL2                                                            : ADALAH NAMA INTRUKSI.
DISPLAY HAPUS-LAYAR                             : UNTUK SCREEN ATAU MEMBERSIHKAN LAYAR.
DISPLAY ‘***PERUBAHAN***’.                 : UNTUK MENCETAK ‘***PERUBAHAN***’.
DISPLAY NAMA1 ‘MENJADI’ NAMA2.     : MENCETAK OUPTUT NAMA1 “MENJADI” OUTPUT NAMA2.
DISPLAY NPM1 ‘MENJADI’ NPM2.            : MENCETAK OUPTUT NPM1 “MENJADI” OUTPUT NPM2.
DISPLAY KELAS1 ‘MENJADI’ KELAS2.    : MENCETAK OUPTUT KELAS1 “MENJADI” OUTPUT KELAS2.
LAYAR-KELUAR.                                   : ADALAH NAMA INTRUKSI.
DISPLAY HAPUS-LAYAR                      : UNTUK SCREEN ATAU MEMBERSIHKAN
                                                                    LAYAR.
DISPLAY IP.                                            : UNTUK MENJALANKAN RECORD IP.
ACCEPT IP.                                             : UNTUK MENERIMA INPUTAN KETERANGAN
                                                                   RECORD TERSEBUT
COMPUTE NILAI-TAMPIL=(NILAI1 +NILAI2)/2.
COMPUTE ADALAH STATEMEN UNTUK PENGHITUNGAN.
KETERANGAN RECORD NILAI-TAMPIL=(KET.REC. NILA1 + KET.REC. NILA2)/2.
DISPLAY LAYAR-TAMPIL                     : MENCETAK NAMA-LAYAR TERSEBUT.
SELEKSI2.                                                : NAMA INTRUKSI.
IF NILAI –TAMPIL =60
DISPLAY LULUS.
IF NILAI-TAMPIL >60
DISPLAY LULUS
ELSE DISPLAY TIDAK-LULUS.
JIKA HASIL  NILAI-TAMPIL SAMA DENGAN 60 CETAK  RECORD LULUS
JIKA HASIL  NILAI-TAMPIL LEBIH DARI 60 CETAK RECORD LULUS.
SELAIN ITU CETAK RECORD TIDAK-LULUS.
SUDAH.                                                    : NAMA INTRUKSI.
DISPLAY HAPUS-LAYAR                      : UNTUK SCREEN ATAU MEMBERSIHKAN LAYAR.
DISPLAY  FINISH.                                   : UNTUK MENCETAK RECORD FINISH.

Blogroll

Partners

About