|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.06.2012, 20:32 | #1 |
Новичок
Джуниор
Регистрация: 22.06.2012
Сообщений: 1
|
Ищу добродеятелей
Должна получится игра угадай число, пользователь вводит число,а в окне пишется угадал, или нет, больше меньше и т.д
вот код,там в одном месте нужно код вставить %INCLUDE "win32.inc" EXTERN ExitProcess EXTERN MessageBoxA EXTERN CreateWindowExA EXTERN SetWindowLongA EXTERN GetMessageA EXTERN TranslateMessage EXTERN DispatchMessageA EXTERN GetDlgItemTextA EXTERN PostQuitMessage EXTERN DefWindowProcA SECTION CODE USE32 CLASS=CODE ; *********************************** *************** ; This procedure processes the number inputted ; by the user to the text field - add your code below ; *********************************** *************** dialog_procedure: pop esi pop eax pop ebx pop ecx pop edx cmp ebx, WM_COMMAND jne next_case cmp ecx, 777 jne return ; backup push edx push ecx push ebx push eax push esi ; pass args push dword 256 push dword txt push dword 555 push dword eax call GetDlgItemTextA ; *********************************** *************** ; Here you can write your code ; Array 'txt' contains the string inputted by a user ; This message box simply shows it ; You should transform it to a number and then show ; your message to the user ; *********************************** *************** ; restore 'esi' and 'eax' pop esi pop eax push eax push esi ; pass args push dword 0 push dword ok push dword txt push dword eax call MessageBoxA ; restore pop esi pop eax pop ebx pop ecx pop edx jmp return next_case: cmp ebx, WM_DESTROY jne return ; backup push edx push ecx push ebx push eax push esi push dword 0 call PostQuitMessage ; restore pop esi pop eax pop ebx pop ecx pop edx return: push esi ; push return address push dword edx push dword ecx push dword ebx push dword eax call DefWindowProcA ret ..start: push dword 0 push dword 0 push dword 0 push dword 0 push dword 85 push dword 210 push dword 300 push dword 300 push dword WS_VISIBLE|WS_OVERLAPPEDWINDOW push dword 0 push dword win push dword 0 call CreateWindowExA mov ebx, eax push dword 0 push dword 0 push dword 555 push dword ebx push dword 20 push dword 200 push dword 0 push dword 1 push dword WS_CHILD|WS_VISIBLE|WS_BORDER push dword 0 push dword edit push dword 0 call CreateWindowExA push dword dialog_procedure push dword GWL_WNDPROC push dword ebx call SetWindowLongA push dword 0 push dword 0 push dword 777 push dword ebx push dword 30 push dword 100 push dword 20 push dword 50 push dword WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON push dword oki push dword but push dword 0 call CreateWindowExA ; *********************************** *************** ; This is an endless cycle which processes all the ; user's actions like mouse clicks and keys pressed ; *********************************** *************** msg_cycle: push dword 0 push dword 0 push dword 0 push dword msg call GetMessageA cmp eax, 0 je exit push dword msg call TranslateMessage push dword msg call DispatchMessageA jmp msg_cycle exit: push dword 0 call ExitProcess SECTION DATA USE32 CLASS=DATA title db "Answer", 0 message db "Test!", 0 win db "#32768", 0 edit db "EDIT", 0 but db "button", 0 oki db "OKi", 0 ok db "Ok", 0 msg resb 1000 txt resb 1000 тут частичный код : mov esi, txt xor eax, eax cdq repeat: lodsb sub al, 48 jb ex imul edx, 10 add edx, eax jmp repeat ex: mov eax, edx cmp edx,[n] Заранее благодарна. |
23.06.2012, 16:18 | #2 | |
Форумчанин
Регистрация: 31.05.2009
Сообщений: 786
|
Цитата:
|
|
23.06.2012, 18:02 | #3 | |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
Цитата:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ищу програмистов | Юрий Владимирович | Фриланс | 1 | 13.12.2010 21:22 |
ищу | AleksENN | Фриланс | 5 | 09.11.2010 01:07 |
Ищу! | Tukzar | Общие вопросы Delphi | 5 | 18.07.2010 14:12 |