Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 211 ∙ повысить рейтинг >>

Командин Константин Евгениевич Статус: 5-й класс Рейтинг: 41 ∙ повысить рейтинг >>

Лысков Игорь Витальевич Статус: Специалист Рейтинг: 40 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 1109
от 15.11.2008, 01:35

Вопрос № 149993: Здраствуйте. Помогите пожалуйста, примером. Необходимо сделать обработку для EDIT, ограничить ввод для символов, разрешить только цифры, знак точка и минус. MASM32....

Вопрос № 149.993

Здраствуйте. Помогите пожалуйста, примером. Необходимо сделать обработку для EDIT, ограничить ввод для символов, разрешить только цифры, знак точка и минус. MASM32.

Отправлен: 09.11.2008, 14:42 Вопрос задал: Соколов Михаил Юрьевич Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Boriss Здравствуйте, ! Вас это интересует (в конце процедура обработки ввода Ed1Proc) Если что-то дальше, то напишите -- Положил исходник для скачивания http://rusfaq.ru/upload/1124 Приложение: .386 model flat,stdcall option casemap:none WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD Paint_Proc PROTO :DWORD Static PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD EditSl PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD Ed1Proc PROTO :DWORD,:DWORD,:DWORD,:DWORD include masm32includewindows.inc include masm32includeuser32.inc include masm32includegdi32.inc include masm32includekernel32.inc includelib masm32libuser32.lib includelib masm32libkernel32.lib includelib masm32libgdi32.lib ;################################################## ;============= ; Local macros ;============= szText MACRO Name, Text:VARARG LOCAL lbl jmp lbl Name db Text,0 lbl: ENDM m2m MACRO M1, M2 push M2 pop M1 ENDM return MACRO arg mov eax, arg ret ENDM ;################################################## data ClassName db "SimpleWinClass",0 AppName db "EDIT для ввода цифр",0 hEdit1 dd 0 lpfnEd1Proc dd 0 data? hInstance HINSTANCE ? CommandLine LPSTR ? code start: invoke GetModuleHandle, NULL mov hInstance,eax invoke GetCommandLine invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT invoke ExitProcess,eax WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize,SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL push hInst pop wc.hInstance mov wc.hbrBackground,COLOR_BTNFACE+1 mov wc.lpszMenuName,NULL mov wc.lpszClassName,OFFSET ClassName invoke LoadIcon,NULL,IDI_APPLICATION mov wc.hIcon,eax mov wc.hIconSm,0 invoke LoadCursor,NULL,IDC_ARROW mov wc.hCursor,eax invoke RegisterClassEx, addr wc INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName, WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT, 350, 90,NULL,NULL, hInst,NULL mov hwnd,eax INVOKE ShowWindow, hwnd,SW_SHOWNORMAL INVOKE UpdateWindow, hwnd .WHILE TRUE INVOKE GetMessage, ADDR msg,NULL,0,0 .BREAK .IF (!eax) INVOKE TranslateMessage, ADDR msg INVOKE DispatchMessage, ADDR msg .ENDW mov eax,msg.wParam ret WinMain endp WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM LOCAL hdc:HDC LOCAL ps:PAINTSTRUCT LOCAL rect:RECT .IF uMsg==WM_DESTROY invoke PostQuitMessage,NULL .ELSEIF uMsg==WM_CREATE jmp wpLb1 txt db "Введите число",0 nulbyte db 0 wpLb1: invoke Static, ADDR txt, hWnd, 10, 10, 120, 22, 300 invoke EditSl, ADDR nulbyte,135,10,195,23, hWnd,200 mov hEdit1, eax invoke SetWindowLong,hEdit1,GWL_WNDPROC,Ed1Proc mov lpfnEd1Proc, eax .ELSEIF uMsg==WM_PAINT invoke Paint_Proc, hWnd .ELSE invoke DefWindowProc,hWnd,uMsg,wParam,lParam ret .ENDIF xor eax,eax ret WndProc endp ; ************************************** Paint_Proc proc hWin:DWORD LOCAL hdc :DWORD LOCAL Ps :PAINTSTRUCT invoke BeginPaint, hWin, ADDR Ps mov hdc, eax invoke EndPaint, hWin, ADDR Ps ret Paint_Proc endp ;================================= Static proc lpText:DWORD,hParent:DWORD, a:DWORD,b:DWORD,wd:DWORD,ht:DWORD,ID:DWORD szText statClass,"STATIC" invoke CreateWindowEx,WS_EX_STATICEDGE, ADDR statClass,lpText, WS_CHILD or WS_VISIBLE or SS_LEFT, a,b,wd,ht,hParent,ID, hInstance,NULL ret Static endp ;================================== EditSl proc szMsg:DWORD,a:DWORD,b:DWORD, wd:DWORD,ht:DWORD,hParent:DWORD,ID:DWORD szText slEdit,"EDIT" invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR slEdit,szMsg, WS_VISIBLE or WS_CHILDWINDOW or ES_AUTOHSCROLL or ES_NOHIDESEL, a,b,wd,ht,hParent,ID,hInstance,NULL ret EditSl endp ;================================ Ed1Proc proc hCtl :DWORD, uMsg :DWORD, wParam :DWORD, lParam :DWORD LOCAL Buffer[32]:BYTE ; ----------------------------- ; Process control messages here ; ----------------------------- .if uMsg == WM_CHAR .if wParam == 8 ; backspace jmp accept .endif .if wParam == "." ; only allow one decimal point invoke SendMessage,hCtl,WM_GETTEXT,sizeof Buffer,ADDR Buffer mov ecx, sizeof Buffer ; byte count in ecx lea esi, Buffer ; address in esi @xxx: lodsb ; load byte into al cmp al, "." ; if decimal point already in Buffer jne @xx1 return 0 ; throw it away @xx1: dec ecx cmp ecx, 0 jne @xxx jmp accept .endif .if wParam < "0" return 0 .endif .if wParam > "9" return 0 .endif .endif accept: invoke CallWindowProc,lpfnEd1Proc,hCtl,uMsg,wParam,lParam ret Ed1Proc endp ;################################# end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ICQ: 320096696 ---- Ответ отправлен: 10.11.2008, 23:03 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 235054 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Лысков Игорь Витальевич Здравствуйте, ! Хочу предложить альтернативный вариант. Введенные коды проверяются не в ф-и окна edit-а, а в отработке нотификации EN_CHANGE в окне приложения. Приложение: .386 model flat,stdcall option casemap:none WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD Static PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD EditSl PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD CmpEditValue PROTO :DWORD include masm32includewindows.inc include masm32includeuser32.inc include masm32includegdi32.inc include masm32includekernel32.inc includelib masm32libuser32.lib includelib masm32libkernel32.lib includelib masm32libgdi32.lib IDC_STATIC equ 200h IDC_EDIT equ 300h ;################################################## ;============= ; Local macros ;============= szText MACRO Name, Text:VARARG LOCAL lbl jmp lbl Name db Text,0 lbl: ENDM m2m MACRO M1, M2 push M2 pop M1 ENDM return MACRO arg mov eax, arg ret ENDM ;################################################## data ClassName db "SimpleWinClass",0 AppName db "EDIT для ввода цифр",0 data? hInstance HINSTANCE ? CommandLine LPSTR ? code start: invoke GetModuleHandle, NULL mov hInstance,eax invoke GetCommandLine invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT invoke ExitProcess,eax WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize,SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL m2m wc.hInstance, hInst mov wc.hbrBackground,COLOR_BTNFACE+1 mov wc.lpszMenuName,NULL mov wc.lpszClassName,OFFSET ClassName invoke LoadIcon,NULL,IDI_APPLICATION mov wc.hIcon,eax mov wc.hIconSm,0 invoke LoadCursor,NULL,IDC_ARROW mov wc.hCursor,eax invoke RegisterClassEx, addr wc INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName, WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT, 350, 90,NULL,NULL, hInst,NULL mov hwnd,eax INVOKE ShowWindow, hwnd,SW_SHOWNORMAL INVOKE UpdateWindow, hwnd .WHILE TRUE INVOKE GetMessage, ADDR msg,NULL,0,0 .BREAK .IF (!eax) INVOKE TranslateMessage, ADDR msg INVOKE DispatchMessage, ADDR msg .ENDW mov eax,msg.wParam ret WinMain endp WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM .IF uMsg==WM_DESTROY invoke PostQuitMessage,NULL .ELSEIF uMsg==WM_CREATE jmp wpLb1 txt db "Введите число",0 nulbyte db 0 wpLb1: invoke Static, ADDR txt, hWnd, 10, 10, 120, 22, IDC_STATIC invoke EditSl, ADDR nulbyte,135,10,195,23, hWnd,IDC_EDIT .ELSEIF (uMsg==WM_COMMAND) .IF (wParam==EN_CHANGE*65536 + IDC_EDIT) ;проверим введенное значение edit-а по нотификации "изменение содержимого" EN_CHANGE invoke CmpEditValue, lParam .ENDIF .ELSE invoke DefWindowProc,hWnd,uMsg,wParam,lParam ret .ENDIF xor eax,eax ret WndProc endp ;================================= Static proc lpText:DWORD,hParent:DWORD, a:DWORD,b:DWORD,wd:DWORD,ht:DWORD,ID:DWORD szText statClass,"STATIC" invoke CreateWindowEx,WS_EX_STATICEDGE, ADDR statClass,lpText, WS_CHILD or WS_VISIBLE or SS_LEFT, a,b,wd,ht,hParent,ID, hInstance,NULL ret Static endp ;================================== EditSl proc szMsg:DWORD,a:DWORD,b:DWORD, wd:DWORD,ht:DWORD,hParent:DWORD,ID:DWORD local hEdit:dword szText slEdit,"EDIT" invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR slEdit,szMsg, WS_VISIBLE or WS_CHILDWINDOW or ES_AUTOHSCROLL or ES_NOHIDESEL, a,b,wd,ht,hParent,ID,hInstance,NULL mov hEdit, eax invoke SendMessage, eax, EM_SETLIMITTEXT, 15, 0 ;ограничим размер буфера edit-а 15 символами invoke SetFocus, hEdit ;клавиатурный фокус edit-у mov eax, hEdit ;вернем handle edit-а (на всякий случай) ret EditSl endp ;================================== CmpEditValue proc uses ebx ecx edx esi edi, hEdit:DWORD local szBuffer[16]:byte ; буфер для приема строки из edit-а lea eax, szBuffer invoke SendMessage, hEdit, WM_GETTEXT, 16, eax ;прочитаем строку в буфер mov ecx, eax ; длина jcxz cmp_ret ; пустая строка - на выход lea esi, szBuffer ; адрес строки xor edx, edx ; признаки dl=1 - есть точка (разрешаем только одну точку) ; dh=1 - засылаем обратно исправленную строку в edit cmp_loop:; цикл проверки символов lodsb cmp al, '-' jne cmp_point lea eax, szBuffer+1 ;позиция указателя после чтения первого символа cmp esi, eax ;разрешаем минус только в первой позиции jne bad_code jmp cmp_next cmp_point: cmp al, '.' jne cmp_digits test dl, dl ;точка уже была? jnz bad_code inc dl ;чтобы больше не было точек jmp short cmp_next cmp_digits: cmp al, '0' jb bad_code cmp al, '9' jbe cmp_next bad_code: ; ввели "неправильный" символ ! inc dh ; флаг необходимости подправить в edit-е push ecx ; сохраним количество непроверенных символов xor ebx, ebx ; индекс от текущей позиции lea edi, [esi-1] ; сохраним позицую курсора edit-а clear_bad_code_loop: ; сдвинем "хвост" на 1 позицию, удалив т.о. "неправильный" символ mov al, [ebx+esi] mov [ebx+esi-1], al inc ebx loop clear_bad_code_loop pop ecx ; восстановим количество непроверенных символов sub ecx, 1 ; минус 1 (только что выкинутый) jz set_correct_value ;если пустая строка, то на коррекцию edit-а cmp_next: loop cmp_loop ;если непустая строка, то продолжим проверку set_correct_value: test dh, dh jz cmp_ret ;изменений не требуется lea eax, szBuffer invoke SendMessage, hEdit, WM_SETTEXT, 0, eax ; внесем исправленную строку в edit invoke SendMessage, hEdit, EM_SETSEL, edi, edi ; установим позицию курсора cmp_ret: ret CmpEditValue endp ;################################# end start --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 12.11.2008, 12:30 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 235228 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.994

