27 August 2013

Apa itu Port WAN ??

Apa itu Port WAN Pada Jaringan Komputer? Kebanyakan jaringan terdiri dari dua zona-utama jaringan area lokal (LAN) dan wide area network (WAN). Sebuah LAN adalah jaringan internal, apakah itu sebuah rumah dengan dua komputer atau gedung kantor bertingkat tinggi dengan ribuan tidak masalah. WAN adalah jaringan di luar LAN, hubungan antar LAN dan WAN inilah yang kemudian disebut sebagai internet.

Apa itu Port WAN

Sebuah port WAN adalah portal dimana informasi yang diterima dan dikirim antara LAN dan WAN.
Sebagian besar pengguna akan menemukan sebuah port WAN pada router jaringan. Sebuah router rumah umumnya memiliki satu port WAN dan empat port LAN. Beberapa router merujuk ini sebagai uplink (untuk port WAN) dan koneksi kabel (untuk port LAN). Port ini menerima informasi dari sumber internet berkecepatan tinggi, seperti modem kabel, dan terbagi ke beberapa mesin di dalam jaringan rumah. Pada sebagian besar router rumah memiliki empat port LAN, akan ada sedikitnya nol atau jumlah yang tidak terbatas, meskipun jarang lebih dari delapan.

Kelima port semua muncul sebagai lubang persegi panjang di bagian belakang perangkat. Masing-masing dirancang untuk memiliki kabel jaringan terhubung ke dalamnya. Port WAN umumnya duduk terpisah dari port lain untuk membuatnya lebih mudah untuk diidentifikasi, tetapi sering terlihat sama dengan port LAN.
Perbedaan penting dalam dua jenis port ini dalam router adalah bahwa Port WAN mengambil informasi dari jaringan luar atau internet. Informasi ini disaring melalui firewall internal router dan sistem routing. Kemudian informasi tersebut dikirim ke port LAN yang tepat atau keluar melalui sambungan nirkabel ke sumber nirkabel.

Selain routing dan kemampuan firewall, router juga memiliki fungsi switching. Hal ini memungkinkan komputer yang terhubung melalui port LAN hanya untuk berkomunikasi satu sama lain. Ini adalah fungsi switching melewati firewall standar router dan semua komputer pada jaringan yang sama. Pengguna dapat menggunakan fungsi ini untuk menghubungkan beberapa router satu sama lain untuk meningkatkan ukuran jaringan mereka.


Jika menghubungkan beberapa router bersama-sama menggunakan port WAN, maka jadilah jaringan internal ganda yang beroperasi secara independen satu sama lain. Sebagai contoh, informasi kecepatan tinggi masuk ke satu router, dan router yang kemudian memberi koneksi dari port LAN untuk tiga router lain yang dihubungkan ke port WAN. Jaringan internal ini akan berisi informasi independen dan tidak lebih dari sambungan satu sama lain dari mereka ke jaringan di sebuah gedung yang berbeda.

Sekian informasi tentang jaringan yang saya share dalam Blog Predator Crew ini semoga dari artikel di atas bisa bermanfaat bagi anda semua yang pingin tau tentang Jaringan Komputer :) dan artikel diatas tidak sepenuhnya murni ngetik sendiri :D ada yang Copas tapi sedikit og :) bye bye sobat sampai bertemu kembali di next article :)
VeRZaW#021 Komputer

Cara Memasang Anti COPAS (Copy Paste) Pada Blogger


kali ini saya admin yang ganteng ini :D xixixi akan share tutorial blogger yang namanya Cara Ampuh Memasang Anti Copy Paste pada Blog ,mau tau caranya ayoo buruan baca artikelnya :D 

1. Bukalah akun blogger kawan-lawan Mas Bro.
2. Masuklah ke Elemen Template, Lalu pilih Edit HTML.
3. Carilah kode </head> *gunakan CTRL + F untuk pencarian lebih cepat.
4. Copylah Kode Script di bawah ini, lalu letakkan (paste) tepat di atas kode </head> tadi.


