【十二星座查询软件源码】十二星座app
本篇文章给大家谈谈十二星座查询软件源码，以及十二星座app下载对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。
本文目录一览：
VB 星座查询代码
Private Sub Command1_Click()
Dim str1 As String, d1 As Date, i As Integer, xz
xz = Array("白羊座", 3, 21, 4, 20, "金牛座", 4, 21, 5, 20, "双子座", 5, 21, 6, 21, _
"巨蟹座", 6, 22, 7, 22, "狮子座", 7, 23, 8, 22, "处女座", 8, 23, 9, 22, _
"天秤座", 9, 23, 10, 22, "天蝎座", 10, 23, 11, 21, "射手座", 11, 22, 12, 21, _
"摩羯座", 12, 22, 12, 31, "摩羯座", 1, 1, 1, 19, "水瓶座", 1, 20, 2, 18, _
"双鱼座", 2, 19, 3, 20)
str1 = txtMonth "-" txtDay
If IsDate(str1) Then
'd1 = CDate(str1)
For i = 0 To UBound(xz) Step 5
If Val(txtMonth) = xz(i + 1) And Val(txtDay) = xz(i + 2) _
And Val(txtMonth) = xz(i + 3) And Val(txtDay) = xz(i + 4) Then
MsgBox "你查询的" str1 "的星座" xz(i), vbOKOnly, "星座查询"
Exit For
End If
Next i
Else
MsgBox "你输入的数据" str1 "不是日期！", vbOKOnly, "星座查询"
End If
End Sub
如何用c#制作一款星座查询软件
Console.WriteLine("请输入十二星座查询软件源码你的生日（格式十二星座查询软件源码：01.01）");
double MD = Convert.ToDouble(Console.ReadLine());
if (MD = 03.21 MD = 04.19)
{
Console.WriteLine("白羊座");
}
else if (MD = 04.20 MD = 05.20)
{
Console.WriteLine("金牛座");
}
else if (MD = 05.21 MD = 06.21)
{
Console.WriteLine("双子座");
}
else if (MD = 06.22 MD = 07.22)
{
Console.WriteLine("巨蟹座");
}
else if (MD = 07.23 MD = 08.22)
{
Console.WriteLine("狮子座");
}
else if (MD = 08.23 MD = 09.22)
{
Console.WriteLine("处女座");
}
else if (MD = 09.23 MD = 10.23)
{
Console.WriteLine("天秤座");
}
else if (MD = 10.24 MD = 11.22)
{
Console.WriteLine("天蝎座");
}
else if (MD = 11.23 MD = 12.21)
{
Console.WriteLine("射手座");
}
else if (MD = 12.22 MD = 12.31)
{
Console.WriteLine("摩羯座");
}
else if (MD = 01.01 MD = 01.19)
{
Console.WriteLine("摩羯座");
}
else if (MD = 01.20 MD = 02.18)
{
Console.WriteLine("水瓶座");
}
else if (MD = 02.19 MD = 03.20)
{
Console.WriteLine("双鱼座");
}
else { Console.WriteLine("请输入正确的格式！"); }
汇编程序设计星座查询系统
;哥们,你的课题也太麻烦十二星座查询软件源码了......不过,还是做出来了!!!
;
;用MASM 5.0编译
;文件输出格式如下:
;ZZZZZZZZZ 2.22 双鱼座 Pisces
;DDDDDDDDD 3.13 双鱼座 Pisces
;aaaaaaaaa 1.22 水瓶座 Aquarius
;VVVVVVVVV 5.23 双子座 Gemini
;汇编程序设计星座查询系统
; 悬赏分：50 - 离问题结束还有 15 天 9 小时
;功能描述：
; 通过输入姓名十二星座查询软件源码，月份日期 输出相应的星座。如输入:04-19，输;出:Aries。
; 输入Q 结束退出。同时把刚才的查询结果保存在quary.txt文档中。
;文档中的格式为：
;姓名 生日 星座
;
;星座日期信息如下：
;星座 日期(公历) 英文名
;魔羯座 (12/22 - 1/19) Capricorn 29
;水瓶座 (1/20 - 2/18) Aquarius 29
;双鱼座 (2/19 - 3/20) Pisces 30-31
;牡羊座 (3/21 - 4/20) Aries 31
;金牛座 (4/21 - 5/20) Taurus 30
;双子座 (5/21 - 6/21) Gemini 32
;巨蟹座 (6/22 - 7/22) Cancer 31
;;狮子座 (7/23 - 8/22) Leo 31
;处女座 (8/23 - 9/22) Virgo 31
;天秤座 (9/23 - 10/22) Libra 30
;天蝎座 (10/23 - 11/21) Scorpio 30
;射手座 (11/22 - 12/21) Sagittarius 30
;
;这个不会做额，哪位高手能在元旦假之前教十二星座查询软件源码我做呀？急用额，帮帮忙！
;能运行的话一定追加分感谢
;问题补充：邮箱651325419@qq.com
;;;
;
; 1.20 2.19 3/4/5.21 6/11/12.22 7/8/9/10.23
;;
;
;
;
;
data segment
DIAN DB '.' ;"月.日"
KONG DB 5 DUP (' ') ;5个空格
xz_long EQU 12+7 ;整个xz 中单个XZ的长度
;file db 'czr.txt',0
file db 'quary.txt',0
handle dw ?
ERR1 db 0dh,0ah,'Creat file Error!$'
xz db '水瓶座 Aquarius $双鱼座 Pisces $牡羊座 Aries $金牛座 Taurus $双子座 Gemini $巨蟹座 Cancer $狮子座 Leo $处女座 Virgo $天秤座 Libra $天蝎座 Scorpio $射手座 Sagittarius$魔羯座 Capricorn $'
buff1 db 10,11 dup (0) ;input name
buff2 db 3,4 dup (0) ;input month
buff3 db 3,4 dup (0) ;input day
m1 db 0 ;month
d1 db 0 ;day
CRLF DB 0dh,0ah,'$'
file_ptr dw ? ;write position from string xz
s1 db 0dh,0ah,0dh,0ah,' Name: $'
s2 db 0dh,0ah,'Month: $'
s3 db 0dh,0ah,' Day: $'
W_F_BUFF DB 0DH,0AH
data ends
code segment
assume cs:code, ds:data
main proc far
start:
push ds
xor ax,ax
push ax
mov ax,data
mov ds,ax
;--------------------------------------FFFFFFFFFFF
mov dx,offset file
mov al,2 ;r/w mode
mov ah,3dh ;open file
int 21h
jc error ;open file error
mov handle,ax ;save handle
jmp w_file
error:
mov dx,offset file
mov cx,0 ;file attr
mov ah,3ch ;creat file
int 21h
jc error_1
mov handle,ax ;save handle
jmp w_file
error_1:
mov ah,09
lea dx,ERR1 ;disp 'Creat file Error!$'
int 21h
jmp END_D
w_file:
mov ah,42h ;shift file w/r ptr
mov bx,handle
mov al,2 ;set w/r ptr to file eof
mov cx,0
mov dx,0
int 21h
;--------------------FFFFFFFFFFFFFFFFFFFFFFFF
;-------------------------
START_1:
mov ah,09
mov dx ,offset s1 ;input name
int 21h
mov ah,0ah
mov dx,offset buff1
int 21h
;
MOV BX ,offset BUFF1+1 ;判断是否输入'Q'退出
MOV AL,[BX]
CMP AL,1
JNE NO_QUIT
INC BX
MOV AL,[BX]
CMP AL,'Q'
JNE NO_QUIT
JMP END_D
NO_QUIT:
;
mov ah,09
mov dx ,offset s2 ;input month
int 21h
mov ah,0ah
mov dx,offset buff2
int 21h
mov bx,offset buff2+1
mov al,[bx]
cmp al,2 ;is 2 wei?
jl is1
mov ah,10
inc bx
inc bx
mov al,[bx]
sub al,30h
add ah,al
mov m1,ah ;save month (2wei)
jmp m_end
is1:
inc bx
mov al,[bx]
sub al,30h
mov m1,al ;save month (1wei)
m_end:
;
mov ah,09
mov dx ,offset s3 ;input day
int 21h
mov ah,0ah
mov dx,offset buff3
int 21h
mov bx,offset buff3+1
mov al,[bx]
cmp al,2 ;is 2 wei?
jl is1_1
inc bx
mov al,[bx]
sub al,30h
mov dl,10
mul dl
inc bx
mov ah,[bx]
sub ah,30h
add al,ah
mov d1,al ;save day (2wei)
jmp d_end
is1_1:
inc bx
mov al,[bx]
sub al,30h
mov D1,al ;save day (1wei)
d_end:
MOV AH,09
MOV DX,OFFSET CRLF
INT 21H
mov dx,offset xz
mov ax,0
mov al,m1
DEC AL
call pd ;根据日判断AL是否减1或加12（如果是1月）
mov bl,xz_long ;xz中每一个XINZHUO CHANG
MUL BL
add dx,ax
mov file_ptr,dx ;save position went write to file from string xz
moV ah,09
int 21h
;
;-------------------------
mov cx,2
mov dx,offset crlf ;CRLF write TO file
mov ah,40h ;write file
mov bx,handle
INT 21H
mov dx,offset buff1 ;NAME write TO file
call file_w
mov ah,40h ;write 5 BLANK
mov Dx,OFFSET KONG
mov CX,5
mov bx,handle
INT 21H
mov dx,offset buff2 ;MONTH write TO file
call file_w
mov ah,40h ;write "."
mov Dx,OFFSET DIAN
mov CX,1
mov bx,handle
INT 21H
mov dx,offset buff3 ;DAY write TO file
Call file_w
mov ah,40h ;write 5 BLANK
mov Dx,OFFSET KONG
mov CX,5
mov bx,handle
INT 21H
MOV CH,0
mov CL,xz_long-1
mov dx,file_ptr
mov ah,40h ;XZ write TO file
mov bx,handle
INT 21H
JMP START_1
END_D:
mov ah,3eh ;close file
mov bx,handle
INT 21H
ret
main endp
;-------------------------------
file_w proc near
mov ah,40h ;write file
mov bx,dx
inc bx
mov ch,0
mov cl,[bx]
add dx,2
mov bx,handle
INT 21H
ret
file_w endp
;-----------------------------------
;==============================
PD PROC NEAR ;根据输入的"月日"做判断子程序
; 1.20 2.19 3/4/5.21 6/11/12.22 7/8/9/10.23
MOV AH,M1
CMP AH,1
JE YUE_1
CMP AH,2
JE YUE_2
CMP AH,3
JE YUE_345
CMP AH,4
JE YUE_345
CMP AH,5
JE YUE_345
CMP AH,6
JE YUE_61112
CMP AH,11
JE YUE_61112
CMP AH,12
JE YUE_61112
CMP AH,7
JE YUE_78910
CMP AH,8
JE YUE_78910
CMP AH,9
JE YUE_78910
CMP AH,10
JE YUE_78910
; 1.20 2.19 3/4/5.21 6/11/12.22 7/8/9/10.23
YUE_1:
MOV AH,D1
CMP AH,20
JL ADD11
JMP RET_PD
ADD11:
ADD AL,11
JMP RET_PD
;
YUE_2:
MOV AH,D1
CMP AH,19
JL AL_DEC1
JMP RET_PD
YUE_345:
MOV AH,D1
CMP AH,21
JL AL_DEC1
JMP RET_PD
YUE_61112:
MOV AH,D1
CMP AH,22
JL AL_DEC1
JMP RET_PD
YUE_78910:
MOV AH,D1
CMP AH,23
JL AL_DEC1
JMP RET_PD
AL_DEC1:
DEC AL
RET_PD:
RET
PD ENDP
;==============================
code ends
end start
如何用C#编写“星座查询”程序？
你能用VB编写.C#应该行吧...都差不多的...首先定义好**到**是什么星座..在他输入年龄查询的时候 ,用IF..ELSE判断输入的日期在哪个范围内..直接SHOW哪个星座就行了....
跪求星座运势源码，哪位大侠愿意帮忙？
十二星座查询软件源码你有QQ吧十二星座查询软件源码，QQ里有个城市达人十二星座查询软件源码的，里面有星座运势十二星座查询软件源码的，每天都可以看。
关于十二星座查询软件源码和十二星座app下载的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
与本文知识相关的文章：
