Soal Algoritma (4)

BY IN Ilmu Komputer Comments Off on Soal Algoritma (4)

1.Analisalah dan tunjukkan hasil output dari macro berikut:
sub test()
dim a,b,c as Integer
a=1: b=2: c=3
a=b+1: b=b+a: c=c+b
msgbox c, vbOkOnly, “Hasilnya”
end sub
2.Diketahui sebuah form dengan 3 buah object, masing-masing dua object textbox dengan nama text1 dan text2, dan object command button dengan nama command1. Jika object textbox text1 diisikan dengan 10, berapakah nilai object text2 jika object command1 diklik? Pada event onClick object command1 diketahui kode-kode VBA sebagai berikut:
private sub command1_click()
if text1.value<=10 then
text2.value=text1.value+5
else
text2.value=text1.value-5
end if
end sub
3.Coba analisalah apa yang dikerjakan program Assembly berikut :
Petunjuk :
* Pemanggilan INT 21H, jika register AH berisi 2, akan mencetak isi register DL
* Perintah LOOP akan mengulang blok program yang ditunjuk sebanyak isi register CX
* Kode heksa 41h mewakili karakter A, jika diincrement akan menghasilkan 42h dst
* Kode heksa 5Ah mewakili karakter Z

code SEGMENT
ASSUME CS:code
ORG 100h

start:
MOV AH,02
MOV DL,41h
counter:
MOV CX,05
ulang:
INT 21h
LOOP ulang
CMP DL,5Ah
JE selesai
INC DL
JMP counter
selesai:
INT 20h

code ENDS
END start




Comments are closed.