请问怎么样才能将VBA的程序转成VB的呢？

luanjiajia 2001-12-28 04:46:53

...全文

158 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

luanjiajia 2001-12-28

打赏
举报

回复

看来我是要做苦力了。

cqq_chen 2001-12-28

打赏
举报

回复

将VBA的程序COPY到VB中，进行一定的修改就可以了。

why_wxb2002 2001-12-28

打赏
举报

回复

自己改,别无他法,我以前也做过.

本系统是基于VB的日出日落算法程序。下载完毕后请自己装个VB6.0软件（或者相关的软件）来运行。程序需要相关的软件（如VB6.0）才能运行。程序运行后，先选择好要计算的年、月、日，然后再选择相关城市名，接着再选择日出或日落时间，然后点击计算按钮即可。

问:为什么要自己做,不使用网上的现成工具? 答:因现在网上99%以上的PDF合并工具都是需要收费,或者要使用收费的破J版,或者是一些网页的在线服务不能上传和合并大批量的文件(这也涉及到文件的安全性)所以想着自己弄一个. 问:这款小工具能为工作解决那些问题? 答:开发这款小工具主要解决的问题是大批量打印PDF文件,平常在工作中我们常常需要打印大批量的PDF文件,我们通常的操作就是使用PDF阅读器,一个个打开然后,然后就是一个个点击打印(这是我知道的方式哈,有更简洁的方式请广大的网友分享一下,让我学习学习),这样就要耗费我们非常多的时间效率低下;我想到的方式就是使用程序一个个批量发送到打印机打印,但这种方式有一个弊端就是不稳定有可能会中断,然后就不知道自己打印到那一份文件了,同时几个人打印也容易被人插进来,导致文件错乱,不好分类;后来我就想到了一个方式就是把PDF一次性合并成一个文件,然后发送到打印机,这样就不怕中断,因它只是一个单一文件,同时打印别人也无法插进来,要等当前单个文件打印完成后别人才能插进来,文件也不会出现错乱,不用可以去分类,这就是开发这个小工具的意义所在.

系统维护中发现，有些软件不知什么原因需要重启才能正常功能，所以写了这个小软件，用来定时重启一下应用程序，一般能正常提供服务。绿色软件，所有设置写入 HKEY_CURRENT_USER\Software\VB and VBA Program Settings 下面。

