fork download

Private Sub MSComm1_OnComm()
 
    Dim InByte() As Byte
 
    Dim i As Integer
 
    Dim LineString As String
 
    Select Case MSComm1.CommEvent
 
    Case comEvReceive   
 
        InByte = MSComm1.Input
 
        If ((InByte(0) And &HE0) = &H0) And _
 
            ((InByte(1) And &HE0) = &HE0) Then
 
 
 
            LineString = Format(Now, "yyyy/mm/dd hh:mm:ss") & " : " _
 
            & " " & Right$("0" & Hex(InByte(0)), 2) _
 
            & " " & Right$("0" & Hex(InByte(1)), 2)
 
 
 
            Text8.Text = Text8.Text & LineString & vbCrLf
 
 
 
            If ok_cnt < 1000 Then
 
                ok_cnt = ok_cnt + 1
 
            Else
 
                Open ".\Log\Log" & "_" & Format(Now, "yyyymmdd_hhmmss") & ".txt" For Append As #1
 
                Print #1, Text8.Text
 
                Close #1
 
 
 
                ok_cnt = 1                
 
                Text8.Text = ""
 
            End If
 
 
 
        Else
 
 
 
            If err_cnt < 1000 Then
 
                err_cnt = err_cnt + 1
 
 
 
            Else
 
                err_cnt = 1
 
            End If
 
        End If
 
    End Select
 
    MSComm1.InBufferCount = 0
 
 
 
    Label10.Caption = ok_cnt

Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/ooQgbg/prog.vb (1,13) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (3,8) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (5,8) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (7,8) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (9,11) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (11,9) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (13,15) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (15,11) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (17,14) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (21,23) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (23,15) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (25,15) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (29,18) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (33,15) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (35,23) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (37,17) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (39,21) : error VBNC30203: Identifier expected.
/home/ooQgbg/prog.vb (39,98) : error VBNC90000: Newline character found in date constant.
/home/ooQgbg/prog.vb (39,98) : error VBNC99999: vbnc crashed nearby this location in the source code.
vbnc : Command line : error VBNC99999: Unexpected error: Conversion from string "1" to type 'Date' is not valid.
  at Microsoft.VisualBasic.CompilerServices.DateType.FromString (System.String Value) [0x00000] in <filename unknown>:0 
  at Microsoft.VisualBasic.CompilerServices.Conversions.ToDate (System.String Value) [0x00000] in <filename unknown>:0 
  at vbnc.Scanner.GetDate () [0x00000] in <filename unknown>:0 
  at vbnc.Scanner.GetNextToken () [0x00000] in <filename unknown>:0 
  at vbnc.Scanner.NextUnconditionally () [0x00000] in <filename unknown>:0 
  at vbnc.Scanner.Next () [0x00000] in <filename unknown>:0 
  at vbnc.tm.NextToken () [0x00000] in <filename unknown>:0 
  at vbnc.tm.GotoNewline (Boolean EatNewLine, Boolean ReportError) [0x00000] in <filename unknown>:0 
  at vbnc.Parser.ParseAssemblyDeclaration (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00000] in <filename unknown>:0 
  at vbnc.Parser.Parse (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00000] in <filename unknown>:0 
  at vbnc.Compiler.Compile_Parse () [0x00000] in <filename unknown>:0 
Compilation took 00:00:00.2398660

Standard output is empty