111.asm

你想知道你是什么星座吗？这是一个用WIN32编的计算你是什么星座

		.386
		.model flat, stdcall
		option casemap :none
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>



include		windows.inc
include		user32.inc
includelib	user32.lib
include		kernel32.inc
includelib	kernel32.lib
include		gdi32.inc
includelib	gdi32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 IDD_DIALOG1        equ             101
 IDB_BITMAP1        equ             102
 IDI_ICON1          equ             103
 IDB_BITMAP2        equ             104
 IDC_EDIT1          equ             1000
 IDC_EDIT2          equ             1001
 IDC_BUTTON1        equ             1002
 IDC_BUTTON2        equ             1003
 IDC_bmp            equ             1004
 IDC_STATIC1        equ             1005
 IDC_STATIC2        equ             1006
 IDC_STATIC3        equ             1007
 IDC_STATIC4        equ             1008
 IDC_STATIC5        equ             -1
 IDB_BITMAP3        equ             105
 IDB_BITMAP4        equ             106
 IDB_BITMAP5        equ             107
 IDB_BITMAP6        equ             108
 IDB_BITMAP7        equ            109
 IDB_BITMAP8        equ             110
 IDB_BITMAP9        equ             111
 IDB_BITMAP10       equ             112
 IDB_BITMAP11       equ             113
 IDB_BITMAP12       equ             114
 IDB_BITMAP13       equ             115
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 数据段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

.const
xingzuo1 db '魔羯座：魔羯座的人好像是呆板無趣，但其實他的另一面是非常浪漫多情的。成熟的魔羯座只要很確定一份感情，就會很勇於表達了，他的熱情門關起來就知道了。',0
xingzuo2 db '水瓶座：信奉老二哲學，不想當老大。通常當人家要推舉水瓶座的人當頭時，她都會推卻，因為水瓶座的人很清楚，當老二的人永遠是老二，可是老大可不一定永遠是老大。',0
xingzuo3 db '雙魚座：雙魚座的另一面，理性、而且是工作狂。雙魚座的人名副其實就是有兩種性格，在他感性迷濛的另一面，就是理性與工作狂。',0
xingzuo4 db '牡羊座：雖然愛闖蕩事業，其實很居家。牡羊座的人喜歡簡單，因為在外面就會多很多麻煩，在家隨便煮也是OK的',0
xingzuo5 db '金牛座：看似忠厚的金牛座，說謊卻完全看不出來。金牛座的人平常是很實事求是，人家常常會讓他務實的那面給騙住了',0
xingzuo6 db '雙子座：看似堅強的雙子座，卻會躲在角落掉眼淚。雙子座的人士是很好強的，經常在外人面前表現的很萬能，所以絕對不會讓人知道他有無能的時候',0
xingzuo7 db '巨蟹座：超級冒險家，他敢放棄所有的一切。對巨蟹座來說，家的定義有兩種，一種就是家庭的「家」，一種就是四海為家的「家」。',0
xingzuo8 db '獅子座：有時獅子座的人會一副狀況外的樣子，其實他在裝傻，很多事情他都看在眼裡。所有事情他都很清楚，可是並不會介入，明哲保身。',0
xingzuo9 db '處女座：看似專情的處女座，其實非常的花心、好色。處女座的人平常都會表現的一副道貌岸然，講話也是冠冕堂皇的樣子',0
xingzuo10 db '天秤座：好像很大方，其實是小氣鬼兼007。天秤座的人看起來什麼都好，可是實際上別人也不會在他身上撈到什麼好處。',0
xingzuo11 db '天蠍座：看似容易忌妒又愛報復，其實常被騙，而且很容易感動。雖然天蠍座的外表好像很聰明、很厲害、精明，什麼事都可以一眼看穿，事實上要騙他的心是很容易的。',0
xingzuo12 db '射手座：看似隨便，卻有一貫政策不受更改。如果他已經事先計劃好的事，是不會臨時為任何人而改變的。',0
jinggao1 db '你输入的信息有误',0
jinggao2 db '警告',0
xuyan db '这是个神奇而又奇妙的世界',0
.data?
a dd ?
b dd ?
hInstance	HINSTANCE	?
hIcon            dd              ?
hBmp1             dd            ?
hBmp2             dd           ?
hBmp3             dd           ?
hBmp4             dd           ?
hBmp5             dd           ?
hBmp6             dd           ?
hBmp7             dd           ?
hBmp8             dd           ?
hBmp9             dd           ?
hBmp10             dd           ?
hBmp11             dd           ?
hBmp12            dd           ?
hBmp13             dd           ?

;**************************代码段*************************
.code


;********************************************************************
;	模式对话框的过程函数
;********************************************************************
_ProcDlgMain	proc	uses ebx edi esi hWnd:HWND,wMsg:UINT,wParam:WPARAM,lParam:LPARAM
 mov	eax,wMsg
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>初始化>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.if eax == WM_INITDIALOG
                     ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>装入图标>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                        invoke	LoadIcon,hInstance,IDI_ICON1
                         mov hIcon ,eax
			invoke	SendMessage,hWnd,WM_SETICON,ICON_BIG,hIcon
                     ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>文本编辑框初始化>>>>>>>>>>>>>>>>>>>>>>>>>>
                        invoke  SetDlgItemText,hWnd,IDC_STATIC3,addr xuyan
                     ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>装入位图资源>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                        invoke	LoadBitmap,hInstance,IDB_BITMAP1
			mov	hBmp1,eax
			invoke	LoadBitmap,hInstance,IDB_BITMAP2
			mov	hBmp2,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP3
			mov	hBmp3,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP4
			mov	hBmp4,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP5
			mov	hBmp5,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP6
			mov	hBmp6,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP7
			mov	hBmp7,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP8
			mov	hBmp8,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP9
			mov	hBmp9,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP10
			mov	hBmp10,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP11
			mov	hBmp11,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP12
			mov	hBmp12,eax
                        invoke	LoadBitmap,hInstance,IDB_BITMAP13
			mov	hBmp13,eax
.elseif eax == WM_CLOSE
			invoke	EndDialog,hWnd,NULL
.elseif	eax == WM_COMMAND
                   mov	eax,wParam
                 .if	eax == IDC_BUTTON1
                 invoke	GetDlgItem,hWnd,IDC_EDIT1
                 invoke	GetDlgItemInt,hWnd,IDC_EDIT1,addr a,FALSE
                           mov a,eax
                  invoke	GetDlgItem,hWnd,IDC_EDIT2
                invoke	GetDlgItemInt,hWnd,IDC_EDIT2,addr b,FALSE
                           mov b,eax
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>判断是哪个星座>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

                             .if (a<1||a>12)
                                  invoke	MessageBox,hWnd,addr jinggao1,addr jinggao2,MB_OK
                             .elseif a==1 
                                              .if (b<1||b>31) 
                                                 invoke	MessageBox,hWnd,addr jinggao1,addr jinggao2,MB_OK
                                              .elseif b<=20