VB简易日历课程设计(任务书如下)

作者&投稿:陈没烟 (若有异议请与网页底部的电邮联系)
Option Explicit
Dim xuanzedate%

Private Sub Form_Load()

xuanzedate% = CInt(Format$(Now, "dd"))

Call tianchongbn01

Call tianchongbn02

Call setdate

Dim r%, week$
r% = Weekday(Format$(Now, "general date"))
If r% = 1 Then
week$ = "星期日"
ElseIf r% = 2 Then
week = "星期一"
ElseIf r% = 3 Then
week = "星期二"
ElseIf r% = 4 Then
week = "星期三"
ElseIf r% = 5 Then
week = "星期四"
ElseIf r% = 6 Then
week = "星期五"
Else
week = "星期六"
End If
bn002.Text = week$
bn001.Text = Format$(Now, "yyyy" & "年" & "m" & "月" & "d" & "日")
End Sub

Private Sub checkdate(month%, year%)
Dim i%, value%, datebn$

For i% = 28 To 32
datebn$ = (Str$(month%) + "/" + Str$(i%) + "/" + Str$(year%))
If IsDate(datebn$) Then
value% = i%
Else
Call visualnumber(value%)
Exit Sub
End If
Next i%
End Sub
Private Sub setdate()

Dim r%, i%
r% = CInt(Format$(Now, "yyyy"))
i% = r% - 1960
bn02.ListIndex = i%

r% = CInt(Format$(Now, "mm"))
bn01.ListIndex = (r% - 1)

r% = CInt(Format$(Now, "dd"))
bndate(r% - 1).BorderStyle = 1
xuanzedate% = r%

End Sub
Private Sub tianchongbn01()
bn01.AddItem "一月"
bn01.AddItem "二月"
bn01.AddItem "三月"
bn01.AddItem "四月"
bn01.AddItem "五月"
bn01.AddItem "六月"
bn01.AddItem "七月"
bn01.AddItem "八月"
bn01.AddItem "九月"
bn01.AddItem "十月"
bn01.AddItem "十一月"
bn01.AddItem "十二月"
End Sub

Private Sub tianchongbn02()
Dim i%
For i% = 1960 To 2060
bn02.AddItem Str$(i%)
Next i%

End Sub
Private Sub bn01_click()
Call setday
Call bndate_click(xuanzedate% - 1)
End Sub
Private Sub bn02_Click()
Static abc%
If Not abc Then
abc = True
Exit Sub
End If
Call bn01_click

End Sub
Private Sub setday()
Dim month%, year%
month% = setmonth()
year% = setyear()
Call checkdate(month%, year%)
End Sub

Private Sub bndate_click(Index As Integer)
Dim i%
On Error GoTo err1
For i% = 0 To 30
bndate(i%).BorderStyle = 0
Next i%
If bndate(Index).BorderStyle = 1 Then
bndate(Index).BorderStyle = 0
Else
bndate(Index).BorderStyle = 1
End If
xuanzedate% = Index + 1
Dim month%, day%, year%, datebn$
day% = xuanzedate%
month% = bn01.ListIndex + 1
year% = bn02.ListIndex + 1960
datebn$ = (Str$(month%) + "/" + Str$(day%) + "/" + Str$(year%))
If bn01.Text = "九月" And bndate(11).BorderStyle = 1 Then
MsgBox "老师好,欢迎您检阅我的设计。 题目是简易日历。今天是08年6月23号。我是材料````。", , "欢迎:>"
ElseIf bn01.Text = "九月" And bndate(12).BorderStyle = 1 Then
MsgBox "老师好,欢迎您检阅我的设计。 题目是简易日历。今天是08年6月23号。我是材料````。", , "欢迎:>"
End If
Dim r%
Dim week$
r% = Weekday(datebn$)
If r% = 1 Then
week$ = "星期日"
ElseIf r% = 2 Then
week = "星期一"
ElseIf r% = 3 Then
week = "星期二"
ElseIf r% = 4 Then
week = "星期三"
ElseIf r% = 5 Then
week = "星期四"
ElseIf r% = 6 Then
week = "星期五"
Else
week = "星期六"
End If
bn002.Text = week$
bn001.Text = Format$(datebn$, "long date")
err1:
If Err = 0 Then Exit Sub
If Err = 13 Then
xuanzedate% = xuanzedate% - 1
Exit Sub
End If

