Dim imarks% Private Sub form_load() imark = 1 End Sub Private Sub cmdcancel_Click() Dim i% For i = 1 To imark dis(i) = 0: deth(i) = 0 Next i frmmain.txtshow.Text = "水准计算结果" Unload Me End Sub Private Sub cmdok_Click() dist = Val(txtdist.Text): dh = Val(txtdeth.Text) Call adddata(imark, dist, dh) Public Sub adddata(imark As Integer, dist As Single, dh As Single) dis(imark) = dist: deth(imark) = dh frmmain.txtshow.Text = frmmain.txtshow.Text & "第" & Str(imark) & "站:" & vbCrLf frmmain.txtshow.Text = frmmain.txtshow.Text & " & 距离:" & dis(imark) & " 高差中数:" & deth(imark) & vbCrLf If imark >= nmarks Then frminput.Hide Else txtdist.Text = "": txtdeth.Text "": txtdist.setfoucs End If frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站" imark = imark + 1 frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站" End Sub Private Sub cmdcheckcalc_Click() Dim totaldeth!, closedeth!, tdist#, i% End Sub Private Sub optannex_Click() txtendpoint.Enabled = optannex.Value End Sub Private Sub optclose_Click() txtendpoint.Enabled = Not optclose.Value End Sub Private Sub optspur_Click() txtendpoint.Enabled = Not optspur.Value End Sub Dim startpoint!, ENDPOINT! Private Sub txtendpoint_LostFocus() If Not IsNumeric(txtendpoint.Text) Then MsgBox "输入的高程含有非数字字符!" txtendpoint.Text = "": txtendpoint.SetFocus Exit Sub End If If Val(txtendpoint.Text) > 5000 Or Val(txtendpoint.Text) < -100 Then MsgBox "输入的高程有误!" txtendtpoint.Text = "": txtendtpoint.SetFocus Exit Sub End If ENDPOINT = Val(txtendtpoint.Text) End Sub

关于modbus 调试用的工具的源代码，针对串口通讯。

包括灰度直方图，卷积运算，平滑锐化，二值化等处理，彩色通道变化，图像旋转缩放

是关于动态规划的一个VB代码 基本情况是一个水库为城市供水，如何有效供水.具体可参考董增川170页动态规划实现算法代码。

不使用任何控件，使用API实现的PING功能，可快速判断IP地址是否联网。

Win10能用的VB6.0简体中文精装 + VB代码窗口使用滚轮的说明

basepic.dll是自己封装了几个opencv的识别方面的函数. 随带VB的使用例子

EAN-13码、ITF-14码等的校验位计算，计算的原则：利用偶三奇一和，再进行下一步的运算。写的是最简单的vb代码。

利用VB进行摄影测量的空间后方交会编程。

一个非常完整的汽车维修管理的数据库系统，采用SQL数据库，vb源码。