Здравствуйте уважаемые эксперты! Не могли бы вы популярно объяснить, что из себя представляет директива label и привести примеры ее использования. А также, можно ли ее использовать при записи например 32-х битного (dd) числа в 2 16-ти разрядных регистра (в один старшую часть, в другой младшую) или может есть другие способы? Еще вопрос: как выполнить (возможно ли это),например, вычитание, 32-х битного значения, записанного в регистры dx:ax и 32-х битного значения записанного в регистры bx:bp?

Отправлен: 09.11.2008, 14:46 Вопрос задал: Gorilla (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: an42 Здравствуйте, Gorilla! Директива LABEL позволяет переопределять атрибут определенного имени. Формат директивы: имя LABEL тип В качестве типа используют BYTE, WORD, DWORD для переопределения областей данных. В вашем случае можно поступить так: Пусть имеется XY_DD которая определена как DWORD. XY_WD переопределяется директивой LALBEL в данные типа WORD. xy_wd label word xy_dd dd 76543210h Тогда используя XY_WD будем записывать по 2 байта. mov ax, xy_dw ;в ax=3210h mov bx,xy_dw+2 ;в bx=7654h Аналогичную функцию выполняет оператор PTR. Формат следующий: тип PTR выражение Где «тип» новый атрибут (например BYTE, WORD или DWORD), а «выражение» ссылка на переменную или константу. Для нашего примера. mov ax, word ptr xy_dd ;в ax=3210h mov bx, word ptr xy_dd+2 ;в bx=7654h Удачи

Ответ отправил: an42 (статус: 6-й класс) Ответ отправлен: 10.11.2008, 09:12 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234960 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 150.057

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

Отправлен: 09.11.2008, 22:32 Вопрос задал: Шептелуть Михайл Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Шептелуть Михайл Сергеевич! Программа в приложении. Массив формируется с помощью макроса х=(х+1)*3. Т.к. количество элементов меньше 10, то вывод значения счетчика упрощен. Удачи! Приложение: model tiny code org 100h szArray equ 9 begin: ;переходим в текстовый режим mov ax,3 int 10h ;сбрасываем счетчик xor dx,dx ;настраиваем индексный регистр на массив mov si,offset dbArray ;размер массива mov cx,szArray ;напрвление строковых команд cld ;считываем один элемент массива isLoop: lodsb ;инвертируем его not al ;сдвигаем младший бит в флаг переноса shr al,1 ;суммируем со счетчиком adc dl,0 ;повторяем пока СХ не равно 0 loop isLoop ;запоминаем значение счетчика в стеке push dx ;выводим сообщение mov ah,9 mov dx,offset dbResult int 21h ;востанавливаем значение счетчика pop ax ;переводим в символ и выводим or al,30h int 29h ;ожидаем любую клавишу xor ax,ax int 16h ;выход ret ;сообщение dbResult db 10,13,'result:$' ;массив dbArray label byte isTemp = 2 rept szArray db isTemp isTemp = ((isTemp + 1) * 3)and 0ffh endm end begin --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 14.11.2008, 14:10 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 235494 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.11 от 9.11.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru