fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. 		' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
  10. Dim i4 as integer
  11. Dim i5 as integer
  12. Dim i6 as integer
  13. Dim i7 as integer
  14. Dim i8 as integer
  15. Dim ss as string
  16.  
  17. For i1 = 0 To 1
  18.         For i2 = 0 To 1
  19.             For i3 = 0 To 1
  20.                 For i4 = 0 To 1
  21.                     For i5 = 0 To 1
  22.                         For i6 = 0 To 1
  23.                             For i7 = 0 To 1
  24.                                 For i8 = 0 To 1
  25.  
  26.  
  27. ss = Chr$(48 + i1) _
  28.                                     & Chr$(48 + i2) _
  29.                                     & Chr$(48 + i3) _
  30.                                     & Chr$(48 + i4) _
  31.                                     & Chr$(48 + i5) _
  32.                                     & Chr$(48 + i6) _
  33.                                     & Chr$(48 + i7) _
  34.                                     & Chr$(48 + i8)
  35.  
  36. Console.WriteLine(GetV(ss) & " - " & ss)
  37.  
  38.  
  39.                                 Next i8
  40.                             Next i7
  41.                         Next i6
  42.                     Next i5
  43.                 Next i4
  44.             Next i3
  45.         Next i2
  46.  
  47.  
  48. 	End Sub
  49.  
  50. Public Function GetV(sv as string) as String
  51.  
  52.     Dim x as integer 
  53.     Dim v as integer
  54.     Dim c as string 
  55.     Dim vl(7) as integer
  56.  
  57.     vl(0)  = 1
  58.     vl(1)  = 2
  59.     vl(2)  = 4
  60.     vl(3)  = 8
  61.     vl(4)  = 16
  62.     vl(5)  = 32
  63.     vl(6)  = 64
  64.     vl(7)  = 128
  65.  
  66.    For x = 0 to 7
  67.        c = sv.substring(x, 1)
  68.  
  69.        If c = "1" then
  70.            v = v 
  71.        End if
  72.    Next 
  73.  
  74.    Return v.tostring
  75.  
  76. End Function
  77.  
  78.  
  79. End Class
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/qc9PsB/prog.vb (48,9) : error VBNC30084: CHANGEME
There were 1 errors and 0 warnings.
Compilation took 00:00:00.6404060
stdout
copy 
Standard output is empty
https://ideone.com/PR0cAY
language:
VB.NET (mono-3.10)
created:
8 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!