完善资料让更多小伙伴认识你,还能领取20积分哦, 立即完善>
抱歉我的游泳池英语。
我会尽力解释我的问题。 我想要做的是当我按下按钮时,它将打开一个文件并从E5071c获取数据。 第一次从E5071c获取数据的部分很好,但是当我第二次按下按钮时,它会显示“文件已经打开”我尝试使用“for / when”让pragram只打开一次文件, 但它不起作用任何人都可以帮助我,非常感谢!!!! 我使用的程序如下所示Private Sub CommandButton1_Click()Dim c As Integer Dim i As Integer'打开文件写入数据MyFile =“D: marker”+“。xls”fnum = FreeFile()打开MyFile For Output 作为#fnum'读取标记X轴值X_val = SCPI.CALCulate(2).SELected.MARKer(1).X'写入X轴值Print #fnum,“Frequency =”+ CStr(X_val); “Hz”'从Traces&读取标记。 标记1-4并将数据写入文件For i = 1 To 4 for c = 1 to 4 SCPI.CALCulate(2).PARameter(i).SELect mVal = SCPI.CALCulate(2).SELected.MARKer(c)。 Y打印#fnum,“跟踪”+ CStr(i)+“,”; “Marker:”+ CStr(c); “”+ CStr(mVal(0)); “”下一个c下一个我打印#fnum,“--------------------------------------- -------------------------“End Sub”退出Private Sub CommandButton2_Click()End End Sub 以上来自于谷歌翻译 以下为原文 Sorry about my pool english. I will do my best to explane my question. What i want to do is when i press button , it will open a file and get data from E5071c. The part of Getting data from E5071c is fine in the first time , but when i press button the second time , it will show "file already open" i try to use "for / when " to let the pragram only open a file once,but it doesn't work Can anybody help me , thanks very much!!!! The program what i use as below Private Sub CommandButton1_Click() Dim c As Integer Dim i As Integer 'Open a file to write the data MyFile = "D:marker" + ".xls" fnum = FreeFile() Open MyFile For Output As #fnum 'Read Marker X axis value X_val = SCPI.CALCulate(2).SELected.MARKer(1).X 'Write X axis value Print #fnum, "Frequency = " + CStr(X_val); "Hz" 'Read the markers from Traces & marker 1-4 and write data to file For i = 1 To 4 For c = 1 To 4 SCPI.CALCulate(2).PARameter(i).SELect mVal = SCPI.CALCulate(2).SELected.MARKer(c).Y Print #fnum, "Trace " + CStr(i) + ", "; "Marker:" + CStr(c); " " + CStr(mVal(0)); "" Next c Next i Print #fnum, "----------------------------------------------------------------" End Sub 'exit Private Sub CommandButton2_Click() End End Sub |
|
相关推荐
1个回答
|
|
亲爱的每个人,我找到一种方法来解决这个问题,我改变开放追加,加上最后关闭,程序可以重写现在非常感谢!!!
以上来自于谷歌翻译 以下为原文 Dear everybody i find a way to fix this problum, i change open to append and plus close in the end and the program can Rewrite now thanks a lot !!! |
|
|
|
只有小组成员才能发言,加入小组>>
1085 浏览 0 评论
2308 浏览 1 评论
2097 浏览 1 评论
1971 浏览 5 评论
2841 浏览 3 评论
847浏览 1评论
关于Keysight x1149 Boundary Scan Analyzer
619浏览 0评论
N5230C用“CALC:MARK:BWID?”获取Bwid,Cent,Q,Loss失败,请问大佬们怎么解决呀
720浏览 0评论
1407浏览 0评论
1085浏览 0评论
小黑屋| 手机版| Archiver| 电子发烧友 ( 湘ICP备2023018690号 )
GMT+8, 2024-10-4 05:17 , Processed in 1.569668 second(s), Total 78, Slave 61 queries .
Powered by 电子发烧友网
© 2015 bbs.elecfans.com
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 (电路图) 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证:合字B2-20210191 工商网监 湘ICP备2023018690号