비주얼 베이직을 시작한지 한달쯤 된 늅늅이 입미다..

다른 겔에서 서식하다가 프로그래밍 겔횽들에게 조그마한 자비좀 얻으려고 왔습미다..ㅠ

늅늅이 에게 관심을...

Private Sub Form_Load()
\'---------RFID ER200로드---------\'
    rfid.ConnectPortName = "com5"
    rfid.ER200_Open
End Sub

Private Sub Command1_Click()
rfid.ER200_Close

Form2.Show                      
End Sub

Private Sub Command3_Click()
  Dim tagdata As ER_TAG
   
    \' ***** Read Tag UID *****
    tagdata = rfid.ER200_ISO15693_TagIDRead                태그 데이터를 기계를 통해 받습니다. 03 0d d8 da이런식으로요
        
    If tagdata.TagCount = 0 Then                                     그래서 태그숫자를 인식한뒤에
        Exit Sub
    End If
       
    \' ***** Read Tag Data *****
    Dim i, j  As Integer                                       
   
    Dim ByteTagID(8) As Byte
    Dim udata() As Byte
    Dim udataCost As Integer
    Dim FullString As String
    Dim FullStringadd As String
    Dim sum, sum1 As Integer
        sum = 0
        sum1 = 0

        List1.Clear
        List8.Clear
   
   
    For i = 0 To tagdata.TagCount - 1                                           태그데이터숫자보다 1작게 for문을 돌리구요
         For j = 0 To 7
            ByteTagID(j) = tagdata.TagID(0, j)                                    문제는 여기입니다!! 태그를 5장올리면 0번태그부터
                                                                                      4번태그까지의 정보를 읽어야 되는데 계속 1번만 읽어버리고
         Next j                                                                    끝나버린다능..ㅠ 즉 0번태그만 5번 읽어서 프린트함..ㅠ
                                                                                     이부분을 잘 못해서 오늘 아침부터 계속 늅늅거리다가
        udata() = rfid.ER200_ISO15693_MemoryRead(ByteTagID(), 5, 1)     다른겔러리이지만 좀 조언좀 얻을까해서
        FullString = StrConv(udata, vbUnicode)                                           왔츰미다..ㅠ 님들하 젭라 자비좀...ㅠ
        List1.AddItem FullString                                                             
       
        udata() = rfid.ER200_ISO15693_MemoryRead(ByteTagID, 1, 1)
        FullStringadd = StrConv(udata, vbUnicode)
        sum = FullStringadd
      Next i
       
        List8.AddItem sum1
End Sub

조공은 해결되면 빅파이라도 쏴드리겠다능..ㅠㅠㅠㅠㅠㅠ

잽라 자비좀..ㅠ