版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

jiashaoxiong

木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 4518.8
散金: 37
紅花: 1
帖子: 339
在線: 503.4小時(shí)
蟲號: 552186
注冊: 2008-04-28
性別: GG
專業(yè): 無機(jī)非金屬類電介質(zhì)與電解

[交流] 【求助】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 ]

回復(fù)此樓

» 猜你喜歡

085601材料工程找調(diào)劑已經(jīng)有11人回復(fù)
總分293求調(diào)劑已經(jīng)有9人回復(fù)
334分一志愿武理材料求調(diào)劑已經(jīng)有5人回復(fù)
327求調(diào)劑已經(jīng)有6人回復(fù)
329求調(diào)劑已經(jīng)有10人回復(fù)
275求調(diào)劑已經(jīng)有15人回復(fù)
291求調(diào)劑已經(jīng)有6人回復(fù)
309求調(diào)劑已經(jīng)有7人回復(fù)
297求調(diào)劑已經(jīng)有11人回復(fù)
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有6人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:

VB解釋已經(jīng)有3人回復(fù)
絕對立體構(gòu)型的確證問題已經(jīng)有6人回復(fù)
請教一個(gè)數(shù)據(jù)非線性擬合的問題已經(jīng)有11人回復(fù)
非線性最小二乘法編程問題已經(jīng)有8人回復(fù)
大腸桿菌發(fā)酵問題已經(jīng)有28人回復(fù)
一個(gè)從來沒有編程經(jīng)驗(yàn)的人，你們覺得VB作為入門語言怎么樣？已經(jīng)有23人回復(fù)
【求助】vb.net中調(diào)用外部程序的問題已經(jīng)有3人回復(fù)
【討論】談?wù)剬B的想法（本人屬于菜鳥級別）歡迎大家拍磚已經(jīng)有78人回復(fù)
【求助】VB如何讀取txt文件~~ 已經(jīng)有12人回復(fù)
關(guān)機(jī)計(jì)算機(jī)2級考試的問題已經(jīng)有4人回復(fù)
【交流】VC++, C#, VB答疑專貼已經(jīng)有145人回復(fù)
cys，VB1，泛酸鈣，生物素溶液的滅菌和貯存已經(jīng)有11人回復(fù)

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

recen

木蟲 (文壇精英)

宅！宅！宅！宅出韭菜來

程序強(qiáng)帖: 2
應(yīng)助: 6 (幼兒園)
貴賓: 3.344
金幣: 3068.1
散金: 17266
紅花: 66
沙發(fā): 218
帖子: 30506
在線: 3532.3小時(shí)
蟲號: 1127777
注冊: 2010-10-20
性別: GG
專業(yè): 音樂

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

這個(gè)類似于伸出一條腿讓別人猜自己的名字了.（這只是可能）
這里有以下自定義的函數(shù)或過程：

函數(shù)：共 6 個(gè)，如下；
Harmset、ibwrt、senset、Freqset、ibrd、range

過程：共 1 個(gè)，如下；
stab

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

不知道這些東西的意思，還不敢亂猜

贊一下(1人)

回復(fù)此樓

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 6 個(gè)回答

gcssg1

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 773.6
散金: 8
沙發(fā): 2
帖子: 154
在線: 29.8小時(shí)
蟲號: 1117373
注冊: 2010-10-09
性別: GG
專業(yè): 傳動(dòng)機(jī)械學(xué)

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

我是初學(xué)者，無能為力啊

贊一下

回復(fù)此樓

心事浩茫連廣宇，于無聲處聽驚雷

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

jiashaoxiong

木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 4518.8
散金: 37
紅花: 1
帖子: 339
在線: 503.4小時(shí)
蟲號: 552186
注冊: 2008-04-28
性別: GG
專業(yè): 無機(jī)非金屬類電介質(zhì)與電解

nono2009:編輯內(nèi)容 2010-10-30 15:29
nono2009:建議通使用“引用回復(fù)該帖”，不然別人收不到你的回復(fù)提示。 2010-10-30 15:29:30

這個(gè)確實(shí)是一個(gè)程序的一部分，不過整個(gè)的太多。

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

