Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Asm: Общие вопросы > TASM и графика

Автор: Joe20 15.11.2005, 15:31

Вот дали мне такое вот заданиеце : нарисовать график функции cos(x), где х - число которое вводит пользователь при запуске программы .И все это надо на TASM написать . Так как я новичок то ...... ПОЖАЛУЙСТА ПОМОГИТЕ КТО ЧЕМ МОЖЕТ ВАМ ПОТОМ ВОЗДАТСЯ Добавлено @ 15:38 ...... Да и ещё у меня есть такая вот задачка (что б жизнь мёдом не казалась) : поочередно вывести текст ( любой ) в разных местах екрана .Сначала в левом верхнем углу , потом в правом верхнем , нижний левый , нижний правый , и в конце концов по середине . При чем после каждого вывода предыдущий текст убираем ( очищаем екран ). Всем кто откликнется на этот зов о помощи будет предоставлен ПРИЗ (мое громадное СПАСИБО)

Автор: St. Andrew 16.11.2005, 14:24

Joe20, ты вообще понял, что сказал? Тебе нужен график ф-ии? Тогда зачем юзеру вводить аргумент? Это ж ведь число получится. Ну ладно, может ты чего-нибудь напутал. Вот код программы под ДОС, сделанный в TASM. Выводит график в графическом режиме 640*320, рисует один период функции cos(x) Код .387 model    small .stack    100h .data b dw 200 a dw 2     ;  коэфф. сжатия по х x dw ?     ; argument pi dw 180 y dw ?    ; y=cos(x) os dw ? mnogitel dw 80    ;коэфф. растяжения по у .code start: mov    ax,@data mov    ds,ax mov ax, 0    ; включаем графику mov al, 10h int 10h mov ah, 0ch ;оси mov al, 10 mov cx, 400 mov bh, 0h mov dx, 0 @metka1: push cx mov os, cx mov dx, os mov cx,0 int 10h pop cx loop @metka1 mov ah, 0ch mov al, 10 mov cx, 639 mov bh, 0h mov dx, 200 @metka2: int 10h loop @metka2 mov cx, 639   ; начинаем рассчитывать функцию @metka3: mov x, cx fild x fldpi fmul fild pi fdiv fild a fdiv DB 0D9h, 0FFH fimul mnogitel fchs fiadd b frndint :)  fistp y mov ah, 0ch    ;выводим то, что насчитали mov bh,0h mov dx, y mov al, 15 int 10h loop @metka3 mov    ax,4c00h int    21h end    start

Автор: Joe20 21.11.2005, 14:59

2 St. Andrew , ОГРОМНОЕ СПАСИБО за помощь (извиняй что с опозданием , у меня и з-за отсутсвия финансов постоянного нета нету ). Осталось лиш токо разобратся почему на моем компе это дело нормально работает , а как токо на другом запустиш ничего не фуричит....

Автор: Joe20 21.11.2005, 15:13

А как насчет второй задачки , неужто никто не знает как её сделать . Я в это не поверю . ..... А я понял вам просто в лом над ней думать ребята , мол "понимаеш пришол такой сякой и давай всех грузить своими задачами вроде у нас своих проблем нету, дак ищё и этот хочет что б мы СПЕЦИАЛИСТЫ за него всё сделали , вот лентяй какой" Я с вами полностю согласен , но мож у каго есть ссылочка на сайтик где такие проблемки уже расматривались , или жэ исходник завалялся старенький со 2 класа на похожую темку ........это жэ не сильно напряжно. Вот St. Andrew помогает начинающиму ( тобиш мне ) , и за это ему почет. Попробуем ещё раз ;) "...... Да и ещё у меня есть такая вот задачка (что б жизнь мёдом не казалась) : поочередно вывести текст ( "Wassuup" ) в разных местах екрана .Сначала в левом верхнем углу , потом в правом верхнем , нижний левый , нижний правый , и в конце концов по середине . При чем после каждого вывода предыдущий текст убираем ( очищаем екран )."

Автор: oleg1973 21.11.2005, 15:59

1) ставим текстовый режим (номер 3 к примеру) 2) после этого мы знаем что графическая область экрана начинается с 0xB800 ,для цветного текста с учетом что первый байт это будет атрибут а второй код символа 3) или с 0xB000 если хотим черно-белое все ну и все осталось рассчитать адрес в экранной области куда рисовать будем данная область начинается с левого верхнего угла монитора )) p.s. а еще проще через процедуры мсдоса все это нарисовать ставим курсор в нужную поз и рисуем, меняем и снова рисуем

Автор: St. Andrew 22.11.2005, 01:15

