博文
用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 接收机和其他航海电子产品的导航数据输出格式,是目前普遍使用且为大多数生产商遵循的协议之一,以下为其基本通讯参数及报文格式。
&......
[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......
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” 以外的任何字符。
“-“ 放在两个字符......
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......
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
......
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[,......
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......
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......
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 ......
搜狐博客下载器(2009-04-20 13:34:00)
摘要：
http://www.ecn999.com/sohu_blog_bak.rar
上面的连接是 搜狐博客下载器 的下载地址。
欢迎使用并提出宝贵意见。
......