PDA

View Full Version : کد مستطیل تو پر



amadarohan
دوشنبه 29 آذر 1389, 20:49 عصر
سلام دوستان
کسی بلده چطوری میشه یه مستطیل تو پر ساخت؟
مثلا پرچم ایران....

imanss
دوشنبه 29 آذر 1389, 21:01 عصر
stack_seg segment stack
db 256 dup (?)
stack_seg ends
data_seg segment
chr db 1
ch1 db 25
ch2 db 0
ch3 db 0
ch4 db 24
ch5 db 79
rang db 00000000
data_seg ends
code_seg segment

assume cs:code_seg,ds:data_seg,ss:stack_seg

main proc far


mov ax,data_seg
mov ds,ax
p1: mov ah,06h
mov al,ch1
mov ch,ch2
mov cl,ch3
mov dh,ch4
mov dl,ch5
mov bh,rang
int 10h



dec ch1
inc ch2
inc ch3
dec ch4
dec ch5

add rang,10
inc chr
cmp chr,15
je exit

jmp p1


exit:
mov ah,4ch
int 21h
main endp
code_seg ends
end main

xman_1365_x
سه شنبه 30 آذر 1389, 00:11 صبح
دوست عزيز imanss اين برنامه بالا خروجي نداره شما خودت ببين مشكلش چيه!

سلام دوستان کسی بلده چطوری میشه یه مستطیل تو پر ساخت؟ مثلا پرچم ایران....
براي اين كار بايد بري توي مد گرافيكي براي نمونه اينو ببين كد هارو تجزييه كن خودت براي تو پر و بزرگشو درست كن



name "vga"

; this program draws a tiny rectangle in vga mode.

org 100h

jmp code

; dimensions of the rectangle:
; width: 10 pixels
; height: 5 pixels

w equ 10
h equ 5


; set video mode 13h - 320x200

code: mov ah, 0
mov al, 13h
int 10h


; draw upper line:

mov cx, 100+w ; column
mov dx, 20 ; row
mov al, 15 ; white
u1: mov ah, 0ch ; put pixel
int 10h

dec cx
cmp cx, 100
jae u1

; draw bottom line:

mov cx, 100+w ; column
mov dx, 20+h ; row
mov al, 15 ; white
u2: mov ah, 0ch ; put pixel
int 10h

dec cx
cmp cx, 100
ja u2

; draw left line:

mov cx, 100 ; column
mov dx, 20+h ; row
mov al, 15 ; white
u3: mov ah, 0ch ; put pixel
int 10h

dec dx
cmp dx, 20
ja u3


; draw right line:

mov cx, 100+w ; column
mov dx, 20+h ; row
mov al, 15 ; white
u4: mov ah, 0ch ; put pixel
int 10h

dec dx
cmp dx, 20
ja u4


; pause the screen for dos compatibility:

;wait for keypress
mov ah,00
int 16h

; return to text mode:
mov ah,00
mov al,03 ;text mode 3
int 10h



ret

xman_1365_x
سه شنبه 30 آذر 1389, 00:20 صبح
دقت كني مي بيني با اين وقفه فقط نقطه داريم چاپ مي كنيم و بعد با همين نقاط شكل رسم مي كنيم :لبخندساده:

imanss
سه شنبه 30 آذر 1389, 11:30 صبح
مرسی از راهنمایی هات xman

xman_1365_x
سه شنبه 30 آذر 1389, 14:31 عصر
خواهش ميكنم imanss
اما براي تشكر همين كه پايين كامنت من بزنيد روي تشكر كافيه نياز به پست جديد نيست.