博文

用VB实现GPS信息处理(2013-08-08 23:32:00)

摘要:引 言                                     
        目前,GPS 已在许多行业和领域得到广泛应用,但就如何将GPS   有关信息读入计算机以便进一步处理和应用,仍是大家普遍关心的问题。虽然目前GPS 接收仪的种类、功能各有差异,而且使用的通讯协议也比较多,但许多GPS   生产商都遵循NMEA0183 协议,并且这些GPS 都提供串行通讯接口。笔者试图从分析GPS 通讯NMEA0183   协议入手,以计算机实时读取、显示、存储、回放GPS信息为例,探讨用VB 实现GPS 信息处理的一些方法。
                                     
1  GPS   通讯的NMEA 协议
      GPS 的通讯协议比较多,其中NMEA (National Ma2rine Electronics   Association) , 0183 协议为GPS   接收机和其他航海电子产品的导航数据输出格式,是目前普遍使用且为大多数生产商遵循的协议之一,以下为其基本通讯参数及报文格式。
&......

阅读全文(767) | 评论:0 | 复制链接

[VB]用API打开浏览文件夹对话框,选择文件夹(2012-12-12 12:37:00)

摘要: 1 Option Explicit
 2 
 3 Private Type BROWSEINFO
 4   hOwner As Long
 5   pidlRoot As Long
 6   pszDisplayName As String
 7   lpszTitle As String
 8   ulFlags As Long
 9   lpfn As Long
10   lParam As Long
11   iImage As Long
12 End Type
13 
14 Private Const BIF_RETURNONLYFSDIRS = &H1 '浏览文件夹
15 Private Const BIF_NEWDIALOGSTYLE = &H40 '新样式(有新建文件夹按钮,可调整对话框大小)
16 Private Const BIF_NONEWFOLDERBUTTON = &H200 '新样式中,没有新建按钮(只调大小)
17 
18 Private Declare Function SHGetP......

阅读全文(1944) | 评论:0 | 复制链接

vb.net的正则表达式(2012-12-12 12:35:00)

摘要: 正则表达式的作用是从一个字符串中捕获符合要求的字符串。 使用正则表达式需使用一下语句:
   Import System.Globalization
   Import System.IO
   Import System.Text
   Import.System.Text.RegularExpressions
先看一个最简单的捕获:
正则表达式 /123/ 捕获任意字符串中的 ”123” 。如:
“a123b”
“aaab12bb13123c”
匹配:
如果一个字符串中存在至少一个捕获,就算这个正则表达式匹配此字符串。如果只存在一个捕获,而且此捕获是整个字符串,则算完全匹配。
“或”符号(“|”):
正则表达式 /123|a/ 捕获 ”123” 或者 ”12a”,如:
“12ac123”
“12abcc”
“01262312343”
并:
任何两个正则表达式放在一起就成了并,如 /a/ 是一个合法的正则表达式,它捕获 ”a” 字符, /b/ 也是一个合法的正则表达式,它捕获 ”b” 字符。/ab/ 这个正则表达式捕获连在一起的 ”ab” 这样的字符串。在并的时候,两个正则表达式之间形成了断言。(关于断言会在下面讲到)。
括号:
可以用括号可以者强调符号的结合顺序,如正则表达式/(123)|(abc)/”捕获”123”或者”abc”
字符类:
可以用 [abc] 的形式来表示 (a|b|c) ,如:
正则表达式 /[abc]/ 捕获 ”a” 、”b” 或者 ”c”。
字符类的特殊构造:
“^” 放在 [] 的开头表示不捕获这些字符,如:
正则表达式 /[^abc]/ 捕获除了 ”a” 、 ”b” 和 ”c” 以外的任何字符。
“-“ 放在两个字符......

阅读全文(1069) | 评论:0 | 复制链接

C语言绘制漂亮的六叶图案 .(2012-09-18 13:07:00)

