自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

数字地质

用编制解决地质问题

  • 博客(18)
  • 资源 (1)
  • 收藏
  • 关注

原创 飞鸽传输、Locus、步行者坐标导航

给大家分享几个常用的手机app,关键时刻很顶用;1、飞鸽传输 v2.3.5    这个是安卓手机里使用的版本,可以和电脑里的飞秋完全兼容,支持聊天、互传文件等,只要设备在同一个局域网即可,非常简单好用,文件分享的利器。    下载地址:https://pan.baidu.com/s/1-D3RW5fChOd2LYdMXvWYwA2、Locus Map Pro v3.16.2    Locus是个赫...

2018-04-01 21:03:13 4297

原创 获取地球某点最新的磁偏角

地球的磁场是在不断变化中的,每时每刻磁偏角都在变化,所以我们现在使用的磁偏角过几年就会发生变化,很多童鞋在校正罗盘时都需要校正磁偏角,如何获取本地最新的磁偏角,这方面老美还是走在世界的最前沿,有两个地方可以查到,详见下: 1、美国国家地球物理数据中心历史地磁夹角查询 http://magnetic-declination.com/2、地磁偏角查询http://www.ngdc.

2014-01-02 20:50:10 23547

原创 将Excel2003的xls格式文件转换为kml及gpx文件(ExcelToKml)

       WGS84系统为GPS全球定位系统使用的坐标系,谷歌地球、手持GPS、带导航功能的手机以及车载GPS所用的其实都是WGS84系统,本软件可以将WGS84坐标下的经纬度坐标转换为谷歌地球(Google Earth)可以直接打开的kml和gpx交换文件,这些功能有很多软件均可以实现,比如mapsource、goodygis等,但使用起来均比较复杂,而本软件所提供的方法可以十分简单的就实现...

2013-11-15 11:19:28 9497 10

原创 利用Excel计算手持GPS校正参数DX、DY、DZ(支持批量计算)

      作为一名地质工作者,经常出野外,常常需要在不同的地方校正手持GPS,校正手持需要用到控制点的WGS84大地坐标和该点的北京54(或西安80)的直角坐标值,然后在电脑上利用“GPS帮帮”、“EasyPar”或者“Coord”等软件即可计算出DX、DY和DZ三个参数,将这三个参数输入手持GPS中即可完成校正,经纬度就可以显示为直角坐标了,这种方法成熟可靠,但在野外有时需要当场计算校正参数,...

2013-09-23 16:32:29 6805 1

原创 利用Excel VBA将坐标点直接转换为谷歌地球的kml格式文件(ExcelToKml)

谷歌地球使用的是WGS84坐标系统,美国的GPS系统使用的就是WGS84,换而言之,我们在野外所用的手持GPS、带导航功能的手机以及车载GPS所用的都是WGS84系统,本文所讲述的是利用Excel VBA将WGS84坐标下的经纬度坐标转换为谷歌地球(Google Earth)可以直接打开的kml文件,无需再进行转换,方便实用。

2013-09-23 16:20:57 14724 10

原创 C# socket 多线程多客户端简单实例

<br />原文地址:http://topic.csdn.net/u/20101223/13/80b09ec9-f40e-4e95-a9e0-d38abdfa3e2a.html<br /> <br />bool listenalive = true;private void ServerStart() { //创建IPEndPoint实例 IPEndPoint ipep = new IPEndPoint(IPAddress.Any,

2011-05-13 20:17:00 4319 1

转载 用Socket做简单聊天程序(VB.net)

<br />原文地址:http://blog.csdn.net/chendazhi/archive/2006/05/18/744130.aspx<br /> <br /><br />有位网友发贴问我一个聊天的问题,不好拒绝;也看到最近VB.net版问这个的人很多,就写了一个放在这里。<br />本例只适合初学用Socket编程的人,因而力求简单,让老鸟见笑了J<br />另本示例用的是vs2005<br />1、服务端<br />Imports System.Net<br />Imports System.

2011-05-12 22:21:00 1662

转载 用Socket做简单聊天程序(VB.net)

<br />原文地址:http://blog.csdn.net/chendazhi/archive/2006/05/18/744130.aspx<br /> <br /><br />有位网友发贴问我一个聊天的问题,不好拒绝;也看到最近VB.net版问这个的人很多,就写了一个放在这里。<br />本例只适合初学用Socket编程的人,因而力求简单,让老鸟见笑了J<br />另本示例用的是vs2005<br />1、服务端<br />Imports System.Net<br />Imports System.

2011-05-12 22:20:00 2118

转载 VB.NET环境下的Socket编程举例

<br />原文地址:http://track.cnblogs.com/archive/2005/09/26/244673.aspx<br />        一直以来很想学习Socket编程方面的应用,比如怎样通过Socket编程实现单片机与PC的TCP连接通信。在单片机嵌入网卡芯片与PC进行连接通信,实现PC的web方式对单片机所控制的设备的状态管理,例如智能家居方面的应用。<br />        下面通过例子来学习VB.NET中Net.Sockets类的应用,下面的程序分别分服务器和客户端两部分:

