رنگ کردن داخل مستطیل

[fafa002]

سلام،من باید یه مستطیل رسم کنم و داخله اونو رنگ کنم...کسی میتونه بگه چطور میتونم داخل مستطیلو رنگ کنم؟؟؟؟؟؟؟؟؟؟؟توروخدا هر کسی بلده یه راهنمایی کنه

[Delphi Coder]

اگر مختصات گوشه سمت چپ بالا رو x1 و y1 و مختصات گوشه سمت راست پایین رو x2 و y2 در نظر بگیریم برنامه شما یک سری خطوط افقی از y1 تا y2 رسم میکنه که طولشون هم از x1 تا x2 هست. اینجوری مستطیل کلا توپر رسم میشه

[haricanboy]

شاید به دردت بخوره


DSEG SEGMENT 'DATA'
; add your data here!

Y1 DB ? ;SEGMENT 'DATA'

X1 DB ? ;SEGMENT 'DATA'

CONT DB ? ;SEGMENT 'DATA'

COLOR DB ?;SEGMENT 'DATA'

DSEG ENDS

SSEG SEGMENT STACK 'STACK'
db 256 DUP(0)
SSEG ENDS

CSEG SEGMENT 'CODE'
START PROC FAR

Mov ax,1
int 33h


; set segment registers:
MOV AX, DSEG
MOV DS, AX
MOV ES, AX


; add your code here

MOV AH,02H
MOV DL,' '
INT 21H

MOV Y1,2


MOV X1,22

MOV COLOR,10H

MOV CONT,1


L1:

CMP CONT,4
JG L2:

MOV CH,Y1;+
MOV DH,X1;-
MOV BH,COLOR
MOV AH,06H
INT 10H

ADD Y1,2

SUB X1,2

ADD COLOR,10H

INC CONT

JMP L1

L2:


MOV CH,10;+
MOV CL,35;+

MOV DH,15;-
MOV DL,55;-

MOV BH,50H
MOV AH,06H
INT 10H



; wait for any key....
mov ah, 1
int 21h

mov ax, 4c00h ; exit to operating system.
int 21h
ends

end start ; set entry point and stop the assembler.