祝春节愉快!
void delay(){
uchar i,j
for(i=0i<20i++)
for(j=0j<125j++)
}
uchar getkey(void)//获取按键状态
{
uchar dat
sbit key=P3^4
dat=0
if(key==0)
{
delay()
if(key==0)
{
while(key==0)
dat=1
}
}
}
/****************************************
主函数
/****************************************/
void main(void)
{
uchar error_num = 0
Uart_Init() //初始化枣数串口
Lcd_Init() //初始化LCD
GPS_Init() //初始化GPS
rev_stop=0
REV_NO
while(1)
{
if (rev_stop) //如果接收完一行
{
//TR0 = 1 //开启定时器
REV_YES
//if (change_page % 2 == 1) //换页
if(getkey())//换页
{
if (GPS_GGA_Parse(rev_buf, &GPS)) //解析GPGGA
{
GGA_YES
GPS_DisplayTwo() //显示第二页信息
error_num = 0
gps_flag = 0
rev_stop = 0
REV_NO
}
else
{
error_num++
if (error_num >= 20) //如果数据无效超过20次
{
GGA_NO
error_num = 20
GPS_Init()/凳姿首/返回初始化册庆
}
gps_flag = 0
rev_stop = 0
REV_NO
}
}
else
{
if (GPS_RMC_Parse(rev_buf, &GPS)) //解析GPRMC
{
RMC_YES
GPS_DisplayOne() //显示GPS第一页信息
error_num = 0
gps_flag = 0
rev_stop = 0
led1 = 1
}
else
{
error_num++
if (error_num >= 20) //如果数据无效超过20次
{
RMC_NO
error_num = 20
GPS_Init()//返回初始化
}
gps_flag = 0
rev_stop = 0
REV_NO
}
}
}
}
}
void timer0(void) interrupt 1
{
static uchar count = 0
TH0 = 0x3c
TL0 = 0xb0
count++
if (count == 200) //2*5秒钟
{
count = 0
change_page++ //换页
if (change_page == 10)
change_page = 0
}
}
CASTEP模块中,LDA+U和GGA+U没有本质区别,且都是类模块的一种。Visual Basic 的代码存储在模块中。模块有三种类型:窗体、标准和类。
简单的应用程序可以只有一个窗体,应用程序的所有代码都驻留在窗体模块中。而当应用程序庞大复杂时,就要另加窗体。最终可能会发现在几个窗体中都有要执行的凯锋仔公共代码。因为不希望在两个窗体中重复代码,所以要创建一个独立模块,它包含实现公共代码的过程。独立模块应为标准模块。此后可以建立一个包含共享过程的模块库。
每个标准模块、类模块和窗体模块都可包含:
声基运明。可将常数、类型、变量和动态链接库 (DLL) 过程的声明放在窗体、类或标准模块的模块级。
过程。Sub、Function 或者 Property 过程包含可以作为单元来执行的代码片段。
一、窗体模块
窗体模块(文件扩展名为 .FRM )是大多数 Visual Basic 应用程序的基础。窗体模块可以包含处理事件的过程、通用过程以及变量、常数、类型和外部过程的窗体级声明。如果要在文本编辑器中观察窗体模块,则还会看到窗体及其控件的描述,包括它们的属性设置值。写入窗体模块的代码是该窗体所属的具体应用程序专用的;它也可以引用该应用程序内的其它窗体或对象。
二、标准模块
标准模块(文件扩展名为 .BAS)是应用程序内其它模块访问的过程和声明的容器。它们可以包含变量、常数、类型、外部过程和全局过程的全局(在整个应用程序范围内有效的)声明或模块级声明。写入标准模块的代码不必绑在特定的应用程序上;如果不小心用名称引用窗体和控件,则在许多不同的应用程序中可以重用标准模块。
三、类模块
在 Visual Basic 中类模块(文件扩展名为 .CLS)是面向对象编程的基础。可在类模盯汪块中编写代码建立新对象。这些新对象可以包含自定义的属性和方法。实际上,窗体正是这样一种类模块,在其上可安放控件、可显示窗体窗口。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)