用VB实现对台风路径预报研究

以下是小编给大家收集的用VB实现对台风路径预报研究（共含3篇），欢迎大家前来参阅。同时，但愿您也能像本文投稿人“Rainnie”一样，积极向本站投稿分享好文章。

篇1：用VB实现对台风路径预报研究

用VB实现对台风路径预报研究

台风对国民经济和人民生活带来巨大损失,在台风预报中,台风路径预报居于首位,文中利用Visual BASIC可视化编程语言对就到的台风资料进行了可视化编程、显示,并对若干个例的结果进行了分析,对实际台风预报业务具有一定的参考价值.

作 者：梁忠 LIANG Zhong  作者单位：海军大连舰艇学院,辽宁,大连,116018 刊 名：海洋技术  PKU英文刊名：OCEAN TECHNOLOGY 年，卷(期)： 27(1) 分类号：P732 关键词：台风路径   Visual BASIC 数据分析  

篇2：用VB实现对库文件的分割备份

用VB实现对库文件的分割备份

用VB实现对库文件的分割备份

殷鹏

在设计信息管理程序时，数据库的软盘备份与恢复是我们经常遇到的'一个问题。如果仅仅使用文件复制指令，那么在文件大小超过软盘容量时，就会出现错误。下面我来介绍一种用VB实现的对文件进行分割备份的方法。假设在E:\CLASS目录下有一个名为CLASSES.MDB的文件，3.8M，我们现在要按照每个1.4M，把它分割成3个文件进行备份，然后，再恢复成CLASSES1.MDB文件。启动VB,新建一个工程，添加一个模块，将下列代码填入模块的声明中：

Type FileSection

Bytes As Byte

FileLen As Long

End Type

Type SectionedFile

Files() As FileSection

NumberOfFiles As Long

End Type

Type FileInfo

OrigProjSize As Long

OrigFileName As String

FileCount As Integer

FileStartNum As Long

End Type

然后，在Form1中添加两个按钮，分别命名为cmdBackup,Caption:“备份”；cmdRestore，Caption:“恢复”。

分别双击按钮，填入以下代码：

Private Sub cmdBackup_Click()

Dim SplitFileName As String '待备份的文件名

Dim Split As Long '备份文件的大小

Dim SaveName As String '备份文件名

Dim fNum As Integer '可用的文件号

Dim NumFil As Long '备份文件的数目

Dim FilesLen As Long '待备份文件的大小

Dim CurrentFile As SectionedFile '参数结构

SplitFileName = “e:\class\classes.mdb”

Split= 1400000

FilesLen = FileLen(SplitFileName)

fNum = FreeFile

Open SplitFileName For Binary As fNum '计算备份参数

NumFil = CInt(FilesLen /

Split)

ReDim CurrentFile.Files(1 To NumFil)

For i = 1 To NumFil

;          ReDim CurrentFile.Files(i).Bytes(1 To

Split)

CurrentFile.Files(i).FileLen = UBound(CurrentFile.Files(i).Bytes)

Next

For i = 1 To NumFil

Get #fNum, , CurrentFile.Files(i).Bytes

Next

ReDim CurrentFile.Files(NumFil).Bytes(1 To FilesLen - ((NumFil - 1) *

Split))

CurrentFile.NumberOfFiles = NumFil

Get #fNum, , CurrentFile.Files(NumFil).Bytes

CurrentFile.Files(NumFil).FileLen = UBound(CurrentFile.Files(NumFil).Bytes)

Close #fNum

For i = 1 To CurrentFile.NumberOfFiles '分割备份