<SCRIPT type='text/javascript'>
if (typeof document.onselectstart!=&quot;undefined&quot;) {
document.onselectstart=new Function (&quot;return false&quot;);
}
else{
document.onmousedown=new Function (&quot;return false&quot;);
document.onmouseup=new Function (&quot;return true&quot;);
}
</SCRIPT>
5. Bila sudah, simpan template anda Mas Bro.
6. Selesai, dan lihat hasilnya apakah tombol klik kanan pada mouse anda berfunsgi atau tidak. Kalau tidak berfungsi artinya kode diatas berhasil. Maksudnya apakah anda bisa copas artikel yang anda buat? Kalo tidak bisa, berarti berhasil tips di atas.


sekian tutorial dari saya bro, semoga bermanfaat ya :)
VeRZaW#021 Tutorial Blogger

Cara Chatingan Dengan Teman Via CMD New !


Posting kedua saya pada tema yang sama yaitu notepad scripte ini saya akan share Cara Chatingan Via Comand Prompt , (maksudnya agan bisa chatingan sama teman agan dengan aplikasi Comand Prompt) kalau ada yang pernah coba silahkan boleh tinggalkan artikel ini :( ,kalau yang belum silahkan di baca dan dicoba :D langsung saja ya kita Praktekkan caranya Mudah dan Gampang :D

1.Buka Notepad
2.Copas Nih Script

@echo off
:A
Cls
echo MESSENGER
set /p n=User:
set /p m=Message
net send %n% %m%
Pause
Goto A

3.Simpan Dengan Format Batch
           Contoh : bacotan.bat
4.Buka Deh File nya

Notice :
     Isi User Dengan IP addres Teman Anda
     Kalau udah di isi tekan ENTER
     Terus Message nya isi Pesan anda

Sekian tutorial dari saya semoga bermanfaat :) jangan lupa follow blog saya ya gan :D
VeRZaW#021 Programer

Cara Membuat Lampu Keyboard BerDisko !



Kali ini saya admin blog ini akan mengajarkan , Cara Membuat Lampu Keyboard Kelap Kelip (BerDisko) seperti lampu diskotik :D , mau tau caranya ?? Perhatikan Dan Baca Dengan Cermat :

Cara Nya Gampang

1. Buka Notepad

2. Copy Nih Script

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"

loop

Simpan Dengan Format .vbs

Contoh : predator.vbs

 Sekian Tutorial dari saya :D mudah kan ?? sampai bertemu kembali sobat semoga bermanfaat :)
VeRZaW#021 Programer
25 August 2013

Pengertian dari MySql dan Sejarahnya

MySQL adalah sebuah perangkat lunak system manajemen basis data SQL (DBMS) yang multithread, dan multi-user. MySQL adalah implementasi dari system manajemen basisdata relasional (RDBMS). MySQL dibuah oleh TcX dan telah dipercaya mengelola system dengan 40 buah database berisi 10.000 tabel dan 500 di antaranya memiliki 7 juta baris.
MySQL AB merupakan perusahaan komersial Swedia yang mensponsori dan yang memiliki MySQL. Pendiri MySQL AB adalah dua orang Swedia yang bernama David Axmark, Allan Larsson dan satu orang Finlandia bernama Michael “Monty”. Setiap pengguna MySQL dapat menggunakannya secara bebas yang didistribusikan gratis dibawah lisensi GPL(General Public License) namun tidak boleh menjadikan produk turunan yang bersifat komersial.
Pada saat ini MySQL merupakan database server yang sangat terkenal di dunia, semua itu tak lain karena bahasa dasar yang digunakan untuk mengakses database yaitu SQL. SQL (Structured Query Language) pertama kali diterapkan pada sebuah proyek riset pada laboratorium riset San Jose, IBM yang bernama system R. Kemudian SQL juga dikembangan oleh Oracle, Informix dan Sybase. Dengan menggunakan SQL, proses pengaksesan database lebih user-friendly dibandingan dengan yang lain, misalnya dBase atau Clipper karena mereka masih menggunakan perintah-perintah pemrograman murni.
SQL dapat digunakan secara berdiri sendiri maupun di lekatkan pada bahasa pemograman seperti C, dan Delphi.
1. Elemen SQL
Elemen dari SQL yang paling dasar antara lain pernyataan, nama, tipe data, ekspresi, konstanta dan fungsi bawaan.
  • Pernyataan