2011-05-12 21:26:00 9066 1

原创 VB WINSOCK state常数

<br />推荐方法:使用定时器(Timer)监视<br />Winsock 状态常数(如Winsock1.State)<br />'sckClosed 0 关闭状态 <br />'sckOpen 1 打开状态 <br />'sckListening 2 侦听状态<br />'sckConnectionPending 3 连接挂起 <br />'sckResolvingHost 4 解析域名 <br />'sckHostResolved 5 已识别主机 <br />'sckConnecting 6 正在连接

2011-05-05 20:41:00 3069

转载 用这个类可以替代VB自带的Timer控件

<br />原文地址:http://hi.baidu.com/qqool/blog/item/2bce35fa5488e21aa9d31167.html<br /> <br />用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权,用Timer的好处是避免控制权死锁,这样也就模拟出了多线程(实际上是多进程),能给用户更好的体验。代码如下:<br />        想直接使用的请到这里下载:http:/

2011-04-30 22:11:00 2396

原创 VB Inte控件 仿FlagshGet下载软件

<br />原文地址:http://hi.baidu.com/qqool/blog/item/2bce35fa0617301aa9d311f8.html<br /> <br />'添加inet控件和进度条控件:microsoft Intenet Transfer control和microsoft Windows common control选上<br />Dim FileSize As Double<br />Dim Buffers() As Byte<br />Private Sub Command1_

2011-04-30 20:59:00 1160

原创 DataSet 取值,DataSet行数,DataSet列数 从DataSet中取出特定值

<br />1 DataSet.Table[0].Rows[ i ][ j ]<br />        其中i 代表第 i 行数, j 代表第 j 列数 <br /> <br />2 DataSet.Table[0].Rows[ i ].ItemArray[ j ]<br />        其中i 代表第 i 行数, j 代表第 j 列数 <br /> <br />3 DataSet.Tables[0].Columns.Count<br />        取得表的总列数<br /> <br />4 D

2011-04-14 13:38:00 3655

原创 VB.NET Socket 入门(尚未整理完...)

服务端:Imports System.Collections.GenericImports System.ComponentModelImports System.DataImports System.DrawingImports System.LinqImports System.TextImports System.Windows.FormsImports System.NetNamespace WindowsFormsApplication1 Public Pa

2011-04-12 19:45:00 1788 1

原创 VB6 MSChart 将二维数组绘制为折线图

<br />mschart控件可以与数组相联系,直接显示数组的数据内容<br />例如:<br />在一过程中加入以下代码<br />Dim arrX(2, 2)'横坐标名称arrX(0, 0) = "第一"arrX(1, 0) = "第二"arrX(2, 0) = "disan"'第一条线arrX(0, 1) = 2arrX(1, 1) = 3arrX(2, 1) = 5'第二条线arrX(0, 2) = 8arrX(1, 2) = 7arr

2011-03-26 19:36:00 5495

原创 VB6 通过winsock控件数组实现客户端和服务器多对一通信

在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件使用winsock控件可以实现客户端和服务器间C/S结构的通信,如果把客户端和服务器放置于同一台电脑中,并且将客户端winsock的RemoteHost设置为本机IP,则可以实现客户端程序和服务端程序间的自由通信。在应用程序之间采用winsock通信比内存共享等方法更简单快捷,同时也更安全。在客户端中添加一个窗体,拖拽一个winsock控件到该窗体上。Private Sub Form_Load()Me.

2011-03-19 14:37:00 15987 9

转载 vb winsock 特殊字符接收和发送报文

用特殊字符作界定Dim MaxIndex As IntegerPrivate Sub Form_Load() wskServer(0).ListenEnd SubPrivate Sub wskServer_ConnectionRequest(Index As Integer, ByVal requestID As Long) MaxIndex = MaxIndex + 1 Load wskServer(MaxIndex) wskServer(M

2011-03-19 13:06:00 3131

原创 [基于VBA编写] 钻孔数据表(未完工)

钻孔数据表是一个基于MS-Excel平台采用VBA语言编写的表格,该表格可以辅助绘制钻孔柱状图。钻孔柱状图在地质行业里一直是一个让很多地质人员头疼的图件,因为该类图件数据量极大,而且采用手工绘制非常的耗时耗力,即使是一个深度仅有几百米的钻孔其柱状图里都可能含有数千条数据,如果用铅笔在图纸上一个个的写入会耗费很多时间。目前在地质行业里普遍采用手工绘制该图件然后再扫描导入电脑中以其为模板用

2009-12-29 10:36:00 1399 5

关于Spreadsheet 对象的方法、事件、属性

关于Spreadsheet 对象的方法、事件、属性的东东,在网上搜集的,txt格式的方便大家阅读,虽然内容不是很全,但还是比较有用的,希望大家喜欢。

2009-11-30

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除