摘要: 本例利用画弧函数arc()绘制不同的弧线,从而制作出优美的六叶图案。 本实例的母体是让读者掌握画弧函数arc()的应用,同时要注意两个三角函数sin()、cos()(只能用弧度)的使用方法。 程序说明: 本实例主要讲解arc(),她的调用格式如下: void far arc(int x,int y,int stangle,int endangle,int radius) 参数说明: x,y为所绘制的弧线以(x,y)为圆心。 radius:所绘制弧线的半径,从stangle开始到endangle结束(用度表示),画一段圆弧线。在TURBO C中规定x轴正向为0度,逆时针方向旋转一周,依次为90度、180度、270度和360度。 另外,本例还讲解了两个三家函数sin()、cos()。注意,在语言程序中使用三角函数时,要把度数转化为弧度才能带入公式进行运算,度数与弧度的具体切换示例:25度编程弧度为25*3.14/180。 代码如下: #include <graphics.h>
#include <math.h>
#include <conio.h> #define PI 3.1415926535 /* 图形驱动函数 */
void initgr(void)
{
     int gd = DETECT, gm = 0;
     registerbgidriver(EGAVGA_driver);
     initgraph(&gd, &gm, "");
} void main(void)
{
     double a = 0,b;
   &nb......

阅读全文(1138) | 评论:0 | 复制链接

C语言经典程序举例(2012-03-24 21:51:00)

摘要: C语言经典程序举例 题目1:求100之内的素数   
程序源代码:
#include
#include "math.h"
#define N 101
main()
{
int i,j,line,a[N];
for(i=2;i......

阅读全文(2248) | 评论:0 | 复制链接

VBScript中的文件操作(2009-11-10 11:12:00)

摘要: 3。对文件的操作 对文件的操作主要包括: 创建文件 写入文件 读取文件 移动、复制和删除文件    1)创建文件    创建文件主要有三种方法: CreateTextFile 方法,如:  Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)      CreateTextFile方法的具体用法是这样的:         object.CreateTextFile(filename[, overwrite[, unicode]])       其中object参数为FSO对象名称;filename参数设置文件的路径;overwrite为布尔值,true代表可以覆盖,false代表不可覆盖;最后一个可选参数指明是否以Unicode储存文件,true代表使用unicode,false代表使用ASCII方式,省略时默认为ASCII方式。 OpenTextFile 方法 Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting. FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)
     OpenTextFile方法的具体使用方法:              object.OpenTextFile(filename[,......

阅读全文(2111) | 评论:0 | 复制链接

VBScript  遍历表单元素, 简化数据操作代码(2009-11-10 10:49:00)

摘要: 作用及说明:
操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 request.* 和数据字段. 
采用遍历表单元素可省去一堆不必要的事情.
主要注意的是表单元素的命名法.
如果数据字段有良好的命令规则的话, 那好办, 可采用 instr()函数进行筛选
如果数据字段原先没有良好的命令规则, 那也好办, 还是用 instr() 函数进行筛选 ,这就需要在表单域中不需要操作的元素建立一个命名前缀, 再用 instr() 进行筛选

1. 两种方法遍历表单元素
2. 一个操作 XML 数据的例子


两种方法遍历表单元素: 1 遍历表单元素   dim  x '列出表单中所有元素 for x=1 to request.Form.count     response.write request.form.key(x)&" --- "     response.write request.form(x)&"<br/>" next // request.form.key(x) 为 元素名 // request.form(x) 为 元素值 2 遍历表单元素  dim elem for each elem in request.form     r......

阅读全文(1974) | 评论:0 | 复制链接

TOM相册下载程序(2009-08-04 06:51:00)

摘要:昨天在百度的知道看到一个朋友向批量下载 TOM 的相册。我就用了一下午的时间,改造了 原来的 搜狐博客下载,上传过来大家分享。 网络的批量下载是很多朋友喜欢的,我很久没有再考虑这些,这次的程序很适合100张以内的照片下载,如果照片张数过多,在下载的时候耗费资源多,会显得有些迟钝。   使用方法: 1。找到喜欢的相册,打开他的第一张图片。 2。复制地址栏的地址。 3。粘贴到指定位置。 4。点击查看图片。 5。在一个新的页面里看多所有的图片了,在文件菜单 点击 另存为 —— —— 把网页全部存在指定位置,就获得了所有图片。   以下内容是 TOM相册下载器的 Form1 的源代码,没有过多的解释,朋友们自己读一下,有需要交流的请联系.     VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "msinet.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 12030
ClientLeft = 60
ClientTop = 345
ClientWidth = 13455
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 12030
ScaleWidth = 13455
StartUpPosition = 3 '窗口缺省
Begin SHDocVwCtl.WebBrowser WebBrowser2
Height = 9615
Left = 0
TabIndex = 13
Top = 0
Width = 13095
ExtentX = 23098
ExtentY = 16960
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
Re......

阅读全文(2053) | 评论:0 | 复制链接

uft-8格式和unicode编码的互相转换(2009-07-29 14:50:00)

摘要:   系统自带的记事本有读写UTF-8文本文件的功能,我想在自编的记事本中也加入这个功能,但在网上查找了一个钟头,竟然找不到用VB编写的代码。于是我在网上找了很多UTF-8的文章,还真的获益非浅,起码对UTF-8略知一二了。   当我做完最后一次试验时,长长地叹了一口气,美美地伸了一个懒腰,呵呵,真爽啊,一天的时间终于没有白费!这也许就是编程的乐趣吧,当看到程序按照自己的愿望运行时,你们的心情一定也与我是一样的,无比舒畅。   下面我先简单讲述一下UTF-8编码的有关知识,并且只讲与我编写的读写UTF-8文本代码有关的知识,详细的理论请各位自己找专业文章看看。   UTF-8 编码字符理论上可以最多到 6个字节长,但目前全世界的所有文字和符号种类加起来也只要编到 4个字节长就够了。UTF-8 是以 8位(即 1个字节)为单元对原始码进行编码(注意一点:这里所讲的原始码都是指Unicode码),并规定:多字节码(2个字节以上才称为多字节)以转换后第1个字节起头的连续“1”的数目(这些连续“1”称为标记位),表示转换成几个字节:“110”连续两个 “1”,表示转换结果为2个字节,“1110”表示3个字节,而“11110” 则表示4个字节……跟随在标记位之后的“0”,其作用是分隔标记位和字符码位。第2~第4个字节的起头两个位固定设置为“10”,也作为标记,剩下的6个位才做为字符码位使用。这样,2字节UTF-8码剩下11个字符码位,可用以转换0080~07FF的原始字符码,3字节剩下16个字符码位,可用以转换0800~FFFF的原始字符码,由此类推。 编码方式的模板如下:  原始码(16进制) |    UTF-8编码(二进制)   0000 - 007F             |     0xxxxxxx  0080 - 07FF  ......

阅读全文(5056) | 评论:0 | 复制链接

搜狐博客下载器(2009-04-20 13:34:00)

摘要: http://www.ecn999.com/sohu_blog_bak.rar 上面的连接是 搜狐博客下载器 的下载地址。 欢迎使用并提出宝贵意见。   ......

阅读全文(1497) | 评论:0 | 复制链接