Mam kłopot z wstawieniem danych do tablicy , powinienem napisać nie potrafię Visual Basic 6 .
Jedyne co udało mi się uzyskać , to odebrać cały ciąg i "wyłuskać" dane za pomocą funkcji MID , działa prawie dobrze o ile dane1 i dane2 mają cztery znaki .
Tablica byłaby lepszym rozwiązaniem , ale z nią mam kłopot .
Poniżej linia którą wysyłam z atmegi , Dane1 i Dane2 , to zmienne Dword .
Code: [Zaznacz cały] [Rozwiń/Zwiń]
- Print "Odebrano" ; "," ; Dane1 ; "," ; Dane2 ; Chr(13)
Code: [Zaznacz cały] [Rozwiń/Zwiń]
- Private Sub MSComm1_OnComm()
- Dim InBufor As String
- InBufor = MSComm1.Input
- If MSComm1.CommEvent = comEvReceive Then
- Label13.Caption = Mid(InBufor, 1, 8) ' potwierdzenie odebranych danych
- Label14.Caption = Mid(InBufor, 10, 4)' Dane1
- Label15.Caption = Mid(InBufor, 15, 4)'Dane2
- End If
- InBufor = ""
- End Sub
Mogę liczyć na podpowiedź , jak zapakować odebrane dane do tablicy o ile ktoś używa tego zabytkowego programu
W sieci znalazłem wiele przykładów , tylko nie potrafię ich przełożyć na VB6