Joe20, вот немного исправленный вариант программы: Код .486 model use16 small .stack    100h .data b dw 200 a dw 2     ;  коэфф. сжатия по х x dw ?     ; argument pi dw 180 y dw ?    ; y=cos(x) os dw ? mnogitel dw 40    ;коэфф. растяжения по у .code start: mov    ax,@data mov    ds,ax mov ax, 0    ; включаем графику mov al, 10h int 10h mov ah, 0ch ;оси mov al, 10 mov cx, 400 mov bh, 0h mov dx, 0 @metka1: push cx mov os, cx mov dx, os mov cx,0 int 10h pop cx loop @metka1 mov ah, 0ch mov al, 10 mov cx, 639 mov bh, 0h mov dx, 200 @metka2: int 10h loop @metka2 mov cx, 639   ; начинаем рассчитывать функцию @metka3: mov x, cx fild x fldpi fmul fild pi fdiv fild a fdiv fcos fimul mnogitel fchs fiadd b frndint fistp y mov ah, 0ch    ;выводим то, что насчитали mov bh,0h mov dx, y mov al, 15 int 10h loop @metka3 mov ah, 8 int 21h mov    ax,4c00h int    21h end    start У меня работает

Автор: mechwarrior 26.1.2006, 15:09

люди а в asmе реально начертить линию методом DDA

Автор: Chingachguk 27.1.2006, 16:12

Не знаю, что такое "DAA", но в асме можно все Вот к примеру: Цитата Procedure Line256(Color:byte; X1,Y1,X2,Y2:integer);   Begin     Asm       push  BP       push  0A000h       pop  ES       mov  SI,X1       mov  DX,Y1       mov  BX,X2       mov  AX,Y2       push  AX       push  DX       mov  AX,320       mul  DX       add  AX,SI       mov  DI,AX  {DI=(X1,Y1)}       pop  DX       pop  AX       sub  BX,SI  {BX=X2-X1}       sub  AX,DX       mov  SI,BX       mov  BX,AX       mov  CX,SI       mov  AX,BX  {CX=X2-X1, AX=Y2-Y1} @1:  neg  CX       js    @1 @2:  neg  AX       js    @2       cmp  CX,AX       jae  @3       xchg  CX,AX @3:  cld       mov  AL,Color       mov  BP,CX       test  CX,CX       jz    @@Ex @line:  push  DI         push  AX         mov  AX,SI         imul  CX         idiv  BP         add  DI,AX         mov  AX,BX         imul  CX         idiv  BP         mov  DX,320         imul  DX         add  DI,AX         pop  AX         stosb         pop  DI         loop  @line @@ex:pop BP end; end; {Окружность} procedure circle256(color:byte; R,X,Y:word);   Begin     Asm         MOV  AX,320         MUL  WORD PTR Y         mov  BX,X         ADD  BX,AX         MOV  AX,R         MOV  SI,AX         MUL  AX         MOV  CX,AX         MOV  AX,-320         IMUL  SI         SUB  AX,SI         ADD  BX,AX         NEG  SI         MOV  DI,SI         PUSH  0A000h         POP  ES         CLD         MOV  DL,Color         push  BP         MOV  BP,R @Circle:PUSH  DX         MOV  AX,DI         IMUL  AL         MOV  DX,AX         MOV  AX,SI         IMUL  AL         ADD  AX,DX         POP  DX         SUB  AX,CX @N_Neg: neg  AX         JS    @N_NEG         CMP  AX,BP         JA    @NPAINT         PUSH  SI         PUSH  DI         MOV  ES:[BX],DL         NEG  SI         SHL  SI,1         MOV  BYTE PTR ES:[BX+SI],DL         NEG  DI         SHL  DI,7         MOV  AX,DI         SHL  DI,2         ADD  DI,AX         MOV  BYTE PTR ES:[BX+DI],DL         ADD  DI,SI         MOV  BYTE PTR ES:[BX+DI],DL         POP  DI         POP  SI @NPAINT:INC  BX         INC  SI         CMP  SI,0         JLE  @CIRCLE         MOV  SI,BP         NEG  SI         DEC  BX         SUB  BX,BP         ADD  BX,320         INC  DI         CMP  DI,0         JLE  @Circle @D:    pop  BP     End;   End; {Закраска замкнутой области} Procedure Fill_Area(Color_Bound,Color_In:byte; X,Y:word);

Автор: mechwarrior 28.1.2006, 14:01

DDA - цифровой дифференциальный анализатор (один из алгоритмов построения линии) я спрашиваю из-за тоо что там надо делить на большие числа такие как 900000 это тоже возможно ??????

Автор: Chingachguk 30.1.2006, 10:27

Цитата на большие числа такие как 900000 Ну не такие уж они и большие. Если использовать инструкции .386 процессора (это означает непривелигерованные инструкции - в основном добавляется 32-х битные), то можно написать к примеру: .data? MyValue dq 9000000 ; 8 bytes MyDiveder dd 900000 ; 4 bytes .code mov edx,dword ptr MyValue+2 mov eax,dword ptr MyValue div dword ptr MyDiveder ; 64 bits in edx:eax / 32 bits = result in eax (edx=module) Тока я сомневаюсь что это действительно для линий нужно

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)