رسم اشکال هندس مانند مستطیل و مربع در اسمبلی

[The.Ghost]

کد:

DSEG    SEGMENT 'DATA'
      ; add your data here!
      
      Y1 DB ?   ;SEGMENT 'DATA'
      Y2 DB ?   ;SEGMENT 'DATA'
      
      X1 DB ?   ;SEGMENT 'DATA'
      X2 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
      ; set segment registers:
      MOV AX, DSEG
      MOV DS, AX
      MOV ES, AX


      ; add your code here
      
      MOV  AH,02H
      MOV  DL,'A'  
      INT  21H
      
      MOV Y1,2
      MOV Y2,2
      
      MOV X1,22
      MOV X2,77
      
      MOV COLOR,10H
      
      MOV CONT,1
      
      
      L1:
      
      CMP CONT,4
      JG L2:
      
      MOV CH,Y1;+
      MOV CL,Y2;+
      MOV DH,X1;-
      MOV DL,X2;-
      MOV BH,COLOR
      MOV AH,06H
      INT 10H
      
      ADD Y1,2
      ADD Y2,2
      
      SUB X1,2
      SUB X2,2
      
      ADD COLOR,10H
      
      INC CONT
      
      JMP L1
  
      
      L2:
      
      
      MOV CH,10;+
      MOV CL,35;+
      
      MOV DH,15;-
      MOV DL,45;-
      
      MOV BH,50H
      MOV AH,06H
      INT 10H
      


      MOV AX, 4C00h ; exit to operating system.
      INT 21h    
   START   ENDP
CSEG    ENDS
END    START    ; set entry point.

[f_erfanpour]

سلام دوستان اگه ممکنه ی نفر سورس برنامه ای رو بده که طول و عرض رو بگیره و مستطیل رو رسم کنه
کد بالا 4تا مستطیل تو پر و تودرتو میکشه
اگه ممکنه تا تاریخ 8/3/91 بذارین..متشکرم

[The.Ghost]

سلام دوستان اگه ممکنه ی نفر سورس برنامه ای رو بده که طول و عرض رو بگیره و مستطیل رو رسم کنه
کد بالا 4تا مستطیل تو پر و تودرتو میکشه
اگه ممکنه تا تاریخ 8/3/91 بذارین..متشکرم

سلام طول عرض مستطیل هم خودتون می تونید به صورت دستی وارد کنید.

کد:

; multi-segment executable file template.

data segment
; add your data here!


Y1 DB ? ;SEGMENT 'DATA'
Y2 DB ? ;SEGMENT 'DATA'

X1 DB ? ;SEGMENT 'DATA'
X2 DB ? ;SEGMENT 'DATA'

CONT DB ? ;SEGMENT 'DATA'

COLOR DB ?;SEGMENT 'DATA'

ends

stack segment
dw 128 dup(0)
ends

code segment
start:
; set segment registers:
mov ax, data
mov ds, ax
mov es, ax

; add your code here



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

MOV Y1,2
MOV Y2,2

MOV X1,22
MOV X2,77

MOV COLOR,10H

MOV CONT,1


L1:

CMP CONT,0
JG L2:

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

ADD Y1,2
ADD Y2,2

SUB X1,2
SUB X2,2

ADD COLOR,10H

INC CONT

JMP L1


L2:


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

MOV DH,15;-
MOV DL,45;-

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




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

end start ; set entry point and stop the assembler.

[armin plus]

سلام دوستان برنامه ای میخوام که چهار تا مستطیل کنار هم و با اندازه یکسان باشه ممنون میشم به ایمیلم بفرستین
n.shahin89@yahoo.com

[armin plus]

سلام دوستان ی برنامه میخواستم که چهار تا مستطیل کنار هم با اندازه یکسان و داخل کادر با جایگذاری یکسا باشن
ممنون میشم برام میلش کنین n.shahin89@yahoo.com
ببخشید من تازه اولین باره داخل سایت میام بلد نیستم کجا باید مشکلاتمو بگم یا کدوم گزینه رو استفاده کنم

[The.Ghost]

سلام دوستان ی برنامه میخواستم که چهار تا مستطیل کنار هم با اندازه یکسان و داخل کادر با جایگذاری یکسا باشن
ممنون میشم برام میلش کنین n.shahin89@yahoo.com
ببخشید من تازه اولین باره داخل سایت میام بلد نیستم کجا باید مشکلاتمو بگم یا کدوم گزینه رو استفاده کنم

سلام
با استفاده از کد بالا که من نوشتم می تونید این کار انجام دهید ، فقط یکمی می خواهد شما تغییرش بدین همین.

[The.Ghost]

سلام دوستان ی برنامه میخواستم که چهار تا مستطیل کنار هم با اندازه یکسان و داخل کادر با جایگذاری یکسا باشن
ممنون میشم برام میلش کنین n.shahin89@yahoo.com
ببخشید من تازه اولین باره داخل سایت میام بلد نیستم کجا باید مشکلاتمو بگم یا کدوم گزینه رو استفاده کنم

سلام
با استفاده از کد بالا که من نوشتم می تونید این کار انجام دهید ، فقط یکمی می خواهد شما تغییرش بدین همین.

[007rap]

salam mishe barnamehai ke zahmate neveshtanesho mikeshi va inja post mikoni jelosh be sorate finglish khat be khat tozih bedi mamnon misham