Membuat Menu Sorot Pada DosBox

Nama : Mohammad Apryan Suhendra

Kelas : 1CB

NIM : 061430700539

Langkah - Langkah Membuat Menu Sorot Untuk Digunakan Program

Berikut ini adalah langkah - langkah yang harus anda lakukan sebelum membuat menu sorot ssebagai berikut ini ;
1. klik ikon Windows kemudian klik program DOSBox 0.74 seperti pada Gambar 1,kemudian hasilnya akn tampil di layar anda seperti pada Gambar 2 dibawah ini ;

Gambar 1

Gambar 2

2. Setelah program DOSBox 0.74 terbuka lalu anda ketik langkah-langkah selanjutnya seperti berikut ini :

mount e c :\tasm
e:
edit

Maka hasil yang akan tampil dilayar anda seperti pada gambar dibawah ini ;

     Setelah anda melakukan langkah - langkah diatas hal yang harus anda lakukan selanjtnya adalah mengetik kata-kata yang ada dibawah ini ;
Cls     MACRO
          MOV AX,0600h
          XOR CX,CX
          MOV DX,184Fh
          MOV BH,10
          INT 10h
          ENDM

GotoXY MACRO X,Y
              MOV AH,02
              XOR BX,BX
              MOV DH,Y
             MOV DL,X
   INT 10h
             ENDM

SimpanL MACRO
              LOCAL Ulang
              MOV AX,0B800h
              MOV ES,AX
             MOV CX,4000
             XOR BX,BX
Ulang:
             MOV AL,ES:[BX]
             MOV Layar[BX],AL
             INC BX
             LOOP Ulang
             ENDM

BalikL   MACRO
             LOCAL Ulang
             MOV CX,4000
             XOR BX,BX
Ulang:
            MOV AL,Layar[BX]
            MOV ES:[BX],AL
INC BX
            LOOP Ulang
            ENDM

Sorot   MACRO X,Y
            LOCAL Ulang

            MOV BL,Y
            MOV AL,160
           MUL BL
           MOV BX,AX

           MOV AL,X
           MOV AH,2
           MUL AH
           ADD BX,AX
           INC BX

           MOV CX,25
Ulang:
          MOV BYTE PTR ES:[BX],4Fh

          ADD BX,2
          LOOP Ulang
          ENDM

Readkey    MACRO
                 MOV AH,00
                 INT 16h
                 ENDM

MenuL     MACRO String
                MOV AH,09
                LEA DX,String
                INT 21h
               ENDM

.MODEL SMALL
.CODE
ORG 100h
TData: JMP Proses
           Layar DB 4000 DUP (?)
           Menu DB 9,9,'+=============================+',13,10

                     DB 9,9,'|    »»» MENU SOROT «««            |',13,10
                     DB 9,9,'+=============================+',13,10
                     DB 9,9,'|                                                                    |',13,10
                     DB 9,9,'| 1. Pilihan Pertama                  |',13,10
DB 9,9,'|             2. Pilihan Kedua    |',13,10
                     DB 9,9,'|             3. Pilihan Ketiga                              |',13,10
                     DB 9,9,'|             4. Pilihan Keempat    |',13,10
                     DB 9,9,'|                                                                    |',13,10
                     DB 9,9,'+=============================+$'
           PosX DB 22    ; Posisi kolom mula-mula
           PosY DB 12      ; Posisi baris mula-mula
Panah_Atas EQU 72    ; Kode tombol panah atas
Panah_Bawah EQU 80 ; Kode tombolpanah bawah
   TEnter EQU 0Dh ; Kode tombol Enter

Proses :
           Cls
           GotoXY 0 8
           MenuL Menu
           SimpanL
Ulang :
           BalikL

           Sorot            PosX,PosY
Masukan:
           Readkey
           CMP           AH,Panah_Bawah
           JE                Bawah

           CMP          AH,Panah_Atas
         JE                CekY

           CMP          AL,TEnter
           JNE            Masukan
   JMP           Selesai
CekY :
           CMP         PosY,12
           JE              MaxY
           DEC    PosY
           JMP Ulang
MaxY :
          MOV         PosY,15
          JMP           Ulang
Bawah :
          CMP         PosY,15
          JE              NolY
          INC           PosY
          JMP    Ulang
NolY :
         MOV PosY,12
         JMP           Ulang
Selesai:
         INT            20h
END TData

Hasilnya bisa anda lihat seperti pada gambar dibawah ini ;

Kalau anda sudah selesai hal yang harus anda lakukan selanjutnya adalah dicek sekali lagi agar tidak terdapatnya kesalahan,setelah sudah anda cek kemudian klikFile lalu klik Save dan berilah nama file nya xxx.asm atau seperti contoh diatasSOROT.asm

Setelah selesai anda Save dan diberi nama,kemudian klik File lalu klik Exit,setelah itu hal yang harus anda lakukan selanjutnya anda ketik tasm SOROT(nama file.asm)lalu anda tekan Enter maka akan tampil dilayar anda seperti pada gambar dibawah ini ;

Hal yang harus anda lakukan selanjutnya adalah sebagai berikut :

ketik tlink nama file(nama file tugas yang anda simpan) lalu tekan Enter
ketik tlink/t Nama file(nama file yang anda simpan) lalu tekan Enter
ketik nama file(nama file yang anda simpan) lalu tekan Enter

Hasil yang akan ditampilkan pada layar anda seperti pada gambar dibawah ini ;

Keterangan :

Cls MACRO ; Macro untuk menghapus layar
MOV BH,10 ; Atribut Hijau diatas hitam
GotoXY MACRO X,Y ; Macro untuk memindahkan kursor
SimpanL MACRO ; Macro untuk menyimpan seluruh
LOCAL Ulang ; isi layar monitor
BalikL MACRO ; Macro untuk mengembalikan semua
LOCAL Ulang ; isi layar yang telah disimpan
Sorot MACRO X,Y ; Macro untuk membuat sorotan
LOCAL Ulang ; pada menu
INC BX ; Alamat warna pada posisi X,Y
MOV CX,25 ; Panjangnya sorotan
MOV BYTE PTR ES:[BX],4Fh ; Atribut sorotan putih diatas merah
Readkey MACRO ; Macro untuk membaca masukan dari
INT 16h ; hasilnya AH=Extended, AL=ASCII
MenuL MACRO String ; Macro untuk mencetak menu
MOV DH ; Posisi Baris(00-24)
MOV DL ; Posisi Kolom(00-79)
MOV BH,0 ; Halaman Layar(0=default)

Selamat Mencoba

untuk lebih lengkapnya,silahkan anda download file berikut DOWNLOAD

Mohammad Apryan Suhendra