수다닷컴

Dim a, b, c, d, e As String
Dim t1, t2, t3, t4 As Long
Dim v1, v2, v3, v4 As Long

Private Sub MSComm1_OnComm()

Do
Loop Until MSComm1.InBufferCount = 1
If MSComm1.Input = a Then
a = MSComm1.Input

If a 0 Then
t1 = GetTickCount()
End If

ElseIf MSComm1.Input b Then
Text1.Text = MSComm1.Input

End If

Do
Loop Until MSComm1.InBufferCount = 1
If MSComm1.Input = a Then
b = MSComm1.Input

If b 0 Then
t2 = GetTickCount()
v1 = t2 - t1
End If

ElseIf MSComm1.Input a Then
Text2.Text = MSComm1.Input

End If
--------------------------------------------------------------

이런 형태로 짯습니다....input이 a일 경우에는 그것을 a와 b에 저장한 후
시간을 불러오고 계산하여 저장하는 형태입니다...

그런데 input값이 a가아닌 다른게 들어온다면 그것을
text1.text 나 text2.text에 출력을 하는 형태로 하고싶은데...
위에부분은 되는거같은데 a가 아닌걸 출력하는게 안됩니다 ㅠㅠ
어떤방법을 해야할까요

신청하기