Program Transaksi Penjualan Dengan Java

 Copy kan aj smua yg ada di bawah ini, lalu pastekan ke turbo pascal, insyaallah langsung jalan

Program Lat_1;
Uses crt;
Type Penjualan = Record
       nofaktur     : string[6];
       tglPenjualan : string[17];
       JnsPkt       : string[1];
       HrgPkt       : real;
       JmlPkt       : integer;
       Pembayaran   : real;
       diskon       : real;
       totBayar     : real;
       end;
var FilePenjualan   : File of Penjualan;
    RecordPenjualan : Penjualan;
    Lagi, Hapus     : char;
    fakturhapus     : string[13];
    I,JumlahRecord  : integer;
    ketemu          : boolean;
    FakturCari      : string[8];
    Pilihan,br      : integer;

Procedure Tambah_Data;
begin
     Assign (FilePenjualan, 'Jual.dat');
     {$I-}
     Reset (FilePenjualan);
     {$I+}
     if IOResult <> 0 then
        rewrite (FilePenjualan);
     clrscr;
     seek (FilePenjualan, FileSize(FilePenjualan));
     Lagi := 'Y';
     while upcase(Lagi) = 'Y' do
     begin
          clrscr;
          with RecordPenjualan do
          begin
               gotoxy(11,4);writeln('Penjualan Komputer PT. De Naldi');
               gotoxy(11,5);writeln('================================');
               gotoxy(5,7);write  ('No. Faktur                     : ');readln(NoFaktur);
               gotoxy(5,8);write  ('Jenis Paket Komputer [A/B/C/D] : ');readln(jnsPkt);
               gotoxy(5,9);write  ('Harga PerPaket                 : Rp. ');readln(hrgPkt);
               gotoxy(5,10);write  ('Jumlah Paket Pesanan           : ');readln(jmlPkt);

               Pembayaran := HrgPkt * jmlPkt;
               If (JnsPkt = 'A') and (JmlPkt < 4) then
                  diskon := 0
               else
                    If (JnsPkt = 'A') and (JmlPkt >= 4) then
                       diskon := 0.05 * Pembayaran
                    else
                        If (JnsPkt = 'B') and (JmlPkt < 3) then
                           diskon := 0
                        else
                            If (JnsPkt = 'B') and (JmlPkt >= 3) then
                               diskon := 0.05 * Pembayaran
                            else
                                If (JnsPkt = 'C') and (JmlPkt < 2) then
                                   diskon := 0
                                else
                                    If (JnsPkt = 'C') and (JmlPkt >= 2) then
                                       diskon := 0.05 * Pembayaran
                                    else
                                        If JnsPkt = 'D' then
                                           diskon := 0.05 * Pembayaran;
               TotBayar := Pembayaran - diskon;
               gotoxy(5,11);write ('Pembayaran                     : Rp.',Pembayaran:8:0);
               gotoxy(5,12);write ('diskon                         : Rp.',diskon:8:0);
               gotoxy(5,13);write ('Total Pembayaran               : Rp.',totBayar:8:0);
               end;
          write (FilePenjualan, RecordPenjualan);
          gotoxy (5,15);write('Ada data lagi [Y/T] ? : ');readln(lagi);
          end;
     close (FilePenjualan);
     end;

Procedure Tmp_Semua_Data;
begin
     Assign (FilePenjualan, 'Jual.dat');
     Reset  (FilePenjualan);
     clrscr;
     gotoxy(5,2);writeln ('              PENJUALAN KOMPUTER PERPAKET PT.De Naldi               ');
     gotoxy(5,3);writeln;
     gotoxy(5,4);writeln ('|======|===========|========|========|==========|=======|==========|');
     gotoxy(5,5);writeln ('|  No. |Jenis Paket| Harga  |Jumlah  |Pembayaran| Diskon|  Total   |');
     gotoxy(5,6);writeln ('|Faktur| Penjualan |Perpaket| Paket  |   Rp.    |  5 %  |Pembayaran|');
     gotoxy(5,7);writeln ('|      | [A/B/C/D] |  Rp.   |Pesanan |          |  Rp.  |   Rp.    |');
     gotoxy(5,8);writeln ('|======|===========|========|========|==========|=======|==========|');
                         {  123456 12345678901 12345678 12345678 1234567890 1234567 1234567890  }
     while not EOF (FilePenjualan) do
     begin
          br := br + 1;
          read (FilePenjualan, RecordPenjualan);
          with RecordPenjualan do
          begin
               gotoxy(5,br+8);write ('|',nofaktur:6,'|',jnspkt:11,'|',hrgpkt:8:0,'|');
               write (jmlpkt:8,'|',Pembayaran:10:0,'|',diskon:7:0,'|',totbayar:10:0,'|');
          gotoxy(5,br+9);writeln ('|======|===========|========|========|==========|=======|==========|');
          end;
     end;
     close (FilePenjualan);
     repeat until keypressed;
     end;