Perintah dari SQL yang digunakan untuk meminta sebuah tindakan kepada DBMS.
Pernyataan dasar SQL antara lain :
  1. ALTER      : Merubah struktur tabel
  2. COMMIT  : Mengakhiri eksekusi transaksi
  3. CREATE   : Membuat tabel, indeks
  4. DELETE   : Menghapus baris pada sebuah tabel
  5. DROP        : Menghapus tabel, indeks
  6. GRANT     : Menugaskan hak terhadap basis data kepada user
  7. INSERT    : Menambah baris pada tabel
  8. REVOKE  : Membatalkan hak kepada basis data
  9. ROLLBACK  : Mengembalikan pada keadaan semula apabila transaksi gagal dilaksanakan
  10. SELECT    : Memilih baris dan kolom pada sebuah tabel
  11. UPDATE   : Mengubah value pada baris sebuah tabel
  • Nama
Nama digunakan sebagai identitas, yaitu identitas bagi objek pada DBMS. Misal : tabel, kolom dan pengguna.
  • Tipe data
Tipe data yang ada dalam MYSQL :
1. Tipe data numerik antara lain :
  1. TINYINT         : Nilai integer yang sangat kecil
  2. SMALLINT     : Nilai integer yang kecil
  3. MEDIUMINT  : Nilai integer yang sedang
  4. INT                   : Nilai integer dengan nilai standar
  5. BEGINT           : Nilai integer dengan nilai besar
  6. FLOAT             :Bilangan decimal dengan single-precission
  7. DOUBLE         :Bilangan decimal dengan double-precission
  8. DECIMAL(M,D)   : Bilangan float yang dinyatakan sebagai string. M : jumlah digit yang disimpan, D : jumlah angka dibelakang koma
2. Tipe data String antara lain :
  1. CHAR               : Karakter yang memiliki panjang tetap yaitu sebanyak n
  2. VARCHAR      : Karakter yang memiliki panjang tidak tetap yaitu maksimum n
  3. TINYBLOB     : BLOB dengan ukuran sangat kecil
  4. BLOB               : BLOB yang memiliki ukuran kecil
  5. MEDIUMBLOB    : BLOB yang memiliki ukuran sedang
  6. LONGBLOB    : BLOB yang memiliki ukuran besar
  7. TINYTEXT      : teks dengan ukuran sangat kecil
  8. TEXT                : teks yang memiliki ukuran kecil
  9. MEDIUMTEXT     : teks yang memiliki ukuran sedang
  10. LONGTEXT     : teks yang memiliki ukuran besar
  11. ENUM              : kolom diisi dengan satu member enumerasi
  12. SET                   : Kolom dapat diisi dengan beberapa nilai anggota himpunan
3. Tipe data tunggal dan jam :
  1. DATE        : date memiliki format tahun-bulan-tanggal
  2. TIME         : time memiliki format jam-menit-detik
  3. DATETIME           : gabungan dari format date dan time
  • Ekspresi
Ekspresi digunakan untuk menghasilkan/menghitung nilai.
Misalnya : jumlah=harga-diskon
Ekspresi aritmatika antara lain :
  1. +  : tambah
  2. –  : kurang
  3. /  : bagi
  4. *  : kali
  • Konstanta
Nilai yang tetap
  • Fungsi bawaan
