版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

jiashaoxiong

木虫 (正式写手)

应助: 0 (幼儿园)
金币: 4518.8
散金: 37
红花: 1
帖子: 339
在线: 503.4小时
虫号: 552186
注册: 2008-04-28
性别: GG
专业: 无机非金属类电介质与电解

[交流] 【求助】VB问题

VB的一段程序

CODE:

DoEvents

        DoEvents

        For j = 1 To hnum

        Sleep (300)

        cmd = "HARM" + str(Harmset(j)) + Chr(13)

        flag = ibwrt(8, cmd, Len(cmd))

        Sleep (300)

        cmd = "SENS " + str(senset(1, j)) + Chr(13)

        flag = ibwrt(8, cmd, Len(cmd))

        Sleep (1000)

        cmd = "OFLT 7" + Chr(10)

        flag = ibwrt(8, cmd, Len(cmd))

        Call stab

        For i = 1 To fnum

        Sleep (500)

        cmd = "SENS " + str(senset(i, j)) + Chr(13)

        flag = ibwrt(8, cmd, Len(cmd))

        Sleep (500)

        cmd = "FREQ" + str(Freqset(i)) + Chr(13)

        flag = ibwrt(8, cmd, Len(cmd))

        Call stab

        cmd = "OUTP ? 3" + Chr(13)

        flag = ibwrt(8, cmd, Len(cmd))

        Sleep (1000)

        flag = ibrd(8, cmd, 48)

        Sleep (500)

        r(i, j) = Val(cmd)

        Sleep (500)

        cmd = "OUTP ? 4" + Chr(13)

        flag = ibwrt(8, cmd, Len(cmd))

        Sleep (1000)

        flag = ibrd(8, cmd, 48)

        Sleep (500)

        th(i, j) = Val(cmd)

        If r(i, j) > 0.8 * range(senset(i, j)) Then

         senset(i, j) = senset(i, j) + 1

         ElseIf r(i, j) < 0.1 * range(senset(i, j)) Then

         If senset(i, j) > 11 Then

            senset(i, j) = senset(i, j) - 1

         End If

        End If

    Next i

    Next j

    cmd = "temp?    " + Chr(10)

        Sleep (300)

        flag = ibwrt(7, cmd, Len(cmd))

        Sleep (300)

        flag = ibrd(7, cmd, 48)

        v = Val(cmd)

可否解释一下这程序是啥意思？

[ Last edited by nono2009 on 2010-10-30 at 15:28 ]

回复此楼

» 猜你喜欢

职称评审没过，求安慰已经有36人回复
A期刊撤稿已经有4人回复
垃圾破二本职称评审标准已经有17人回复
回收溶剂求助已经有6人回复
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿已经有22人回复
申请26博士已经有5人回复
EST投稿状态问题已经有7人回复
毕业后当辅导员了，天天各种学生超烦已经有4人回复
求助文献已经有3人回复
投稿返修后收到这样的回复，还有希望吗已经有8人回复

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2010-10-27 20:48:10

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

gcssg1

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 773.6
散金: 8
沙发: 2
帖子: 154
在线: 29.8小时
虫号: 1117373
注册: 2010-10-09
性别: GG
专业: 传动机械学

jiashaoxiong(金币+1): 2010-12-11 09:36:49

我是初学者，无能为力啊

赞一下

回复此楼

心事浩茫连广宇，于无声处听惊雷

2楼2010-10-28 21:02:07

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

recen

木虫 (文坛精英)

宅！宅！宅！宅出韭菜来

程序强帖: 2
应助: 6 (幼儿园)
贵宾: 3.344
金币: 3068.1
散金: 17266
红花: 66
沙发: 218
帖子: 30506
在线: 3532.3小时
虫号: 1127777
注册: 2010-10-20
性别: GG
专业: 音乐

★
nono2009(金币+1):鼓励交流 2010-10-30 15:29:39
jiashaoxiong(金币+5): 2010-12-11 09:37:13

这个类似于伸出一条腿让别人猜自己的名字了.（这只是可能）
这里有以下自定义的函数或过程：

函数：共 6 个，如下；
Harmset、ibwrt、senset、Freqset、ibrd、range

过程：共 1 个，如下；
stab

常量：8、7、0.8、0.1、11

不知道这些东西的意思，还不敢乱猜

赞一下(1人)

回复此楼

3楼2010-10-29 12:40:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jiashaoxiong

木虫 (正式写手)

应助: 0 (幼儿园)
金币: 4518.8
散金: 37
红花: 1
帖子: 339
在线: 503.4小时
虫号: 552186
注册: 2008-04-28
性别: GG
专业: 无机非金属类电介质与电解

nono2009:编辑内容 2010-10-30 15:29
nono2009:建议通使用“引用回复该帖”，不然别人收不到你的回复提示。 2010-10-30 15:29:30

这个确实是一个程序的一部分，不过整个的太多。

CODE:

Declare Function ibinit Lib "gpib.dll" (ByVal ioport As Long, ByVal myaddr As Long, ByVal syscfg As Long) As Long

Declare Function ibwrt Lib "gpib.dll" (ByVal nAddr As Long, ByVal str As String, ByVal ustrlen As Long) As Long

Declare Function ibrd Lib "gpib.dll" (ByVal nAddr As Long, ByVal str As String, ByVal ustrlen As Long) As Long

Declare Function ibifc Lib "gpib.dll" () As Long

Declare Function ibeol Lib "gpib.dll" (ByVal nAddr As Long, ByVal nOEolMode As Long, ByVal pOEolStr As String, ByVal nOEolStrLen As Long, ByVal nIEolMode As Long, ByVal nIEolByte As Long) As Long

Declare Function ibdclr Lib "gpib.dll" (ByVal nAddr As Long) As Long

Declare Function ibllo Lib "gpib.dll" () As Long

Declare Function iblocal Lib "gpib.dll" (ByVal nAddr As Long) As Long

Declare Function ibppl Lib "gpib.dll" () As Long

Declare Function ibpplc Lib "gpib.dll" (ByVal nAddr As Long, ByVal nCfg As Long) As Long

Declare Function ibpplu Lib "gpib.dll" (ByVal nAddr As Long) As Long

Declare Function ibren Lib "gpib.dll" (ByVal nAddr As Long) As Long

Declare Function ibspl Lib "gpib.dll" (ByVal nAddr As Long) As Long

Declare Function ibsts Lib "gpib.dll" (ByVal nCfg As Long) As Long

Declare Function ibtout Lib "gpib.dll" (ByVal uTimeIntvl As Long) As Long

Declare Function ibtrg Lib "gpib.dll" (ByVal nAddr As Long) As Long

Declare Function ibcmd Lib "gpib.dll" (ByVal str As String, ByVal leng As Long) As Long

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public temperature As Single

Public tstart As Single

Public tstop As Single

Public tstep As Single

Public timestart As Single

Public timenow As Single

Public cmd As String * 96

Public r(1 To 4, 1 To 4) As Single

Public th(1 To 4, 1 To 4) As Single

Public range(0 To 25) As Single

Public Freqset(1 To 4) As Single

Public Harmset(1 To 4) As Integer

Public fnum As Integer

Public hnum As Integer

Public senset(1 To 4, 1 To 4) As Integer

这是一些函数声明。

这是一个过程：

Sub stab()

Sleep (300)

cmd = "OFLT 9" + Chr(10)

flag = ibwrt(8, cmd, Len(cmd))

Sleep (2000)

Sleep (2000)

Sleep (2000)

End Sub