(50 امتیاز از 11 رای)
Loading...
ویرایشگر متن با زبان اسمبلی همراه سورس کد
در این پست برای شما کاربران عزیز، ویرایشگر متن با زبان اسمبلی همراه سورس کد را آماده کرده ایم که امیدواریم مورد استفاده قرار گیرد.
در ویرایشگر متن با زبان اسمبلی با زدن کلید Ctrl+F منوی فایل فعال می شود و با انتخاب هر گزینه در پایین صفحه نام منوی انتخاب شده نمایش داده می شود. همچنین با زدن کلید های Backspace از متن تایپ شده آخرین کاراکتر حذف می شود.
ویرایشگر متن با زبان اسمبلی پروژه ای مناسب برای یادگیری زبان اسمبلی است. در ابن ویرایشگر متن سعی شده است که کارها به صورت ماکرو پیدا سازی شوند تا کار با آنها راحتتر شود.
در ادامه مطلب قمست های از سورس کد ویرایشگر متن با زبان اسمبلی را می توانید مشاهده کنید.
تکه کد سورس کد ویرایشگر متن با زبان اسمبلی:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | <span style="color: #ff0000;"><strong>جهت دریافت کد کامل این برنامه از قسمت خرید محصول اقدام کنید</strong></span> .model small .stack 64 .data cr equ 13 ;code down line lf equ 10 ;code go left line tab equ 9 ;code tab intruptwritechar equ 02h ;intrupt write char intruptprint equ 09h ;intrupt print string intruptgetcursorxy equ 03h ;intrupt get xy cursor intruptclrscr equ 06h ;intrupt clrscr intruptgotoxy equ 02h ;intrupt gotoxy intruptexit equ 4c00h ;intrupt exit program intruptgetstring equ 0ah ;intrupt exit program intruptgetchar equ 01h ;intrupt exit program gonewline db cr,lf,"$" borderup db 0dah,78 dup(0c4h),0bfh db 0b3h,tab,tab,tab,36 dup(' '),19 dup(' '),0b3h db 0c3h,78 dup(0c4h),0b4h,"$" bordermid db 0b3h,78 dup(' '),0b3h,"$" borderdown db 0c0h,78 dup(0c4h),0d9h,"$" menu db "File",tab,"Edit",tab,"View",tab,"Help",'$' menufile db 18 dup(0c4h),cr,lf db 0b3h,' New Ctrl+N ',0b3h,cr,lf db 0b3h,' Open Ctrl+O ',0b3h,cr,lf db 0b3h,' Save Ctrl+S ',0b3h,cr,lf db 0b3h,' Save As Ctrl+A ',0b3h,cr,lf db 0b3h,' Print Ctrl+P ',0b3h,cr,lf db 0b3h,18 dup(0c4h),0b3h,cr,lf db 0b3h,' Exit Alt+E ',0b3h,cr,lf db 0b3h,18 dup(0c4h),0b3h,"$" menuedit db 21 dup(0c4h),cr,lf db 0b3h,' ',0b3h,' Undo Ctrl+Z ',0b3h,cr,lf db 0b3h,' ',0b3h,' Redo Ctrl+R ',0b3h,cr,lf db 0b3h,' ',0b3h,' Cut Ctrl+X ',0b3h,cr,lf db 0b3h,' ',0b3h,' Copy Ctrl+C ',0b3h,cr,lf db 0b3h,' ',0b3h,' Paste Ctrl+V ',0b3h,cr,lf db 0b3h,' ',0b3h,19 dup(0c4h),0b3h,cr,lf db 0b3h,' ',0b3h,' Select All ',0b3h,cr,lf db 0b3h,' ',0b3h,19 dup(0c4h),0b3h,"$" menuview db 18 dup(0c4h),cr,lf db 0b3h,' New Ctrl+N ',0b3h,cr,lf db 0b3h,' Open Ctrl+O ',0b3h,cr,lf db 0b3h,' Save Ctrl+S ',0b3h,cr,lf db 0b3h,' Save As Ctrl+A ',0b3h,cr,lf db 0b3h,' Print Ctrl+P ',0b3h,cr,lf db 0b3h,18 dup(0c4h),0b3h,cr,lf db 0b3h,' Exit Ctrl+E ',0b3h,cr,lf db 0b3h,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 |
سلام اگه بخوایم روند کاری این پروژرو تغییر کنه شما این کارو انجام میدین تعویض این پروژه چقدر زمان می بره ؟ هزینه انجام این کار چقدره ؟ یکی از دوستان ظاهرا می گفتن این جور موردارو شما قبول می کنین خواستم مطمئن شم .