fork download
copy 
  1. Public Function GetCodigoProximidad(ByVal p_CodigoProximidad As String) As String 
  2.  
  3.         If True Then 
  4.             Dim longitud As Integer, i As Integer, j As Integer 
  5.             Dim tfc As Double, fc As Double 
  6.             Dim bin As String, hex As String, binfc As String, cfc As String, codigo As String 
  7.             Dim facility As String, numcard As String, bintot As String, id As String 
  8.             bintot = "" 
  9.             bin = "" 
  10.             tfc = 0 
  11.  
  12.             codigo = p_CodigoProximidad.Substring(5, 7) 
  13.  
  14.             longitud = codigo.Length 
  15.  
  16.  
  17.             For i = 0 To longitud - 1 
  18.                 hex = codigo.Substring(i, 1) 
  19.                 Select Case hex 
  20.                     Case "0" 
  21.                         bin = "0000" 
  22.                         Exit Select 
  23.                     Case "1" 
  24.                         bin = "0001" 
  25.                         Exit Select 
  26.                     Case "2" 
  27.                         bin = "0010" 
  28.                         Exit Select 
  29.                     Case "3" 
  30.                         bin = "0011" 
  31.                         Exit Select 
  32.                     Case "4" 
  33.                         bin = "0100" 
  34.                         Exit Select 
  35.                     Case "5" 
  36.                         bin = "0101" 
  37.                         Exit Select 
  38.                     Case "6" 
  39.                         bin = "0110" 
  40.                         Exit Select 
  41.                     Case "7" 
  42.                         bin = "0111" 
  43.                         Exit Select 
  44.                     Case "8" 
  45.                         bin = "1000" 
  46.                         Exit Select 
  47.                     Case "9" 
  48.                         bin = "1001" 
  49.                         Exit Select 
  50.                     Case "A" 
  51.                         bin = "1010" 
  52.                         Exit Select 
  53.                     Case "B" 
  54.                         bin = "1011" 
  55.                         Exit Select 
  56.                     Case "C" 
  57.                         bin = "1100" 
  58.                         Exit Select 
  59.                     Case "D" 
  60.                         bin = "1101" 
  61.                         Exit Select 
  62.                     Case "E" 
  63.                         bin = "1110" 
  64.                         Exit Select 
  65.                     Case "F" 
  66.                         bin = "1111" 
  67.                         Exit Select 
  68.                 End Select 
  69.  
  70.  
  71.                 bintot = bintot & bin 
  72.             Next 
  73.  
  74.             binfc = Reverse(bintot).Substring(17, 8) 
  75.  
  76.             j = binfc.Length 
  77.  
  78.             i = 0 
  79.             fc = 2 
  80.             For Each c As Char In binfc 
  81.                 If c.ToString().Equals("1") Then 
  82.                     fc = 2 
  83.                     fc = Math.Pow(fc, i) 
  84.                     tfc = fc + tfc 
  85.                 End If 
  86.                 i += 1 
  87.             Next 
  88.  
  89.  
  90.             If Convert.ToString(tfc).Length.Equals(2) Then 
  91.                 facility = "0" & Convert.ToString(tfc) 
  92.             Else 
  93.                 facility = Convert.ToString(tfc) 
  94.             End If 
  95.             binfc = Reverse(bintot).Substring(1, 16) 
  96.  
  97.             j = binfc.Length 
  98.  
  99.             tfc = 0 
  100.  
  101.             i = 0 
  102.             fc = 2 
  103.             For Each c As Char In binfc 
  104.                 If c.ToString().Equals("1") Then 
  105.                     fc = 2 
  106.                     fc = Math.Pow(fc, i) 
  107.                     tfc = fc + tfc 
  108.                 End If 
  109.                 i += 1 
  110.             Next 
  111.  
  112.             Dim Pad As Char 
  113.             Pad = "0"c 
  114.             numcard = String.Format("00000", Convert.ToString(tfc)) 
  115.             numcard = Convert.ToString(tfc).PadLeft(5, Pad) 
  116.  
  117.  
  118.             id = facility & numcard 
  119.  
  120.             Return id 
  121.  
  122.         End If 
  123.     End Function 
  124.  
  125.  
  126.  
  127.     Public Shared Function Reverse(ByVal text As [String]) As [String] 
  128.         Dim cArray As Char() = text.ToCharArray() 
  129.         Dim reverse__1 As String = [String].Empty 
  130.         For i As Integer = cArray.Length - 1 To -1 + 1 Step -1 
  131.             reverse__1 += cArray(i) 
  132.         Next 
  133.         Return reverse__1 
  134.     End Function 
  135.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
0000056E6217EC
compilation info 
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
stdout
copy 
Standard output is empty
https://ideone.com/8fS2O
language:
VB.NET (mono-3.10)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!