VB辅导:用BASIC语言写智能手机程序计算机二级考试

文章作者 100test 发表时间 2009:04:30 06:46:51
来源 100Test.Com百考试题网

　　前言
　　时下，智能手机越来越贴近我们的生活，越来越多的教师朋友，学生朋友都会用智能手机，因为她们功能齐全，在手机上运行的软件应有尽有，QQ、在线游戏，音乐影视…….。
　　对于大学生朋友，广大教师朋友，能够在自己的手机有一个动态的课程表程序，一来可以合理安排空余时间，二来又不会误了学习工作的时间，是一件非常不错的事。本文，以微软公司的移动手机平台 WindowsMobile2003为基础，简单实现手机上的课表程序。
　　程序在WindowsMobile2003 dopod818手机上测试通过。程序运行时，主界面如图　　

　　程序下载地http://nihg.org/blogview.asp?logID=403
　　开发平台与工具：
　　MS WindowsXp 组件基于.net framework 1.1
　　Basic4ppc 5.8 （可到http://www.basic4ppc.cn/下载）
　　思路与代码：
　　Basic语言是众多程序初学者的入门语言，开发手机程序，我们同样也能使用她，使用没有基础的朋友也能一看就会。程序的主要思路如下：
　　一、根据日期得到星期，然后读取相应的日课表。
　　日课表为了方便与美观，直接做成bmp图片文件，下面是空白的课表和根据自己的课程已填好的课表，为了方便程序调用，直接将文件存为 1.bmp 2.bmp …..表示 周一 周二 的课表，以此类推。　　

　　[空白表 1.bmp 2.bmp]

　　程序的主界面如下 ，可见，我们为了尽量减少动态加载的课表体积，只将界面中心部份的课表作成bmp文件，整个背景直接做在程序里了。　　

　　实现读取课表的代码如下：
　　我们在窗体上用一个 timer组件来实现
　　Sub Timer4_Tick 用来检测当前日期并且读取相应课表值得注意的是 else
　　 then 语句 换行很重 then 必须另起一行
　　If label32.Text ="Monday" Then
　　image3.LoadPicture("class1.bmp")
　　Else If label32.Text ="Tuesday" Then
　　image3.LoadPicture("class2.bmp")
　　Else If label32.Text ="Wednesday" Then
　　image3.LoadPicture("class3.bmp")
　　Else If label32.Text ="Thursday" Then
　　image3.LoadPicture("class4.bmp")
　　Else If label32.Text ="Friday" Then
　　image3.LoadPicture("class5.bmp")
　　Else
　　End If
　　End Sub
　　其中label32显示当前的星期值，从下面timer3组件中得到值。