這是一些函數(shù)聲明。

這是一個(gè)過程：

Sub stab()

Sleep (300)

cmd = "OFLT 9" + Chr(10)

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

Sleep (2000)

Sleep (2000)

Sleep (2000)

End Sub

這個(gè)是一個(gè)通過GPIB控制電流表測電流的一部分程序。

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

贊一下(1人)

回復(fù)此樓

4樓2010-10-29 16:02:28

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

劉昭然

新蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 217.7
散金: 8
帖子: 52
在線: 6.9小時(shí)
蟲號: 1145539
注冊: 2010-11-13
專業(yè): 鋼鐵冶金

加油！

jiashaoxiong(金幣+1): 2010-12-11 09:37:23

我也是新手，學(xué)習(xí)啦

贊一下

回復(fù)此樓

6樓2010-12-11 08:42:22

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 6 個(gè)回答

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑 +8	舉個(gè)栗子oi 2026-03-24	9/450	2026-03-29 13:08 by peike
[考研] 291求調(diào)劑 +4	Y-cap 2026-03-29	4/200	2026-03-29 10:16 by lbsjt
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +6	崔wj 2026-03-26	6/300	2026-03-29 01:11 by hanserlol
[考研] 0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分 +4	Shern—- 2026-03-28	4/200	2026-03-29 00:47 by 544594351
[考研] 一志愿北化085600材料專碩275\|有文章專利｜求調(diào)劑 +7	Micky11223 2026-03-25	7/350	2026-03-28 18:34 by 無際的草原
[考研] 081200-314 +3	LILIQQ 2026-03-27	4/200	2026-03-28 09:41 by 保護(hù)地球你我做?/a>
[考研] 311求調(diào)劑 +3	希望上岸阿小楊 2026-03-23	3/150	2026-03-28 07:57 by 熱情沙漠
[考研] 085404求調(diào)劑，總分309，本科經(jīng)歷較為豐富 +4	來財(cái)aa 2026-03-25	4/200	2026-03-28 07:41 by 棒棒球手
[考研] 材料求調(diào)劑一志愿哈工大總分298分，前三科223分 +5	dongfang59 2026-03-27	5/250	2026-03-28 04:53 by wxiongid
[考研] 307求調(diào)劑 +8	超級伊昂大王 2026-03-24	9/450	2026-03-27 15:34 by 超級伊昂大王
[考研] 085600材料與化工調(diào)劑 +10	A-哆啦Z夢 2026-03-23	16/800	2026-03-27 15:13 by caszguilin
[考研] 279 分求調(diào)劑 +4	睡個(gè)好覺_16 2026-03-24	4/200	2026-03-27 15:05 by 醉在風(fēng)里
[考研] 298調(diào)劑 +3	jiyingjie123 2026-03-27	3/150	2026-03-27 11:57 by wxiongid
[考研] 0703化學(xué)一志愿南京師范大學(xué)303求調(diào)劑 +3	zzffylgg 2026-03-24	3/150	2026-03-27 10:42 by shangxh
[考研] 343求調(diào)劑 +4	贈(zèng)我一本書 2026-03-23	4/200	2026-03-27 00:40 by wxiongid
[考研] 生物技術(shù)與工程 +3	1294608413 2026-03-25	4/200	2026-03-25 18:02 by 1294608413
[考研] 網(wǎng)絡(luò)空間安全0839招調(diào)劑 +4	w320357296 2026-03-25	6/300	2026-03-25 17:59 by 255671
[考研] 一志愿北化315 求調(diào)劑 +3	akrrain 2026-03-24	3/150	2026-03-24 19:35 by 了了了了。。
[論文投稿] 急發(fā)核心期刊論文 +3	賢達(dá)問津 2026-03-23	5/250	2026-03-23 17:13 by 妹子不好惹
[考研] 328求調(diào)劑 +4	LHHL66 2026-03-23	4/200	2026-03-23 14:55 by lbsjt

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時(shí)熱門版塊排行榜

jiashaoxiong

[交流] 【求助】VB問題

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:

recen

gcssg1

jiashaoxiong

劉昭然

加油！

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:

加油！