Visual Basic (3) 썸네일형 리스트형 시리얼 포트 Loopback 테스트 프로그램 시리얼 포트 Loopback 테스트 용 프로그램입니다. 테스트용 프로그램이라서 예외처리도 하지 않고 대충 만들었습니다. 프로그램 사용방법은 다음과 같으며 설치파일 첨부합니다. Windows XP Pro. SP2 에서 실행시켜보았습니다. 1. PC와 디바이스를 COM 포트로 (물리적 또는 Bluetooth등 가상으로)연결 2. 연결된 COM 포트 선택, Loopback Test에 사용할 Data Size 입력, 테스트 횟수 입력(0일 경우 무한반복 테스트) 3. START 버튼 클릭 위와 같이 동작시키면 프로그램에서 선택한 COM 포트로 입력한 Data Size 만큼의 Data 를 매번 Random하게 생성하여 입력한 Count 수만큼 약 2초간격으로 전송합니다. 전송한 데이터가 그대로 Loopback 되.. VB(비주얼 베이직)에서 배열을 매개변수로 넘기기 Private Sub Form_Load() Dim tP(1 To 4) As Integer Dim i As Integer i = Test(tP) Debug.Print tP(1), tP(2), tP(3), tP(4) End Sub Private Function Test( ByRef t_arr As Variant ) As Integer t_arr(1) = 4 t_arr(2) = 3 t_arr(3) = 2 t_arr(4) = 1 Test = 1 End Function 2가지만 주의하면 됩니다. 배열을 매개변수로 받은 Sub 함수에서 Variant 형으로 선언하는 것과 Integer 는 아니지만 Return 형이 꼭 있어야 합니다. 아무것도 Return을 안해주면 Sub 함수에서 변경한 값이 적용이 되지 않더군요. 비주얼 베이직 (Visual Basic) 예외처리시 오류번호 코드 메시지 3 GoSub가 없는 Return입니다 5 프로시저 호출이 잘못되었습니다 6 숫자가 너무 큽니다 7 메모리가 부족합니다 9 아래 첨자 사용이 잘못되었습니다 10 이 배열은 고정되었거나 일시적으로 잠금 상태입니다 11 0으로 나누었습니다 13 형식이 일치하지 않습니다 14 문자열 공간이 부족합니다 16 식이 너무 복잡합니다 17 요청된 작업을 수행할 수 없습니다 18 사용자 인터럽트가 발생하였습니다 20 오류 없는 Resume입니다 28 스택 공간이 부족합니다 35 Sub, Function 또는 Property가 정의되지 않았습니다 47 DLL 응용 프로그램 클라이언트가 너무 많습니다 48 DLL을 로드하는 중 오류가 발생하였습니다 49 DLL 호출 규정이 잘못되었습니다 51 내부 오류입ㄱ니다.. 이전 1 다음