End Sub
Private Function setmonth%()
Dim i%
i% = bn01.ListIndex
setmonth% = i% + 1
End Function

Private Function setyear%()
Dim i%
i% = bn02.ListIndex
If i% = -1 Then Exit Function
setyear% = CInt(Trim(bn02.List(i%)))
End Function

Private Sub visualnumber(number%)
Dim i%
For i% = 28 To 30
bndate(i%).Visible = False
Next i%
For i% = 28 To number% - 1
bndate(i%).Visible = True
Next i%

End Sub

Private Sub bnyes_Click()
Dim month%, day%, year%, datebn$
day% = xuanzedate%
month% = bn01.ListIndex + 1
year% = bn02.ListIndex + 1960
datebn$ = (Str$(month%) + "/" + Str$(day%) + "/" + Str$(year%))
datebn$ = Format$(datebn$, "general date")
MsgBox Format$(datebn$, "long date"), , "您选定的日期为:"
If bn01.Text = "十月" And bndate(0).BorderStyle = 1 Then
MsgBox "国庆节快乐", , "节日/纪念日"
ElseIf bn01.Text = "二月" And bndate(13).BorderStyle = 1 Then
MsgBox "情人节快乐:>", , "节日/纪念日"
ElseIf bn01.Text = "一月" And bndate(0).BorderStyle = 1 Then
MsgBox "元旦快乐,又一年了,加油啊", , "节日/纪念日"
ElseIf bn01.Text = "三月" And bndate(11).BorderStyle = 1 Then
MsgBox "植树节了,心系环保", , "节日/纪念日"
ElseIf bn01.Text = "四月" And bndate(0).BorderStyle = 1 Then
MsgBox "愚人节的小傻瓜们,今天被骗了没?:-P", , "节日/纪念日"
ElseIf bn01.Text = "六月" And bndate(0).BorderStyle = 1 Then
MsgBox "儿童节快乐,有颗童心会更加快乐!", , "节日/纪念日"
ElseIf bn01.Text = "八月" And bndate(0).BorderStyle = 1 Then
MsgBox "建军节快乐", , "节日/纪念日"
ElseIf bn01.Text = "十二月" And bndate(24).BorderStyle = 1 Then
MsgBox "圣诞节快乐", , "节日/纪念日"
ElseIf bn01.Text = "三月" And bndate(7).BorderStyle = 1 Then
MsgBox "妇女节快乐", , "节日/纪念日"
End If
End Sub
Private Sub bnexit_Click()
Unload Me
End Sub

可以制作 ···需要的话百度hi我··· 已经完成··联系我好了··

C语言课程设计日历具体的做法。~

可以参考类似题目
http://wenku.baidu.com/view/7c566a48c850ad02de8041fc.html

要求 200行的程序。简易日历 要求:1.要达到的目的
①窗体加载自动提取并显示当前日期
②能选择1960-2060之间的任一年份
③单击确定后显示所选日期
④节日等在选定日期后以MsgBox形式提示
⑤单击退出关闭窗体
⑥根据所选年份和月份,确定显示天数的个数
⑦年月日及下方的显示只可读不可输入
⑧选择某一日期后凹陷显示并在窗体下方显示所选择的日期及其星期
再给出程序内容一些关键步骤是怎么来的(老师会问 答辩) 尽量详细点,会加分

