Winamp kulso tasztatura

[hwsw famulus]

Acs Gabor wrote:
> Soros portot mennyire bonyolult a VB6-al kezelni?
> Gábor

sima ugy..van ra beepitett control...
ha kell megszakitasokkal is kezelhetok a dolgok

ig y pl.

----------INIT-----
Private Sub Form_Load()

    MSComm1.CommPort = 1
    MSComm1.Settings = "57600,N,8,1"
    MSComm1.RThreshold = 1
    MSComm1.InputLen = 1
    MSComm1.PortOpen = True

-------CLOSE-----
Private Sub Form_Unload(Cancel As Integer)
   MSComm1.PortOpen = False

-------OUT-----
Private Sub Kiir

    MSComm1.Output = "<PS00001> "
  MSComm1.Output = Parancs

------IN------
Private Sub MSComm1_OnComm()

    Dim Getkar_uart1 As String

    If MSComm1.CommEvent = comEvReceive Then

        Getkar_uart1 = MSComm1.Input

        Select Case Status_uart1
            Case 0
            'Nem fogad

            Case 99
            'Var a feldolgozasra

            Case 10
            'Var a < karakterre
                If Getkar_uart1 = "<" Then
                    Puffer_uart1 = Space(30)
                    Erkezett_uart1 = 0
                    Timeout_uart1 = 100
                    Status_uart1 = 20
                End If

            Case 20
            'Gyujtoget, vagy hibara fut
                If Timeout_uart1 = 0 Then
                'Nem vegzett idoben
                    Status_uart1 = 10
                ElseIf Erkezett_uart1 = Maxkar_uart1 Then
                'Tul sok jott > nelkul
                    Status_uart1 = 10
                ElseIf Getkar_uart1 = "<" Then
                'Rosszkor jott < karakter
                    Status_uart1 = 10
                ElseIf Getkar_uart1 = ">" Then
                'Itt a vege,meg kell a CRC
                    Status_uart1 = 30
                Else
                'Gyujtogeti a karaktereket
                    Erkezett_uart1 = Erkezett_uart1 + 1
                    Mid(Puffer_uart1, Erkezett_uart1, 1) = Getkar_uart1
                End If

            Case 30
            'CRC-re var
                Crc_uart1 = Getkar_uart1
                Timeout_uart1 = 0
                Status_uart1 = 99

             txtComComplete = IIf(txtComComplete = "<>", "--", "<>")   'user 
informalasa

        End Select

    End If

End Sub