1. .386
2. .model flat,stdcall
3. option casemap:none
4. include \masm32\include\windows.inc
5. include \masm32\include\user32.inc
6. includelib \masm32\lib\user32.lib            ; Fait appel à des fonctions dans user32.lib et kernel32.lib
7. include \masm32\include\kernel32.inc
8. includelib \masm32\lib\kernel32.lib
10. WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
12. .DATA                     ; Initialise les DATA (ceux qui font déjà parti du programme)
13. ClassName db "SimpleWinClass",0        ; le nom de Class de votre fenêtre
14. AppName db "Our First Window",0        ; Le nom de votre fenêtre (c'est son titre)
16. .DATA?                ; Initialise les DATA (ceux qui ne font pas encores parti du programme. EX: les futures saisies au clavier).
17. hInstance HINSTANCE ?        ; l'Instance handle de votre programme
18. CommandLine LPSTR ?
19. .CODE                ; C'est ici que commence votre code.
20. start:
21. invoke GetModuleHandle, NULL            ; Récupère l'Instance handle de votre programme.
22.                                                                        ; Sous Win32, hmodule==hinstance mov hInstance,eax
23. mov hInstance,eax
24. invoke GetCommandLine                        ; Obtient la command line. vous n'avez besoin d'appeler cette fonction QUE SI
25.                                                                        ; votre programme n'a pas encore de command line.
26. mov CommandLine,eax
27. invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT        ; Appelle la fonction principale
28. invoke ExitProcess, eax                           ; Sort de votre programme. Le code de sortie est retourné dans eax.
30. WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
31.     LOCAL wc:WNDCLASSEX                                            ; Créez des variables locales sur la pile
32.     LOCAL msg:MSG
33.     LOCAL hwnd:HWND
35.     mov   wc.cbSize,SIZEOF WNDCLASSEX                   ; Place les valeurs dans les membres de wc
36.     mov   wc.style, CS_HREDRAW or CS_VREDRAW
37.     mov   wc.lpfnWndProc, OFFSET WndProc
38.     mov   wc.cbClsExtra,NULL
39.     mov   wc.cbWndExtra,NULL
40.     push  hInstance
41.     pop   wc.hInstance
42.     mov   wc.hbrBackground,COLOR_WINDOW+1
43.     mov   wc.lpszMenuName,NULL
44.     mov   wc.lpszClassName,OFFSET ClassName
45.     invoke LoadIcon,NULL,IDI_APPLICATION
46.     mov   wc.hIcon,eax
47.     mov   wc.hIconSm,eax
48.     invoke LoadCursor,NULL,IDC_ARROW
49.     mov   wc.hCursor,eax
50.     invoke RegisterClassEx, addr wc                       ; Enregistre notre 'Window Class', ainsi elle est définit
51.     invoke CreateWindowEx,NULL,\
52.                 ADDR ClassName,\
53.                 ADDR AppName,\
54.                 WS_OVERLAPPEDWINDOW,\
55.                 CW_USEDEFAULT,\
56.                 CW_USEDEFAULT,\
57.                 CW_USEDEFAULT,\
58.                 CW_USEDEFAULT,\
59.                 NULL,\
60.                 NULL,\
61.                 hInst,\
62.                 NULL
63.     mov   hwnd,eax
64.     invoke ShowWindow, hwnd,CmdShow               ; Affiche notre fenêtre sur le bureau
65.     invoke UpdateWindow, hwnd                                 ; Régénérez le client area
67.     .WHILE TRUE                                                         ; Création d'une boucle pour traiter les messages qui arrivent.
68.                 invoke GetMessage, ADDR msg,NULL,0,0          (comme détection du déplacement de la souris)
69.                 .BREAK .IF (!eax)
70.                 invoke TranslateMessage, ADDR msg
71.                 invoke DispatchMessage, ADDR msg
72.    .ENDW
73.     mov     eax,msg.wParam                                            ; Retoune le code de sortie dans eax
74.     ret
75. WinMain endp
77. WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
78.     .IF uMsg==WM_DESTROY                           ; si l'utilisateur ferme notre fenêtre (parce qu'on vient de recevoir un message WM_DESTROY)...alors
79.         invoke PostQuitMessage,NULL             ; on quitte notre application
80.     .ELSE
81.         invoke DefWindowProc,hWnd,uMsg,wParam,lParam     ; Traitement par défaut de tous les autres messages qui ne nous intéressent pas.
82.         ret
83.     .ENDIF
84.     xor eax,eax
85.     ret
86. WndProc endp
88. end start

