【VB源码】MICAPS数据自动制作天气讲解PPT

孤蓝et · 发表于 2012-1-17 11:02:50

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由孤蓝et 于 2022-11-18 21:22 编辑

数据要求：需要Micaps数据，其中包含high/plot，surface/plot，ecmwf/rh，ecmwf/uv，ecmwf/height四个数据路径。一般气象局都会将micaps数据作为虚拟磁盘映射，所以我觉得在气象局应该很容易找到这些数据，只需要修改代码路径下的配置文件，改为虚拟磁盘的路径就行了。。。这个需要因地制宜吧。
工程依赖：Meteoinfo v1.0.3,并更新至2012-1-16日最新的dll文件，具体见meteoinfo论坛版块。另外可以去meteoinfo版块自己下载制作分省地图。
涉及知识：【1】vb下载网页图片；【2】vb利用VBA语句操作ppt；【3】meteoinfo脚本使用；【4】暂时没有了。。。
编译要求：代码需要解压缩到d:\micaps2ppt目录运行编译。因为其中会涉及到meteoinfo脚本读取一些路径，我没有动态更新到app.path，所以这一点请大家注意，要不然就不能得到运行结果咯。运行一般耗时20s吧，我自己调试的环境是Win7+VB6+office2010能够通过，大家自己可以试试。
使用方法：代码目前我是使用windows自带计划任务定时执行本程序来完成业务化运行的。本程序无前台，仅需后台执行，源代码调试过程中可能出现假死状态，稍等片刻，等程序执行完成后即可恢复正常。
本程序代码除去云图下载不可用（因为下载云图的地址是我内网的地址），其他代码保证100%可用，本源代码只是一个简单的偷懒方法，里面没有什么技术含量的，大家可以通过代码了解下vb操作ppt的相关方法，其他的代码部分仅供娱乐之用。
源代码：

祝使用好运。
以下是自动脚本制作的图形：

MeteoInfo · 发表于 2012-1-17 11:32:39

这是我见到的目前用MeteoInfo脚本做得最好的产品，赞一个！

孤蓝et · 发表于 2012-1-17 11:55:26

MeteoInfo 发表于 2012-1-17 11:32

登录/注册后可看大图

这是我见到的目前用MeteoInfo脚本做得最好的产品，赞一个！

版主过奖过奖了，主要功劳还是强大的meteoinfo啊。
主要是不常用python，所以只好用vb实现这些，东西还很粗糙。不过正在进行业务试运行，后面在修正下产品图的类型，积极支持meteoinfo，呵呵。

mofangbao · 发表于 2012-1-17 13:57:33

项目嫉妒没有恨，哈哈，坚决顶起！

时光飞逝 · 发表于 2012-1-17 15:11:42

谢谢分享！！！！！！！11

Forcast · 发表于 2012-1-17 16:48:39

先顶，能把它们用起来弄在一块完成应用，这也是要有技术含量的！

qxtlyf · 发表于 2012-1-17 23:30:47

太好了，学学

baiduwenku · 发表于 2012-1-20 19:07:08

希望MeteoInfo 的产品越来越好。

浩瀚ヤ星↗辰 · 发表于 2012-2-10 11:12:59

偶像``````````````

huayun123 · 发表于 2012-2-25 23:07:57

赞一个！学习学习

		自动登录	找回密码
密码			立即注册

【VB源码】MICAPS数据自动制作天气讲解PPT

登录后查看更多精彩内容~

评分