加密狗系列—软件狗面向单机环境的低成本加密方案　软件狗是使用在计算机并行口和USB口上的用于软件保护的硬件产品。软件狗采用端口噪声技术，提供100字节的掉电保护存储器，具备反跟踪能力，是经济实用软件保护解决方案的首选。软件狗开发套件有两种选型：并口型和USB型。软件开发商可以采用多种方法保护软件，防止软件被非法拷贝使用。软件狗开发套件由：软件狗、加密接口、开发商工具等组成。 1.软件狗软件狗指安装在并口上或 USB 口上的硬件狗。软件狗是一个可编程、可读写的存储设备，具有 100 个字节的数据存储区。如果软件狗插在计算机上，您可以通过相应的加密接口函数或开发商工具对软件狗进行访问。 2.加密接口软件狗开发套件提供的加密接口是一套包含各种开发语言的程序接口模块，可以嵌在程序的源代码中。您可以在您程序中使用软件狗开发套件提供的加密接口对软件狗进行操作。 3.开发商工具（DogEdt32.EXE）软件狗开发商工具可以使开发商方便地对软件狗存储区进行编辑、读取系列号以及连续初始化等操作。工作原理：开发商程序通过调用软件狗开发套件提供的接口模块对软件狗操作，软件狗响应该操作并通过接口模块将相应数据返回给开发商程序。开发商程序可以对返回值进行判定并采取相应的动作。如果返回无效的响应，表明没有正确的软件狗，开发商可以将应用程序终止运行。简要示意如下：软件狗开发套件提供了两种加密方案：使用 Obj 、 DLL 、 ActiveX 控件或者直接使用外壳工具，请根据您的需求选择方案。加密方案一：使用 Obj 、 DLL 、 ActiveX 控件 Obj 、 DLL 、 ActiveX 控件提供了操作软件狗的接口函数，您可以直接在应用程序的源代码里加入这些接口函数的调用，来保护您的一个或者多个软件，然后重新编译您的应用程序。由您来设置应用程序中调用加密接口的次数以及没有发现软件狗采取的措施。原则上您调用、设置的加密接口越多将更有利于阻止潜在破坏您的软件保护。加密方案二：使用外壳工具使用外壳工具对软件保护是一种快速、简单的保护方案。它不象使用接口函数需要对源代码进行改动，而是自动给您的可执行应用程序加了一个保护层。在程序开始运行和运行当中会自动地访问软件狗是否存在。假如软件狗不存在，用户将看到一个错误提示，该应用程序将不能运行。产品特点：软件狗开发套件适用于 DOS 、 Windows 3X/9X/ME/NT/2000/XP 、 Linux 操作系统，支持几乎所有主流编程语言、开发工具。软件狗的主要特点如下：数据交换随机噪声技术有效地对抗逻辑分析仪及各种调试工具的攻击，完全禁止软件仿真程序模拟并口的数据。迷宫技术在 RC-DL 函数入口和出口之间包含大量复杂的判断跳转干扰代码，动态改变执行次序，提升 RC-DL 的抗跟踪能力。时间闸硬件狗内部设有时间闸，各种操作必须在规定的时间内完成。硬件狗正常操作用时很短，但跟踪时用时较长，超过规定时间，硬件狗将返回错误结果。 AS 技术 API 函数调用与 SHELL 外壳加密相结合的方式，同时使用能够达到极高的加密强度。 RC-DL 开发套件在外壳加密工具中与调用的 API 函数建立了对应关系。这样处理后，程序中调用的 API 函数只有在有外壳的情况下才能正确运行，而外壳本身隐蔽了对 API 函数的调用。抗共享可以通过编程的方式实现对抗并口共享器。存储器提供 100 字节掉电保持数据存储区供开发商存放关键数据、配置参数等信息，可通过 RC-DL 开发商工具或接口函数对存储区进行读写。改良的硬件驱动程序驱动程序的安装及发布更加方便、快捷，开发商只需使用 InstDrv.exe 安装驱动程序，硬件即可正常工作。崭新的硬件狗编辑工具 DogEdt32.exe 集成了原有 DogEdt32.exe 、 Reveal.exe 、 Convert.exe 三个工具，并新增错误码查询功能，令硬件狗编辑调试过程更趋简捷、顺畅。高强度动态库加密方式在原有加密方式基础上，新增 C 语言高强度动态库加密方式，并有效运用动态库认证安全机制，确保动态库调用具有无与伦比的安全可靠性。支持 ActiveX 控件开发商可以在网页中或 VB 、 VC 中使用 ActiveX 控件对硬件狗进行操作。 Linux 模块提供了针对 Linux 内核 2.2 和 2.4 版本驱动程序，开发商可以使用 Linux 模块保护运行于 Linux 操作系统上的应用程序。新增功能：软件狗开发套件 3.0 版新增功能在软件狗开发套件 V3.0 中，新增了与原并口硬件完全兼容的 UDA 型 USB 软件狗。 USB 软件狗也提供了 100 字节的用户存储区。新的开发商工具（ DogEdt32.EXE ）或接口函数既可以老的并口硬件，也可以对新的 USB 硬件进行操作。已安装了软件狗开发套件 V2.1 的老用户如要使用 UDA 型 USB 软件狗，必须重新安装软件狗开发套件 V3.0 ，以安装 UDA 型 USB 软件狗的驱动程序并更新开发套件的 OBJ 。开发商如果使用 WIN32 模块，在 Windows98 或更高版本（ WindowsME/2K/XP ）下既可以使用 USB 软件狗也可以使用并口软件狗。目前暂不提供 USB 软件狗在 Windows NT4 上的驱动程序，即在 Windows NT4 操作系统上，目前只能使用并口软件狗。在安装 Linux2.4 以上内核的 Linux 系统中，既可以使用并口软件狗也可以使用 USB 软件狗。 WIN16 、 DOS16 、 DOS32 模块本次没有改动，仍只支持并口软件狗。软件狗开发套件目前最新版本为 v3.0 支持并口硬件 RC-DL （现已更名为 PDL ） , 支持 USB 口硬件 UDA 适用语言环境：并口型软件狗： DOS16: C ， C++, FORTRAN, ASM, Pascal, BASIC ( BASCOM, Quick,True, Turbo ) , FOXPRO, Clipper, Foxbase, Dbase, EXE/COM 文件；DOS32: C, C++ ( High, NDP, Watcom ), FORTRAN ( NDP, PowerStation,Watcom) ， EXP 文件； Win16: C, C++ ( Borland, Visual ), Visual BASIC, FOXPRO, PowerBuilder,Delphi Win32: C, C++ ( Visual, Borland, C++Builder, MFC ), FORTRAN ( LAHEY,PowerStation, Visual ), Java, VisualBasic, VisualFoxpro, PowerBuilder,Delphi,JavaScript, VBScript, VBA, InstallShield, AutoCAD, .NET 等。 Linux: C, C++, Java USB 型软件狗： Win32: C, C++ ( Visual, Borland, C++Builder, MFC), FORTRAN ( LAHEY, PowerStation, Visual ), Java, VisualBasic, VisualFoxpro, PowerBuilder, Delphi , JavaScript, VBScript, VBA, InstallShield, AutoCAD, .NET 等等。 Linux: C, C++, Java 适用操作系统：并口型软件狗： DOS ， Windows 3.x / 9x / ME / NT / 2000 / XP / Sever 2003 LINUX (Red hat 内核 2.2 / 2.4) USB 型软件狗： Windows 98 / ME / 2000 / XP / Sever 2003 LINUX (Red hat 内核 2.2 / 2.4) 开发商升级注意事项：并口 RC-DL （现已更名为 PDL ）型软件狗的软件软件狗开发套件 V3.0 与原 DJ/DK 完全兼容，即使用软件狗开发套件 V3.0 的驱动程序、模块及工具，可以正常操作 DJ/DK 型软件狗。所以建议使用原 DJ/DK 软件的开发商将您的驱动程序、模块及工具全部用软件狗开发套件 V3.0 （光盘版）套件升级。如果您仍旧使用原有的 DI/DJ/DK 驱动程序、模块及工具，在 DOS 、 Windows 9X/NT/2000 下对 RC-DL 只能做读操作，写操作将失败。如果您不想改动已发行的软件，而还要使用 RC-DL 型软件狗，只升级驱动程序也可以，但您的程序必须是 WIN32 程序。如果您加密的程序是 DOS16 、 DOS32 或 WIN16 程序，您必须升级新的模块及工具，否则将无法对 RC-DL 型软件狗进行写操作。使用方法： 1.对 EXE 文件 ( 或 COM 文件 ), 利用配套软件中的 EXE 文件加密工具加密。 2 对数据库文件 (PRC 、 FOX 、 APP 、 DBF), 利用配套软件中的加密工具加密。 3 对于 C 语言及其它编译型语言，配套软件中提供可链接的模块文件 (OBJ 文件 ) ，模块文件中提供两个函数 :(1) 写数据 ; ⑵读数据。开发商可在要加密软件的源码中加入适当的调用语句，对软件狗进行读写操作，以确定对应的软件狗是否存在，从而决定程序是否继续运行。对加入软件狗函数调用的源程序编译后，链接时加上软件狗的模块文件 (OBJ) 即可。