Fungsi adalah subprogram yang dapat menghasilkan suatu nilai apabila fungsi tersebut dipanggil. Fungsi Agregat adalah fungsi yang digunakan untuk melakukan summary, statistik yang dilakukan pada suatu tabel/query.
  1. AVG(ekspresi)  : digunakan untuk mencari nilai rata-rata dalam kolom dari tabel.
  2. COUNT(x)       : digunakan untuk menghitung jumlah baris dari sebuah kolom dari tabel
  3. MAX(ekspresi) : digunakan untuk mencari nilai yang paling besar dari suatu kolom dari tabel
  4. MIN(ekspresi)   : digunakan untuk mencari nilai yang paling kecil dari suatu kolom dari tabel
  5. SUM(ekspresi)  : digunakan untuk mengitung jumlah keseluruhan dari suatu kolom dari tabel
2. Kelompok Penyataan SQL
Pernyataan SQL dapat dikelompokan menjadi 3 kelompok, yaitu : DDL, DML dan DCL.
1.Pernyataan SQL kelompok DDL (Data Defination Language)
DDL berfungsi untuk mendefinisikan atribut basis data, table, atribut(kolom), batasan-batasan terhadap suatu atribut, serta hubungan antar tabel. Perintah yang digunakan biasanya : CREATE, ALTER, dan DROP
  1. Membuat Database
  2. Syntax yang digunakan : CREATE DATABASE namadatabase;
  3. Menghapus Database
  4. Syntax yang digunakan : DROP DATABASE namadatabase;
  5. Membuat Tabel
  6. Syntax yang digunakan : CREATE TABLE namatabel;
  7. Menghapus Database
  8. Syntax yang digunakan : DROP DATABASE namadatabase;
  9. Menghapus Tabel
  10. Syntax yang digunakan : DROP TABEL namatabel;
  11. Mendefinisikan null/not null
  12. Syntax yang digunakan : CREATE TABLE namatabel
    ( Field1 TipeData1 NOT NULL,
    Field2 TipeData2
    );
  13. Mendefinisikan Nilai Default
  14. Syntax yang digunakan : CREATE TABLE namatabel
    ( Field1 TipeData1,
    Field2 TipeData2 DEFAULT nilai
    );
  15. Mendefinisikan Primary Key pada Tabel
  16. Dapat dilakukan dengan 3 Syntax :
    1)      CREATE TABLE namatabel
    ( Field1 TipeData1 NOT NULL PRIMARY KEY,
    Field2 TipeData2
    );
    2)      CREATE TABLE namatabel
    ( Field1 TipeData1,
    Field2 TipeData2,
    PRIMARY KEY(Field1)
    );
    3)      ALTER TABEL namatabel ADD CONSTRAINT namaconstraint PRIMARY KEY (NAMAKOLOM)
  17. Menghapus Primary Key pada Tabel
  18. Syntax yang digunakan ada 2 :
    1)      ALTER TABLE namatabel DROP CONSTRAINT NAMACONSTRAINT;
    2)      ALTER TABLE NAMATABEL DROP PRIMARY KEY;
  19. Menambah Kolom Baru pada Tabel
  20. Syntax yang digunakan : ALTER TABEL NAMATABEL ADD newfield tipe;
  21. Mengubah Tipe Data atau Lebar Kolom pada Tabel
  22. Syntax yang digunakan : ALTER TABEL namatabel MODIFY COLUMN field tipe;
  23. Mengubah Nama Kolom
  24. Syntax yang digunakan : ALTER TABEL namatabel CHANGE COLUMN namakolomlama namakolombaru tipe;
  25. Menghapus Kolom pada Tabel
  26. Syntax yang digunakan : ALTER TABEL namatabel DROP COLUMN namakolom;
  27. Mendefinisikan Foreign Key pada Tabel
  28. Dapat dilakukan dengan 2 Syntax :
    1)      CREATE TABLE namatabel
    ( Field1 TipeData1,
    Field2 TipeData2,
    FOREIGN KEY (Field2) REFERENCES namatabelinduk
    (namakolominduk) ON UPDATE CASCADE ON DELETE NO ACTION)
    2)      ALTER TABEL namatabel ADD CONSTRAINT namaconstraint FOREIGN KEY (namakolom) REFERENCES namatabelinduk (namakolominduk) ON UPDATE CASCADE ON DELETE NO ACTION;
  29. Menghapus Foreign Key
  30. Syntak yang digunakan : ALTER TABEL namatabel DROP FOREIGN KEY namaconstraint;