.386
.model flat,stdcall
option casemap:none
 
include Euroasm.inc
 
.code
 
start:
 
    invoke     GetModuleHandle,NULL
    mov        hInstance,eax
    invoke    DialogBoxParam,hInstance,ADDR DlgName,NULL,ADDR DlgProc,NULL
    invoke     ExitProcess,eax
 
DlgProc proc hWnd:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
    mov        eax,uMsg
    push    hWnd
    pop        hDlg
    
    .IF eax==WM_INITDIALOG
        invoke    GetDlgItem,hWnd,IDC_TXTEURO
        mov        hEditEuro,eax
        invoke     GetDlgItem,hWnd,IDC_BTCONV
        mov        hBouton,eax
        invoke    GetDlgItem,hWnd,IDC_TXTFRF
        mov        hEdit,eax
        invoke     SetFocus,eax
        invoke    SetWindowLong,hBouton,GWL_WNDPROC,ADDR BtnWndProc
        mov        BtnProc,eax
        invoke    SetWindowLong,hEdit,GWL_WNDPROC,ADDR EdtWndProc
        mov        EditProc,eax
    .ELSEIF eax==WM_COMMAND
        mov eax,wParam
        .IF ax==IDC_BTCONV
            shr    eax,16
            .IF ax==BN_CLICKED
                invoke     SendMessage,hEdit,WM_GETTEXT,64,ADDR Buffer
                invoke    ConvEuro,ADDR Buffer
                invoke     SendMessage,hEditEuro,WM_SETTEXT,NULL,ADDR FPBuffer
            .ENDIF
        .ENDIF
    .ELSEIF eax==WM_CLOSE
        invoke     EndDialog,hWnd,NULL
    .ENDIF
    
    xor    eax,eax
    ret
DlgProc endp
 
ConvEuro proc Text:DWORD
    invoke     StrToFloat,Text,ADDR FPNumber
    fld        FPNumber
    fdiv    Taux
    fstp    FPNumber
    invoke     FloatToStr,FPNumber,ADDR FPBuffer
    ret
ConvEuro endp
 
BtnWndProc proc hBtn:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
    .IF uMsg==WM_MOUSEMOVE
        invoke     MessageBox,NULL,ADDR msg,ADDR titre,MB_OK
    .ENDIF
    invoke    CallWindowProc,BtnProc,hBtn,uMsg,wParam,lParam
    xor    eax,eax
    ret
BtnWndProc    endp
 
EdtWndProc    proc hEdt:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
    .IF uMsg==WM_CHAR
        mov    eax,wParam
        .IF (al>;="0" && al<="9" ) || al=="." || al==VK_BACK
            invoke    CallWindowProc,EditProc,hEdt,uMsg,wParam,lParam
            ret
        .ENDIF
    .ELSEIF uMsg==WM_KEYDOWN
        mov    ax,BN_CLICKED
        shl    eax,16
        mov    ax,IDC_BTCONV
        invoke    PostMessage,hDlg,WM_COMMAND,eax,hEdt
    .ELSE
        invoke    CallWindowProc,EditProc,hEdt,uMsg,wParam,lParam
        ret
    .ENDIF
    xor    eax,eax
    ret
EdtWndProc endp
 
end start