nixp.ru v3.0

24 мая 2017,
среда,
03:16:44 MSK

DevOps с компанией «Флант»
Axotnik написал 9 мая 2007 года в 17:39 (2126 просмотров) Ведет себя неопределенно; открыл 2 темы в форуме, оставил 1 комментарий на сайте.

помогите пожалуста…нужно написать программу тыпа сом но можна и ехе …

суть програмы состоит в том:

запускаем ехе начинаеться вывод символа * …(бесконечный)когда нажимае F10 вывод прекращаеться…(пауза)..нажимаем F9 вывод продолжаеться опять..(плей)..и так бесконечно..При нажатие на F7 вывести на екран количество выведеных * ..При нажатие на F6 вывести на екран количество нажатых F10.При нажатие на F5—количество нажатых F9.Выход F8.

Вот есть код осталось только сделать вывод количества выведеных * и нажатых F 10и F9.

вот код:

ideal

model tiny

codeseg

org 100h

F8 = 42h

F9 = 43h

F10 = 44h

F7 = 41h

start: mov ah,1

int 16h

jz no_key

get_key:

mov ah,0

int 16h

cmp ah,f8

je exit

cmp ah,f10

je get_pause

no_key: mov ah,2

mov dl,’*'

int 21h

mov dl,' '

int 21h

b: hlt

loop b

jmp start

get_pause:

int 16h

cmp ah,f9

je start

cmp ah,f8

jne get_pause

exit: mov ax, 4C00h

int 21h

ret

end start

ПОМОГИТЕ ПОЖАЛУСТА

decvar

если под win пишешь — не трахайся с асемблером — сделай драйвер для перехвата клавиатуры. Все тривиально, в Msdn есть примеры, в на сайте можно слить вообще готорый рабочий шаблон и вставить свой код.

ps

искать не буду, пользуй гугл

Axotnik

Пасибо но мне надо сделать вот в таком стиле…

decvar
Пасибо но мне надо сделать вот в таком стиле…

brainfuck в соседнем разделе

Annetka

СРОЧНО нужна помощь,погибаю!

Спасайте!!!!!!нужно написать эту программу так,чтобы сердце появлялось на экране и им(этим изображением) можно было двигать с помощью стрелок по экрану(сердце не должно выходить за пределы экрана-так как оно сейчас является,) . Если возможно,с коментариями

.MODEL TINY

.386

.CODE

assume cs:@code,ds:@code

org 100h

; Основная программа

main proc

mov ax,cs

mov ds,ax

mov ax,0a000h

mov es,ax

; Устанавливаем режим — 320×200

mov ax, 13h

int 10h

; Создаем палитру в 256 цветов

mov cx,255

palset:

push cx

mov bx,cx

shr cx,2

mov ch,cl

mov dh,cl

shl cl,3

shl dh,1

shr ch,1

mov ax,1010h

int 10h

pop cx

loop palset

; Цикл опроса клавиатуры

keycycle:

mov ax,mcol

add ax,dltc

cmp ax,10

jna resize

cmp ax,450

jna savemcol

resize:

not dltc

mov ax,mcol

savemcol:

mov mcol,ax

; Основной цикл расчета экрана

mov si,0

megacycle1:

mov di,0

megacycle2:

push di

push si

sub di,160

sub si,140

shl si,2

shl di,1

; Zi {BX} и Zr {CX}

mov cx,mcol

mov bx,mcol

; Цвет полагается равным 0

mov [col],0

fractcycle:

mov al,col

inc al

mov col,al

cmp al,20

jz output

; Считается промежуточное значение равное 2*Zi*Zr+Ci {X}

mov ax,cx

imul bx

shl ax,1

rcl dx,1

mov al,ah

mov ah,dl

add ax,di

xchg ax,bx

imul ax

mov al,ah

mov ah,dl

push ax

xchg ax,cx

imul ax

mov al,ah

mov ah,dl

push ax

sub ax,cx

add ax,si

mov cx,ax

pop ax

pop dx

add ax,dx

cmp ah,2

jna fractcycle

output:

mov al,col

shl al,3

add al,30

pop si

pop di

call plot

inc di

cmp di,320

jnz megacycle2

inc si

cmp si,200

jnz megacycle1

mov ah,0bh

int 21h

or al,al

jz keycycle

mov ax, 3

int 10h

mov ax,4c00h

int 21h

main endp

; Процедура установки точки — di- x, si- y, al- c

plot proc near

push di

mov bx,si

shl bx,6

add di,bx

shl bx,2

add di,bx

stosb

pop di

ret

plot endp

col db 1

mcol dw 450

dltc dw 0FFF7h

end main

myst
Annetka
СРОЧНО нужна помощь,погибаю!

Спасайте!!!!!!

Это какие-то боты 100%. Надо сразу их килять.

На случай, если это не боты: Ну чего ты орёшь, а? Кому срочно?! Тебе срочно! Вот ты и пиши. Что за моду взяли, погонять уже при просьбе помочь.

P.S. Мой тебе совет, Аннушка — дай какому-нибудь ботану из своей группы, он тебе все лабы за ночь напишет. Пол часа потерпишь, и всё будет в шоколаде.

Heavy

myst, жжошь :)

Code Monkey

Дык, за все в этой жизни приходится так или иначе платить :)

ол часа потерпишь, и всё будет в шоколаде.

Эта 5!

sarel

Чивойто боты в сессию активизировались :-)