2. DML (Data Manipulation Language)
DML berfungsi untuk memanipuladi data yang ada di dalam basis data, contohnya untuk pengambilan data, penyisipan data, pengubahan data dan penghapusan data.
Perintah yang digunakan biasanya adalah : INSERT, DELETE, UPDATE, dan SELECT.
  1. INSERT
  2. menambah baris pada tabel. Syntax yang paling sering digunakan : INSERT INTO namatabel VALUES (nilai1, nilai2, nilai-n);
  3. DELETE
  4. Menghapus baris pada tabel. Syntax : DELETE FROM namatabel [where kondisi];
  5. UPDATE
  6. Mengubah isi beberapa kolom pada tabel. Syntax : UPDATE namatabel SET kolom1=nilai1, kolom2=nilai2 [where kondisi];
  7. SELECT
  8. Menampilkan isi dari suatu tabel yang bisa dihubungkan dengan tabel yang lainnya;
Keunggulan MySQL
  • Program yang multi-threaded, sehingga dapat dipasang pada server yang memiliki mulit-CPU
  • Didukung bahasa pemrograman umum seperti C, C++, Java, Perl, PHP, Python, TCL, APls dls.
  • Bekerja pada berbagai platform
  • Memiliki jenis kolom yang cukup banyak sehingga memudahkan konfigurasi system database
  • Memiliki jenis kolom yang cukup banyak sehingga memudahkan konfigurasi system database
  • Memiliki system sekuriti yang cukup baik dengan verifikasi host
  • Mendukung ODBC untuk OS Microsoft Windows
  • Mendukung record yang memiliki kolom dengan panjang tetap
  • Software yang free
  • Saling terintegrasi dengan PHP
Sekian Pengertian MySql dari saya :D walaupun Copas sedikit :) Kurang Jelas Download Disini Pengertiannya semoga Bermanfaat :D
VeRZaW#021 Komputer

Contoh Program Assembly from : VeRZaW#021


Kali ini saya akan share Contoh pemprograman Bahasa Assembly ,Kalian udah tau kan Assembly itu apa ?? itu lho bahasa rakitan rakitan gitu :) ,nih kalau ada yang belum tau aku kasih Link tentang Program Assembly :p Klik Disini Ok sekarang lanjut aja ya ke tema kita :D , langsung saja saya kasih kan tidak usah pake Link Link an segala kelamaan :D ,, monggo di baca :


;=====Start Program=====

.MODEL SMALL
.CODE
org 100h 

posisi macro baris,kolom
mov ah,02h
mov dh,baris
mov dl,kolom
mov bh,00h
int 10h
endm 

cls proc near
mov ah,06h
mov cx,0000h
mov dh,24
mov dl,79
mov al,00
mov bh,1Ah
int 10h 
jmp subp
POSISI 0,0
;ret
cls endp

awal: posisi 0,0
jmp proses 
KAL0 DB ' << MASUKKAN PILIHAN MENU >> $' 
KALZ DB 13,10,' *************************** $' 
KALY DB 13,10, ' $'
KAL1 DB 13,10, '1. PENJUMLAHAN (BILANGAN KURANG DARI 10) $'
KAL2 DB 13,10, '2. INPUT KALIMAT $'
KAL3 DB 13,10, '3. CETAK STRING $' 
KAL4 DB 13,10, '4. KELUAR $'
KAL5 DB 13,10, 'PILIHLAH APA YANG KAMU INGINKAN [1..4] : $' 
KAL6 DB 13,10, 'Tekan (y/Y) untuk mengulang atau sembarang tombol untuk keluar!!$' 

