fork download
copy 
  1. Imports System.Threading
  2. Imports System.Numerics
  3.  
  4. Public Class Form1
  5.     Dim ChunkSize As Integer = 328
  6.     Dim VarSize As Integer = 140
  7.     Dim Startx As Integer = 32
  8.     Dim Amount = (255 - Startx)
  9.     Dim Letterz(Amount) As Integer
  10.  
  11.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  12.         For x As Integer = 0 To Amount
  13.             If x < 127 Then
  14.                 Letterz(x) = Startx + x
  15.             ElseIf x > 127 Then
  16.                 Letterz(x - 1) = Startx + x
  17.             End If
  18.         Next
  19.     End Sub
  20.     Function itoa(ByVal val As BigInteger)
  21.         Dim toret As String = ""
  22.         Dim TempVal As BigInteger = val
  23.         Do
  24.             If TempVal > 0 Then
  25.                 Dim remainder As Integer
  26.                 TempVal = BigInteger.DivRem(TempVal, BigInteger.Parse(Amount.ToString()), remainder)
  27.                 Dim ToInsert As Integer = Letterz(remainder)
  28.                 Dim ToInsStr As String = Chr(ToInsert)
  29.                 toret = ToInsStr & toret
  30.             Else
  31.                 Exit Do
  32.             End If
  33.         Loop
  34.         'If toret.Length < VarSize Then
  35.         'For x As Integer = 0 To VarSize - toret.Length
  36.         'toret = "0" & toret
  37.         'Next
  38.         'End If
  39.         itoa = toret
  40.     End Function
  41.  
  42.     Function atoi(ByVal val As String) As BigInteger
  43.         'Dim EndVar As Integer = 0
  44.         'If val(0) = "0" Then
  45.         '   EndVar = 1
  46.         '   For x As Integer = 1 To val.Length - 1
  47.         '       If val(x) = "0" Then
  48.  
  49.         '       Else
  50.         '           EndVar = x
  51.         '            Exit For
  52.         '        End If
  53.         '    Next
  54.         'End If
  55.         'val = val.Substring(EndVar, val.Length - EndVar)
  56.         Dim CURRNUM As BigInteger = 0
  57.         Dim len As BigInteger = val.Length()
  58.         If len > 0 Then
  59.             For i As BigInteger = 0 To len - 1
  60.                 For x As BigInteger = 0 To BigInteger.Parse(Amount.ToString()) - 1
  61.                     Dim y As BigInteger = (len - i) - 1
  62.                     If val(y) = Chr(Letterz(x)) Then
  63.                         Dim PWR As BigInteger = BigInteger.Pow(BigInteger.Parse(Amount.ToString()), i)
  64.                         Dim MLTPLY As BigInteger = x * PWR
  65.                         CURRNUM += MLTPLY
  66.                     End If
  67.                 Next
  68.             Next
  69.         End If
  70.         atoi = CURRNUM
  71.     End Function
  72.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  73.         TextBox2.Text = itoa(BigInteger.Parse(TextBox1.Text))
  74.         TextBox3.Text = atoi(TextBox2.Text).ToString()
  75.     End Sub
  76.  
  77.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  78.         TextBox2.Text = atoi(TextBox1.Text).ToString()
  79.         TextBox3.Text = itoa(BigInteger.Parse(TextBox2.Text))
  80.     End Sub
  81. End Class
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/3rydPw
language:
VB.NET (mono-3.10)
created:
11 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!