Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2008, 19:49   #1
KocT9
Новичок
Джуниор
 
Регистрация: 30.05.2008
Сообщений: 2
По умолчанию Рисование квадрата

может кто нибудь скинуть что нибуть преметивно нарисованно (квадрат) на асемблере зарание спасибо

Последний раз редактировалось KocT9; 30.05.2008 в 19:51.
KocT9 вне форума Ответить с цитированием
Старый 30.05.2008, 21:08   #2
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,239
Сообщение

на FASM(квадрат):

Код:
org    100h

start:	    
	mov  AX,11h	 
	int  10h   
     
	MOV  AH,0CH   
	MOV  AL,3  
  
	mov  CX, 100	; X
	mov  DX, 99    ; Y
  
label_1:      
  
	inc  dx
	int  10h   
  
	cmp  dx, 200
	jle  label_1
		     ; X=100, Y=200

	mov  DX, 100	; Y
label_2:

	inc  cx
	int  10h   
  
	cmp  cx, 200
	jle  label_2
		    ; X=200, Y=100



   mov	DX, 100    ; Y

label_3:
  
	inc  dx
	int  10h   
  
	cmp  dx, 200
	jle  label_3
		    ; X=200, Y=200


   mov	CX, 100    ; X
   mov	DX, 201    ; Y

label_4:

	inc  cx
	int  10h   
  
	cmp  cx, 200
	jle  label_4
		    ; X=200, Y=200


    MOV ah,0  
    INT 16h

   mov ah, 1  ; Пауза
   int 21h

	mov ax,4C00h ; Кончаю программу
	int 21h

    ret
Alter вне форума Ответить с цитированием
Старый 21.10.2014, 00:52   #3
Svetlana12
 
Регистрация: 21.10.2014
Сообщений: 6
По умолчанию

Alter а почему он не работает?там чего то не хватает вначале?
Svetlana12 вне форума Ответить с цитированием
Старый 21.10.2014, 05:15   #4
Mikl___
Участник клуба
 
Регистрация: 11.01.2010
Сообщений: 1,162
По умолчанию

Svetlana12,
а у тебя какой диалект ассемблера? MASM? TASM? FASM? программа Alter написана на ФАСМе
Цитата:
Сообщение от Alter
на FASM(квадрат):
Mikl___ вне форума Ответить с цитированием
Старый 21.10.2014, 13:09   #5
Svetlana12
 
Регистрация: 21.10.2014
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Mikl___ Посмотреть сообщение
Svetlana12,
а у тебя какой диалект ассемблера? MASM? TASM? FASM? программа Alter написана на ФАСМе
fasm у меня но при запуске этого кода ничего не происхидит(вы можете мне помочь?мне нужно написать программу для вывода квадрата,треугольника и круга при нажатии на соответствующую кнопку(((а я разобраться не могу(((
Svetlana12 вне форума Ответить с цитированием
Старый 21.10.2014, 13:16   #6
Svetlana12
 
Регистрация: 21.10.2014
Сообщений: 6
По умолчанию

точнее всплывает ошибка: C:\User\Desktop\FASM-L~1\5.COM
This system does not support fullscreen mode.Choose 'Close' to terminate the application.
что не так?
Svetlana12 вне форума Ответить с цитированием
Старый 21.10.2014, 16:15   #7
vadimych
Форумчанин
 
Регистрация: 16.01.2011
Сообщений: 325
По умолчанию

Цитата:
Сообщение от Svetlana12 Посмотреть сообщение
что не так?
С Windows проблема. Не поддерживает полноэкранный режим, увы. VirtualBox с Windows XP спасёт положение.
vadimych вне форума Ответить с цитированием
Старый 21.10.2014, 20:09   #8
Svetlana12
 
Регистрация: 21.10.2014
Сообщений: 6
По умолчанию

А с программой никто не сможет помочь?((((((
Svetlana12 вне форума Ответить с цитированием
Старый 22.10.2014, 04:34   #9
Mikl___
Участник клуба
 
Регистрация: 11.01.2010
Сообщений: 1,162
По умолчанию

Svetlana12,
а программа рабочая, под WinXP квадрат рисует, но я бы еще добавил две строки
Код:
	mov ah,0  ; Пауза
	int 16h
	mov ax,3 <-- вот эти
	int 10h    <-- строки
	ret ; Кончаю программу
воспользуйся советом vadimych и запускай свой СОМ через VirtualBox или через DOSBox
или читай это Full screen mode under Windows 7-32

Последний раз редактировалось Mikl___; 22.10.2014 в 08:39.
Mikl___ вне форума Ответить с цитированием
Старый 22.10.2014, 10:51   #10
Svetlana12
 
Регистрация: 21.10.2014
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Mikl___ Посмотреть сообщение
Svetlana12,
а программа рабочая, под WinXP квадрат рисует, но я бы еще добавил две строки
Код:
	mov ah,0  ; Пауза
	int 16h
	mov ax,3 <-- вот эти
	int 10h    <-- строки
	ret ; Кончаю программу
воспользуйся советом vadimych и запускай свой СОМ через VirtualBox или через DOSBox
или читай это Full screen mode under Windows 7-32
Спасибо,по пробую по смотрим что получится?А как нарисовать круг с треугольником не поможете???(((
Svetlana12 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рисование... HunterMan Win Api 10 30.04.2008 23:46
Рисование на экране... Roberto Win Api 3 07.04.2008 07:35
Рисование вTImage Rusl92 Компоненты Delphi 27 02.04.2008 14:18
Рисование в Chart SunKnight Общие вопросы Delphi 3 07.02.2008 09:16
рисование изолиний Alar Паскаль, Turbo Pascal, PascalABC.NET 0 30.10.2006 14:17