(VB6) LS XGT FEnet 통신 설명

이더넷으로 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), ..
전기전자/PLC 2016. 5. 3. 20:04

LS XGT Cnet 전용프로토콜 통신 프로그램 개발 (작성 중)

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

거리센서 계산기

거리 센서 출력값 계산기 VB6 컴파일 완료 실행시 DLL 오류 발생 하면 아래 압축 파일 풀고 BAT 파일 실행(x86용)
PC&웹/VS프로그래밍 2015. 7. 23. 11:33

VB6 개체라이브러리 오류 해결 방법

명령 프롬프트에서 cd c:\windows\syswow64 (32비트는 \system32) regtlib msdatsrc.tlb IE 삭제 필요없음
PC&웹/VS프로그래밍 2014. 8. 25. 10:34

(VB6) 윈도우7에서 버벅임 현상 없애기

아래 경로에서 C:Program Files (x86)\Microsoft Visual Studio\VB98 VB6.EXE 파일의 속성창을 열고 호환성 탭의 설정 박스에 있는 바탕 화면 구성 사용 안 함에 ✅체크하면 됩니다.
PC&웹/VS프로그래밍 2013. 2. 4. 09:17

(VB6) 폴더 선택 다이얼로그 만들기 + 새 폴더 버튼

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..
PC&웹/VS프로그래밍 2013. 2. 3. 18:27

(NI DAQ) 가우스 측정 프로그램 V1.0.13

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

(VB6) 폼에 3D 그라데이션 글자 출력하기

새 프로젝트에서 폼에 버튼을 만든다. 버튼을 더블클릭하여 코드 편집창을 띄운다. 아래 코드를 입력 후 실행하고 버튼을 누르면 된다. 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
PC&웹/정보&기술 2012. 1. 12. 22:20

CAS CI-505A 아날로그 비교

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

티스토리툴바