SaveName = SplitFileName & “.” & Format(BeginningNumber - 1 + i, “00#”)

fNum = FreeFile

Open SaveName For Binary As fNum

Put #fNum, 1, CurrentFile.Files(i)

Close #fNum

Next

Dim FileInfoFile As FileInfo '相关数据写入临时文件

FileInfoFile.FileCount = NumFil

FileInfoFile.OrigFileName = SplitFileName

FileInfoFile.OrigProjSize = FileLen(SplitFileName)

FileInfoFile.FileStartNum = BeginningNumber

SaveName = SplitFileName & “.tpl”

fNum = FreeFile

Open SaveName For Binary As #fNum

Put #fNum, , FileInfoFile

Close #fNum

End Sub

Private Sub cmdRestore_Click()

Dim OutName As String '恢复后文件名

Dim fNum As Integer '可用的文件号

Dim tmpFileName As String '临时文件名

Dim File As SectionedFile '参数结构

Dim FileInfo As FileInfo '临时文件的结构

tmpFileName = “e:\class\classes.mdb.tpl”

OutName = “e:\class\classes1.mdb”

>    fNum = FreeFile

Open tmpFileName For Binary As #fNum '取得相关数据

Get #fNum, , FileInfo

Close #fNum

ReDim File.Files(1 To FileInfo.FileCount) '打开备份文件

For i = 1 To FileInfo.FileCount

OpenName = FileInfo.OrigFileName & “.” & Format((FileInfo.FileStartNum - 1 + i), “00#”)

fNum = FreeFile

Open OpenName For Binary As #fNum

Get #fNum, 1, File.Files(i)

Close #fNum

Next

fNum = FreeFile

Open OutName For Binary As #fNum '恢复

For i = 1 To FileInfo.FileCount

Put #fNum, , File.Files(i).Bytes

Next

Close #fNum

End Sub

运行该例程，点击“备份”按钮，用资源管理器看看E:\CLASS目录，可以看到分割后的三个文件：CLASSES.MDB.000、CLASSES.MDB.001、CLASSES.MDB.002，大小分别为：1.33M、1.33M、1.1M，还有一个存放参数的文件：CLASSES.MDB.TPL，大小：1K。点击“恢复”按钮，这些文件又被恢复成了CLASSES1.MDB。

以上程序在PWIN98、VB6环境下运行通过。需要的朋友可以加入拷贝到A盘等语句，这样，一个实用的备份与恢复程序就完成了。

作者：殷鹏

邮编：235000

地址：安徽省淮北市教育巷A栋706号

Email: yinpeng@21cn.com

篇3：人造台风模型及资料同化对T213L31模式台风路径预报能力的影响

人造台风模型及资料同化对T213L31模式台风路径预报能力的影响

利用2003年台风季节T213L31的12时10天预报分析了国家气象中心全球中期数值预报模式系统T213L31对台风路径的预报能力,并就如何改进其对台风路径的预报能力进行了探讨.结果表明,在台风季节,T213L31模式在近57%的预报中对台风路径有预报,但初始位置误差较大.没有预报的区域主要集中在13～20(N,120(E以东的台风生成较为集中的`地方,而此区域恰好不存在常规观测资料.对于目前仍采用OI分析的T213L31中期预报系统,常规观测资料在此区域的匮乏是其在此台风集中生成区预报能力较弱的主要原因.为了改进T213L31对台风路径的预报能力,本文就增加常规观测、加入人造台风模型进行了数值试验.试验结果显示,有限的常规观测对T213L31对台风的预报能力有明显提高.人造台风的加入无疑会改善T213L31在无常规资料区的预报,也会改善T213L31在资料较丰富地区的短期台风路径预报能力(36小时以内预报),而对较长时效预报的影响则有好有坏.

作 者：麻素红 王建捷 万丰 MA Su-hong WANG Jian-jie WAN Feng  作者单位：麻素红,MA Su-hong(中国科学院大气物理研究所,LASG,北京,100029;国家气象中心,北京,100081)

王建捷,万丰,WANG Jian-jie,WAN Feng(国家气象中心,北京,100081)

刊 名：热带气象学报  ISTIC PKU英文刊名：JOURNAL OF TROPICAL METEOROLOGY 年，卷(期)：2007 23(2) 分类号：P444 关键词：人造台风模型   T213L31模式   台风路径预报   观测资料   资料同化  

★ 军营文化建设路径研究论文

★ 用英文预报天气的参考语句

★ 毕节地区雷电监测、预报、预警方法研究

★ 工程经济管理的有效路径研究论文

★ 水利工程经济管理的有效路径研究论文

★ 实现中国经济持续发展的对策研究

★ 学生自主学习能力培养的路径及其实现

★ 对混凝土裂缝控制路径研讨论文

★ 无人机初始路径规划空间建模方法研究

★ 用网站实现你的赚钱梦想