Jumat, 06 Oktober 2017

Menerjemahkan PDF atau file Word menggunakan Google Docs

Apabila teks yang ingin kita terjemahkan hanyalah sedikit, cukup copy paste teks tersebut ke Google Translate ataupun Microsoft Translation.  Tapi untuk menerjemahkan file yang sangat besar, misal manual handphone berbahasa  China atau Jepang tentu saja teknik copy paste menjadi hal yang  merepotkan.

Dengan bantuan Google Docs kita bisa menerjemahkan file bertipe Word, PDF, PowerPoint, ataupun Excel . Caranya:

  1. Buka Google Docs.





  2. Unggah (upload) file yang ingin diterjemahkan dan biarkan Google mengubah menjadi file dokumen Google (Word menjadi Docs, PowerPoint menjadi Slide, dan atau Excel menjadi Spreadsheet )
  3. Pilih menu  Alat   kemudian pilih  Terjemahkan dokumen... 





  4. Pada dialog menu baru yang muncul kita diberi pilihan nama file salinan dari dokumen yang akan kita terjemahkan dan pilihan bahasa terjemaahannya.




Selamat! Kita sudah mendapatkan file terjemaahan yang kita inginkan dalam tab browser baru. Jadi demikian tadi cara menerjemahkan PDF atau file Word menggunakan Google Docs.

Kamis, 05 Oktober 2017

Kode html untuk membuka windows explorer

Latar belakang 

Saya membuat sebuah file html sederhana untuk mengingatkan dimana saya menyimpan file yang sering saya akses. Format organisasi penyimpanan file saya yang menggunakan sistem maksimal 5 sub folder dalam satu folder membuat file-file tertentu terkubur dalam sekali ☺. Jadi pada file html ini selain link situs yang sering dibuka saya ingin juga membuat link yang mengarahkan file yang saya simpan offline.

Proses 

Semula saya membuat kode seperti biasa kalau kita melink ke alamat situs. Formatnya:

<a href="file:///D:\O\Dropbox\KANTOR\PRODUK DAN KEGIATAN\LAPORAN/DaftarPelayanan.accdb"> Daftar Pelayanan </a>

ternyata hasilnya Chrome menawarkan untuk menyimpan file tersebut, bukannya membuka dengan Microsoft Access seperti yang saya harapkan.

Mbah Google Beraksi

Ternyata tidak mudah mencari solusi untuk masalah ini. Simbah kayaknya agak kurang bersahabat. Keyword pertama : tell html to open windows explorer belum berhasil. Katanya Internet Explorer 8 pada Windows 7 akan membuka windows explorer untuk link seperti diatas. Tapi saya ingin menggunakan Chrome.

Mbah Google Menyerah

Akhirnya setelah berselancar ke beragam link kesimpulan yang didapat hal ini cuma bisa dilakukan oleh Internet Explorer dan adik kandungnya Edge. Firefox dan Chrome menggunakan protokol keamanan yang berbeda sehingga biasanya orang menggunakan beragam cara lain. Salah satunya ekstensi Chrome yang membuka link lewat Internet Explorer (mending saya langsung buka file HTML-nya di Internet Explorer kan).
Tampilan saat link di klik menggunakan Internet Explorer. Saya tinggal pilih Open.

Cara merubah satuan pada Microsoft Word dari inci menjadi sentimeter

