CAS CI 시리즈 인디케이터 통신프로그램 V1.0.11

2012-01-05 부터 제작 중...


카스 CI 시리즈 인디케이터에 연결 가능
(실험 모델: CI-505A)

연결 전...

연결 중...

Update 2012-01-10

숫자 이외 입력시 색상 경고, 통신 ID 01~99 콤보박스 추가

기능
· 통신 환경 설정 및 저장
· 송수신 데이터 상태 보기
· 모두 수신 버튼을 누르면 각 항목이 채워짐
· 현재 중량과 시간은 실시간 갱신 됨
· 원클릭 PC 시간, 날짜로 동기화
· 설치 후 실행 방식 (VB6 관련 파일 때문에)

 

CAS_RS232Setup.exe

 

※ 주의: 백신 프로그램에서 바이러스로 오진될 수 있으나 안심하셔도 됩니다. VB6으로 코딩하였으며 디자인 관련 컴포넌트를 사용했습니다.

 

소스 코드

Option Explicit Dim strCommand As String ' 전송 데이터 저장 변수 Dim GetData As String ' 수신 데이터 변수 Dim CI_Command_RW As String ' 읽기 쓰기 명령 변수 Dim CI_Command As String ' CI 명령 포맷 4자리 Dim Count_RxStatus(10) As Integer ' 송수신 램프 깜빡임용 카운터 Dim CI_Command_All_num As Integer ' 모두 수신시 순서값 변수 Dim CI_Command_Index As Integer ' 명령어 인덱스 번호 Dim CI_Command_Array() ' 인덱스로 명령어 반환 Public port As Integer ' 끊기 버튼 Private Sub button_Close_Click() Timer1.Enabled = False If MSComm1.PortOpen = True Then MSComm1.PortOpen = False Com_Disconnected End If End Sub ' 명령 버튼 Private Sub button_CMD_Click(Index As Integer) CMD_button_bg_Clear CMD_button_bg_Set (Index) CI_Command_Index = Index CI_Command = CI_Command_Array(Index) End Sub ' 연결 버튼 Private Sub button_Connect_Click() 'On Error GoTo Err 'if label_ComSet(0).Caption MSComm1.RThreshold = 1 MSComm1.Settings = combo_ComBPS.Text & combo_ComParity.Text MSComm1.InputLen = 1 If combo_ComPort.Text = "" Then MsgBox "시리얼 포트를 선택하세요", vbInformation, "오류" Else MSComm1.CommPort = Right(combo_ComPort.Text, 1) '숫자만 추출 MSComm1.PortOpen = True ' 연결 중 잠금 Com_Connected Timer1.Enabled = True End If Err: 'MsgBox Error$, 48 'Shape1(0).BackColor = RGB(0, 128, 0) 'Shape1(1).BackColor = RGB(255, 0, 0) End Sub ' 연결했을 때 실행 Private Sub Com_Connected() Shape1(0).BackColor = RGB(0, 255, 0) Shape1(1).BackColor = RGB(128, 0, 0) button_Connect.Enabled = False button_Close.Enabled = True combo_ComPort.Enabled = False combo_ComBPS.Enabled = False combo_ComParity.Enabled = False button_ComSet.Enabled = False End Sub ' 연결 끊겼을 때 실행 Private Sub Com_Disconnected() Shape1(0).BackColor = RGB(0, 128, 0) Shape1(1).BackColor = RGB(255, 0, 0) button_Connect.Enabled = True button_Close.Enabled = False combo_ComPort.Enabled = True combo_ComBPS.Enabled = True combo_ComParity.Enabled = True button_ComSet.Enabled = True End Sub ' 폼 로딩 Private Sub Form_Load() Dim i As Integer frmMain.Caption = frmMain.Caption & " " & App.Major & "." & App.Minor & "." & App.Revision If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If frmMain_Clear CMD_button_bg_Clear combo_ComBPS.AddItem "1200" combo_ComBPS.AddItem "2400" combo_ComBPS.AddItem "4800" combo_ComBPS.AddItem "9600" combo_ComBPS.AddItem "19200" combo_ComBPS.AddItem "38400" combo_ComBPS.AddItem "115200" combo_ComParity.AddItem "n,8,1" combo_ComParity.AddItem "e,7,1" combo_ComParity.AddItem "o,7,1" For i = 1 To 99 ' 1자리는 앞에 0 붙임 If i < 10 Then combo_ComID.AddItem ("0" & i) Else combo_ComID.AddItem (i) End If Next ' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 CI_Command_Array = Array("RALL", "RFIN", "RSUB", "RGRD", "WSTC", "WGTC", "WTAR", "WTRS", "WHOL", "WHRS", "WZER", "WSTR", "WSTO", "RUND", "WUND", "ROVE", "WOVE", "RTAR", "RCWT", "RSP1", "WSP1", "RSP2", "WSP2", "RTIM", "WTIM", "RDAT", "WDAT", "RSNO", "WSNO", "RCNO", "WCNO", "RPNO", "WPNO") ' 포트 조회 For i = 1 To 9 ComCheck i Next combo_ComPort.Text = combo_ComPort.List(0) Shape1(0).BackColor = RGB(0, 128, 0) Shape1(1).BackColor = RGB(255, 0, 0) Timer1.Interval = 100 frmMain_Refresh End Sub ' 명령 설정 값 입력시 Private Sub text_Value_Change(Index As Integer) ' Pattern 설정시 검사 If (Not text_Value(Index).IsValid) Then text_Value(Index).BackColor = RGB(255, 0, 0) Else text_Value(Index).BackColor = RGB(255, 255, 255) End If End Sub ' 타이머 Private Sub Timer1_Timer() Dim i As Integer Dim zerofill_number As String Dim SendData As String Timer1.Enabled = False ' RS232 수신 RS232_READ ' 명령이 있을 때 If CI_Command <> "" Then CI_Command_RW = CI_Command ' 기본 전송: STX + 장비번호 + 명령 + ETX ' 설정 전송: STX + 장비번호 + 명령 + 값 + ETX Select Case CI_Command Case "WUND": SendData = Text_Zero_Fill(13, 4) Case "WOVE": SendData = Text_Zero_Fill(15, 4) Case "WSP1": SendData = Text_Zero_Fill(19, 6) Case "WSP2": SendData = Text_Zero_Fill(21, 6) Case "WTIM": SendData = Format(Time, "HHMMSS") Case "WDAT": SendData = Format(Date, "YYMMDD") Case "WSNO": SendData = Text_Zero_Fill(27, 6) Case "WPNO": SendData = Text_Zero_Fill(31, 2) Case "WCNO": SendData = Text_Zero_Fill(29, 6) End Select ' 전체 수신이 아닐 때 If CI_Command <> "RALL" Then If CI_Command_Index = 14 Or CI_Command_Index = 16 Or CI_Command_Index = 20 Or CI_Command_Index = 22 Or CI_Command_Index = 28 Or CI_Command_Index = 30 Or CI_Command_Index = 32 Then If text_Value(CI_Command_Index - 1).Text = "" Then MsgBox "값을 입력하세요", vbOKOnly, "오류" Else txtCommand.Text = Chr(2) & combo_ComID.Text & CI_Command & SendData & Chr(3) cmdSend_Click End If Else txtCommand.Text = Chr(2) & combo_ComID.Text & CI_Command & SendData & Chr(3) cmdSend_Click End If End If End If '명령어 변수 초기화 - 반복 전송 명령 설정(시각, 현재중량, 전체수신(단계,상하한), 전체수신 If CI_Command = "RTIM" Or CI_Command = "RCWT" Or CI_Command = "RCWD" Or CI_Command = "RALL" Then Else CI_Command = "" End If ' 시각 쓰기를 했고 통신 전송을 했으면 시각 읽기로 변경 If CI_Command = "WTIM" And strCommand = "" Then CI_Command = "RTIM" ElseIf CI_Command = "WDAT" And strCommand = "" Then CI_Command = "RDAT" End If If CI_Command = "RALL" Then CI_Command = "RUND" CI_Command_All_num = 1 ElseIf CI_Command_All_num = 1 Then CI_Command = "ROVE" CI_Command_All_num = 2 ElseIf CI_Command_All_num = 2 Then CI_Command = "RSP1" CI_Command_All_num = 3 ElseIf CI_Command_All_num = 3 Then CI_Command = "RSP2" CI_Command_All_num = 4 ElseIf CI_Command_All_num = 4 Then CI_Command = "RCWD" CI_Command_All_num = 0 End If ' 데이터 수신 상태 깜빡임 For i = 0 To 1 If spStatus(i).BackColor = RGB(255, 0, 0) Then ' 점등하면 타이머값 증가 Count_RxStatus(i) = Count_RxStatus(i) + 1 End If If Count_RxStatus(i) >= 200 / Timer1.Interval Then spStatus(i).BackColor = RGB(255, 255, 255) Count_RxStatus(i) = 0 End If Next Timer1.Enabled = True End Sub ' 통신 읽기 Private Sub RS232_READ() Dim com1_strreturn As String If MSComm1.PortOpen = False Then Exit Sub End If com1_strreturn = "" ' 통신 수신 데이터 있으면 If MSComm1.Input <> "" Then ' 수신 데이터 합치기 Do DoEvents If MSComm1.PortOpen = False Then Exit Sub Else com1_strreturn = com1_strreturn + MSComm1.Input txtGetData.Text = com1_strreturn End If Loop Until InStr(com1_strreturn, Chr(3)) ' ETX 수신이 되면 합치기 끝 ' Mid(문자열, 시작 위치, 길이) If CI_Command = "RCWT" Then If Len(com1_strreturn) >= 13 Then com1_strreturn = Mid(com1_strreturn, 13, InStr(com1_strreturn, Chr(3)) - 13) End If Else If Len(com1_strreturn) >= 7 Then com1_strreturn = Mid(com1_strreturn, 7, InStr(com1_strreturn, Chr(3)) - 7) End If End If ' 실시간 수신일 때 다른 수신값 삭제 If CI_Command <> "RTIM" Then text_Value(23).Text = "" ElseIf CI_Command <> "RCWT" Then text_Value(18).Text = "" End If ' 명령어에 따라 수신값 기록 Select Case CI_Command_RW Case "RCWD": text_Value(23).Text = Mid(com1_strreturn, 7, 6) text_Value(17).Text = Mid(com1_strreturn, 27, 6) text_Value(18).Text = Mid(com1_strreturn, 33, 6) If text_Value(25).Text = "" Then text_Value(25).Text = Mid(com1_strreturn, 1, 6) End If If text_Value(31).Text = "" Then text_Value(31).Text = Mid(com1_strreturn, 13, 2) End If If text_Value(29).Text = "" Then text_Value(29).Text = Mid(com1_strreturn, 15, 6) End If If text_Value(27).Text = "" Then text_Value(27).Text = Mid(com1_strreturn, 21, 6) End If Case "RUND": text_Value(13).Text = Trim(com1_strreturn) Case "ROVE": text_Value(15).Text = Trim(com1_strreturn) Case "RSP1": text_Value(19).Text = Trim(com1_strreturn) Case "RSP2": text_Value(21).Text = Trim(com1_strreturn) Case "RTIM": text_Value(23).Text = Trim(com1_strreturn) Case "RDAT": text_Value(25).Text = Trim(com1_strreturn) Case "RSNO": text_Value(27).Text = Trim(com1_strreturn) Case "RCNO": text_Value(29).Text = Trim(com1_strreturn) Case "RPNO": text_Value(31).Text = Trim(com1_strreturn) Case "RTAR": text_Value(17).Text = Trim(com1_strreturn) Case "RCWT": text_Value(18).Text = Trim(com1_strreturn) End Select ' LED 표시 If com1_strreturn <> "" Then label_Read.Caption = Mid(com1_strreturn, 1, Len(com1_strreturn)) End If spStatus(0).BackColor = RGB(255, 0, 0) End If End Sub ' 보내기 버튼 Private Sub cmdSend_Click() strCommand = txtCommand.Text strCommand = UCase(strCommand) ' 대문자 If MSComm1.PortOpen = True Then MSComm1.Output = strCommand spStatus(1).BackColor = RGB(255, 0, 0) strCommand = "" End If End Sub ' 지우기 버튼 Private Sub cmdClear_Click() frmMain_Clear End Sub ' 포트 검사 Public Function ComCheck(port As Integer) '포트체크후에 콤보박스에 사용할수 있는 포트만 표시함 Dim i%, eFlag% On Error Resume Next eFlag = True For i = 0 To 1 '포트 Open 확인을위해 반복 실행 With frmMain.MSComm1 .PortOpen = False .CommPort = port .PortOpen = True DoEvents If Not .PortOpen Then '포트 오픈이 True가 아닐때 eFlag = False End If End With Next i If eFlag Then combo_ComPort.AddItem "COM" & Trim$(Str$(port)) 'Com_Num = Com_Num & port & "," End If End Function ' About Private Sub about_Click() frmAbout.Show End Sub ' 설정 Private Sub config_Click() frmOptions.Show End Sub ' 종료 Private Sub button_Exit_Click() End End Sub ' 설정 저장 버튼 Private Sub button_ComSet_Click() SaveSetting App.Title, "Settings", "COM_bps", combo_ComBPS.Text SaveSetting App.Title, "Settings", "COM_port", combo_ComPort.Text SaveSetting App.Title, "Settings", "COM_parity", combo_ComParity.Text SaveSetting App.Title, "Settings", "COM_id", combo_ComID.Text frmMain.frmMain_Refresh End Sub ' 폼 항목 새로고침 Public Sub frmMain_Refresh() Dim temp_port As String Dim portx As Boolean Dim i As Integer temp_port = GetSetting(App.Title, "Settings", "COM_port", combo_ComPort.List(0)) For i = 1 To combo_ComPort.ListCount If combo_ComPort.List(i - 1) = temp_port Then combo_ComPort.Text = temp_port portx = True Exit For Else portx = False End If Next i If portx = False Then combo_ComPort.Text = combo_ComPort.List(0) End If combo_ComBPS.Text = GetSetting(App.Title, "Settings", "COM_bps", "9600") combo_ComParity.Text = GetSetting(App.Title, "Settings", "COM_parity", "n,8,1") combo_ComID.Text = GetSetting(App.Title, "Settings", "COM_id", "01") For i = 0 To 32 button_CMD(i).Font = "나눔고딕" Next i End Sub ' 폼 항목 지우기 Private Sub frmMain_Clear() label_Read.Caption = "" text_Value(13).Text = "" text_Value(15).Text = "" text_Value(19).Text = "" text_Value(21).Text = "" text_Value(23).Text = "" text_Value(25).Text = "" text_Value(27).Text = "" text_Value(29).Text = "" text_Value(31).Text = "" text_Value(17).Text = "" text_Value(18).Text = "" End Sub ' 명령 버튼 토글 Private Sub CMD_button_bg_Set(Index As String) button_CMD(Index).Checked = True End Sub ' 명령 버튼 토글 Private Sub CMD_button_bg_Clear() Dim i As Integer For i = 0 To 32 button_CMD(i).Checked = False Next i End Sub ' 폼 종료 Private Sub Form_Unload(Cancel As Integer) End End Sub ' 자릿수만큼 앞에 0을 채움 Private Function Text_Zero_Fill(Index As Integer, DataLen As Integer) Dim cha As Integer Dim Output As String Dim i As Integer Output = "" ' 설정값 - 데이터 길이 cha = DataLen - Len(text_Value(Index).Text) ' 차이가 있고 데이터가 있으면 자릿수 맞춤 If cha > 0 And Len(text_Value(Index).Text) Then For i = 1 To cha Output = Output & "0" Next i text_Value(Index).Text = Output & text_Value(Index).Text End If Text_Zero_Fill = text_Value(Index).Text End Function