Sabtu, 26 Mei 2012

Diposting oleh Random Tidak ada komentar: di 11:45 AM

Asal Usul Komputer

SEJARAH komputer berawal dari abakus atau sempoa, yang sudah ada di Cina abad VI SM, dan kawasan Mediterania di masa Yunani dan Romawi kuno. Namun, perkembangannya seakan terhenti sampai saat Wilhelm Shickard, teman astronom Johannes Keppler, menemukan kalkulator mekanik pertama di Jerman (1623). Sembilan belas tahun kemudian, ilmuwan Prancis Blaise Pascal (1623-1662) mengukir langkah baru dengan kalkulator otomatis delapan kolom digit, yang baru bisa mengoperasikan penjumlahan dan pengurangan. Tiga puluh tahun kemudian alat ini dikembangkan lagi untuk pembagian dan perkalian oleh matematikus Jerman Gottfried Wilhelm Von Leibniz (1646-1716). Ia juga menyembangkan sistem binari, yang belakangan amat berperan dalam pengembangan cara berpikir dan bahasa komputer. Untung tahun 1801 penenun Prancis Joseph Marie Jacquard (1752-1834) menemukan alat tenun Jacquard yang bekerja sesuai kode perintah berupa lubang-lubang di punched card. Jarum akan lolos jika mendapati lubang, tapi tak bisa mengaitkan benang bila permukaan kartu rapat. Alat itu mengilhami penemu dan matematikus Inggris, Charles Babbage (1792- 1871), untuk mengembangkan komputer mekanis atau mesin analitis yang punya semua elemen dasar komputer otomatis. Tapi, proyeknya macet karena tak ada onderdil yang pas. Lagi pula ia kekurangan dana. Tahun 1930 Vannevar Bush, insinyur listrik AS, meyembangkan mesin untuk menyelesaikan persamaan diferensial. Mesin ini dianggap komputer analog yang andal. Sementara itu baru 14 tahun kemudian, komputer digital dalam bentuk awalnya berhasil di rancang oleh Howard Aiken, profesor di Harvart University, AS. Mark I, begitu namanya, bisa melakukan tiga penjumlahan per detik. University of Pennsylvania tak mau kalah. Dua tahun kemudian dua insinyurnya, J Presper Eckert, JR dan John William Mauchlay, membangun komputer digital elektronik atau Electronic Numerical Integrator And Computer (ENIAC). Mesin berbobot lebih dari 27 ton itu butuh ruangan 140 meter persegi. Untuk beroperasi di perlukan listrik 150 kilowatt, setara dengan pasokan listrik untuk kompleks kecil berisi 65 unit rumah menengah. Komputer yang sebesar rumah ini 1.000 kali jauh lebih cepat daripada Mark I. Ia bisa melakukan 5.000 penjumlahan dan 1.000 perkalian per detik. Eckert dan Muchlay lalu bekerja sama dengan matematikus Amerika kelahiran Hungaria, John Von Neuman. Hasilnya, pada tahun 1951 mereka merancang Electronic Discrete Variable Automatic Computer (EDVAC), yang mempengaruhi desain komputer generasi berikutnya. Di tahun itu pula, mereka membangun komputer yang lebih maju, Universal Automatic Computer (UNIVAC), yang jadi komputer komersil pertama. Berkat temuan transistor tahun 1947, muncul komputer yang sepenuhnya bertransistor karya insinyur Amerika, Seymour Cray tahun 1958. Namun temuan Integrated Circuit (IC) tahun 1960-an menyebabkan revolusi dari kapasitas kerja dan ukurannya. Karena mampu menyimpan ribuan transistor dalam secuil chip silikon, IC memungkinkan bentuk komputer jadi ringkas dengan main frame berkecepatan tinggi dan kapasitas memori besar. Para pembuat mikroprosessor berlomba memasuki kecepatan pemroses data dalam giga (GHz).Misalnya Athlon dari AMD, Pentium III dan Pentium IV. Perkembangan komputer makin lekat dengan kehidupan manusia saat di temukan komuter pribadi (PC) buatan Altair (1975).Cuma baru tahun 1977, ketika dua pelajar Amerika, Steven P. Jobs dan Stephen G. Wozniak, mendirikan Apple Computer Company, lahirlah PC Apple II dengan harga terjangkau. Akhirnya Personal Computer (PC) berkembang seperti sekarang ini. Banyak program yang menyertainya, apalagi ditemukannya pemprograman berbasis windows, lebih memudahkan pengguna komputer. artikel dari :kontekaja.com