Procedure Tmp_Tertentu;
begin
     Assign (FilePenjualan,'Jual.dat');
     {$I-}
     Reset (FilePenjualan);
     {$I+}
     if IOResult <> 0 then
        writeln ('File tidak ada !');
     JumlahRecord := Filesize (FilePenjualan);
     Lagi := 'Y';
     while upcase (Lagi) = 'Y' do
     begin
          ketemu := false;
          clrscr;
          gotoxy(15,5);write ('No. Faktur yang akan dicari : ');readln(FakturCari);
          writeln;
          for I := 1 to JumlahRecord do
          begin
               seek (FilePenjualan,I-1);
               read (FilePenjualan, RecordPenjualan);
               if RecordPenjualan.nofaktur = FakturCari then
               begin
                     ketemu := true;
                     gotoxy(10,7);writeln ('Jenis Paket Penjualan [A/B/C/D]  : ',RecordPenjualan.JnsPkt);
                     gotoxy(10,8);writeln ('Harga Perpaket                   : Rp. ',RecordPenjualan.HrgPkt:8:0);
                     gotoxy(10,9);writeln ('Jumlah Paket Pesanan             : ',RecordPenjualan.JmlPkt);
                     gotoxy(10,10);writeln ('Pembayaran                       : Rp. ',RecordPenjualan.Pembayaran:8:0);
                     gotoxy(10,11);writeln ('Diskon 10 %                      : Rp. ',RecordPenjualan.Diskon:8:0);
                     gotoxy(10,12);writeln ('Total Pembayaran                 : Rp. ',RecordPenjualan.TotBayar:8:0);
                     end;
               end;
          if not ketemu then
          begin
               gotoxy(15,7);writeln ('NO. FAKTUR YANG DICARI TIDAK DITEMUKAN');
               end;
          gotoxy(10,14);write ('Cari No. Faktur yang lain [Y/T] ? : ');readln(Lagi);
          end;
     close (FilePenjualan);
     end;

Procedure Koreksi_Data;
begin
     Assign (FilePenjualan, 'Jual.dat');
     {$I-}
     Reset (FilePenjualan);
     {$I+}
     if IOResult <> 0 then
        writeln ('FILE TIDAK ADA!!!!');
     JumlahRecord := Filesize (FilePenjualan);
     Lagi := 'Y';
     while upcase(Lagi) = 'Y' do
     begin
          ketemu := false;
          clrscr;
          gotoxy(20,10);write ('No. Faktur yang dicari : ');readln(FakturCari);
          writeln;
          for I:=1 to jumlahrecord do
          begin
               seek (FilePenjualan, I-1);
               read (FilePenjualan, RecordPenjualan);
               if FakturCari = RecordPenjualan.nofaktur then
               begin
                    with RecordPenjualan do
                    begin
                         ketemu := true;
                         clrscr;
                         gotoxy(10,5);writeln  ('Jenis Paket Penjualan [A/B/C/D]  : ',JnsPkt);
                         gotoxy(10,6);write    ('Koreksinya                       : ');readln(JnsPkt);
                         gotoxy(10,8);writeln  ('Harga Perpaket                   :',HrgPkt:8:0);
                         gotoxy(10,9);write    ('Koreksinya                       : ');readln(HrgPkt);
                         gotoxy(10,11);writeln ('Jumlah Paket Pesanan             : ',JmlPkt);
                         gotoxy(10,12);write   ('Koreksinya                       : ');readln(jmlpkt);

                         Pembayaran := HrgPkt * jmlPkt;
                         If (JnsPkt = 'A') and (JmlPkt < 4) then
                            diskon := 0
                         else
                             If (JnsPkt = 'A') and (JmlPkt >= 4) then
                                diskon := 0.1 * Pembayaran
                             else
                                 If (JnsPkt = 'B') and (JmlPkt < 3) then
                                    diskon := 0
                                 else
                                     If (JnsPkt = 'B') and (JmlPkt >= 3) then
                                        diskon := 0.1 * Pembayaran
                                     else
                                         If (JnsPkt = 'C') and (JmlPkt < 2) then
                                            diskon := 0
                                         else
                                             If (JnsPkt = 'C') and (JmlPkt >= 2) then
                                                diskon := 0.1 * Pembayaran
                                             else
                                                 If JnsPkt = 'D' then
                                                    diskon := 0.1 * Pembayaran;
                         TotBayar := Pembayaran - diskon;
                         gotoxy(10,13);write ('Koreksi Pembayaran                 : ',pembayaran:8:0);
                         gotoxy(10,14);write ('Koreksi Diskon                     : ',diskon:8:0);
                         gotoxy(10,15);write ('Koreksi Total Pembayaran           : ',totbayar:8:0);
                         end;
                    end;
               seek  (FilePenjualan,I-1);
               write (FilePenjualan, RecordPenjualan);
               end;
          if not ketemu then
          begin
               gotoxy(20,11);writeln ('NO. FAKTUR YANG DICARI TIDAK ADA!!!');
               end;
          gotoxy(10,17);write ('Ingin Koreksi Lagi [Y/T] ? : ');readln(Lagi);
          end;
     close (FilePenjualan);
     end;

