Imports Microsoft.VisualBasic
Imports System

Public Class GlobalMembersSource
	Public Shared Function dvejetaines(ByVal sk As Integer) As Integer

		Dim dveje As Integer = 0
		Dim laik As Integer = 0
		Dim i As Integer = 0
		Do While sk <> 0
			laik = sk Mod 10
			sk \= 10
			dveje += laik *Math.Pow(2, i)
			i += 1

		Loop
		i = 0
		sk = dveje
		Return sk
	End Function
	Public Shared Function astuntaines(ByVal m As Integer) As Integer
		Dim astunt As Integer = 0
		Dim laike As Integer = 0
		Dim i As Integer = 0
		Do While m <> 0
			laike = m Mod 10
			m \= 10
			astunt += laike *Math.Pow(8, i)
			i += 1
		Loop
		i = 0
		m = astunt
		Return m
	End Function
	Public Shared Function astuntaines(ByVal suma As Integer, ByRef laikinas2 As Integer) As Integer
		Dim astunt1 As Integer
		Dim i As Integer = 1
		Do While suma <> 0
			astunt1 = suma Mod 8
			suma \= 8
			laikinas2 += astunt1 *i
			i *= 10
		Loop
		i = 0
		Return laikinas2
	End Function
	Public Shared Function atimast(ByVal atim As Integer, ByRef laikinas2 As Integer) As Integer
		Dim astunt1 As Integer
		Dim i As Integer = 1
		laikinas2 = 0
		Do While atim <> 0
			astunt1 = atim Mod 8
			atim \= 8
			laikinas2 += astunt1 *i
			i *= 10
		Loop
		i = 0
		Return laikinas2
	End Function
	Public Shared Sub vertdveje(ByVal suma As Integer, ByRef dvejts As String)

		Dim laiks As SByte = AscW(" "c)
		Do While suma <> 0
			laiks = suma Mod 2 + AscW("0"c)
			dvejts = ChrW(laiks) & dvejts
			suma \= 2

		Loop
	End Sub
	Public Shared Sub advejet(ByVal atim As Integer, ByRef dvejts As String)
		Dim laiksa As SByte = AscW(" "c)
		Do While atim <> 0
			laiksa = atim Mod 2 + AscW("0"c)
			dvejts = ChrW(laiksa) & dvejts
			atim \= 2
		Loop
	End Sub

	Shared Function Main() As Integer

		Dim laikinas2 As Integer = 0
		Dim dvejts As String

		Dim ats As String
		Dim sk As Integer = 0
		Dim x As Integer = 0
		Dim m As Integer = 0
		Dim suma As Integer = 0
		Dim atim As Integer = 0
		Dim mas(9) As Integer
		Dim i As Integer = 0
		Dim o As Integer = 0

		Console.Write("Pragrama atlieka veiksmus skaiciu sistemoje vertimus ir  atimti arba sudeti " & ControlChars.Lf)
		Console.Write("Pradesime nuo is kokiu skaiciu sistemu norite pasirinkti vertima i desimtaine " & ControlChars.Lf)
		Do While o <> 2
			Console.Write("1. Dvejetaine skaiciu sistema (Spausti A) " & ControlChars.Lf)
			Console.Write("2. Astuntaine skaiciu sistema (Spausti B) " & ControlChars.Lf)
			Console.Write("3. Sesioliktaine skaiciu sistema (Spausti C) " & ControlChars.Lf)
            ats = Console.ReadLine()
			If ats = "A" Or ats = "a" Then
				Console.Write("Dvejetaini skaiciu iveskite " & ControlChars.Lf)
                sk = Console.ReadLine()

				sk = GlobalMembersSource.dvejetaines(sk)
				Console.Write("Dvejetainis skaicius paverstas i desimtaini      ")
				Console.Write(sk)
				Console.Write(ControlChars.Lf)
			End If
			If ats = "B" Or ats = "b" Then
				Console.Write("Astuntaini skaiciu iveskite " & ControlChars.Lf)
                m = Console.ReadLine()
				m = GlobalMembersSource.astuntaines(m)
				Console.Write("Astuntainis skaicius paverstas i desimtaini      ")
				Console.Write(m)
				Console.Write(ControlChars.Lf)
			End If
			If ats = "C" Or ats = "c" Then
				Console.Write("Sesioliktaini skaiciu iveskite " & ControlChars.Lf)
                hex = Console.ReadLine()
                x = Console.ReadLine()
				Console.Write("Sesioliktainis skaicius paverstas i desimtaini     ")
				Console.Write(x)
				Console.Write(ControlChars.Lf)

			End If

			suma = sk + m + x
			mas(o) = suma
			sk = 0
			m = 0
			x = 0
            o = o + 1
		Loop

		suma = mas(0) + mas(1)
		atim = mas(0) - mas(1)

		Console.Write("Norite sudeti(Z) ar atimti(L)? " & ControlChars.Lf)
        ats = Console.ReadLine()

		If ats = "Z" Or ats = "z" Then

			Console.Write(suma)
			Console.Write("   Suma" & ControlChars.Lf)
			Console.Write("Ar norite paversti suma i kita skaiciu sistema (Y)" & ControlChars.Lf)
            ats = Console.ReadLine()
			If ats = "Y" Or ats = "y" Then
				Console.Write("1. Dvejetaine skaiciu sistema (Spausti A) " & ControlChars.Lf)
				Console.Write("2. Astuntaine skaiciu sistema (Spausti B) " & ControlChars.Lf)
				Console.Write("3. Sesioliktaine skaiciu sistema (Spausti C) " & ControlChars.Lf)
                ats = Console.ReadLine()
				If ats = "A" Or ats = "a" Then
					 GlobalMembersSource.vertdveje(suma, dvejts)
					Console.Write("Dvejetainis skaicius yra    ")
					Console.Write(dvejts)
					Console.Write(ControlChars.Lf)
				End If
				If ats = "B" Or ats = "b" Then
					laikinas2 = GlobalMembersSource.astuntaines(suma, laikinas2)
					Console.Write("Astuntainis skaicius yra    ")
					Console.Write(laikinas2)
					Console.Write(ControlChars.Lf)
				End If
                If ats = "C" Or ats = "c" Then


                    Console.Write("Sesioliktainis skaicius yra   ")
                    Console.Write("{0:X}", suma)
                    Console.Write("{0}", ControlChars.Lf)
                End If
			End If
		End If
		If ats = "L" Or ats = "l" Then

			Console.Write("{0}", atim)
			Console.Write("{0}", "   Atimties rezultatas   " & ControlChars.Lf)
			atim = atim*(-1)
			Console.Write("{0}", "Ar norite paversti atimties suma i kita skaiciu sistema (Y)" & ControlChars.Lf)
            ats = Console.ReadLine()
			If ats = "Y" Or ats = "y" Then
				Console.Write("{0}", "1. Dvejetaine skaiciu sistema (Spausti A) " & ControlChars.Lf)
				Console.Write("{0}", "2. Astuntaine skaiciu sistema (Spausti B) " & ControlChars.Lf)
				Console.Write("{0}", "3. Sesioliktaine skaiciu sistema (Spausti C) " & ControlChars.Lf)
                ats = Console.ReadLine()
				If ats = "A" Or ats = "a" Then
					GlobalMembersSource.advejet(atim, dvejts)
					Console.Write("{0}", "Dvejetainis skaicius yra    ")
					Console.Write("{0}", dvejts)
					Console.Write("{0}", ControlChars.Lf)
				End If
				If ats = "B" Or ats = "b" Then
					laikinas2 = GlobalMembersSource.atimast(atim, laikinas2)
					Console.Write("{0}", "Astuntainis skaicius yra    ")
					Console.Write("{0}", laikinas2)
					Console.Write("{0}", ControlChars.Lf)
				End If
                If ats = "C" Or ats = "c" Then



                    Console.Write("{0}", "Sesioliktainis skaicius yra   ")
                    Console.Write("{0:X}", atim)
                    Console.Write("{0}", ControlChars.Lf)
                End If
			End If
		End If

		system("Pause")
	End Function
End Class