如果您常发表科技性文章及论文，并且有众多的数据要变成XYZ 3D图形，那 Surfer 可以为您节省大量的时间，不必浪费昂贵的人工去做苦力。所以Surfer成为全世界使用最多的数据式XYZ 3D绘图软件，最热门、功能最强的3D科学绘图软件。 1、Surfer 9（Surfer 9 supports grids up to 32767 rows and columns!）比Surfer8支持的最大网格尺寸10000行和列提高到32767行和列。（对超大量数据的网格化是一个好消息，比如高程数据体一般都是近亿的数据量） 2、使用了Tabbed（标签）窗口，在工作区顶部显示标签，打开的多个图形窗口，只需要简单点击标签就可切换不同窗口，切换窗口操作更为方便。 3、提供图层功能（类似以前的Overlay功能）（图1），可以在对象管理器中很方便地对图层进行操作，图层的图形现在支持透明显示（图2），这是增加的比较令人激动的功能。对于不同对象之间也提供了类CorelDraw的群组功能，越来越向专业绘图软件靠近了（就是以前的Combined）。 4、在状态栏中显示x、y、z的值。 5、在多边形的属性中的信息一项中，显示多边形的面积和周长（图4），现在可以方便计算某一个区的面积了（只是还得需要造一个多边形区来查看它的属性才能得到这些信息，以后会不会像其他软件一样，直接有一个面积和长度的快捷按钮，谁知道呢。）。 6、支持的格式越来越多（图54），令我感到高兴的是直接支持GeoSoft Montaj的网格文件了。 7、可以随意更换base Map中bln文件了（图6），以前的版本是不可以，如果想要更新Base图，还得删除这个图件，打开bln文件重新做base图。 8、图形的色标设置更为方便，有预设好的色标可以使用（图7），并且还很漂亮（希望以后有类似Montaj的等值线色标按面积等分自动设置功能）。 9、在相同坐标系中，不同图形之间cursor tracking功能（图8）。 10、等值线图的显示类似Pdf文档中的圆滑字角功能，使图形看起来更漂亮。很遗憾的是Surfer9还是没有提供人们最需要的投影转换功能和图形坐标校正功能，即在图形中任意显示和切换经纬度坐标和直角坐标（并能在不同带中自动拼图）。这些是测量方面的东西，是不是对它要求的太高了呢。但做为一个绘图软件，没有投影转换是不是很遗憾。图形规格与种类： --Contour Maps 可做等高线图,结果可输出成3D DXF --3D Wireframe Maps 可做三维网格图 --3D Surface Maps 可做三维表面图 --Post Maps 可做三维张贴图文字标注 --Shaded Relief Maps 可做阴影图,具有相片质量. --Image Maps 可做影像图, 可以做细腻的色阶处理 --Vector Maps 可做向量图, --Base Maps 可输入底图以便搭配3D图型 --Overlap Maps 可将图型重迭 --Overlap Maps 可将地面影像图与3D Surface重迭 --Gridding 可选择多种方格化功能 --Output 图型输出可选CGM、DXF、BMP、GIF、EPS、HPGL等 --Worksheet 数据输入可用Lotus、Excel、ASCII --Text 文字可用上下标、数学符号、线型符号、颜色都可定义 --可以和Grapher搭配,将剖面结果输出成Grapher之XY图形 --以上皆有教学动画范例本软件快速上手： 1.开启Surfer,Open Excel文件,输入XYZ三组数据,一般来说Column A为X, Column B为Y, Column C为Z 2.网格化Grid,Datat,选取要网格化的Excel文件,网格化完毕后存成.GRD文件 3.选择要画的MAP图形,如Contour Map等高线图,选取.GRD档就会看到结果.就是这么简单! --若您要更改设定,往图形中央快点两下,即会显示出参数设定窗口. FAQ： 1.如何将等高线图上的数据存入文件中吗? --开启SURFER -> 开启 .GRD文件 -> GRID -> GRID NODE EDITOR，SAVE AS -> ASCII XYZ (.DAT) 2.SURFER 有Curve Fitting函数的功能吗? --没有,TableCurve 3D具有此功能. 3.三维表面图可与三维点图合并在一起吗? --不可以,TableCurve 3D具有此功能. 4.可以将Surfer的轮廓线剖开,取出其Z值吗? --可以 Grid -> Slice (.bln文件) 5.可以求取Surfer的体积吗? --可以 Grid -> Volumn. 6.可以将Surfer某部分不要画出来吗? --可以 Grid -> Blank (.bln文件) 7.可以将数个Surfer图重迭吗? --可以 Map -> Overlay Maps ; Stack Maps 8.可以将Grid档缩小吗? --可以 Grid -> Extract 9.可以直接用函数画z=f(x,y)的曲面吗? --可以 Grid -> Function 10.可以画向量图? 如电磁场,热流场,风向图等. --a.如果数据是X,Y,Z. 其中X,Y,是平面几何坐标,Z是物理量(如平板上的压力) ----Gridding后 Map -> Vector Map -> New 1-Grid Vector 即可 ----这是最基本的平面坐标向量图,直接以物理量Z值为向量图依据. --b.如果数据是X,Y,Z,Z1 ----其中Z1是位于X,Y,Z上之物理量(如台湾各地的压力). ----您必须做两个Gridding后才能开始用New 1-Grid Vector ----X,Y,Z 几何位置用(当底图用,可以立体显示) ----X,Y,Z1 物理量 --c.如果数据是X,Y,Z,X1,Y1 ----其中X1,Y1是位于X,Y,Z上之x,y向量分量(如台湾各地的风速及风向). ----您必须做三个Gridding后才能开始用New 2-Grid Vector ----X,Y,Z 几何位置用(当底图用,可以立体显示) ----X,Y,X1 x向量分量 ----X,Y,Y1 y向量分量 --d.如果您的数据是X,Y,Z,Angle,Length ----其中Angle,Length是位于X,Y,Z上之向量角度及大小.做法同c. 11.如何画Surfer的Breaklines and Faults? --可以 Grid -> Advanced options -> Breaklines and Faults (.bln文件要含Z值) 12.可以在Surfer上做程序吗? --可以,Surfer内建Surfer Script, 类似VB 13.可以在Excel上设计程序吗? --透过Excel的VBA,可以同时控制Surfer和Excel 14.Surfer的等高线动画是如何做的? --可运用Sufer2GIF的Windows模块,或whirlgif 程序Unix. 15.如果三维数据不等距,Surfer可以处理吗? --可以,Surfer专门处理此类问题 16.我有看到一张台湾的图,周边有海洋的温度等高线图,温度线不会穿过台湾如何做? --首先您先要有一张台湾的底图(.gsb,dxf..),再用Blank(.bln)遮掉Taiwan底图. 17.请问bln格式? length,flag x1,y1 x2,y2 ... xn,yn length,flag x1,y1 x2,y2 ... xn,yn 17.如果我想要在等高线图上放对应的高度文字该如何? --用Post Map 文件格式如下 x1,y1,label1 x2,y2,label2 ... xn,yn,label3 18.请问.GRD档可以直接编辑? --若是Surfer预设的.GRD是可编辑的,GRID/GRID NODE EDITOR.如果存成GS ASCII的.GRD可以用小作家编辑. 文件格式如下 DSAA 5 5 0 2 6 8 0 6 1 2 3 4 5 5 4 3 2 1 4 2 1 3 5 3 5 4 2 1 2 4 1 5 3 DSSA Xn Yn Xmin Xmax Ymin Ymax Zmin Zmax Z11,Z12,Z13,Z14,Z15 .... Z51,Z52,Z53,Z54,Z55 19.请问Surfer可以做三角图的等高线和影像图吗? 网络上有,我不会,作者Jeff告诉我如下 I used the ternary diagram feature in Grapher to plot the points shown on the figure. I then created a file of thermal conductivity values based on the mineralogical composition and mapped these points to an x-y grid which I contoured in Surfer. As I recall,I also created a blanking file in surfer to match the shape of the ternary diagram. I then pasted the Surfer contour plot into Grapher. 另外我们台湾的核能所黄万芬小姐有用Grapher写出三角图的等高线. 20.请问Surfer有提供曲线套配功能? 有,基本设定是Z=AX+BY+C的平面方程式若您想其它请到GRID/Gridding Method/Polynomial Regression/Surface Definition 您甚至可以自订高阶的多项式函数 21.我想查任一X,Y的Z值,可以吗? 可以直接在GRID/GRID NODE EDITOR即可. 或MAP/Digitize 22.我的Blank图形要有被Blank的线,该如何做您可以将Blank的.bln档当Base Map,再予以Overlap Maps即可 23.Blank可以用几次不限次试,如此可以让您做很复杂的Blank图形 24.Surfer有网络版? 是的,Surfer也可以装到网络上 25.Surfer有PDF文件有,但必须由购买者申请,原厂才会给 26.曲面上可以迭上XY的图? 可以Base Map + Overlay Maps 即可 Base Map必须由Grapher产生 27.曲面上可以加上一些空间上的点? 很困难必须透过Base Map + Overlay Maps的技巧 28.等高线可以有Log轴? 没有,但可以和Grapher一起使用就可以有

2,462

社区成员

10,807

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章