VPF::Вывод по 2 буквы из слова - Форум программистов

Misterius

Дата 10.10.2007, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.10.2007

Репутация: нет
Всего: нет

Помогите плиз, можете показать код, суть которого:
-печатаем слово, нажимаем интер
-на экране есть 2 позиции для букв, в которых по очереди буду появляться и заменять друг друга буквы из слова

пример: есть слово ВАСЯ, в 1 позиции появляется буква В, во 2 буква А. Потом буква В и А затираются и теперь в 1 позиции буква С, во 2 буква Я

На картинке набросок:

Присоединённый файл ( Кол-во скачиваний: 12 )

________.JPG 12,03 Kb

Xteen

Дата 13.10.2007, 23:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 15.1.2007

Репутация: нет
Всего: нет

У меня получилось как-то так:

Код


format PE console

entry start

include 'win32a.inc'

struct POINT
 .x dw ?
 .y dw ?
ends

section '.data' data readable writable

        OutHandle       dd       ?
        InputHandle     dd       ?
        InputStr        db       512 dup(?)
        Res             dd       ?
        Lengts          dd       ?
        CRD             POINT    1, 1

section '.code' code readable executable

 start:
        invoke  GetStdHandle, STD_OUTPUT_HANDLE
        mov     [OutHandle], eax
        cmp     [OutHandle], 0
        je      Exit
        xor     eax, eax
        invoke  GetStdHandle, STD_INPUT_HANDLE
        mov     [InputHandle], eax
        cmp     [InputHandle], 0
        je      Exit
        xor     eax, eax
        invoke  ReadConsole, [InputHandle], InputStr, 512, Lengts, Res
        mov     ebx, InputStr
       @Beg:
        cmp     byte [ebx], 0
        je      Exit
        dec     word [CRD]
        invoke  SetConsoleCursorPosition, [OutHandle],[CRD]
        invoke  WriteConsole, [OutHandle], ebx, 1, [Lengts], Res
        inc     ebx
        invoke  Sleep, 1000
        inc     word [CRD]
        invoke  SetConsoleCursorPosition, [OutHandle],[CRD]
        invoke  WriteConsole, [OutHandle], ebx, 1, [Lengts], Res
        inc     ebx
        invoke  Sleep, 1000
        jmp     @Beg
 Exit:
        invoke  ExitProcess, 0

section '.idata' import data readable

 library kernel32, 'KERNEL32.DLL'

 import kernel32,\
        GetStdHandle, 'GetStdHandle',\
        ReadConsole, 'ReadConsoleA',\
        WriteConsole, 'WriteConsoleA',\
        SetConsoleCursorPosition, 'SetConsoleCursorPosition',\
        Sleep, 'Sleep',\
        ExitProcess, 'ExitProcess'

Естественно тут есть, что подправить, но мне уже лень \=

Компилятор: fasm

Это сообщение отредактировал(а) Xteen - 13.10.2007, 23:48

Misterius

Дата 14.10.2007, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.10.2007

Репутация: нет
Всего: нет

Добавлено @ 13:39
А можно под ТАСМ плиз?

Это сообщение отредактировал(а) Misterius - 14.10.2007, 13:39

Xteen

Дата 15.10.2007, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 15.1.2007

Репутация: нет
Всего: нет

Извини, конечно, но процесс переноса этого кода под тасм, не представляет для меня никакого интереса, а других причин, которые заставили бы меня это сделать я не вижу \=

Misterius

Дата 23.10.2007, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.10.2007

Репутация: нет
Всего: нет

Может кто помоч на Тасме написать?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm для начинающих \| Следующая тема »