잡동사니

이더넷으로 XGT PLC와 통신하기 관련자료 제8장 전용통신을 참고하세요. 예제 VB6에서 소켓통신으로 데이터를 보내려면 바이트 단위로 전송해야 한다. SendData_Hex = "4C5349532D584754" & _ "0000" & _ "0000" & _ "A0" & _ "33" & _ ByteSwap(Format$(Hex$(Invoke_ID), "0000"), sckHex) & _ ByteSwap(Format$(Hex(10 + sVarLength), "0000"), sckHex) & _ "03" & _ Format$(Hex(((Val(&H33E) + Val("&H" & Hex(Invoke_ID)))) Mod 256), "00") & _ Replace(StringToHex(setReadWrite), ..

DEC값은 4바이트씩 스왑되서 보여짐 읽기 쓰기만 가능 그 외 Melsec PLC에서 사용하던 기능은 업데이트 예정 VB6으로 작성되었습니다. vb6ko.dll 내장.

거리 센서 출력값 계산기 VB6 컴파일 완료 실행시 DLL 오류 발생 하면 아래 압축 파일 풀고 BAT 파일 실행(x86용)

명령 프롬프트에서 cd c:\windows\syswow64 (32비트는 \system32) regtlib msdatsrc.tlb IE 삭제 필요없음

VB6에서 폴더 선택 다이얼로그를 추가할 수 있는데 옵션이 다양하다. 새 폴더 버튼을 추가하는 것은 매우 간단하다. 아래 코드 처럼 ulFlags 속성값을 &H40으로 설정하면 된다. Option Explicit Private Type BrowseInfo lngHwnd As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Private Const BIF_RETURNONLYFSDIRS = &H1 ' 폴더만 보이기 Private Const BIF_DONTGOBELOWDOMAIN = &H2 Private Cons..

값싼 A1321 홀센서를 사용하여 가우스 값을 측정하는 프로그램을 만들어보았다. 만든 날짜: 2012년 1월 16일 평균낼 갯수는 1000개의 데이터마다 평균으로 그래프를 그려주는 것으로 노이즈를 제거할 때 사용한다. 교정 설정 항목은 측정한 가우스값을 각각 세제곱, 제곱 등을 한 결과를 그래프로 그려주게 된다. Zero 버튼을 누르면 아래와 같이 데이터의 평균값을 구해 영점을 맞춰준다. 다음 목표는 측정한 데이터를 엑셀로 저장하거나 불러오는 것이다.

새 프로젝트에서 폼에 버튼을 만든다. 버튼을 더블클릭하여 코드 편집창을 띄운다. 아래 코드를 입력 후 실행하고 버튼을 누르면 된다. Private Sub Command1_Click() Dim i As Integer For i = 1 To 255 Form1.ScaleMode = 3 Form1.Font.Name = "Times New Roman" Form1.Font.Size = 48 Form1.CurrentX = i / 50 Form1.CurrentY = i / 50 Form1.ForeColor = RGB(i + 5, 0, 0) Form1.Print "한글" Next End Sub

이번엔 아날로그 출력 0~10V와 RS232 통신으로 값을 비교하는 프로그램을 만들어 보았다. DAQ는 NI PCI-6251을 사용하였다. 인디케이터의 아날로그 출력을 AI1에 연결하고, RS232를 COM1에 연결하였다. RS232는 전에 만들었던 프로그램 코드 일부를 그대로 사용하였다. 2012/01/05 - CAS CI 시리즈 인디케이터 통신프로그램 START 버튼을 누르면 그래프가 실시간으로 그려진다. 측정 중에 통신 명령을 보낼 수 있다. 아날로그는 노이즈가 심하여 측정 값의 변동이 컸다. 그래서 1000개 단위로 측정하고 평균을 낸 후 그래프로 그리도록 하였다. RS232로 받은 값은 그래프에 노란색으로 표시해주어 아날로그 입력 신호와 비교할 수 있다. 이런 프로그램은 아날로그 출력을 교정할 ..