Procedure Hapus_data;
begin
     Assign (FilePenjualan, 'Jual.dat');
     {$I-}
     Reset (FilePenjualan);
     {#$I+}
     if IOResult <> 0 then
        writeln ('File Tidak Ada');
     JumlahRecord := FileSize (FilePenjualan);
     Lagi := 'Y';
     while upcase(Lagi) = 'Y' do
     begin
          clrscr;
          ketemu := false;
          gotoxy(30,5);writeln ('Menghapus Data');
          gotoxy(30,6);writeln ('--------------');
          gotoxy(25,8);write ('No. Faktur yang akan dihapus : ');readln(fakturhapus);
          for I:=1 to JumlahRecord do
          begin
               seek (FilePenjualan,I-1);
               read (FilePenjualan, RecordPenjualan);
               if RecordPenjualan.nofaktur = fakturHapus then
               begin
                    with RecordPenjualan do
                    begin
                         ketemu := true;
                         gotoxy(20,10);writeln ('Jenis Paket Komputer [A/B/C/D]  : ',jnspkt);
                         gotoxy(20,11);writeln ('Harga Perpaket                  : ',hrgpkt:8:0);
                         gotoxy(20,12);writeln ('Jumlah Paket Pesanan            : ',jmlpkt);
                         gotoxy(20,13);writeln ('Pembayaran                      : ',pembayaran:8:0);
                         gotoxy(20,14);writeln ('Diskon                          : ',diskon:8:0);
                         gotoxy(20,15);writeln ('Total Pembayaran                : ',totbayar:8:0);
                         end;
                    writeln;
                    gotoxy(20,17);write ('Yakin akan dihapus [Y/T]? : ');readln(Hapus);
                    if upcase(hapus) = 'Y' then
                    begin
                         with RecordPenjualan do
                         begin
                              clrscr;
                              gotoxy(20,8);writeln ('Ket : diisi kosong');
                              gotoxy(20,10);write ('No. Faktur                    : ');readln(nofaktur);
                              gotoxy(20,11);write ('Jenis Paket Kompter [A/B/C/D] : ');readln(jnspkt);
                              gotoxy(20,12);write ('Harga Perpaket                : ');readln(hrgpkt);
                              gotoxy(20,13);write ('Jumlah Paket Pesanan          : ');readln(jmlpkt);
                              gotoxy(20,14);write ('Pembayaran                    : ');readln(pembayaran);
                              gotoxy(20,15);write ('Diskon                        : ');readln(Diskon);
                              gotoxy(20,16);write ('Total Pembayaran              : ');readln(totbayar);
                              end;
                         end;
                    seek (FilePenjualan, I-1);
                    write (FilePenjualan, RecordPenjualan);
               end;
               if not ketemu then
               begin
                    gotoxy(25,10);writeln ('Data yang dicari tidak ada!');
                    end;
          end;
          gotoxy(20,17);write ('Ada data lagi yang akan dihapus [Y/T]? : ');readln(lagi);
          end;
     close (FilePenjualan);
     end;


{Program Utama}
begin

     pilihan := 6;
     while Pilihan <> 7 do
     begin
          clrscr;
          gotoxy(20,5); writeln ('MENU PILIHAN');
          gotoxy(20,6); writeln ('============');
          gotoxy(15,8);writeln ('1. TAMBAH DATA.');
          gotoxy(15,9);writeln ('2. TAMPIL SEMUA DATA.');
          gotoxy(15,10);writeln ('3. TAMPIL DATA TERTENTU.');
          gotoxy(15,11);writeln ('4. KOREKSI DATA.');
          gotoxy(15,12);writeln ('5. HAPUS DATA.');
          gotoxy(15,13);writeln ('6. SELESAI.');
          gotoxy(15,15);write ('MASUKKAN PILIHAN ANDA [1/2/3/4/5/6] ? : ');
          gotoxy(55,15);readln(Pilihan);

     if Pilihan = 1 then
        Tambah_Data
     else
         if Pilihan = 2 then
            Tmp_Semua_Data
         else
             if Pilihan = 3 then
                Tmp_Tertentu
             else
                 if Pilihan = 4 then
                    Koreksi_Data
                 else
                     if Pilihan = 5 then
                        Hapus_data
                     else
                         exit;
         end;
     end.

Rindu Muhammadku

Haahah iseng2 masukin Mp3 lagu hadad Alwi.. Rindu Muhammad ku...
karna lg rindu jg sih...

http://www.4shared.com/audio/OPfyHQII/Haddad_Alwi_Feat_Ebith_Beat_A_.html

Pengolahan Procedure dengan Turbo Pascal

        Turbo Pascal merupakan bhasa pemograman yang sederhana,kita dapat melakukan proses2 sederhana menggunakan bhasa pascal. file ini iseng2 saya buat untuk tman. disini saya lampirkan file menggunakan  proses menu yg di sebut dengan procedur. mungkin banyak kekurangan dari pemograman ini,tpi pemograman pasacal merupakan dasar dari bahasa pemograman lain seperti Java, visual basic dll.
bagi tman2 yg ingin download untuk di pelajari silahkan saja.mudah2an ini bermannfaat bagi kita smua. jagan lpa tinggalkan komentarx y...

http://www.4shared.com/file/44lqyeC_/Tugas_Akhir_Maya.html

ne applikasi turbo pascalx....Download ajjah...
http://www.4shared.com/file/KOgaAg4F/Turbo_Pascal.html

TUTORIAL ADOBE PHOTOSHOP CS3 (make a foto egois)

Membuat Foto Egois 

Adobe Photoshop merupakan salah satu perangkat lunak yang digunakan untuk membantu memanipulasi, memperbaiki, atau memperindah sebuah citra gambar. Ada beberapa seri Adobe Photoshop yang telah beredar, seri terakhir adalah Adobe Photoshop CS3. Dibandingkan seri sebelumnya, yaitu Adobe Photosop CS2, Adobe Photoshop CS3 tidak banyak berubah. Perubahan hanya terdapat pada tampilan dimana path history dan path pengatur yang lain dikumpulkan dalam sebuah button tersendiri ditambah dengan beberapa effect baru pada filter.

Ada banyak teknik manipulasi foto yang dapat dilakukan dengan Adobe Photoshop CS3 atau seri sebelumnya. Salah satu teknik favorit saya adalah teknik membuat foto egois (istilah saya). Teknik ini sangat sederhana dimana membuat obyek yang kita inginkan lebih menonjol dibandingkan dengan obyek yang lain. Hal ini dapat dilakukan dengan merubah warna tampilan obyek yang tidak kita inginkan atau membuat obyek yang tidak kita inginkan tersebut blur. Contoh :

 

Before 

 

After

Step 1

Hal pertama yang dilakukan adalah membuka file foto yang ingin dimanipulasi. Pilihlah foto yang dirasa cocok untuk aplikasi teknik ini. Setelah file foto tersebut terbuka, biasanya pada panel layers foto anda akan terdapat gambar gembok kecil. Gembok tersebut menunjukkan bahwa layers foto anda terkunci, Dalam keadaan terkunci layers tersebut tidak dapat dimanipulasi. Bukalah layers tersebut dengan mengklik dua kali layers foto anda, kemudian tekan enter.

Buatlah duplikat layers foto anda satu kali. Dengan menekan ctrl+J (PC) atau command+J (mac). Sekarang ada 2 layers yang anda miliki. Pilih layers yang paling atas, sebagai layers yang akan kita manipulasi. Kemudian buatlah path baru dalam kolom paths, dengan mengklik tombol new paths dibagian bawah.
 

 

add foto

 

duplicate layer

 

path baru

Step 2

Mulailah untuk menyeleksi obyek yang ingin anda tonjolkan. Pada teknik ini untuk proses seleksi menggunakan pen tool. Sedangkan untuk mengedit hasil seleksi dapat digunakan direct selection tool. Penggunaan pen toll sendiri memungkinkan kita untuk mendapatkan hasil seleksi yang sempurna dan rapi. Pastikan pada proses seleksi anda berkerja pada path yang anda buat. Setelah obyek yang ingin anda tonjolkan sudah terseleksi. Selectlah obyek tersebut dengan mengklik tombol select pada bagian bawah kolom path. Akan muncul garis putus-putus pada obyek yang anda seleksi.
 

 

tombol seleksi

 

jadinya . . .

Step 3Untuk langkah berikutnya, pastikan anda berada pada layers paling atas. Setelah muncul garis putus-putus, kemudian potonglah (cut) layers foto anda dengan menekan ctrl+x (PC) atau command+X (mac). Layers anda akan otomatis terpotong sesuai dengan seleksi yang anda buat.

Masih pada layers yang sama, bukalah item Hue/Saturation. Image > Adjusment > Hue/Saturation atau ctrl+u (PC) / command+u (mac). Aktifkan colorize pada bagian pojok kanan bawah Hue/Saturation. Ubalah komposisi warna layers anda sesuai dengan keinginan anda. Sebagai contoh anda dapat memasukkan komposisi sebagai berikut :
 

 

komposisi yang saya gunakan

dan jadi lah foto egois . . . .

Computer Games: Berbahayakah?

Salah satu pandangan yang saya bawa ke alam pendidikan yang saya masuki setahun lalu adalah pandangan bahwa siswa (atau anak-anak) justru harus kita dorong untuk mampu dan senang bermain game komputer, bukan melarangnya. Salah satu hasil dari keyakinan itu adalah lab komputer sekolah yang saya pimpin saat ini tidak pernah sepi dari suara nyaring melodi game komputer yang dimainkan siswa (termasuk guru) baik dalam jam sekolah maupun diluar jam sekolah. Saya pun menuai kritik serta muka cemberut orang tua siswa yang menganggap bahwa game komputer, apapun alasannya, adalah negatif. Terutama bila dilihat dari sisi ketagihannya. 


Sulit untuk membuktikan keyakinan saya itu dalam waktu yang sangat singkat. Namun ada satu keadaan yang jelas saat ini, yaitu hampir tidak ada siswa di sekolah kami yang tidak mahir memainkan jari-jarinya diatas keyboard, semakin sedikit pula yang matanya cepat lelah didepan monitor komputer. Lebih nikmat lagi ketika menyaksikan anak-anak tadi berteriak kegirangan ketika memenangkan suatu pertandingan game online karena logika dia lebih tajam dibanding musuhnya, ataupun karena kecepatan jarinya memainkan mouse lebih cepat dibanding musuhnya. 


Saya bukan penggemar game, bahkan game yang bisa saya mainkan sangat sedikit, apalagi memenangkannya. Namun saya sangat antusias mengamati perkembangan aplikasi game komputer yang berkembang, juga aktif mengamati perilaku anak-anak yang bermain game-game tersebut. 


Kalaulah para orangtua mau meluangkan waktu sedikit saja untuk menyelami apa yang terjadi dengan perkembangan pikiran anak-anaknya dengan semakin ketagihannya mereka terhadap game komputer, pastilah mereka akan tercengang. 


Saya adalah pengguna serius dari banyak aplikasi komputer mulai dari Microsoft Office hingga Adobe Premiere yang membutuhkan kemampuan teknis tinggi untuk dapat mengoperasikan serta memanfaatkannya untuk pekerjaan. Pada satu sisi, saya bahkan menikmati bekerja dan berkreasi dengan aplikasi-aplikasi serius tadi. Namun ketika saya harus dihadapkan pada aplikasi game Commandos yang dimainkan dengan fasihnya oleh keponakan saya yang kelas 4 SD, saya betul-betul bengong dan tidak mampu secara cepat mencerna logika dasar pengoperasian aplikasi itu. 


Sebagai informasi, Comandos adalah suatu game komputer yang cukup populer dimana sebagai pemain, kita bertindak sebagai seorang komandan lapangan dari anggota pasukan khusus sekutu di PD II untuk menyusup dan menghancurkan pasukan Jerman. Permainan dibagi kedalam skenario-skenario tertentu dengan tingkat kesulitan berbeda-beda. Dengan kecanggihan teknologi, aplikasi game ini sangat nyata dan kita dapat mengontrol begitu banyak hal dari pasukan kita mulai dari peralatan yang dipakai, obat-obatan, cara memanjat/merayap, dll. Akibatnya? Control panel begitu rumitnya karena begitu banyak yang harus diatur. 


Anda pernah pakai Microsoft Word untuk mengetik surat? Yang perlu anda ketahui hanyalah pengetahuan akan huruf abjad yang tertulis di keyboard serta beberapa fasilitas sederhana seperti menebalkan, memiringkan, membesarkan huruf. Benar? Untuk menjalankan Commandos, anda perlu berbagai variasi tombol keyboard untuk merayap, meloncat, mencabut pisau, menembakkan pistol, menembakkan bazooka, mengganti pakaian untuk menyamar, melempar granat, mengemudikan truk, berenang, menyelam, mengobati luka, dll... (masih banyak lagi fungsi lainnya). Pada saat bersamaan, pemain harus mengendalikan 4-5 anggota pasukannya yang tersebar di berbagai lokasi, sehingga terkadang layar harus dibagi 4-5 segmen. 


Perlu saya ulangi, keponakan saya yang kelas 4 SD memainkan game ini dengan tingkat keterampilan yang sangat tinggi, semua variasi tombol keyboard untuk fungsi-fungsi tadi bisa dia hapal diluar kepala (karena kalau tidak dia pasti kalah). Yang lebih hebat lagi, otaknya bisa bekerja mengendalikan 4-5 orang anggota pasukan untuk bergerak bersamaan dengan tugas dan musuh berbeda-beda. 


Dulu, bahkan sekarangpun masih terjadi di kantor-kantor, dimana kita sering uring-uringan karena masalah file yang kita buat tidak bisa tersimpan atau rusak, dsb. Problem kita masih pada tahap seperti itu. Tahap itu sudah terlampaui oleh anak-anak generasi Commandos ini. Mereka terlalu canggih untuk hanya direpotkan oleh masalah kecil seperti itu. 


Ratusan bahkan ribuan anak seusia keponakan saya itu juga punya kemampuan yang sama dalam memainkan ribuan jenis game komputer yang dari hari ke hari semakin rumit saja. Fenomena apa ini? 


Berinteraksi dengan komputer adalah masalah logika. Karena pembuat aplikasi (baik perkantoran maupun game) adalah orang dari negara maju yang pintar dan pemikirannya sudah sangat advance dan jauh dari cara berpikir kita, maka muncullah berbagai masalah ketika kita masih baru mulai berkenalan dengan komputer. Kalau anak-anak kita dengan mudahnya belajar dan memainkan game-game canggih yang ada, artinya (menurut pendapat saya) cara berpikir mereka atau logika berpikir mereka sudah sama dengan para pencipta game-game tersebut. 


Apakah ini baik? 


Tentu saja! 


Dengan pemberian arah yang jelas terhadap anak-anak berlogika internasional ini, mereka akan tumbuh dengan sangat cepat dalam berinteraksi dengan program komputer secanggih apapun. 


Jadi, menurut keyakinan saya, bermain game adalah suatu proses "fine tuning" (atau penyamaan frekuensi) dari logika berpikir anak-anak kita dengan logika berpikir aplikasi komputer yang canggih tadi. Pada saat bersamaan, game juga secara nyata mempertajam daya analisis anak-anak untuk mengolah informasi dan mengambil keputusan cepat yang jitu. 
Nama Penulis: Mohamad Adriyanto

Namun, tentu saja kenyataan juga harus kita masukkan kedalam perhitungan. Kenyataan itu diantaranya adalah kecanduan anak yang akut terhadap permainan komputer semacam ini. Mereka bisa lupa segala-galanya akan tugas mereka yang lain.

Apakah ini melemahkan keyakinan saya? Tentu saja tidak. Ada banyak anak yang berhasil prestasi sekolahnya sementara pada saat bersamaan bisa tetap punya waktu menikmati permainan game nya. Ingat: Salah satu yang diasah dalam permainan komputer masa kini adalah kemampuan untuk melakukan multitasking (melakukan banyak tugas pada saat bersamaan). Mustinya mereka sudah sangat terbiasa untuk berpikir ganda seperti belajar, main game dan bantu orang tua di rumah.

Mungkinkah?

Pasti mungkin. Caranya?

Saya sendiri belum punya jawaban instan yang jitu. Namun yang pasti, jangan biarkan anak anda dijauhkan dari game-game komputer, mereka akan dapat banyak pelajaran hidup yang sangat berharga disana.