COM in Visual Basic

Private Sub Form_Load()


MSComm1.CommPort = 1    '  Uporabi COM1. Obvezno, ce mas vec com portov na PC-ju

MSComm1.Settings = "2400,N,8,1"    ' 2400 baud, brez paritete, 8 data bitov, 1 stop bit

MSComm1.DTREnable = False     ' DTR linijo na low, da preprecis reset kontrolerja
 
MSComm1.PortOpen = True  ' sedaj odpres port

End Sub


Private Sub CmdSend_Click()

MSComm1.Output = Chr$(DATA1) & Chr$(DATA2) & Chr(DATA3)   ' poslali bomo 3 razlicne podatke iz spremenljivk
End Sub
' Ce ti dela cip z nizkim taktom daj funkcijo posiljanja podatkov v zanko in ponovi ene parkrat. 


Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False    ' Ko zapiras program (formo), zapri se vrata za sabo!
End Sub

Name 'vbFromUnicode' is not declared.

Public Function CRC16A(ByVal Buffer() As Byte) As Long

        Dim i As Long
        Dim Temp As Long
        Dim crc As Long
        Dim j As Integer
        crc = &HFFFF&
        For i = LBound(Buffer) To UBound(Buffer)
            Temp = Buffer(i) * &H100&
            crc = crc Xor Temp
            For j = 0 To 255
                If (crc And &H8000&) Then
                    crc = ((crc * 2) Xor &H1021&) And &HFFFF&
                Else
                    crc = (crc * 2) And &HFFFF&
                End If
            Next j
        Next i
        CRC16A = crc And &HFFFF

    End Function


    Private Sub Command1_Click()

        Dim aBuf() As Byte

        Dim crc As Long
        Dim p As String
        
        p = Text1.Text
        aBuf = StrConv(p, vbFromUnicode)
        crc = CRC16A(aBuf)
        Text2.Text = Hex(crc)

    End Sub