kata1 DB 13,10,'PENJUMLAHAN $'

kata2 DB 13,10,'INPUT KALIMAT $' 

kata3 DB 13,10,'CETAK STRING $' 

PROGRAM1: call P1 

PROGRAM2: call P2

PROGRAM3: call P3

proses: call cls 

SUBP: 
mov ah,09h
mov dx,offset kal0
int 21h 
mov ah,09h
mov dx,offset kalz
int 21h 
mov ah,09h
mov dx,offset kalY
int 21h 
mov ah,09h
mov dx,offset kal1
int 21h 
mov ah,09h
mov dx,offset kal2
int 21h 
mov ah,09h
mov dx,offset kal3
int 21h 
mov ah,09h
mov dx,offset kal4
int 21h 
mov ah,09h
mov dx,offset kal5
int 21h 

MOV AH,01H
INT 21H
MOV DL,AL 

cmp DL,'1'
JL AWAL

CMP DL,'4'
JG AWAL 

CMP DL,'1'
JE PROGRAM1 

CMP DL,'2'
JE PROGRAM2

CMP DL,'3'
JE PROGRAM3

CMP DL,'4'
JE EXIT 


INT 20H 

p1 proc near
mov ah,09h
mov dx,offset kata1
int 21h 

A: jmp start 

kalB db 13,10, 'masukkan bilangan pertama: $'
kalC db 13,10, 'masukkan bilangan kedua: $'
kalD db 13,10, 'total penjumlahan: $'

start:

mov ah,09h
lea dx,kalB
int 21h

mov ah,01h
int 21h
mov bh,al 
;add bh,30h

mov ah,09h
lea dx,kalC
int 21h

mov ah,01h
int 21h
mov bl,al

mov ah,09h
lea dx,kalD
int 21h 

add bh,bl

mov ah,02h
sub bh,30h
mov dl,bh
int 21h

jmp PERULANGAN
ret
p1 endp 

p2 proc near
mov ah,09h
mov dx,offset kata2
int 21h 


MULEI: 
MOV CL,30H 
JMP PROS
KALH DB 13,10,'Ketikkan satu kalimat:$'
KALI DB 13,10,'Kalimat yang diinput adalah:$'
KALJ DB 13,10,'Cetak dari belakang:$',13,10 
KALK DB 13,10,'panjang string adalah:$' 
KALX DB 13,10,'$'
KALL DB 13,10,'Jumlah Huruf Vokal:$' 
KALM DB 13,10,'Jumlah Huruf Konsonan:$'
KATA DB 10,?,10 DUP (?) 


VOKAL: INC CL 
JMP PLUS 


PROS: 
;============= CETAK STRING ================

MOV AH,09H
MOV DX,OFFSET KALH
INT 21H 


;============= INPUT STRING ================

MOV AH,0AH
LEA DX,KATA
INT 21H

;============= CETAK STRING ================

MOV AH,09H
MOV DX,OFFSET KALI
INT 21H

;============ CETAK VARIABEL STRING DG MODEL COMPARASI ==========

MOV BX,OFFSET KATA+2 


CET:
MOV DL,[BX] 
CMP DL,0DH 
JE BELAKANG 

MOV AH,02H
INT 21H

CMP DL,'a'
JE VOKAL 
CMP DL,'i'
JE VOKAL
CMP DL,'u'
JE VOKAL
CMP DL,'e'
JE VOKAL
CMP DL,'o'
JE VOKAL
CMP DL,'A'
JE VOKAL
CMP DL,'I'
JE VOKAL
CMP DL,'U'
JE VOKAL
CMP DL,'E'
JE VOKAL
CMP DL,'O'
JE VOKAL 