Diposting oleh Random Tidak ada komentar: di 11:41 AM

Sejarah Munculnya Google

Google…
unik namanya, unik sejarahnya
Siapa yang tak kenal dengan Google. Bagi semua peselancar dunia cyber pasti sudah sangat akrab dengan Om Google ini. Google sangat terkenal dengan mesin pencari di rimba belantara dunia maya. Yang perlu dilakukan hanyalah mengetik kata sandi yang diinginkan maka Om Google akan melacak dan mencari informasi apapun yang diinginkan.
Google dengan dua “o” pun unik, sebab jika data hasil pencarian ditemukan, jumlah “o” akan muncul sebanyak Web yang didapat oleh mesin pencari.
Kata Google berasal dari kata Googlo. Kata itu diciptakan oleh Milton Sirotta, Ponakan Edward Kasner seorang ahli Matematika dari AS. Sirotta membuat istilah Googlo untuk menyebutkan angka 1 (satu) yang diikuti 100 angka 0 (nol), Oleh karena itu penggunaan kata Google merupakan Refleksi dari kata Googlo.
Tapi tahukan Anda, Google tak hanya unik dari asal katanya. Google pun memiliki latar belakang sejarah yang unik. Google lahir dari sebuah pertemuan dua pemuda yang terjadi secara tidak sengaja pada tahun 1995 lalu. Larry Page, alumnus Universitas Michigan (24), yang sedang menikmati kunjungan akhir pekan, tanpa sengaja dipertemukan dengan Sergey Brin, salah seorang murid (23) yang mendapat tugas mengantar keliling Lary.
Dalam pertemuan tanpa sengaja tadi, dua pendiri Google tersebut sering terlibat diskusi panjang. Keduanya memiliki pendapat dan pandangan yang berbeda sehingga sering terlibat perdebatan. Namun, perbedaan pemikiran mereka justru menghasilkan sebuah pendekatan unik dalam menyelesaikan salah satu tantangan terbesar pada dunia komputer. Yakni, masalah bagaimana memperoleh kembali data dari set data masif.
Pada Januari 1996, Larry dan Sergey mulai melakukan kolaborasi dalam pembuatan search engine yang diberi nama BackRub. Setahun kemudian pendekatan unik mereka tentang analisis jaringan mengangkat reputasi BackRub. Kabar mengenai teknik baru mesin pencari langsung menyebar ke penjuru kampus.
Larry dan Sergey terus menyempurnakan teknologi Google sepanjang awal 1998. Keduanya juga mulai mencari investor untuk mengembangkan kecanggihan teknologi Google.
Gayung pun bersambut. Mereka mendapat suntikan dana dari teman kampus, Andy Bechtolsheim, yang merupakan pendiri Sun Microsystems. Pertemuana mereka terjadi pada pagi buta di serambi asrama mahasiswa fakultas Stanford, di Palo Alto. Larry dan Sergey memberikan demo secara singkat karena Andy tak memiliki waktu yang cukup lama.
Melalui demo itu Andy setuju untuk memberikan bantuan dana berupa sebuah cek senilai 100 ribu dolar AS. Sayangnya, cek itu tertulis atas nama perusahaan Google. Padahal saat itu perusahaan bernama Google belum didirikan oleh Sergey dan Larry.
Investasi dari Andy menjadi sebuah dilema. Larry dan Sergey tak mungkin menyairkan cek selama belum ada lembaga legal yang bernama perusahaan Google. Karena itu, dua pendiri Google ini kembali bekerja keras dalam mencari investasi. Mereka mencari pendana dari kalangan keluarga, teman, dan sejawat hingga akhirnya terkumpul dana sekitar 1 juta dolar. Dan akhirnya, perusahaan Google pun dapat didirikan pada 7 Septembar 1998 dan dibuka secara resmi di Menlo Park, California.
Misi Google adalah, “untuk mengumpulkan informasi dunia dan menjadikannya dapat diakses secara universal dan berguna.” Filosofi Google meliputi slogan seperti “Don`t be evil”, dan “Kerja harusnya menatang dan tantangan itu harusnya menyenangkan”, menggambarkan budaya perusahaan yang santai.
Saat ini Google merupakan sebuah perusahaan berpredikat nomor satu dalam top 100 perusahaan yang paling diminati di Amerika, dengan jumlah pegawai sekitar 10 ribu orang.

Sabtu, 07 April 2012

Diposting oleh Random Tidak ada komentar: di 12:16 PM

nonton tv

<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
nonton tv<br />
<br /></div>
<br />
<br />
<center>
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" height="785" style="border: 2px solid rgb(0, 0, 0); margin: -245px 0pt 0pt; padding: 0px;" width="572">
<param name="src" value="http://id.imediabiz.com/MivoTV.swf?r50000" />

<param name="allowfullscreen" value="true" />

<param name="allowscriptaccess" value="sameDomain" />

<param name="devicefont" value="false" />

<param name="menu" value="true" />

<param name="pluginspage" value="http://mivo.tv/ImediabizTV.swf?r=50000" />

<param name="quality" value="high" />

<param name="scale" value="noscale" />

<param name="wmode" value="transparent" />

<embed style="padding: 0px; margin: -245px 0pt 0pt; border: 2px solid rgb(0, 0, 0);" type="application/x-shockwave-flash" src="http://id.imediabiz.com/MivoTV.swf?r50000" allowfullscreen="true" allowscriptaccess="sameDomain" devicefont="false" menu="true" pluginspage="http://mivo.tv/ImediabizTV.swf?r=50000" quality="high" scale="noscale" wmode="transparent" height="785" width="572"></embed></object></center>
</div>

Diposting oleh Random Tidak ada komentar: di 11:50 AM

SEJARAH INTERNET DUNIA

Sejarah Internet dimulai pada tahun 60-an, yaitu ketika Levi C. Finch dan Robert W. Taylor mulai melakukan penelitian tentang jaringan global dan masalah interoperabilitas. Selanjutnya, beberapa program penelitian mulai dilakukan untuk melihat mekanisme pengaitan jaringan-jaringan yang berbeda secara fisik. Salah satu solusi yang muncul dari penelitian-penelitian tersebut adalah teknik packet switching. Pada teknik packet switching, data atau file berukuran besar yang akan dikirim melalui jaringan komputer terlebih dahulu dipotong menjadi paket kecil-kecil agar lebih mudah ditangani dan lebih Andal. Peneliti utama dalam pengembangan packet switching ini adalah Donald Davies (NPL), Paul Baran (RAND Corporation), Leonard Kleinrock dan kawan-kawan (MIT) dan UCLA Research Programs.

Pada tahun 1969, Robert Taylor yang baru dipromosikan sebagai kepala kantor pemrosesan informasi di DARPA (Badan Riset Angkatan Bersenjata Amerika Serikat) bermaksud mengimplementaskan ide untuk membuat sistem jaringan yang saling terhubung. Bersama Larry Robert dari MIT, Robert Taylor memulai proyek yang kemudian dikenal sebagai ARPANET. Sambungan pertama ARPANET terbentuk antara University of California, Los Angeles (UCLA) dan Stanford Research Institute (SRI) pada jam 22:30 tanggal 29 Oktober 1969. Pada tanggal 5 Desember 1969, ada dua jaringan lagi yang yang bergabung, yakni University of Utah dan University of California, Santa Barbara sehingga total terdapat empat (4) simpul jaringan. ARPANET yang berbasis pada teknologi ALOHAnet berkembang sangat cepat. Pada tahun 1981, jumlah simpul yang tersambung menjadi 213.

Selain jaringan untuk penelitian seperti ARPANET dan X.25, para hobbiis komputer juga mengembangkan teknik jaringan sendiri yang kemudian cukup populer, yaitu UUCP. Masalah terbesar pada teknik ini adalah bagaimana supaya berbagai jenis peralatan jaringan, seperti telepon, radio, kabel LAN yang secara fisik sangat berbeda dapat berkomunikasi satu sama lain. Keberagaman media fisik jaringan mendorong pengembangan tatacara komunikasi (protokol komunikasi) yang mampu melakukan internetworking, sehingga banyak jaringan kecil dapat saling tersambung menjadi satu menjadi jaringan komputer maha besar.

Kumpulan tata cara komunikasi atau protokol Internet memungkinkan jaringan komputer dibangun menggunakan saluran fisik yang berbeda. Dalam bahasa yang sederhana, komputer yang terhubung menggunakan telepon, dapat berkomunikasi dengan komputer yang tersambung ke jaringan LAN maupun jaringan radio. Hal ini mendorong terjadinya inter-network (antar jaringan) secara global yang kemudian hari kita kenal sebagai “Internet”.

Selain protokol Internet, hal lain yang tidak kalah penting dalam perkembangan Internet adalah metode pengalamatan di Internet. Jon Postel dari Information Science Institute (ISI) di University of Southern California (USC) adalah orang yang sangat berjasa di balik berbagai alokasi alamat IP Internet, manajemen Domain Name System (DNS), tipe media, dan berbagai alokasi nomor untuk tata cara komunikasi penting di Internet. Hingga wafatnya pada tanggal 16 Oktober 1998, Jon Postel mengelola Internet Assigned Numbers Authority (IANA). Pada tanggal 21 Juli 1998, Jon Postel memperoleh Silver Medal dari International Telecommunications Union (ITU) atas jasa-jasanya membangun Internet di dunia. Saat ini, IANA dioperasikan oleh Internet Corporation for Assigned Names and Numbers (ICANN).

Komersialisasi dan privatisasi Internet mulai terjadi pada tahun 1980-an di Amerika Serikat dengan di ijinkannya Internet Service Provider (ISP) untuk beroperasi. Internet mulai booming pada tahun 1990-an. dan menjadi kunci pemicu perubahan dalam budaya dan dunia usaha. Internet menawarkan pola komunikasi cepat menggunakan e-mail, diskusi bebas di forum, dan Web.

Source : Buku Sekolah Elektronik (opensource)

Diposting oleh Random Tidak ada komentar: di 10:49 AM

Asal Mula Facebook

Facebook kini lagi booming!! Bukan hanya di kalangan masyarakat umum, namun juga di kalangan blogger. Facebook ternyata diluncurkan pertama kali pada tanggal 4 Februari 2004 oleh Mark Zuckerberg sebagai media untuk saling mengenal bagi para mahasiswa Harvard.

Hebohnya, dalam waktu dua minggu setelah diluncurkan, separuh dari semua mahasiswa Harvard telah mendaftar dan memiliki account di Facebook. Tak hanya itu, beberapa kampus lain di sekitar Harvard pun meminta untuk dimasukkan dalam jaringan Facebook. Zuckerberg pun akhirnya meminta bantuan dua temannya untuk membantu mengembangkan Facebook dan memenuhi permintaan kampus-kampus lain untuk bergabung dalam jaringannya. Dalam waktu 4 bulan semenjak diluncurkan, Facebook telah memiliki 30 kampus dalam jaringannya.
Dengan kesuksesannya tersebut, Zuckerberg beserta dua orang temannya memutuskan untuk pindah ke Palo Alto dan menyewa apartemen di sana. Setelah beberapa minggu di Palo Alto. Zuckerberg berhasil bertemu dengan Sean Parker (cofounder Napster), dan dari hasil pertemuan tersebut Parker pun setuju pindah ke apartemen Facebook untuk bekerja sama mengembangkan Facebook.
Tidak lama setelah itu, Parker berhasil mendapatkan Peter Thiel (cofounder Paypal) sebagai investor pertamanya. Thiel menginvestasikan 500 ribu US Dollar untuk pengembangan Facebook.
Jumlah account di Facebook terus melonjak, sehingga pada pertengahan 2004 Friendster mengajukan tawaran kepada Zuckerberg untuk membeli Facebook seharga 10 juta US Dollar, dan Zuckerberg pun menolaknya. Zuckerberg sama sekali tidak menyesal menolak tawaran tersebut sebab tak lama setelah itu Facebook menerima sokongan dana lagi sebesar 12.7 juta US Dollar dari Accel Partners. Dan semenjak itu sokongan dana dari berbagai investor terus mengalir untuk pengembangan Facebook.
Pada September 2005 Facebook tidak lagi membatasi jaringannya hanya untuk mahasiswa., Facebook pun membuka jaringannya untuk para siswa SMU. Beberapa waktu kemudian Facebook juga membuka jaringannya untuk para pekerja kantoran. Dan akhirnya pada September 2006 Facebook membuka pendaftaran untuk siapa saja yang memiliki alamat e-mail.

Selain menolak tawaran dari Friendster seharga 10 juta US Dollar, Zuckerberg juga pernah menolak tawaran dari Viacom yang ingin membeli Facebook seharga 750 juta US Dollar, dan tawaran dari Yahoo yang ingin membeli Facebook seharga 1 milyar US Dollar.

Tidak ada situs jejaring sosial lain yang mampu menandingi daya tarik Facebook terhadap user. Pada tahun 2007, terdapat penambahan 200 ribu account baru perharinya Lebih dari 25 juta user aktif menggunakan Facebook setiap harinya. Rata-rata user menghabiskan waktu sekitar 19 menit perhari untuk melakukan berbagai aktifitas di Facebook.

Sabtu, 10 Maret 2012

Diposting oleh Random Tidak ada komentar: di 12:29 PM

Membuat Program Sederhana Dengan Bahasa Assembler ( Bahasa mesin )

Published on February 24, 2012 by Rifki · 4 Comments

Banyak sekali bahasa pemograman yang digunakan oleh seorang programer untuk menciptakan sebuah program diantara nya bahasa pemograman Visual Basic , Php , Java , Turbo pascal , C++ dan banyak lagi bahasa pemograman . Salah satunya bahasa mesin yang disebut ( assembler ) . Program ini biasanya dibuat dengan menggunakan aplikasi seperti Flat Assembler atau langsung dari CMD yang memang sudah ada dalam sistem operasi Windows kali ini saya akan mencoba membuat sebuah program sederhana dengan menggunakan command yang disediakan oleh windows.

Baiklah langsung saja kita coba langkah –langkah dalam pembuatan program sederhana menggunakan bahasa assembly atau yang sering disebut bahasa mesin.

Langkah 1

Klik tombol START pada windows kemudian cari Run lalu ketikan pada kolom pengisian yang ada pada Run seperti gambar dibawah ini , kemudian klik OKE atau takan Enter pada keyboard.

Langkah 2

Setelah muncul tampilan seperti dibawah , langsung saja ketikan debug.

org         100h

jmp        mulai

tampilan              db '', 13,10

db '                                                   _________________ ', 13,10

db '                                                   by:SURIADI     ', 13,10

db '         Oo===================== MENU UTAMA =======================oO', 13,10

db '         ||                                                        ||', 13,10

db '         ||   1) Menghapus Layar                                   ||', 13,10

db '         ||   2) Menampilkan Urutan Abjad AAABBC                   ||', 13,10

db '         ||   3) Mengalikan Bilangan 2 dan 2                       ||', 13,10

db '         ||   4) Menampilkan Biodata Anda                          ||', 13,10

db '         ||   5) Selesai                                           ||', 13,10

db '         ||                                                        ||', 13,10

db '         ||                                                        ||', 13,10

db '         ||                                                        ||', 13,10

db '         Oo========================================================oO', 13,10

db '                         Pilihan Anda [1...5]:$'

mulai:                    mov       ah, 09h        ; service number 09h untuk mencetak string

mov       dx, tampilan   ; mengisi data string

int           21h                ; menampilkan di monitor

;aksi input pilihan menu oleh user

pilih:                      mov       ah,07h         ; service number 07h untuk input karakter

int           21h                ; menampilkan

cmp       al,'1'              ; bandingkan input dengan karakter '1'

je            hapuslayar     ; jika sama lompat ke prosedur hapuslayar

cmp       al,'2'              ; bandingkan input dengan karakter '2'

je            urutanabjad    ; jika sama lompat ke prosedur urutanabjad

cmp       al,'3'              ; bandingkan input dengan karakter '3'

je            perkalian42    ; jika sama lompat ke prosedur perkalian42

cmp       al,'4'              ; bandingkan input dengan karakter '4'

je            tampilbiodata  ; jika sama lompat ke prosedur tampilbiodata

cmp       al,'5'              ; bandingkan input dengan karakter '7'

je            keluar          ; jika sama lompat ke prosedur keluar

call          kembali        ; panggil prosedur kembali

;Untuk mengosongkan layar

kosonglayar:      mov       ah,07h         ; service number 07h untuk menghapus layar ke bawah

mov       al,00h           ; hapus semua baris

mov       bh,71h         ; tampilkan warna background putih tulisan biru

mov       ch,00h          ; Baris batas atas 0

mov       cl,00h           ; Kolom batas atas 0

mov       dh,0ffh        ; baris batas bawah off

mov       dl,0ffh        ; kolom batas bawah off

int           10h                ; Menjalankan interupt 10h

ret

kursor: mov       ah,02h         ; Service number 02h (untuk menentukan posisi kursor)

mov       dh,00h         ; Nilai baris posisi kursor (baris 0)

mov       dl,00h           ; Nilai kolom posisi kursor (kolom 0)

mov       bh,00h         ; Nilai nomor halaman layar (halaman 0)

int           10h                ; Inisialisasi bentuk dan posisi kursor saat itu

ret

hapuslayar :        call          kosonglayar    ; kosongkan layar

call          kursor          ; letakkan kursor di awal

mov       ah,07h         ; servis input

int           21h                ; tampilkan

call          kembali        ; kembali ke menu

komenhuruf      db           '',13,10

db           '',13,10

db           'Pencetakan karakter membentuk string AAABBC menggunakan program looping .....',13,10

db           '',13,10

db           '$',13,10

urutanabjad:      call          kosonglayar    ; kosongkan layar

call          kursor          ; letakkan kursor di awal

mov       ah, 09h        ; servis 09h menampilkan string

mov       dx, komenhuruf ; ambil data string komenhuruf

int           21h                ; tampilkan

mov       cx,03h          ; pengulangan 3 kali

mov       bl,04h           ; nilai awal bl = 04

mov       dl,40h           ; masukkan nilai 40 ke reg dl

ulang1:                 dec         bl                   ; kurangi dl dengan 1

push      bx                  ; simpan bx ke stack

inc          dl                   ; tambah dl dengan 1

ulang2:                 dec         bl                   ; kurangi bl dengan 1

mov       ah,02h         ; beri nilai ah dengan service 02h - pencetakan karakter

int           21h                ; tampilkan

jne         ulang2          ; lompat ke ulang2

pop        bx                  ; ambil nilai bx dari stack

loop       ulang1          ; kebali ke baris ulang1

mov       ah,07h         ; servis input

int           21h                ; tampilkan

call          kembali        ; kembali ke menu

komenkali           db           '',13,10

db           '',13,10

db           'Perkalian antara bilangan 2 dan 2 menggunakan Assembler.',13,10

db           'Hasilnya adalah ....',13,10

db           '',13,10

db           '$',13,10

perkalian42: call kosonglayar    ; kosongkan layar

call kursor ; panggil kursor ke awal halaman

mov ah, 09h  ; servis pencerakan string

mov dx, komenkali  ; ambil data string di komenkali

int 21h ; tampilkan

mov bl,02h ; nilai bl = 04

mov al,02h ; nilai al = 02

mul bl ; kalikan nilai bl dengan al

mov dl,al ; masukkan nilai al ke dl untuk dicetak

add dl,30h ; tambahkan nilai dl dengan 30

mov       ah,02h         ; servis pencetakan karakter

int           21h                ; tampilkan

mov       ah,07h         ; servis input

int           21h                ; tampilkan

call          kembali        ; kembali ke menu

komengenap     db           '',13,10

db '',13,10

db 'Bilangan genap antara 0 sampai dengan 8 adalah.....',13,10

db ',13,10

db '$',13,10

bilgenap08:

call          kosonglayar    ; kosongkan layar

call          kursor          ; letakkan kursor di awal halaman

mov       ah, 09h        ; servis 09h pencetakan string

mov       dx, komengenap ; ambil data string dari komengenap

int           21h                ; tampilkan

mov       cx,05h          ; pengulangan 5 kali

mov       ah,02h         ; servis pencetakan karakter

mov       dl,30h           ; masukkan nilai 30h ke dl

a: int 21h                ; tampilkan

add        dl,02h           ; tambah dl dengan 2

loop       a                     ; lompat ke baris a sebanyak pengulangan

mov       ah,07h         ; servis input

int           21h                ; tampilkan

call          kembali        ; kembali ke menu

; berikut adalah data yang akan ditampilkan pada menu Biodata

biodata:               db           '      ___________________________________________________________________',13,10

db '      //=========================== BIODATA ============================\\',13,10

db '      ||                                                                ||',13,10

db           '      ||    Nama       : suriadi                                        ||',13,10

db           '      ||    Alamat     : Jl. KH. Ahmad Dahlan No.81 Pekanbaru           ||',13,10

db           '      ||    Umur       : 20 tahun                                       ||',13,10

db           '      ||    Pekerjaan  : mahasiswa                                      ||',13,10

db           '      ||    Hobi       : berenang                                       ||',13,10

db           '      ||    email      : adie putra 11@gmail.com                        ||',13,10

db           '      ||    Website    : maz adie.blogspot.com                          ||',13,10

db           '      ||                                                                ||',13,10

db           '      Oo================================================================oO$',13,10

tampilbiodata:   call          kosonglayar    ; kosongkan layar

call kursor ; letakkan kursor di awal

mov dx,biodata  ; ambil data string dari biodata

mov  ah,09h ; servis 09h untuk pencetakan string

int 21h ; tampilkan

mov  ah,07h ; servis input

int 21h ; tampilkan

call kembali  ; kembali ke menu

keluar: int 20h ; program selesai

kembali : call kosonglayar    ; kosongkan layar

call  kursor  ; letakkan kursor di awal

jmp mulai ; lompat ke prosedur mulai (menampilkan menu)

Setelah kode diatas dimasukan kedalam Cmd maka bila dijalankan akan muncul tampilan seperti dibawah ini

Tampilan program setelah dieksekusi:

Jika di tekan angka 1 (satu ) pada keyboard maka program akan merespon dan menghapus layar atau menghapus layar pada Cmd seperti tampilan dibawah ini .

Langkah 3

Untuk kembali kemenu semula tekan angka 1 (satu ) maka program akan menu awal kemudian jika anda ingin mengeksekusi perintah yang kedua yankni menampilkan percetakan karakter membentuk string AAABBC menggunakan program looping atau pengulangan maka tekan angka 2 (Dua )pada keyboard dan akan muncul tampilan seperti dibawah ini.

Untuk kembali kemenu awal tekan satu pada keyboard setelah itu lakukan eksekusi berikutnya dengan menekan angka 3 ( tiga ) pada keyboard maka program akan merespon seperti tampilan dibawah ini yakni perkalian antara bilangan 2 dan 2.

Langkah 4

Setelah itu seperti biasa jika kita akan kembali ke menu awal maka kita tekan angka 1 (satu ) pada keyboard dan untuk menampilkan biodata kita seperti dibawah ini maa kita harus menekan tombol 4 (empat ) pada keyboard maka program akan langsung mengeksekusi dengan menampilkan tampilan seperti dibawah ini.

Dari program ini maka kita harus tekan tombol 5 ( lima ) pada keyboard maka program langsung keluar atau logout.

Sekian tutorial dari saya semoga dapat bermanfaat!. Mungkin dari tutorial diatas yang tadi nya hanya ingin belajar pemograman yang berbasiskan visual maka dengan adanya tutorial di atas maka anda ingin mencoba bahasa pemograman yang berbasiskan bahasa mesin atau assembler dan saya harap anda dapat mengembangkannya lebih dari tutorial diatas .news.palcomtech.com

Total Tayangan Halaman