VB简易日历课程设计(任务书如下)
答:Option Explicit Dim xuanzedate Private Sub Form_Load()xuanzedate% = CInt(Format$(Now, "dd"))Call tianchongbn01 Call tianchongbn02 Call setdate Dim r%, week r% = Weekday(Format$(Now, "general date"))If r% = 1 Then week$ = "星期日"ElseIf r% = 2 Then week = "...

求助!!!电子日历表课程设计
答:星期的设定可以有自动和手动两种方案,自动是指根据当前年、月、日自动确定星期几;手动方案是需要自己设定好星期,然后星期与日历同步走。手动设计相对简单一些,自动则需要利用Altera芯片提供的EAB来实现ROM型的查找表。3.关于24/12小时制设计中时间与闹钟定时都需要小时在两钟模式下显示,设计不好就会增加很多资源的开销...

用C语言编写简易月历的设计与实现 急急急急!!!
答:showCalendar(currentYear,currentMonth,currentDay); } } /*主函数*/void main(){ /*清除文本模式窗口*/ clrscr(); /*设置屏幕显示方式*/ _AL=03; _AH=0; geninterrupt(0x10); getdate(&sysTime); getKeyValue();} 来自《C语言课程设计案例精编》 本回答由提问者推荐 已赞过 已踩过< 你对这个...

课程设计:实时日历/时钟的设计与实现
答:四、校时电路 针对数字钟会产生走时误差的现象,在电路中就设计有有校准时间功能的电路。[

如何写课件设计的任务书
答:1.教学内容与方法教学内容:课件的内容包括如下:(1)、课件的内容。教学内容包括:(2)素材的准备。在本教学中,可将所要设计的素材或实物图片一并提交,以便于教学者完成整体设计。2、教学目标和主要内容教学目标是所要达到的教学效果。所要达到的目的是:(1)知道用什么软件制作。所需软件有等。(2...

台历、挂历的设计教案
答:1、根据奥运会运动员的需要,以组为单位,设计一件台历或日历。 2、利用现有的纸材,用自己喜欢的方法,大胆进行创新设计。 3、解决问题: (1)创作构思 (2)互相启发拓展思路,避免作品千篇一律。 (3)确定制作方案 四、展示作品 五、小结 台历、挂历的设计教案2 一、教学内容: 第10册第六课 台历、挂历的设计 二...

C语言课程设计-万年历
答:1.系统封面设计 内容:题目名称(中英文)、进入(中英文)、作者:***、时间:***-**- 2.输入界面 内容:(1)密码口令输入及容错(3次)(2)年份的输入及容错(3次)3.日历计算设计 (1)求某月某日实行奇迹的函数(邱每月一号的星期数)。算法:(y-1)+(y-1)/4-(y-1)/100+(y-...

求一个日历系统的C语言课程设计
答:include <windows.h> int week(int y,int m,int d);void main(){ int monthday[12]={31,28,31,30,31,30,31,31,30,31,30,31};int y,w,i,m=1,d=1;printf("请输入一个年份yyyy:\n");scanf("%d",&y);if (y%4==0&&y%100!=0) monthday[1]=29;for(m=1;m<=12;m...

设计任务书一般应包括哪几方面内容?
答:设计任务书设计任务书是业主对工程项目设计提出的要求,是工程设计的主要依据。进行可行性研究的工程项目,可以用批准的可行性研究报告代替设计任务书。设计任务书一般应包括以下几方面内容:1.设计项目名称、建设地点。2.批准设计项目的文号、协议书文号及其有关内容。3.设计项目的用地情况,包括建设用地...

毕业设计任务书
答:毕业设计任务书1 石化技术工程系毕业设计任务书 设计课题 化工生产中传热方式的工艺设计及相关设备设计 设计内容目标和要求 设计目标: 根据自己顶岗实习岗位工作实际或化工生产实际选取其中某一环节典型工艺流体,对其换热方式进行工艺流程设计以及其中典型设备进行设计及选型。通过毕业设计,熟悉化工生产中流体换热方式的选择原...