vb+surfer开个帖子，用的人应该挺多才对

mofangbao

surfer论坛目前国内还没有，希望能把这里做成国内主流的surfer论坛，有信心和一定时间的朋友欢迎和我联系！
这是前几天群里的朋友想要的，现在在这里贴出来：
VB+SURFER的一个小例子

部分代码预览

1. 
   
2. Private Sub cmdRun_Click()
   
3. Dim strInFile, strGridFile, strOutFile As String
   
4. On Error Resume Next
   
5. With dlgCommon1
   
6. .DialogTitle = "打开数据文件"
   
7. .Flags = 0
   
8. .CancelError = True
   
9. .FileName = ""
   
10. .Filter = "数据文件 (*.txt;*.dat;*.xls)|*.txt;*.dat;*.xls"
    
11. .ShowOpen
    
12. If Len(.FileName) = 0 Then '如果没有文件名则退出
    
13. Exit Sub
    
14. End If
    
15. strInFile = .FileName '获取选中的文件名
    
16. End With
    
17. strGridFile = Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".grd" '把扩展名改为.grd
    
18. Set objSurfer = CreateObject("Surfer.Application") '创建Surfer对象
    
19. objSurfer.Visible = False 'surfer软件本身不在前台显示
    
20. objSurfer.GridData DataFile:=strInFile, Algorithm:=srfKriging, _
    
21. DupMethod:=srfDupNone, ShowReport:=False, OutGrid:=strGridFile '把离散的数据文件转换为格网文件
    
22. Set objPlot = objSurfer.Documents.Add(srfDocPlot) '创建srf文档
    
23. 'Set objMapFrame = objPlot.Shapes.AddContourMap(strGridFile) '创建等值线图并添加到文档
    
24. Set objMapFrame = objPlot.Shapes.AddSurface(strGridFile)    '可实现三维图
    
25. objPlot.Export FileName:=Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".emf" '输出bmp
    
26. Picture1.Picture = LoadPicture(Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".emf") '显示bmp
    
27. End Sub
    
28. Private Sub Form_Unload(Cancel As Integer)
    
29. objSurfer.Quit
    
30. Set objSurfer = Nothing
    
31. End Sub
    

<br /> Private Sub cmdRun_Click()<br /> Dim strInFile, strGridFile, strOutFile As String<br /> On Error Resume Next<br /> With dlgCommon1<br /> .DialogTitle = "打开数据文件"<br /> .Flags = 0<br /> .CancelError = True<br /> .FileName = ""<br /> .Filter = "数据文件 (*.txt;*.dat;*.xls)|*.txt;*.dat;*.xls"<br /> .ShowOpen<br /> If Len(.FileName) = 0 Then '如果没有文件名则退出<br /> Exit Sub<br /> End If<br /> strInFile = .FileName '获取选中的文件名<br /> End With<br /> strGridFile = Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".grd" '把扩展名改为.grd<br /> Set objSurfer = CreateObject("Surfer.Application") '创建Surfer对象<br /> objSurfer.Visible = False 'surfer软件本身不在前台显示<br /> objSurfer.GridData DataFile:=strInFile, Algorithm:=srfKriging, _<br /> DupMethod:=srfDupNone, ShowReport:=False, OutGrid:=strGridFile '把离散的数据文件转换为格网文件<br /> Set objPlot = objSurfer.Documents.Add(srfDocPlot) '创建srf文档<br /> 'Set objMapFrame = objPlot.Shapes.AddContourMap(strGridFile) '创建等值线图并添加到文档<br /> Set objMapFrame = objPlot.Shapes.AddSurface(strGridFile)    '可实现三维图<br /> objPlot.Export FileName:=Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".emf" '输出bmp<br /> Picture1.Picture = LoadPicture(Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".emf") '显示bmp<br /> End Sub<br /> Private Sub Form_Unload(Cancel As Integer)<br /> objSurfer.Quit<br /> Set objSurfer = Nothing<br /> End Sub<br />

全部附件下载：
vb surfer.rar (22.45 KB, 下载次数: 262)

2011-6-28 11:34 上传

点击文件名下载附件

miceyou

用vb实现surfer绘制风场的代码有吗？

mofangbao

miceyou 发表于 2011-7-5 08:03

                               
登录/注册后可看大图

用vb实现surfer绘制风场的代码有吗？

我不用vb，希望有能结合的朋友来担任版主，所以我还没有这个代码呢:lol

miceyou

{:soso_e113:}

majunlu

支持一下～～我也不会

传说中的谁

如果可以加上对插值经纬度范围以及格点分辨率的设置就更加完美了。

majunlu

:):):)支持

qhzx星星

业务当中非常有用！

qhzx星星

qhzx星星 发表于 2011-7-8 17:54

                               
登录/注册后可看大图

业务当中非常有用！

一定要要好好学习哦

CQKK

这个我也要学学