ویرایشگر متن با زبان اسمبلی همراه سورس کد
در این پست برای شما کاربران عزیز، ویرایشگر متن با زبان اسمبلی همراه سورس کد را آماده کرده ایم که امیدواریم مورد استفاده قرار گیرد.
در ویرایشگر متن با زبان اسمبلی با زدن کلید Ctrl+F منوی فایل فعال می شود و با انتخاب هر گزینه در پایین صفحه نام منوی انتخاب شده نمایش داده می شود. همچنین با زدن کلید های Backspace از متن تایپ شده آخرین کاراکتر حذف می شود.
ویرایشگر متن با زبان اسمبلی پروژه ای مناسب برای یادگیری زبان اسمبلی است. در ابن ویرایشگر متن سعی شده است که کارها به صورت ماکرو پیدا سازی شوند تا کار با آنها راحتتر شود.
در ادامه مطلب قمست های از سورس کد ویرایشگر متن با زبان اسمبلی را می توانید مشاهده کنید.
تکه کد سورس کد ویرایشگر متن با زبان اسمبلی:
جهت دریافت کد کامل این برنامه از قسمت خرید محصول اقدام کنید
.model small
.stack 64
.data
cr equ ۱۳ ;code down line
lf equ ۱۰ ;code go left line
tab equ ۹ ;code tab
intruptwritechar equ ۰۲h ;intrupt write char
intruptprint equ ۰۹h ;intrupt print string
intruptgetcursorxy equ ۰۳h ;intrupt get xy cursor
intruptclrscr equ ۰۶h ;intrupt clrscr
intruptgotoxy equ ۰۲h ;intrupt gotoxy
intruptexit equ ۴c00h ;intrupt exit program
intruptgetstring equ ۰ah ;intrupt exit program
intruptgetchar equ ۰۱h ;intrupt exit program
gonewline db cr,lf,"$"
borderup db ۰dah,78 dup(0c4h),0bfh
db ۰b3h,tab,tab,tab,36 dup(' '),19 dup(' '),0b3h
db ۰c3h,78 dup(0c4h),0b4h,"$"
bordermid db ۰b3h,78 dup(' '),0b3h,"$"
borderdown db ۰c0h,78 dup(0c4h),0d9h,"$"
menu db "File",tab,"Edit",tab,"View",tab,"Help",'$'
menufile db ۱۸ dup(0c4h),cr,lf
db ۰b3h,' New Ctrl+N ',۰b3h,cr,lf
db ۰b3h,' Open Ctrl+O ',۰b3h,cr,lf
db ۰b3h,' Save Ctrl+S ',۰b3h,cr,lf
db ۰b3h,' Save As Ctrl+A ',۰b3h,cr,lf
db ۰b3h,' Print Ctrl+P ',۰b3h,cr,lf
db ۰b3h,18 dup(0c4h),0b3h,cr,lf
db ۰b3h,' Exit Alt+E ',۰b3h,cr,lf
db ۰b3h,18 dup(0c4h),0b3h,"$"
menuedit db ۲۱ dup(0c4h),cr,lf
db 0b3h,' ',۰b3h,' Undo Ctrl+Z ',۰b3h,cr,lf
db ۰b3h,' ',۰b3h,' Redo Ctrl+R ',۰b3h,cr,lf
db ۰b3h,' ',۰b3h,' Cut Ctrl+X ',۰b3h,cr,lf
db ۰b3h,' ',۰b3h,' Copy Ctrl+C ',۰b3h,cr,lf
db ۰b3h,' ',۰b3h,' Paste Ctrl+V ',۰b3h,cr,lf
db ۰b3h,' ',۰b3h,19 dup(0c4h),0b3h,cr,lf
db ۰b3h,' ',۰b3h,' Select All ',۰b3h,cr,lf
db ۰b3h,' ',۰b3h,19 dup(0c4h),0b3h,"$"
menuview db ۱۸ dup(0c4h),cr,lf
db ۰b3h,' New Ctrl+N ',۰b3h,cr,lf
db ۰b3h,' Open Ctrl+O ',۰b3h,cr,lf
db ۰b3h,' Save Ctrl+S ',۰b3h,cr,lf
db ۰b3h,' Save As Ctrl+A ',۰b3h,cr,lf
db ۰b3h,' Print Ctrl+P ',۰b3h,cr,lf
db ۰b3h,18 dup(0c4h),0b3h,cr,lf
db ۰b3h,' Exit Ctrl+E ',۰b3h,cr,lf
db ۰b3h,18 dup(0c4h),0b3h,"$"
;--------------------------------------------
activemenu db 0
chal db ?
chah db ?
n db 1
i db ?
text db "",99 dup('$'),'$'
temp db ?
row db ?
col db ?
idmenu db 1
.code
main proc far
mov ax,@data
mov ds,ax
mov es,ax
call drawborder
Repeat:
showmainmenu
call showtext
cmp activemenu,1
jne skip2
showmenu idmenu
getc chal,chah
cmp chal,1bh ;ESC press
jne skip2
mov activemenu,0
skip2:
jmp Repeat
exit
main endp
سلام اگه بخوایم روند کاری این پروژرو تغییر کنه شما این کارو انجام میدین تعویض این پروژه چقدر زمان می بره ؟ هزینه انجام این کار چقدره ؟ یکی از دوستان ظاهرا می گفتن این جور موردارو شما قبول می کنین خواستم مطمئن شم .