[Windows编程] 上传联合开发网--GPS采集数据后处理
GPS定位采集点源文件经纬度坐标修正
GPS测量数据，根据起始经纬度值，在点号、采集时间、高程值、卫星PDOP等不变的前提下，只对后续各行采集的经纬度值进行逐行系统修正。打开文件为记事本文件，生成文件在源文件的基础上加"outpt"，文件格式不变。
adjust the longitude and latitude of the surveying point of GPS. (2020-03-21, Visual Basic, 7KB, 下载0次)
[Windows编程] ChainBuilder
Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
Set gp = New GrabProxy
With gp
.GrabEnabled = True 是否有效
.GrabInterval = 30 指定抓取时间间隔
.GrabMode = XDictGrabMouse 模式(鼠标是否加按键)
.AdviseGrab Me 接口指向自身
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set gp = Nothing
End Sub
Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long
Label1.Caption = "当前坐标：" & "(" & lCursorX & "," & lCursorY & ")"
Label2.Caption = "当前语句：" & SentenceString
Label3.Caption = "当前字符：" & Mid(SentenceString, lLoc + 1, 1000)
End Function
Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
Set gp = New GrabProxy
With gp
.GrabEnabled = True 是否有效
.GrabInterval = 30 指定抓取时间间隔
.GrabMode = XDictGrabMouse 模式(鼠标是否加按键)
.AdviseGrab Me 接口指向自身
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set gp = Nothing
End Sub
Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long
Label1.Caption = "当前坐标：" & "(" & lCursorX & "," & lCursorY & ")"
Label2.Caption = "当前语句：" & SentenceString
Label3.Caption = "当前字符：" & Mid(SentenceString, lLoc+ 1, 1000)
End Function (2014-06-10, Visual Basic, 9KB, 下载1次)
[Windows编程] CaseReader
Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
Set gp = New GrabProxy
With gp
.GrabEnabled = True 是否有效
.GrabInterval = 30 指定抓取时间间隔
.GrabMode = XDictGrabMouse 模式(鼠标是否加按键)
.AdviseGrab Me 接口指向自身
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set gp = Nothing
End Sub
Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long
Label1.Caption = "当前坐标：" & "(" & lCursorX & "," & lCursorY & ")"
Label2.Caption = "当前语句：" & SentenceString
Label3.Caption = "当前字符：" & Mid(SentenceString, lLoc + 1, 1000)
End Function
Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
Set gp = New GrabProxy
With gp
.GrabEnabled = True 是否有效
.GrabInterval = 30 指定抓取时间间隔
.GrabMode = XDictGrabMouse 模式(鼠标是否加按键)
.AdviseGrab Me 接口指向自身
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set gp = Nothing
End Sub
Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long
Label1.Caption = "当前坐标：" & "(" & lCursorX & "," & lCursorY & ")"
Label2.Caption = "当前语句：" & SentenceString
Label3.Caption = "当前字符：" & Mid(SentenceString, lLoc+ 1, 1000)
End Function (2014-06-10, Visual Basic, 9KB, 下载1次)
[Windows编程] vbopenweb
只要运行explorer后面加个空格再加上网址就能弹出网页了，不过现在都装有360，这种弹出窗口的方式可能会被拦截，主要是使用vb Shell来调用explorer.exe.来实现。源码在VB6下编译通过，网页网址可以自己改的
Just run behind a space explorer plus plus pages on the website will be able to pop up, but now with 360, this pop-up window approach may be intercepted, mainly using vb Shell to call explorer.exe. To achieve. Source code in VB6 compiler, change the URL of the page you can own (2014-05-13, Visual Basic, 1KB, 下载1次)
[Windows编程] tetris
旋转俄罗斯方块的原理及VB源码，作者：尹强，module.bas文件中BitBlt 函数的作用是：位操作位图，实现不规则的方块的动作。除此之外，里面还有不少编写俄罗斯方块游戏的方法和模块，比如判断方块是否堆满，如果一行已经堆满，则将此行上面的图象全部向下移动一点，如果目前方块的顶点位置 <=0 ，则表示全部堆满；还可判断方块能否翻转，能否向左、向右、向上、向下移动；随机从 7 个方块中选择一个组建成下一个方块图形等
Tetris rotation principle and VB source, author: Yin strong role module.bas file BitBlt function is: Bit operation bitmap realize irregular block action. In addition, there is also a lot of Tetris game written methods and modules, such as the box is filled with judgment, if a line has been filled, the entire image above this line moves down a bit, if the current box vertex position <= 0, then all piled may also determine whether the flip box, whether left, right, up, move down randomly select a graphic form into the next block from the 7 box, etc. (2014-05-13, Visual Basic, 8KB, 下载1次)
[Windows编程] suijijuzhen
VB编写的一个随机矩阵并求它的VB随机矩阵代码，代码中rnd是随机的意思，Print a(i, j) 分号一定要加，涉及到横向排列和纵向排列的问题，利用循环输出矩阵结果，请参见演示图
VB prepared by a random matrix and find its random matrix VB code, the code is random rnd meaning, Print a (i, j) semicolon must be added, and issues related to the horizontal arrangement of the vertical arrangement, the use of recycled output matrix results, see the demo map (2014-05-13, Visual Basic, 2KB, 下载1次)
[Windows编程] shizhizhuanhua
vb.net时制转换，时间格式转换：把12小时制转换成24制时间显示出来，并执行加1秒的操作，挺简单的时间操作程序，VB新手可作为一个例子来学习，程序生成了了EXE窗体文件，双击可直接运行。
vb.net when the system conversion, time format conversion: convert 12-hour time display up to 24, plus one second and perform operations very simple time operating procedures, VB novice as an example to learn, the program generates a form the EXE file, double click to run. (2014-05-08, Visual Basic, 18KB, 下载1次)
[Windows编程] calculator
VB程序设计技巧---计算器,设计一个可以进行四则运算的简单计算器。该计算器除了可以进行加、减、乘、除、求模（取余）等简单的四则运算外，还要求可以进行四则混合连算，并具有符合计算器日常使用习惯的容错纠错功能。
VB programming skills--- calculator, design a simple calculator can perform four operations. In addition to the calculator can add, subtract, multiply, divide, modulo (remainder), such as a simple four operations, it also requires four can be mixed even count, and has daily habits in line calculator tolerant error correction. (2014-01-15, Visual Basic, 2KB, 下载1次)
[Windows编程] DIPvbNet
Bitmap是VB.NET和C#中处理图像的基础类，用于处理由像素数据定义的图像的对象。 存储灰度图像数据，一维数组存储。对于8位图像，一个像素即是一个字节。每行存储的字节数必须是4的整倍数，需要时添加适当字节。
Bitmap is VB.NET and C# base class in the image processing for processing an image defined by pixel data of the object. Grayscale image data storage, one-dimensional array storage. For 8-bit image, a pixel that is a byte. The number of bytes stored in each row must be an integral multiple of 4, when required to add the appropriate bytes. (2013-11-08, Visual Basic, 737KB, 下载5次)
[Windows编程] GrantCoinEveryday
不需每天登录 自动领取淘金币王彦博
正女友喜欢到淘宝购物,她发现淘宝的淘金币很有用,攒够一定的数量可以换礼品,或加人民币可以很便宜地购得心仪宝贝。虽每天登录一下淘江湖可以领取一定数量的淘金币,可是每天登录有点麻烦,用"淘宝金币助手"绿色小工具即可每天自动登录淘江湖,省时省力领取淘金币。
GrantCoinEveryday GrantCoinEveryday (2012-04-04, Visual Basic, 207KB, 下载19次)
[Windows编程] 3-(1)
可以进行四则运算的简单计算器。该计算机除了可以进行加、减、乘、除、求模（取余）等简单的四则运算外，还可以进行四则混合连算，并具有符合计算器日常使用习惯的容错纠错功能。
Can be a simple arithmetic calculator. In addition to the computer can add, subtract, multiply, divide, modulus (modulus) and other simple arithmetic, but also can be mixed with four operators, and has a consistent habit of fault-tolerance calculator for everyday use error correction. (2010-12-10, Visual Basic, 2KB, 下载2次)
[Windows编程] codeDll
用VB6.0做出的字串加密dll（带源码）！！
code.dll的说明：
这是一个由VB做成的dll文件，它支持对字串进行Base64和随机数加解密两种方式。
如果要进行中英文混合加解密，可以先用Base64函数加解密，再用随机数解密。
注意，加密和解密是逆向的，如加密过程为 Rand_Encode(Base64_Encode(str))
则解密过程为 Base64_Decode(Rand_Decode(pas))
函数原型为:
Public Function Rand_Encode(ByVal x As String) As String 随机数加密，支持英文半角
Rand_Decode(ByVal x As String) As String 随机数解密，支持英文半角
Public Function Base64_Decode(ByVal strSource As String) As String Base64解密，支持中英文全半角
Public Function Base64_Encode(ByVal strSource As String) As String Base64加密，支持中英文全半角
Made with VB6.0 string encryption dll (with source code)! !
code.dll description:
This is a made by the VB dll files, it supports Base64 string and random number for encryption in two ways.
If you want to encrypt and decrypt mixed Chinese and English, can first use the Base64 encryption function, and then decrypt the random number.
Note that encryption and decryption is the reverse, such as the encryption process is Rand_Encode (Base64_Encode (str))
The decryption process is Base64_Decode (Rand_Decode (pas))
Function prototype is:
Public Function Rand_Encode (ByVal x As String) As String random number encryption, support for the English half-angle
Rand_Decode (ByVal x As String) As String decrypted random number to support the English half-angle
Public Function Base64_Decode (ByVal strSource As String) As String Base64 decryption, to support Chinese and English full half-width
Public Function Base64_Encode (ByVal strSource As Stri (2010-04-17, Visual Basic, 11KB, 下载17次)
[Windows编程] vb5examp
实现准直器装配的自动化，并可延伸到其它光学器件生产的自动化（驱动部分）。在理论上可证实插损最小处的间隙d，探测光斑w和最小插损IL之间是一一对应的关系。并可实现通过探测光斑来控制间隙来达到最小插损，从而改变PM+五维的手调方法。
The PIC-SERVO Motor ControlPIC-SERVO chipset providing servo control of DC motors with incremental encoders, including
trapezoidal and velocity profiling. The PIC-SERVO board may also be used with the PIC-SERVO
CMC chipset for multi-axis coordinated control. (2009-08-22, Visual Basic, 85KB, 下载11次)
[Windows编程] A_4
4. 给源代码加行号。要求：从C＃源代码文件中读出源代码，并显示出来；从源代码文件的第一行（using 语句）开始加上行号；并把加上行号的源代码保存在以“.bak”为扩展名的文件中。
4. To the source code line number increases. Requirements: C# source code from the document source code to read out and displayed from the source code files the first line (using words) to add line number to start and to add the source code line number to be saved in " . Bak" for extension of the file. (2009-07-06, Visual Basic, 34KB, 下载2次)
[Windows编程] btws
一个很好用的巴特沃斯滤波器参数选择工具，本人自己用VB设计的，本来是自己设计电路时用的，现分享给大家。
A good parameter to use the Butterworth filter selection tool, I own design using VB, it is its own when used in circuit design, it is for everyone to share. (2009-05-19, Visual Basic, 5KB, 下载22次)
[Windows编程] CapClip
剪贴板监控抓图程序:
实时监视剪贴板变化,按照给定的起始编号,将加贴板图片保存为连续编号的图片,可用于在线阅读电子书等抓图.
Grab clipboard monitoring procedures: real-time monitoring the clipboard changes, in accordance with the given initial number plate will add picture saved as a row of picture ID that can be used online to read e-books and other drawings. (2008-04-27, Visual Basic, 2KB, 下载11次)
[Windows编程] wqh
名字：wqh.exe
类型：感染性
是否加壳：是
壳型：UPX
大小：9.50 KB (9,728 字节)
版本：v1.0
原理：用API函数写的感染性病毒 。
说明：本病毒可以感染全盘exe文件。
清除程序是cq.exe，感染后运行不了exe类型。把cq.exe和cq.bat放到硬盘主目录。如：c:\ d:\ e:一个即可。运行cq.bat即可解除感染。
by 海的浪花 联系源码
QQ:283771780 hacker-hacekrs@163.com
Name: wqh.exe type: whether infectious加壳: Yes Shell: UPX Size: 9.50 KB (9728 bytes) version: v1.0 Principle: Using API function to write the infectious virus. Description: The virus can be infected with the overall exe file. Clear procedures are cq.exe, after infection can not run exe types. Cq.exe and cq.bat the home directory on the hard disk. Such as: c: d: e: a can. Cq.bat lifting operation can be infected. by the sea spray source contact QQ: 283771780 hacker-hacekrs@163.com (2007-11-10, Visual Basic, 11KB, 下载192次)
[Windows编程] SolverTable
这个是斯坦福大学商学院MBA教学用的Excel 集成的Visual Basicl语言编写的Solver软件，可以解决商业路径最优化问题
This is a Stanford University Business School MBA teaching Excel integration of the Visual Basi cl language prepared by the Solver software can solve business problems path optimization (2007-01-14, Visual Basic, 827KB, 下载13次)
[Windows编程] PKGLXT2006
排课问题实质上是时间、教师、班级、教室、课程这五维关系的冲突问题，要合理的解决这个问题首先要了解排课中的一些基本原则以及排课的一些基本要求。
Course Scheduling is essentially time, teachers, classes, classrooms, courses that the five-dimensional conflict, a reasonable solution to this problem we must first understand the time-some of the basic principles of time-some of the basic requirements. (2006-11-07, Visual Basic, 229KB, 下载91次)
[Windows编程] 030404_russia
一个俄罗斯方块控件，功能很不错。压缩包中包括了我们编写的一个实现基本功能的简单示例。控件中还有其他的功能，待你发掘。
a Rubik's cube control, function very well. Compression Package includes the preparation of our realization of the basic functions of a simple example. There are other control functions, you have to explore. (2004-11-23, Visual Basic, 38KB, 下载6次)