【文章內(nèi)容簡介】 號個數(shù)依次增加或減少，當符號個數(shù)未到5時，就一直畫，從每一列一個畫到每一列五個，當?shù)搅宋鍌€時，又從每列五個畫到每列一個，直到列數(shù)到達74列，整個三角形簾子就實現(xiàn)了，如下圖所示：* * * * * @ * * * * * * * @ * * * * * * * @ * * * * * * * @ * * * * ** * * * @ @ * * * * * @ @ * * * * * @ @ * * * * * @ @ * * * ** * * @ @ * * * @ @ * * * @ @ * * * @ @ * * *@ * @ @ * @ @ * @ @ * @ @ * @@ @ @ @ @ 圖32 三角形簾子第一個子程序：must_2 proc near 。顯示整個畫面，當count=1時，顯示左邊三角，當count=2時顯示右 push ax 。 邊三角 push bx push dx mov ah,0fh 。取當前顯示方式 int 10h mov cool0,1 plot_next: mov dh,line_on1 。設(shè)置光標行列 mov dl,col_on1 mov ah,2 。置光標位置 int 10h mov al,40h 。顯示字符及其屬性 mov bl,0ch push cx mov cx,1 mov ah,09 。顯示字符 int 10h pop cx call dly_qrtr 。調(diào)用延時子程序 mov dl,cool0 cmp char0,dl je exit3 call erase 。調(diào)用畫*的子程序 jmp plot_next exit3: cmp col_on1,74 。比較是否到達74列，到了就 je exit1 。結(jié)束程序，否則繼續(xù)執(zhí)行 cmp col_on1,38 。比較是否到達38列，看是否 jne exit7 。畫兩列五個字符 add col_on1,2 mov cool0,1 mov line_on1,4 jmp plot_next exit7: add col_on1,2 。列增加2列 mov cool0,1 mov line_on1,4 。每畫完一列就將光標重置第四列 cmp count,1 je exit5 cmp char0,5 je exit4 inc char0 。若不為5就加1 jmp plot_next exit5: cmp char0,1 je exit6 dec char0 。若不為1就減1 jmp plot_next exit4: dec count dec char0 jmp plot_next exit6: inc count inc char0 jmp plot_next exit1: pop dx pop bx pop ax must_2 endp此程序主要是畫@和行列的移動，通過行列的變化畫出三角形簾子，然后在每個@上面調(diào)用erase子程序來畫*第二個子程序：erase proc near mov dh,line_on1 。設(shè)置行列位置 mov dl,col_on1 mov ah,2 int 10h mov al,39。*39。 mov bl,03h push cx mov cx,1 。畫符號的次數(shù) mov ah,9 int 10h pop cx inc cool0 inc line_on1 ret erase endp 此程序是在must_2指定的行列畫*，畫完后使行增加一行，繼續(xù)返回must_2，在行數(shù)加一后的地方畫@。(1)顏色變換子程序 此程序用于變換三角形簾子的顏色，在相同的地方重畫相同的符號，采用不同的顏色畫，調(diào)用延時程序，從上到下變換顏色，@和*也采用不同的顏色，使@看起來有吊燈的效果。分別用兩種顏色的值賦給定義的變量，判斷count的值，當count的值為1時采用一種顏色賦值給cool1和cool2，然后調(diào)用本程序，延時后