PLUS:INC BX
JMP CET 

;============= CETAK KATA DARI BELAKANG ==================

BELAKANG:MOV AH,09H
MOV DX,OFFSET KALJ
INT 21H 
MOV AH,09H
MOV DX,OFFSET KALX 
INT 21H 

CETAK1: 
MOV DL,[BX] 
CMP DL,KATA+1 
JE VOKAL1 

MOV AH,02H 
INT 21H
DEC BX
JMP CETAK1


;============ CETAK JUMLAH VOKAL ================

VOKAL1:
MOV AH,09H
MOV DX,OFFSET KALL
INT 21H

MOV DL,CL
;ADD DL,30H
MOV AH,02H
INT 21H 


;============ CETAK JUMLAH KONSONAN ===============

KONSONAN:
MOV AH,09H
MOV DX,OFFSET KALM
INT 21H

MOV BX,OFFSET KATA+1 
MOV DL,[BX] 
ADD DL,30H 
SUB DL,CL 
ADD DL,30H 
MOV AH,02H
INT 21H 


;============= CETAK PANJANG STRING ================

AKHIR:
MOV AH,09H
MOV DX,OFFSET KALK
INT 21H

MOV BX,OFFSET KATA+1
MOV DL,[BX]
ADD DL,30H
MOV AH,02H
INT 21H 

jmp PERULANGAN
ret
p2 endp

P3 proc near
mov ah,09h
mov dx,offset kata3
int 21h 

B:
JMP KLIK
KALE DB 13,10,'CETAK MULAI DARI: $'
KALF DB ' S/D: $' 
KALG DB 13,10,'HASIL : $'

KLIK: 
MOV AH,09H ;CETAK KAL1
LEA DX,KALE
INT 21H

MOV AH,01H ;BACA INPUTAN DARI
INT 21H
MOV BH,AL ;PINDAH INPUTAN KE BH

MOV AH,09H ;CETAK KAL2
LEA DX,KALF
INT 21H

MOV AH,01H ;BACA INPUTAN SAMPAI 
INT 21H
MOV BL,AL ;PINDAH INPUTAN KE BL

MOV AH,09H ;CETAK HASIL
LEA DX,KALG
INT 21H 


CMP BL,BH ;BANDINGKAN BL DENGAN BH
JG ASCEND ;BILA BL LEBIH BESAR, MAKA JUMP KE ASCEND

JMP DESCEND ;BILA TIDAK, JUMP KE DESCEND

DESCEND: 
MOV AH,02H ;INTERUPT CETAK
MOV DL,BH ;ISI DL DENGAN BH
INT 21H ;CETAK DL 

mov ah,02h
mov dl,0ah
int 21h 

DEC BH ;KURANGI BH 1H
CMP BH,BL ;BANDINGKAN BH DENGAN BL
JG DESCEND ;BILA BH LEBIH BESAR, JUMP KE DESCEND

ASCEND: 
MOV AH,02H ;PERINTAH CETAK
MOV DL,BH ;ISI DL DENGAN BH
INT 21H ;PERINTAH CETAK DL 

mov ah,02h
mov dl,0ah
int 21h 

INC BH ;TAMBAHKAN BH DENGAN 1H
CMP BH,BL ;BANDINGKAN BH DENGAN BL
JLE ASCEND ;BILA BH LEBIH KECIL, JNP KE ASCEND

JMP PERULANGAN 
ret
P3 endp

PERULANGAN: 
MOV AH,09H
LEA DX,KAL6
INT 21H 

MOV AH,01H
INT 21H
MOV BH,AL

CMP BH,'Y' 
JE AWAL

CMP BH,'y'
JE AWAL 
EXIT:
INT 20H
;=====End Program=====


Selesai :D Sekian Contoh dari Program Asembly :D semoga Bermanfaat ya Broo :D 
VeRZaW#021 Programer