Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Miernik obrotów - komunikacja po RS232 w VB

Lensen 11 Kwi 2008 09:20 813 0
  • #1 11 Kwi 2008 09:20
    Lensen
    Poziom 10  

    Witam,
    Mam problem tego typu. Mam miernik obrotów, który ma komunikację po RS. Program pisze w VB6 i wszystko byłoby ok gdyby nie to, że miernik wysyła 10 bajtów. Używam kontrolki Mscomm i przy innym mierniczku, który komunikuje się "ośmio bajtowo" wszystko mi działa. Programik oparłem o kod kolegi SACZI gdzie mam select case, który obsługuje comevent. i wygląda to podobnie jak na kodzie poniżej. Niestety jestem w pracy i nie mam swojego kodu więc wklejam kolegi SACZI.

    Code:


    Private Sub MSComm1_OnComm() ' obsługa zdarzenie OnComm
    Dim i As Integer
     
     Select Case MSComm1.CommEvent
            Case comEvReceive   ' Received RThreshold # of
                            MSComm1.InputLen = 0
                            Buffer = MSComm1.Input 'buffer to zmienna typu Variant
                            Arr = Buffer 'Arr to tablica byte -> 8-bitów

                            For i = 0 To UBound(Arr)
                                   Select Case i
                                       Case 0
                                       Case 1
                                     End Select
                            Next i

         Case comEvSend   ' There are SThreshold number of
                    ' characters in the transmit buffer.
          End Select
    End Sub


    //Kod powyżej to tylko schematyczny pogląd na mój.//

    Moje pytanie jest takie: jak połączyć w jedną tablicę dwie ramki 8 bajtowe? Muszę wykorzystać do obliczenia wyniku dwa bajty z pierwszej ramki i jeszcze jeden z drugiej ?? Chciałbym mieć tablicę, w której miałbym wszystkie bajty i mógłbym je wykorzystywać to obliczeń. Nie liczę tu na jakiegoś gotowca ale na podpowiedź jak mógłbym to zrobić.

    Z góry dziękuja za każdą pomoc :)

    0 0