1、Dim DATA!, tep!, temp1!, c!, pretep!, newsp!Dim RetVal As Long, IPAddress As String Dim wID%, wModuleName%，Dim sp!, b!, f%, oupt!, st%, a%, d!, z!Dim wGain(0 To 9) AsegerDim wHex(0 To 15) Aseger, fValue(0 To 15) As DoubleDim byData(0 To 127) As Byte, wData(0 To 63) AsegerPrivate Subd2_Click()Timer1.

2、Enabled = False Timer2.Enabled = False IPAddress = byData(1) = 0到加熱電路開關的數組RetVal = ADAMTCP_Write6K入到模塊的函數,斷開加熱電路 Label4.Caption = 待檢測 Label6.Caption = 待檢測 Label8.Caption = 待檢測End Sub定義寫入PAddress, 6050, 1, 1, 1, byData(1)主機開關變量Private Subd1_Click()Timer1.Enabled = TrueTimer3.Timer1.erval = 1000erval

3、= 50005秒一次檢測End Sub Private Subd3_Click()Timer1.Enabled = False Timer2.Enabled = False IPAddress = byData(1) = 0RetVal = ADAMTCP_Write6K Label4.Caption = 待檢測 Label6.Caption = 待檢測 Label8.Caption = 待檢測 EndEnd SubPAddress, 6050, 1, 1, 1, byData(1) Private Subz = 2 End Subd5_Click()Private Sub Form_Load

4、() temp1 = 0z = 1RetVal = ADAMTCP_Open()庫打開模塊函數IPAddress = RetVal = ADAMTCP_Connect(IPAddress, 502, 2000, 2000, 2000) If RetVal ThenBeepMsgBox Cant connect + IPAddress ADAMTCP_CloseUnload Me End If wGain(7) = 9wModuleName = 6017主機和模塊連接不知道什么量? ?1, wGain(0), wHex(0),RetVal = ADAMTCP_Read6KAI(IPAddress

5、,wModuleName,fValue(0)DATA = fValue(7)tep = (DATA - 4) * 100.8 / 16算實際溫度b = tep End SubPrivate Sub Form_Unload(Cancel As ADAMTCP_Disconnect ADAMTCP_CloseUnload MeEnd Sub設定輸入通道根據電熱偶輸出電流計eger)Private Sub Timer1_Timer() IPAddress = wGain(7) = 9wModuleName = 6017控制過程 RetVal = ADAMTCP_Read6KAI(IPAddress,

6、wModuleName,1, wGain(0), wHex(0),fValue(0)DATA = fValue(7)tep = (DATA - 4) * 100.8 / 16Label4.Caption = tepLabel10.Caption = tep - temp1 temp1 = tep顯示實際溫度Line (a / 180 * 1344 + 1200, -b * 23.6 + 6240)-(st / 180 * 1344 + 1200, -tep * 23.6 + 6240),RGB(205, 16, 26)用紅線根據坐標位置劃出實際溫度線b = tepu1 = z實際與設定差值Li

7、ne (a / 180 * 1344 + 1200, -d * 23.6 * 3 + 6240)-(st / 180 * 1344 + 1200, -u1 * 23.6 * 3 +6240), RGB(0, 0, 255)用藍色線根據加熱時間和坐標位置劃出控制曲線d = u1Call appedatfile1 Label8.Caption = u1a = st顯示加熱時間Timer2.erval =byData(1) = 1(u1) * 1000)將加熱時間賦值給計時器 2 PAddress, 6050, 1, 1, 1, byData(1)接通加熱電路RetVal = ADAMTCP_Write6K Timer2.Enabled = TrueEnd SubPrivate Sub Timer2_Timer() byData(1) = 0RetVal = ADAMTCP_Write6K Timer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer() st = st + 1 Label6.Caption = stEnd SubSub appedatfile1()時間到斷開加熱電路 PAddress, 6050, 1, 1, 1, byD