fork download

Public Function GetCodigoProximidad(ByVal p_CodigoProximidad As String) As String 
 
        If True Then 
            Dim longitud As Integer, i As Integer, j As Integer 
            Dim tfc As Double, fc As Double 
            Dim bin As String, hex As String, binfc As String, cfc As String, codigo As String 
            Dim facility As String, numcard As String, bintot As String, id As String 
            bintot = "" 
            bin = "" 
            tfc = 0 
 
            codigo = p_CodigoProximidad.Substring(5, 7) 
 
            longitud = codigo.Length 
 
 
            For i = 0 To longitud - 1 
                hex = codigo.Substring(i, 1) 
                Select Case hex 
                    Case "0" 
                        bin = "0000" 
                        Exit Select 
                    Case "1" 
                        bin = "0001" 
                        Exit Select 
                    Case "2" 
                        bin = "0010" 
                        Exit Select 
                    Case "3" 
                        bin = "0011" 
                        Exit Select 
                    Case "4" 
                        bin = "0100" 
                        Exit Select 
                    Case "5" 
                        bin = "0101" 
                        Exit Select 
                    Case "6" 
                        bin = "0110" 
                        Exit Select 
                    Case "7" 
                        bin = "0111" 
                        Exit Select 
                    Case "8" 
                        bin = "1000" 
                        Exit Select 
                    Case "9" 
                        bin = "1001" 
                        Exit Select 
                    Case "A" 
                        bin = "1010" 
                        Exit Select 
                    Case "B" 
                        bin = "1011" 
                        Exit Select 
                    Case "C" 
                        bin = "1100" 
                        Exit Select 
                    Case "D" 
                        bin = "1101" 
                        Exit Select 
                    Case "E" 
                        bin = "1110" 
                        Exit Select 
                    Case "F" 
                        bin = "1111" 
                        Exit Select 
                End Select 
 
 
                bintot = bintot & bin 
            Next 
 
            binfc = Reverse(bintot).Substring(17, 8) 
 
            j = binfc.Length 
 
            i = 0 
            fc = 2 
            For Each c As Char In binfc 
                If c.ToString().Equals("1") Then 
                    fc = 2 
                    fc = Math.Pow(fc, i) 
                    tfc = fc + tfc 
                End If 
                i += 1 
            Next 
 
 
            If Convert.ToString(tfc).Length.Equals(2) Then 
                facility = "0" & Convert.ToString(tfc) 
            Else 
                facility = Convert.ToString(tfc) 
            End If 
            binfc = Reverse(bintot).Substring(1, 16) 
 
            j = binfc.Length 
 
            tfc = 0 
 
            i = 0 
            fc = 2 
            For Each c As Char In binfc 
                If c.ToString().Equals("1") Then 
                    fc = 2 
                    fc = Math.Pow(fc, i) 
                    tfc = fc + tfc 
                End If 
                i += 1 
            Next 
 
            Dim Pad As Char 
            Pad = "0"c 
            numcard = String.Format("00000", Convert.ToString(tfc)) 
            numcard = Convert.ToString(tfc).PadLeft(5, Pad) 
 
 
            id = facility & numcard 
 
            Return id 
 
        End If 
    End Function 
 
 
 
    Public Shared Function Reverse(ByVal text As [String]) As [String] 
        Dim cArray As Char() = text.ToCharArray() 
        Dim reverse__1 As String = [String].Empty 
        For i As Integer = cArray.Length - 1 To -1 + 1 Step -1 
            reverse__1 += cArray(i) 
        Next 
        Return reverse__1 
    End Function 
 

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/ODqzFe/prog.vb (1,17) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (3,11) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (4,16) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (5,16) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (6,16) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (7,16) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (8,19) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (9,16) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (10,16) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (12,19) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (14,21) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (17,16) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (18,20) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (19,23) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (20,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (21,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (22,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (23,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (24,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (25,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (26,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (27,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (28,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (29,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (30,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (31,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (32,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (33,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (34,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (35,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (36,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (37,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (38,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (39,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (40,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (41,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (42,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (43,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (44,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (45,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (46,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (47,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (48,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (49,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (50,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (51,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (52,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (53,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (54,28) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (55,29) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (56,25) : Error VBNC30203: Not valid as identifier.
/home/ODqzFe/prog.vb (56,25) : Error VBNC30041: Too many errors.
Exception of type 'vbnc.TooManyErrorsException' was thrown.
  at vbnc.Report.ShowMessage (Boolean SaveIt, vbnc.Message Message) [0x00080] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:342 
  at vbnc.Report.ShowMessage (Messages Message, Span Location, System.String[] Parameters) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:259 
  at vbnc.Report.ShowMessage (Messages Message, System.String[] Parameters) [0x00054] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:269 
  at vbnc.Compiler.Compile () [0x005a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:651 
  at vbnc.Compiler.Compile (System.String[] CommandLine) [0x00057] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:279 
  at vbnc.Main.Main (System.String[] CmdArgs) [0x0000f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Main.vb:55 
Failed compilation took 00:00:00.5714230

Standard output is empty