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

客戶端APP下載

論文輔導(dǎo)

調(diào)劑小程序

登錄注冊

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

24小時熱門版塊排行榜

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

返回列表

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

jiashaoxiong

木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 4518.8
散金: 37
紅花: 1
帖子: 339
在線: 503.4小時
蟲號: 552186
注冊: 2008-04-28
性別: GG
專業(yè): 無機非金屬類電介質(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ù)此樓

» 猜你喜歡

309求調(diào)劑已經(jīng)有8人回復(fù)
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有8人回復(fù)
求調(diào)劑已經(jīng)有5人回復(fù)
求化學(xué)調(diào)劑已經(jīng)有5人回復(fù)
085600，材料與化工321分求調(diào)劑已經(jīng)有10人回復(fù)
0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分已經(jīng)有5人回復(fù)
一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑已經(jīng)有3人回復(fù)
085600，專業(yè)課化工原理，320分求調(diào)劑已經(jīng)有4人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有16人回復(fù)
290求調(diào)劑已經(jīng)有3人回復(fù)

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

VB解釋已經(jīng)有3人回復(fù)
絕對立體構(gòu)型的確證問題已經(jīng)有6人回復(fù)
請教一個數(shù)據(jù)非線性擬合的問題已經(jīng)有11人回復(fù)
非線性最小二乘法編程問題已經(jīng)有8人回復(fù)
大腸桿菌發(fā)酵問題已經(jīng)有28人回復(fù)
一個從來沒有編程經(jīng)驗的人，你們覺得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)機計算機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的回帖

jiashaoxiong

木蟲 (正式寫手)

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

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

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

這是一個過程：

Sub stab()

Sleep (300)

cmd = "OFLT 9" + Chr(10)

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

Sleep (2000)

Sleep (2000)

Sleep (2000)

End Sub

這個是一個通過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的回帖

查看全部 6 個回答

gcssg1

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 773.6
散金: 8
沙發(fā): 2
帖子: 154
在線: 29.8小時
蟲號: 1117373
注冊: 2010-10-09
性別: GG
專業(yè): 傳動機械學(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的回帖

recen

木蟲 (文壇精英)

宅！宅！宅！宅出韭菜來

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

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

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

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

過程：共 1 個，如下；
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的回帖

劉昭然

新蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 217.7
散金: 8
帖子: 52
在線: 6.9小時
蟲號: 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 個回答

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

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

[考研] 085600 286分材料求調(diào)劑 +10	麻辣魷魚 2026-03-27	11/550	2026-03-29 21:52 by nanaliuyun
[考博] 26申博自薦 +6	whh869393 2026-03-24	6/300	2026-03-29 21:05 by nxgogo
[考研] 材料學(xué)碩333求調(diào)劑 +11	北道巷 2026-03-24	11/550	2026-03-29 08:31 by fmesaito
[考研] 085701求調(diào)劑初試286分 +4	secret0328 2026-03-28	4/200	2026-03-28 21:09 by 15366876211
[考研] 071000生物學(xué)求調(diào)劑，初試成績343 +7	小小甜面團 2026-03-25	7/350	2026-03-28 20:25 by 唐沐兒
[考研] 291求調(diào)劑 +15	hhhhxn.. 2026-03-23	21/1050	2026-03-28 11:26 by self2008
[考研] 0856，材料與化工321分求調(diào)劑 +12	大饞小子 2026-03-27	13/650	2026-03-28 10:56 by self2008
[考研] 085405 考的11408求各位老師帶走 +3	Qiu學(xué)ing 2026-03-28	3/150	2026-03-28 09:19 by 樂呵呵的追夢人
[考研] 材料求調(diào)劑一志愿哈工大總分298分，前三科223分 +5	dongfang59 2026-03-27	5/250	2026-03-28 04:53 by wxiongid
[考研] 求調(diào)劑推薦材料 304 +15	荷包蛋hyj 2026-03-26	15/750	2026-03-28 04:13 by fmesaito
[考研] 330一志愿中國海洋大學(xué) 化學(xué)工程 085602 有讀博意愿求調(diào)劑 +3	wywy.. 2026-03-27	4/200	2026-03-28 03:32 by fmesaito
[考研] 考研調(diào)劑 +4	Sanmu-124 2026-03-26	4/200	2026-03-27 17:49 by kiokin
[考研] 07化學(xué)280分求調(diào)劑 +10	722865 2026-03-23	10/500	2026-03-27 15:51 by Plutoqq
[考研] 085600，材料與化工321分調(diào)劑 +4	大饞小子 2026-03-27	6/300	2026-03-27 14:11 by 松花缸1201
[考研] 調(diào)劑 +3	李嘉圖·S·路 2026-03-27	3/150	2026-03-27 11:19 by wangjy2002
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +4	崔wj 2026-03-26	4/200	2026-03-27 08:04 by chemisry
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3	江往賣魚 2026-03-26	3/150	2026-03-26 09:42 by 王小欠i
[考研] 網(wǎng)絡(luò)空間安全0839招調(diào)劑 +4	w320357296 2026-03-25	6/300	2026-03-25 17:59 by 255671
[考研] 344求調(diào)劑 +3	desto 2026-03-24	3/150	2026-03-24 10:09 by 搏擊518
[考研] 269求調(diào)劑 +4	我想讀研11 2026-03-23	4/200	2026-03-23 21:25 by pswait

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

24小時熱門版塊排行榜

jiashaoxiong

[交流] 【求助】VB問題

» 猜你喜歡

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

jiashaoxiong

gcssg1

recen

劉昭然

加油！

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

加油！