<현재상황>
통신포트에서 데이터를 받아서 텍스트창에 뿌리는 중입니다.
Dim v_val As Single //전압값 저장 변수 single로 선언
Dim i_val As Single //전류값 저장 변수 single로 선언
Dim w_val As Single //전력값 저장 변수 single로 선언
txtinputdata.Text = Now & "전압:" & txtvoltage.Text & "전류:" & txtcurrent.Text & "전력:" & txtwatt.Text &vbCrLf
텍스트 창에 현재 시간과 전압, 전류, 전력값을 표시하고 다음줄로 넘어갑니다.
v_val = MSComm1.Input / 1000 //입력데이터 값을 변수에 저장합니다.
txtvoltage.Text = v_val //입력데이터 값을 텍스트 창에 뿌립니다.
i_val = MSComm1.Input / 1000 //입력데이터 값을 변수에 저장합니다.
txtcurrent.Text = i_val //입력데이터 값을 텍스트창에 뿌립니다.
w_val = Val(v_val) * Val(i_val) //전압과 전류값을 연산해서 전력 변수에 저장합니다.
txtwatt.Text = w_val //연산된 데이터 값을 텍스트창에 뿌립니다.
문제는 2가지입니다.
1. vbCrLf를 사용해도 다음줄로 넘어가지 않습니다....사용방법이 잘못된 것인지;;
2. 전압과 전류값은 텍스트창에 잘 표시 되는데 전력값을 연산하려 하니 연산값이 나오지 않습니다....
분명히 v_val과 i_val에 저장된 값은 숫자값일테니 연산을 하면 곱한 값이 나와야 할 것 같은데...
어디가 문제인지 궁금합니다ㅜㅜ도와주세요
1. txtinputdata 프로퍼티 설정에서 multiline이 설정되었는지요?
2. vb한지 오래되긴 했는데 아마 이게 맞을 거 같습니다.
(val이 값으로 바꾸는 것이므로)
w_val =v_val *i_val //전압과 전류값을 연산해서 전력 변수에 저장합니다.
txtwatt.Text = val(w_val)