Pada Microsoft World defaultnya satuan yang digunakan adalah inci. Karena kita terbiasa menggunakan satuan metrik terutama sentimeter, maka cara merubahnya adalah sebagai berikut:


  1. Tampilkan dialog box options (pada Word 2007 klik tombol bergambar logo Office lalu pilih  Word Options . Pada Word 2010 atau Word 2013 klik pada tab  File  lalu pilih  Options .
    1. Pilih  Advanced  pada menu samping kiri lalu cari dibagian kanan Display.
    2. Pada menu list show measurements in units of: pilih Centimeters lalu klik OK.
    Untuk pengguna Microsoft Word 2003 atau yang lebih lawas, caranya adalah:
    1. Pilih  Tools  lalu pilih  Options 
    2. Pilih tab  General 
    3. Pada combobox Measurement units: pilih Centimeters
    4. klik  OK .

    Kamis, 31 Januari 2013

    Ibu Kosasih

    Tadi ketika buka puasa bersama, salah seorang ibu undangan yang dikenalkan sebagai ibu kosasih oleh pembawa acara (bukan nama sebenarnya) dipersilahkan memberikan sambutan. Tiba-tiba seorang temanku berpaling kearahku dan bertanya,”ibu Kosasih tu istrinya siapa?”. Karena kaget atas pertanyaan yang tiba-tiba dan tak terduga tersebut, aku langsung ngejawab,”Bu Kosasih tu istrinya pak Kosasih.” Temanku yang lain yang kebetulan ikut mendengar percakapan tadi tertawa, dan aku yang baru menyadari kejadian tersebut jadi ikut geli dan tertawa. Si penanya kelihatannya jengkel tapi ia diam saja.
    Mungkin maksud pertanyaan si penanya tadi adalah : Suami bu Kosasih itu jabatannya apa. Tapi karena diajukan secara tak terduga dan diajukan dalam kalimat pertanyaan yang mengandung banyak kemungkinan jawaban, hasilnya adalah jawaban seperti tadi.
    Kalimat pertanyaan seperti apa ya yang sebaiknya diajukan oleh penanya tadi?

    Siapa yang lebih berkuasa disini?

    Berikut adalah catatan percakapan radio yang pernah terjadi disebuah perairan Newfoundland kawasan Kanada pada Oktober 1995. Transkrip ini dikeluarkan oleh Chief of Naval Operations tanggal 10 Oktober 1995.

    radio satu: Berbeloklah 15 derajat ke utara untuk menghindari tabrakan.

    radio dua: Sebaiknya anda berbelok15 derajat ke selatan untuk menghindari tabrakan.

    radio satu: Dengar! Disini kapten kapal perang angkatan laut Amerika. Jadi belokkan arahmu.

    radio dua:  Kalau begitu kami sarankan agar anda yang membelokkan arah.

    radio satu: KAMI ADALAH KAPAL INDUK, KAPAL PERANG BESAR ANGKATAN LAUT AMERIKA SERIKAT.                   BELOKKAN ARAHMU SEKARANG !!!

    radio dua: TIDAK BISA!!! kami adalah mercusuar.

    Mencari Kelinci

    Kepolisian LA, FBI, dan CIA sedang berlomba membuktikan merekalah yang terbaik dalam mengatasi kasus kriminal. Presiden memutuskan untuk mengadakan sayembara dengan cara melepaskan seekor kelinci kedalam hutan dan menyuruh mereka menangkapnya.
    CIA menyebarkan binatang mata-mata keseluruh pelosok hutan, menanyai semua saksi tanaman dan bebatuan. Setelah 3 bulan penyelidikan intensif, mereka akhirnya menyimpulkan bahwa sebenarnya kelinci itu tidak pernah ada.
    Kemudian giliran FBI. Setelah dua minggu mencari tanpa mendapat hasil  , mereka membakar seluruh hutan dan menewaskan seluruh penghuninya termasuk kelinci. Mereka sama sekali tidak meminta maaf atas kejadian tersebut.
    Kepolisian LA kemudian mencari di hutan yang lain. Dua jam kemudian mereka keluar membawa seekor beruang yang dalam keadaan babak belur. Beruang tersebut berseru,” Iya. Iya. Saya mengaku. Sayalah sebenarnya kelinci itu.”
    Jadi ingat pada suatu negara.

    Lawan kata


    Kelas yang tadi ribut-ribut tanpa guru, kini menjadi sunyi. Guru Bahasa
    Indonesia yang paling ditakuti dan disegani oleh semua murid telah masuk
    ke dalam kelas. Wajahnya garang seperti harimau kelaparan.
    Murid-murid: Selamat pagi, Bu Guru!
    Bu Guru (dengan suara melengking): Mengapa bilang selamat pagi
    saja? Kalau begitu siang, sore dan malam kalian mendoakan saya tidak
    selamat ya?
    Murid-murid: Selamat pagi, siang dan sore Bu Guru…..
    Bu guru: Kenapa panjang sekali? Tidak pernah orang mengucapkan selamat
    seperti itu! Katakan saja selamat sejahtera, bukankah lebih bagus didengar
    dan penuh makna? Lagipula ucapan ini meliputi semua masa dan keadaan.
    Murid-murid: Selamat sejahtera Bu Guru!
    Bu guru: Sama-sama, duduk! Dengar baik-baik. Hari ini Bu Guru akan menguji
    kalian semua tentang lawanan kata atau antonim kata. Kalau Bu Guru
    sebutkan perkataannya, kalian semua harus cepat menjawabnya dengan lawan
    katanya, mengerti?
    Murid-murid: Mengerti Bu Guru…
    Guru: Pandai!
    Murid-murid: Bodoh!
    Guru: Tinggi!
    Murid-murid: Rendah!
    Guru: Jauh!
    Murid-murid: Dekat!
    Guru: Berjaya!
    Murid-murid: Menang!
    Guru: Salah itu!
    Murid-murid: Betul ini!
    Guru (geram): Bodoh!
    Murid-murid: Pandai!
    Guru: Bukan!
    Murid-murid: Ya!
    Guru (mulai pusing): Oh Tuhan!
    Murid-murid: Oh Hamba!
    Guru: Dengar ini…
    Murid-murid: Dengar itu…
    Guru: Diam!!!!!
    Murid-murid: Ribut!!!!!
    Guru: Itu bukan pertanyaan, bodoh!!!
    Murid-murid: Ini adalah jawaban, pandai!!!
    Guru: Mati aku!
    Murid-murid: Hidup kami!
    Guru: Saya rotan baru tau rasa!!
    Murid-murid: Kita akar lama tak tau rasa!!
    Guru: Malas aku ngajar kalian!
    Murid-murid: Rajin kami belajar bu guru…
    Guru: Kalian gila semua!!!
    Murid-murid: Kami waras sebagian!
    Guru: Cukup! Cukup!
    Murid-murid: Kurang! Kurang!
    Guru: Sudah! Sudah!
    Murid-murid : Belum! Belum!
    Guru: Mengapa kamu semua bodoh sekali?
    Murid-murid: Sebab saya seorang pandai!
    Guru: Oh! Melawan, ya??!!
    Murid-murid: Oh! Mengalah, tidak??!!
    Guru: Kurang ajar!
    Murid-murid: Cukup ajar!
    Guru: Habis aku!
    Murid-murid: Kekal kamu!
    Guru (putus asa): O.K. Pelajaran sudah habis!
    Murid-murid: K.O. Pelajaran belum mulai!
    Guru: Sudah, bodoh!
    Murid-murid: Belum, pandai!
    Guru: Berdiri!
    Murid-murid: Duduk!
    Guru: Bego kalian ini!
    Murid-murid: Cerdik kami itu!
    Guru: Rusak!
    Murid-murid: Baik!
    Guru (stres): Kamu semua ditahan siang hari ini!!!
    Murid-murid: Kami sebagian dilepaskan tengah malam itu!!
    Guru (stres): 66666
    Murid-murid: 99999
    Guru (stres): !!!!!
    Murid-murid: ?????

    Kakek Lugu


    Setelah mengawini seorang perempuan muda yang sangat cantik, seorang kakek-kakek berusia 90 tahun
    dengan bangga bercerita kepada dokternya bahwa istrinya sedang hamil.

    Sambil menahan perasaan, sang dokter berkata, “Kakek, saya punya sebuah cerita. Seorang lelaki dungu pergi berburu, tetapi karena dungunya ia malahan membawa payung, bukannya senapan. Nah, di tengah hutan ia dihadang oleh seekor beruang besar. Kemudian ia menodongkan payungnya, menembak si beruang,
    dan beruang itu mati seketika”.

    “Mustahil!!!” potong si kakek. “Pasti ada orang lain yang menembak beruang itu!” teriaknya lagi.

    “Tepat sekali!” jawab si dokter sambil memandang sang kakek dengan prihatin.

    Ibadah Jumat

    Sepasang pengantin baru mengalami gangguan kesehatan. Setelah diperiksa
    Dengan teliti, dokter menyimpulkan hal itu disebabkan frekuensi hubungan
    seks yang terlalu tinggi buat mereka. “Sebaiknya untuk sementara kalian
    batasi dulu kegiatan seks kalian, tiga kali saja seminggu. Untuk
    memudahkan mengingat, saya sarankan
    untuk melakukan hubungan intim hanya pada hari yang berawalan dengan S,
    yaitu Senen, Selasa dan Sabtu,” saran dokter. Akan tetapi pada malam
    ketiga si suami tidak tahan lagi. Ia mencumbu istrinya yang sedang tidur
    sampai terbangun. “Hari apa ini Mas?” tanya si istri.
    “Sumat.”

    Sweet 17

    Ada seorang anak bertanya pada ibunya. “Bu, pas sweet seventeen nanti
    boleh bikin pesta di rumah gak?”
    Yah, kapan lagi anakku bisa pesta sweet seventeen, pikir ibunya “Boleh…
    boleh… biar nanti ibu siapkan.”
    Anak itu kembali bertanya, “Bu, pas sweet seventeen nanti boleh ngundang
    temen-temen gak?”
    Yah, kapan lagi dia bisa kumpul dengan teman-temannya,pikir ibunya,
    “Boleh, boleh… nanti ibu urus undangannya.”
    Anak itu bertanya lagi, “Bu, bu… boleh pake baju baru gak?”
    Yah, hanya sekali ini dia bisa sweet seventeen, pikir ibunya, “Boleh…
    boleh, nanti ibu belikan.”
    Pada hari ulang tahun ke-17 itu, pesta sudah dirayakan di rumahnya,
    teman-temannya sudah datang, anak itu memakai baju barunya dan kembali
    bertanya sama ibunya, “Bu, bu… boleh pakai lipstick gak?”
    “Gak boleh!” kata ibunya.
    “Ah… ibu, ini kan cuman terjadi sekali dalam hidup, masa pakai lipstick
    aja gak boleh…” rengek anaknya.
    “Enggak!! Pokoknya kamu boleh bikin pesta, kamu boleh ngundang temen-temen
    kamu, kamu boleh pakai baju baru, tapi kamu gak boleh pakai lipstick!”
    “Boleh dong Bu….., please…..” rengek anaknya lagi.
    “BAMBANG!!! Kali ini Ibu tidak ada kompromi… TIDAK BOLEH!!”

    Pirang bukan berarti bodoh

    Seorang gadis berambut pirang berada pada sebuah penerbangan. Ia sangat mengantuk dan ingin segera tidur.

    Seorang lelaki disebelahnya melihatnya dengan rasa penasaran tentang mitos bahwa gadis pirang biasanya agak dungu. Kemudian muncul niat jahat pada lelaki itu untuk mengerjai si pirang.

    “Hei. Mau bermain game?”, katanya pada si pirang.

    “Tidak, aku hanya ingin segera tidur”.

     “Ayolah, permainannya cukup sederhana kok. Kita saling memberi pertanyaan. Bila ada yang tidak bisa menjawab maka dia harus membayar 50 ribu.”

    “Aku benar-benar mengantuk sobat”

    “Ayolah. Permainannya menarik lho. Atau begini saja, bila aku tidak bisa menjawab maka aku akan bayar 500 ribu.”

    Si pirang mulai tertarik dan menganggukkan kepalanya. Dengan tersenyum mengejek sang lelaki mengajukan pertanyaannya,”Berapa jumlah propinsi di Indonesia?”

    Si pirang membuka dompetnya dan memberikan uang 50 ribu.

    Dengan girang lelaki itu berkata,”sekarang giliranmu.” Bodoh sekali perempuan ini batinnya.

    “Apa yang siang hari berkaki tiga dan malam hari berkaki delapan”, si Pirang memberikan teka-tekinya.

    Tidak ingin dikalahkan, si lelaki membuka laptopnya dan mencari jawaban di internet. Setelah sekian lama mencari, akhirnya ia menyerah dan memberikan uang 500 ribu kepada si pirang.

    Setelah beberapa jam kemudian si lelaki tak tahan lagi dan bertanya”, apa sih jawaban pertanyaan tadi?”

    Si Pirang membuka dompetnya dan membayar 50 ribu.
    —–
    Jangan pernah meremehkan kemampuan orang lain

    Rabu, 08 Juni 2011

    Listing pangkat

    Listing lengkap bisa dilihat pada Listing Kalkulator Sederhana.
    Gambar form perpangkatan



    unit fungsipangkat
    type
      TForm1 = class(TForm)
      Button1: TButton;
      Edit1: TEdit;
      Edit2: TEdit;
     

    var
    Form1: TForm1;
    function pangkat ( sk1,sk2 : integer ) : integer ;
    var i,b:integer ;
    begin
      pangkat:=0 ;
      b := sk1 ;
      if sk2=1 then b:=sk1
      else begin
       for i:=2 to sk2 do
       begin
        b :=b * sk1 ;
       end;
      end ;
      pangkat := b ;
      if sk2=0 then pangkat:=1;

    end;
     

    procedure TForm1.Button1Click(Sender: TObject);
    var a :integer ;
    begin
      a:= pangkat(strtoint (edit1.Text), strtoint (edit2.Text)) ;
      button1.Caption :=inttostr (a);
    end;
     

    end.

    Rabu, 18 Mei 2011

    Perintah Pada DOS

    Recent PCs meeting the minimum hardware requir...Image via WikipediaBerikut adalah perintah pada DOS, List ini dibuat berdasar Windows Seven walau sebagian besar berlaku juga untuk Windows versi sebelumnya.

    ASSOC=Menampilkan atau memodifikasi asosiasi file ber-ekstensi tertentu.Misal file .docx biasanya diasosiasikan word versi yang 12 (Word.document.12) sementara .doc berasosiasi dengan versi 8. Apabila asosiasi berubah berarti ada program yang mengubahnya (bisa openoffice.org ataupun program lain).
    ATTRIB=Menampilkan atau merubah atribut file.
    BREAK=Memberi nilai atau membersihkan pengecekan extended CTRL+C(hanya pada program berbasis DOS, tidak berfungsi untuk program berbasis Windows).
    BCDEDIT=Memberi nilai properties pada konfigurasi boot data store. Boot data store mengatur bagaimana sistem di -booting dan menyimpan parameternya. Pada windows versi sebelumnya (sebelum seven dan vista) konfigurasi ini biasanya disimpan pada file boot.ini
    CACLS=Menampilkan atau memodifikasi access control lists (ACLs) dari file.Perintah ini sudah deprecated dan digantikan perintah yang lebih dianjurkan yaitu LCACLS.
    CALL=Memanggil sebuah program Batch dari Batch lain.
    CD=Menampilkan nama atau merubah direktori.
    CHCP=Menampilkan atau Memberi nilai " active code page number".
    CHDIR=Menampilkan nama atau merubah direktori yang aktif.
    CHKDSK=Memeriksa Disk dan menampilkan laporan statusnya.
    CHKNTFS=Menampilkan atau memodifikasi pemeriksaan Disk pada saat booting.
    CLS=Membersihkan layar.
    CMD=Memulai Windows command interpreter (Layar DOS).
    COLOR=Memberi nilai warna untuk foreground dan background konsol DOS.Dengan kata lain mengganti warna latar dan warna hurup pada konsol.
    COMP=Membandingkan isi  dua buah file atau lebih.
    COMPACT=Menampilkan atau mengubah status kompresi pada partisi NTFS
    CONVERT=Mengkonversi partisi FAT menjadi NTFS.

    COPY=Menyalin satu atau beberapa file ke lokasi lain.
    DATE=Menampilkan atau memberi nilai tanggal.
    DEL=Menghapus satu atau beberapa file.
    DIR=Menampilkan daftar file dan subdirektori didalam sebuah direktori.
    DISKCOMP=Membandingkan isi antara dua floppy disk.
    DISKCOPY=Menyalin isi satu floppy disk ke floppy-disk lainnya.
    DISKPART=Menampilkan atau mengkonfigurasi properties partisi Disk (Termasuk Harddisk).
    DOSKEY=Mengedit baris perintah, memanggil perintah pada Windows dan membuat macro.



    DRIVERQUERY=Menampilkan status dan properti dari device driver yang terinstal.
    ECHO=Menampilkan pesan, atau merubah perintah echoing (tampilkan pesan) menjadi on atau off.
    ENDLOCAL=Mengakhiri lokalisasi perubahan environment pada sebuah file batch.
    ERASE=Menghapus satu atau beberapa file.
    EXIT=keluar dari CMD.EXE (command interpreter) atau konsol DOS.
    FC=Membandingkan dua file atau lebih dan menampilkan perbedaannya.



    FIND=Mencari suatu string teks pada sebuah atau beberapa file.
    FINDSTR=Mencari suatu string pada beberapa file.
    FOR=Jalankan perintah tertentu pada setiap file dalam sebuah kumpulan file( set of file).
    FORMAT=Memformat disk menggunakan Windows.
    FSUTIL=Menampilkan atau mengkonfigurasi properti file sistem.
    FTYPE=Menampilkan atau memodifikasi tipe file yang digunakan dalam asosiasi ekstensi file.



    GOTO=Perintahkan Windows command interpreter untuk menuju kesuatu baris yang sudah diberi label tertentu pada sebuah program batch.


    GPRESULT=Menampilkan Group Policy information untuk machine atau user.
    GRAFTABL=Memungkinkan Windows untuk menampilkan kumpulan extended character dalam mode grafis


    HELP=Menampilkan informasi help untuk perintah Windows.
    ICACLS=Menampilkan, memodifikasi, membackup atau merestore Display, modify, backup, atau restore access control lists (ACLs) dari file dan direktori


    IF=melakukan prosesi kondisional pada sebuah program batch.
    LABEL=Membuat, merubah, atau menghapus volume label sebuah disk.
    MD=Membuat direktori.
    MKDIR=Membuat direktori.
    MKLINK=Membuat Simbolik Link dan Hard Link.
    MODE=Konfigurasi system device.
    MORE=Menampilkan keseluruhan output dalam satu layar.
    MOVE=Memindah satu atau beberapa file antar direktori


    OPENFILES=Menampilkan file apa saja yang dibuka remote users .
    PATH=Menampilkan atau Memberi nilai arah pencarian untuk file executable.
    PAUSE=Menunda proses suatu file batch danmenampilkan pesan.
    POPD=Mengembalikan nilai sebelumnya suatu direktori yang disimpan oleh perintah PUSHD


    PRINT=Mencetak suatu file teks.
    PROMPT=merubah command prompt Windows.
    PUSHD=Menyimpan direktori sekarang dan merubahnya.
    RD=Menghapus sebuah direktori
    RECOVER=Mengembalikan informasi yang masih bisa dibaca dari sebuah disk yang rusak dan atau bad sector.
    REM=Komentar pada CONFIG.SYS.
    REN=Mengganti nama sebuah atau beberapa file.
    RENAME=Mengganti nama sebuah atau beberapa file.
    REPLACE=Mengganti file.
    RMDIR=Menghapus direktori.
    ROBOCOPY=Utiliti untuk menyalin file dan struktur direktori.
    SET=Menampilkan, memberi nilai, ataumenghapus Windows environment variables.
    SETLOCAL=Memulai lokalisasi dari perubahan environment pada sebuah file batch.
    SC=Menampilkan atau mengkonfigurasi servis (background processes).
    SCHTASKS=Mengagendakan perintah dan atau program agar berjalan pada sebuah komputer.
    SHIFT=Menggeser posis dari sebuah replaceable parameters pada file batch.
    SHUTDOWN=Mengijinkan shutdown mesin secara lokal ataupun remote.
    SORT=Mengurutkan input(masukan).
    START=Memulai sebuah jendela terpisah untuk menjalankan program tertentu ataupun sebuah perintah.
    SUBST=Mengasosiasikan sebuah path dengan hurup drive. Misal My Pictures diasosiasikan sebagai drive M.
    SYSTEMINFO=Menampilkan properti dan konfigurasi sistem anda. Misal OS yang dipakai dan hotfix nya, prosesor, boot devices dan lain sebagainya.
    TASKLIST=Menampilkan semua proses atau aplikasi yang sedang berjalan.
    TASKKILL=Menghentikan suatu proses atau aplikasi yang sedang berjalan.
    TIME=Menampilkan atau memberi nilai waktu pada sistem.
    TITLE=Memberi nilai untuk caption pada jendela konsol DOS (CMD.EXE) pada sesi sekarang.
    TREE=Menampilkan secara grafis struktur direktori dari sebuah Drive ataupun path

    TYPE=Menampilkan isi file teks.
    VER=Menampilkan versi Windows yang aktif.
    VERIFY=Memberitahukan Windows apakah file sudah ditulis dengan benar ke sebuah disk.


    VOL=Menampilkan  volume label dan serial number suatu disk.
    XCOPY=Menyalin seluruh file dan struktur direktori nya.
    WMIC=Menampilkan WMI information inside interactive command shell.
    Enhanced by Zemanta

    Kamis, 05 Mei 2011

    Perkalian Matriks

    Perkalian skalar dengan matriks

    Perkalian skalar bisa dilakukan dengan cara dibawah, dimana n adalah sembarang bilangan.
    n x
    1 2 3 4
    5 6 7 8
    =
    n1 n2 n3 n4
    n5 n6 n7 n8

    Perkalian Matriks

    Perkalian antar matriks bisa dilakukan apabila jumlah kolom matriks kiri sama dengan jumlah baris matriks kanan.

    a b c
    d e f
    x
    m n
    o p
    q r
    =
    am+bo+cq an+bp+cr
    dm+eo+fq dn+ep+fr

    Senin, 02 Mei 2011

    Slide Interaksi Manusia dan Komputer pada GoogleDoc

    Slide ini adalah sama dengan materi sebelumnya, cuma berada di GoogleDoc.

    Slide Interaksi Manusia dan Komputer pada Slideshare

    Berikut adalah materi Interaksi Manusia dan Komputer untuk UNISKA pada Slideshare

    Senin, 25 April 2011

    Penjumlahan Matriks

    Misalkan kita mempunyai dua buah matriks A dan B.

    A =
    1 2
    3 4
    dan B =
    5 6
    7 8


    Maka penjumlahannya dijabarkan

    A + B =
    1+5 2+6
    3+7 4+8


    A + B =
    6 8
    10 12


    Bagaimana dengan pengurangan matriks?

    Tidak jauh berbeda dengan penjumlahan. Misal hasil penjumlahan diatas adalah matriks C.

    Maka C - A :

    C - A =
    6 8
    10 12
    -
    1 2
    3 4


    C - A =
     
    6-1 8-2
    10-3 12-4
     
    =
     
    5 6
    7 8
     

    Selasa, 19 April 2011

    Listing Matriks Satu Dimensi

     TUGAS :     BUAT TOMBOL DENGAN MENCARI NILAI MAKSIMUM,             KUMPULKAN DALAM BENTUK SOURCECODE (CODING)
        PALING LAMBAT DIKUMPULKAN TANGGAL 23 APRIL 2011




    unit Unit_array;
     
    var
      Form1: TForm1;
      nilai : array [0..4] of integer ;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
     VAR I, MINIMAL ,posisi : INTEGER ;
    begin
      nilai[0] := strtoint (ed0.Text);
      nilai[1] := strtoint (ed1.Text);
      nilai[2] := strtoint (ed2.Text);
      nilai[3] := strtoint (ed3.Text);
      nilai[4] := strtoint (ed4.Text);
      MINIMAL := nilai [0] ;
      posisi := 0 ;
      FOR I := 1 TO 4 DO
      BEGIN
         if nilai [I] < MINIMAL THEN
         begin
             MINIMAL :=nilai [I] ;
             posisi := I ;
         end;
      END;
      if posisi = 4 then showmessage ('munir') ;
       if posisi = 3 then showmessage ('melinda') ;
        if posisi = 2 then showmessage ('syahrini') ;
         if posisi = 1 then showmessage ('norman') ;
          if posisi = 0 then showmessage ('andi') ;

    end;

    procedure TForm1.Button3Click(Sender: TObject);
    begin
    application.Terminate ;
    end;

    end.

    Listing Kalkulator Sederhana

    Contoh form kalkulator




    unit Unit_kalkulator;
    TForm1 = class(TForm)
      a: TEdit;
      b: TEdit;
      kurang: TButton;
      tambah: TButton;
      kali: TButton;
      bagi: TButton;
      hasil: TLabel;
      Button1: TButton;
      fungsipangkat: TButton;
      Image1: TImage;
      Button2: TButton;
     

      procedure tambahClick(Sender: TObject);
      function tambahkan(a,b:integer):integer ;
      function kurangkan (a,b:integer):integer ;
      function bagikan (a,b:integer):single ;
      function kalikan (a,b : integer) : integer ;
      procedure Button1Click(Sender: TObject);
      procedure kurangClick(Sender: TObject);
      procedure bagiClick(Sender: TObject);
      procedure kaliClick(Sender: TObject);
      procedure fungsipangkatClick(Sender: TObject);
      function pangkatkan (a,b: integer ):integer ;
    end;
    var
      Form1: TForm1;
     

    function tform1.pangkatkan (a,b: integer ):integer ;
      var i,sk1 : integer ;
    begin
      pangkatkan:= 0 ;
      sk1:= a ;
      if b=1 then sk1:=a
      else begin
       for i:=2 to b do
       begin
        sk1:=sk1*a;
       end;
      pangkatkan:=sk1 ;
      if b=0 then pangkatkan:=1 ;
      end;
    end;
     

    function tform1.tambahkan (a,b: integer ):integer ;
    begin
      tambahkan:=a+b ;
    end;
     

    function tform1.kurangkan (a,b : integer) : integer ;
    begin
      kurangkan:=a-b ;
    end;
     

    function tform1.bagikan (a,b:Integer):single ;
    begin
      bagikan:=a / b ;
    end;

    function tform1.kalikan (a,b : integer) : integer ;
    begin
      kalikan:=a*b ;
    end;
     

    procedure TForm1.tambahClick(Sender: TObject);
    var c:integer ;
    begin
      c:= tambahkan(strtoint(a.Text),strtoint (b.Text)) ;
      hasil.Caption := inttostr (c) ;
    end;
     

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      application.Terminate ;
    end;
     

    procedure TForm1.kurangClick(Sender: TObject);
    var d:integer ;
    begin
      d:=kurangkan (strtoint (a.Text),strtoint(b.Text)) ;
      hasil.Caption :=inttostr (d) ;
    end;
     

    procedure TForm1.bagiClick(Sender: TObject);
    var e:single ;
    begin
      e:=bagikan (strtoint (a.Text), strtoint(b.Text)) ;
      hasil.Caption :=floattostr (e) ;
    end;
     

    procedure TForm1.kaliClick(Sender: TObject);
    var d:integer ;
    begin
      d:=kalikan(strtoint (a.Text),strtoint(b.Text)) ;
      hasil.Caption :=inttostr (d) ;
    end;
     

    procedure TForm1.fungsipangkatClick(Sender: TObject);
    var d:integer ;
    begin
      d:=pangkatkan (strtoint(a.Text), strtoint (b.Text) );
      hasil.Caption:=inttostr(d);
    end;
     

    end.