ECOGRP_LOGGER(温度関連)(1)

ECOGRP_LOGGER(温度関連)(2)

ECOGRP_LOGGER(温度関連)(3)

ECOGRP_LOGGER(温度関連)(4)

ECOGRP_LOGGER(温度関連)(5)

ECOGRP_LOGGER(温度関連)　温度関連ソースコード

============================= ''温度子機設定データの読み出し" Case "TW" Form17.Text8.Text = Mid(strRXData, 3, 1) & Format(Val(Mid(strRXData, 4, 3) / 10), "00.0") Form17.Text2.Text = Mid(strRXData, 7, 1) & Format(Val(Mid(strRXData, 8, 3) / 10), "00.0") strRxCmnd = "" Form17.StatusBar1.Panels(2) = " 読み取り完了" Case "TK" Form17.StatusBar1.Panels(2) = " ﾃﾞｰﾀ設定完了 " Form18.StatusBar1.Panels(2) = " ﾃﾞｰﾀ設定完了 " Case "TQ" Form18.Text1.Text = Mid(strRXData, 3, 2) strRxCmnd = "" Form18.StatusBar1.Panels(2) = " 読み取り完了" Form17 制御温度範囲設定 ============================= Private Sub Command2_Click() '' 親機への温度範囲設定読み込みｺﾏﾝﾄﾞの送信 'Form1.MscPort.Output = sSTA & "TR" & "ID" & sEND Form1.DoSend sSTA & "TR" & "ID" & sEND End Sub Private Sub Command1_Click() '' Dim i As Integer Dim K As Integer Dim strTX_Dat1 As String Dim strTX_Dat2 As String Dim strTX_Data As String Dim ANS As String Dim STRMSG As String Dim strDat_1 As String Dim strDat_2 As String Dim strDat_3 As String Dim strDat_4 As String Dim strDat_5 As String Dim strDat_6 As String '' '' 親機への温度範囲設定書き込みｺﾏﾝﾄﾞの送信 strTX_Data = "" strDat_1 = Left(Text8.Text, 1) strDat_2 = Mid(Text8.Text, 2, 4) '' If Left(strDat_1, 1) = "+" Or Left(strDat_1, 1) = "-" Then strDat_3 = Trim(Str((Val(strDat_2) * 10))) strTX_Dat1 = strDat_1 & Format(strDat_3, "000") Else STRMSG = "データの異常です" ANS = MsgBox(STRMSG, vbOKCancel + vbExclamation + vbDefaultButton2, "設定データ異常") GoTo exit_a End If '' strDat_4 = Left(Text2.Text, 1) strDat_5 = Mid(Text2.Text, 2, 4) '' If Left(strDat_4, 1) = "+" Or Left(strDat_4, 1) = "-" Then strDat_6 = Trim(Str((Val(strDat_5) * 10))) strTX_Dat2 = strDat_4 & Format(strDat_6, "000") Else STRMSG = "データの異常です" ANS = MsgBox(STRMSG, vbOKCancel + vbExclamation + vbDefaultButton2, "設定データ異常") strTX_Dat1 = "" GoTo exit_a End If '' strTX_Data = strTX_Dat1 & strTX_Dat2 '' 親機への設定データの送信 'Form1.MscPort.Output = sSTA & "TC" & strTX_Data & "ID" & sEND Form1.DoSend sSTA & "TC" & strTX_Data & "ID" & sEND StatusBar1.Panels(2) = " 書き込み中" strSTatus_DAT1 = " 書き込み中" exit_a: End Sub ================================================================ Form18 温度センサー番号 ============================= Private Sub Command3_Click() ''読み取りコマンドの送信 'Form1.MscPort.Output = sSTA & "TQ" & "ID" & sEND Form1.DoSend sSTA & "TQ" & "ID" & sEND StatusBar1.Panels(2) = "データの読み込み中" End Sub Private Sub Command2_Click() Dim strF_Data As String Dim strTx_Dat As String Dim DAT1 As Integer '' strTx_Dat = Format(Text1.Text, "00") 'Form1.MscPort.Output = sSTA & "TP" & strTx_Dat & "ID" & sEND Form1.DoSend sSTA & "TP" & strTx_Dat & "ID" & sEND '' ステータスバーへの表示 StatusBar1.Panels(2) = "データの書込み中" '' End Sub ================================================================ Private Sub mscPort_OnComm() Dim strDAT1 As String Dim strDAT2 As String Dim strDAT3 As String Dim strDAT5 As String Dim varBuffer As Variant Dim strDmPw As String Dim strAMP_Dat As String Dim strLSD_Amp As String Dim StrEsPw As String Dim StrDosa_Mod As String Dim StrCNTR As String Dim strFile_name As String Dim i As Integer Dim t As Integer Dim K As Integer Dim P As Integer Dim strBias As String Dim strMod As String Dim strCMND_2 As String Dim strRx_Cmnd2 As String Dim Seasn_Dat As String Dim Zone_Dat As String Dim Seasn_Wjet As String Dim Zone_Wjet As String Dim Holiday_Dat As String '' Select Case MscPort.CommEvent Case comEvCD '' CD ﾗｲﾝの状態が変化しました Case comEvCTS '' CTS ﾗｲﾝの状態が変化しました Case comEvDSR '' DSR ﾗｲﾝの状態が変化しました Case comEvRing '' ﾘﾝｸﾞｲﾝｼﾞｹｰﾀの状態が変化しました Case comEvReceive '' RThreshold ﾌﾟﾛﾊﾟﾃｲで指定されたﾊﾞｲﾄ数を受信しました '' 1ﾊﾞｲﾄのﾃﾞｰﾀ受信割り込み varBuffer = MscPort.Input '' sSTA receive OK ?? If Rxmode_1 = 0 Then .......... Else .......... '' Select Case strCMND_2 　 .......... .......... ''温度子機設定データの読み出し" Case "TW" Form17.Text8.Text = Mid(strRXData, 3, 1) & Format(Val(Mid(strRXData, 4, 3) / 10), "00.0") Form17.Text2.Text = Mid(strRXData, 7, 1) & Format(Val(Mid(strRXData, 8, 3) / 10), "00.0") strRxCmnd = "" Form17.StatusBar1.Panels(2) = " 読み取り完了" '' Case "TK" Form17.StatusBar1.Panels(2) = " ﾃﾞｰﾀ設定完了 " Form18.StatusBar1.Panels(2) = " ﾃﾞｰﾀ設定完了 " '' Case "TQ" Form18.Text1.Text = Mid(strRXData, 3, 2) strRxCmnd = "" Form18.StatusBar1.Panels(2) = " 読み取り完了" '' Case "KK" strRxCmnd = "" strSTatus_DAT1 = " 子機ﾃﾞｰﾀ設定完了" '' Case "KS" strRxCmnd = "" Form16.Command1.Caption = Mid(strRXData, 3, 2) Form16.Text3.Text = Mid(strRXData, 5, 2) Form16.Command7.Caption = Mid(strRXData, 9, 2) strDAT1 = Mid(strRXData, 7, 2) Select Case strDAT1 Case "00" strDAT2 = " 4800" Case "01" strDAT2 = " 9600" Case "02" strDAT2 = "19200" Case "03" strDAT2 = "38400" Case "04" strDAT2 = "56700" End Select Form16.Combo1.Text = strDAT2 strSTatus_DAT1 = " 子機設定ﾃﾞｰﾀ読み取り完了" '' Case "KM" strRxCmnd = "" strSTatus_DAT1 = " ﾓﾆﾀｰﾃﾞｰﾀ消去中" '' Case "KE" strRxCmnd = "" strSTatus_DAT1 = " ﾓﾆﾀｰﾃﾞｰﾀ消去完了" '' Case "ID" Label19.Caption = "ID ﾃﾞｰﾀ設定完了" Form10.StatusBar1.Panels(2) = " ID ﾃﾞｰﾀ設定完了" Form5.StatusBar1.Panels(2) = " ID ﾃﾞｰﾀ設定完了" Form6.StatusBar1.Panels(2) = " ID ﾃﾞｰﾀ設定完了" Form7.StatusBar1.Panels(2) = " ID ﾃﾞｰﾀ設定完了" Form11.StatusBar1.Panels(2) = " ID ﾃﾞｰﾀ設定完了" Form13.StatusBar1.Panels(2) = " ID ﾃﾞｰﾀ設定完了" Form24.StatusBar1.Panels(2) = " ID ﾃﾞｰﾀ設定完了" '' Case "EX" Label19.Caption = "設定完了" Form10.StatusBar1.Panels(2) = " 設定完了" End Select '' Select Case strRxCmnd ''子機通信速度の設定完了 Case "R" Form15.StatusBar1.Panels(2) = " 設定完了" '' １日毎のﾃﾞﾏﾝﾄﾞﾃﾞｰﾀの受信 Case "M" Call Save_Demand_Data Case "Y" Call Save_CHNO ''ﾛｸﾞﾃﾞｰﾀ の受信終了 "OK" ｺﾏﾝﾄﾞ受信後 ﾛｸﾞﾃﾞｰﾀ要求の再送信ﾁｪｯｸ Case "O" Call Check_TX_Demand ''CT_level Case "P" 　 　 .......... 　 .......... '' Form11.Text1.Text = strDAT1 & strDAT2 & strDAT3 Form11.Text2.Text = Mid(strRXData, 7, 3) Form11.StatusBar1.Panels(2) = " 取り込み完了" ''NO.2 制御条件ﾃﾞｰﾀ Case "D" 　 　 .......... If LOG_MODE = 0 Then Label21.Caption = " 通信中" Else: End If strDAT3 = "" ''第二制御条件ﾃﾞｰﾀの受信 Form5.MSFlexGrid1.HighLight = flexHighlightNever Form5.StatusBar1.Panels(2) = " 読み取り完了" For i = 0 To 23 Select Case i Case 0 K = 1: t = 1 Case 1 K = 1: t = 2 Case 2 K = 2: t = 1 Case 3 K = 2: t = 2 Case 4 K = 3: t = 1 Case 5 K = 3: t = 2 Case 6 K = 4: t = 1 Case 7 K = 4: t = 2 Case 8 K = 5: t = 1 Case 9 K = 5: t = 2 Case 10 K = 6: t = 1 Case 11 K = 6: t = 2 Case 12 K = 7: t = 1 Case 13 K = 7: t = 2 Case 14 K = 8: t = 1 Case 15 K = 8: t = 2 Case 16 K = 9: t = 1 Case 17 K = 9: t = 2 Case 18 K = 10: t = 1 Case 19 K = 10: t = 2 Case 20 K = 11: t = 1 Case 21 K = 11: t = 2 Case 22 K = 12: t = 1 Case 23 K = 12: t = 2 End Select '' strDAT3 = Mid(strRXData, 2 + i * 3, 3) Form5.MSFlexGrid1.TextMatrix(K, t) = strDAT3 & " _秒" Select Case strDAT3 Case "000" Form5.MSFlexGrid1.TextMatrix(K, t) = "休止" Case "999" Form5.MSFlexGrid1.TextMatrix(K, t) = "連続" End Select Next i '' Form5.MSFlexGrid1.HighLight = flexHighlightAlways Form5.MSFlexGrid1.Col = 1 Form5.MSFlexGrid1.Row = 1 .......... ''''''1秒毎に送られて来る電流値ﾃﾞｰﾀ等 -- .......... ''動作状態の表示 .......... '' 10秒に一度の送信データ .......... '' 機械番号と日付 .......... ''季節条件の受信 .......... ''第一季節時限帯の受信 .......... ''第二季節,３４季節時限帯の受信 .......... ''基本制御条件の受信 .......... ''水噴射 子機基本動作条件の読み取り .......... '' 第一季節４時限帯制御条件と曜日別制御条件 .......... ''通常子機 基本動作条件の読み取り .......... '' 第一季節４時限帯制御条件と曜日別制御条件 .......... ''曜日別制御ON/OFF設定 .......... ''DSP設定ﾃﾞｰﾀの受信 .......... .......... End Select End Sub

ECOGRP_LOGGERまとめ−画面1

温度範囲設定

ECOGRP_LOGGERまとめ−画面2

温度センサー番号の設定

ECOGRP_LOGGERまとめ−画面3

温度データの取得（？）

親機/中継器なしのPC-温度子機 直接接続(1)

親機/中継器なしのPC-温度子機 直接接続(2)

親機/中継器なしのPC-温度子機 直接接続(3)

(EcoSurveiダウンロードページはここをクリック)