ProgramiranjeVBLab(4-5)

Module Module1

    Sub main()
        Dim odabir As String = "aa"

        While odabir <> "k"
            Console.Write("[pb, oz, nzd, db, bd, p]: ")
            'pb - prosti brojevi,  oz - okretanje znamenki
            'nzd-najveci zajednicki djeljitelj
            'db-dec u bin,  'bd-bin u dec,   'p-potenciranje
            odabir = Console.ReadLine()

            Select Case odabir
                Case "pb"
                    Console.WriteLine("*************************************")
                    ProstiBrojevi.unos()
                    Console.WriteLine("*************************************")
                Case "oz"
                    Console.WriteLine("*************************************")
                    OkretanjeZnamenki.unos()
                    Console.WriteLine("*************************************")
                Case "nzd"
                    Console.WriteLine("*************************************")
                    NajveciZajednickiDJeljitelj.unos()
                    Console.WriteLine("*************************************")
                Case "db"
                    Console.WriteLine("*************************************")
                    decToBin.unos()
                    Console.WriteLine("*************************************")
                Case "bd"
                    Console.WriteLine("*************************************")
                    binToDec.unos()
                    Console.WriteLine("*************************************")
                Case "p"
                    Console.WriteLine("*************************************")
                    potenciranje.unos()
                    Console.WriteLine("*************************************")
                Case "k"
                    Exit While
                Case Else
                    Console.WriteLine("Netocan unos")
            End Select

        End While
    End Sub

End Module

Module ProstiBrojevi
    Function jeliProst(ByVal broj As Single) As Boolean
        If broj = 1 Then
            Return False
        ElseIf broj = 2
            Return True
        ElseIf broj Mod 2 = 0
            Return False
        Else
            For i = 3 To broj ^ 0.5 Step 1
                If broj Mod i = 0 Then
                    Return False
                End If
            Next
        End If

        Return True
    End Function

    Sub unos()
        Dim broj As Single = 1
        Dim prost As Boolean

        While broj <> 0
            Console.Write("Unesi broj: ")
            broj = Console.ReadLine()
            prost = jeliProst(broj)

            If prost = True Then
                Console.WriteLine("Broj " & broj & " je prost")
            Else
                Console.WriteLine("Broj " & broj & " nije prost")
            End If
        End While
    End Sub
End Module

Module OkretanjeZnamenki
    Function brojiZnamenke(ByVal broj As Single) As Byte
        Dim brojac As Byte

        While broj <> 0
            brojac = brojac + 1
            broj = broj \ 10
        End While

        Return brojac
    End Function

    Sub unos()
        Dim broj As Single = 1
        Dim znamenke As Byte = 0

        While broj <> 0
            Console.WriteLine()
            Console.Write("Unesi broj: ")
            broj = Console.ReadLine()
            znamenke = brojiZnamenke(broj)

            For i = 1 To znamenke - 1 Step 1
                Console.Write(broj Mod 10)
                broj = broj \ 10
            Next
            Console.Write(broj)
        End While
        Console.WriteLine()
    End Sub
End Module

Module potenciranje
    Function potenciranje(ByVal broj As Single, ByVal exp As Single) As Long
        Dim rez As Long = 1

        For i = 1 To exp Step 1
            rez = rez * broj
        Next

        Return rez
    End Function

    Sub unos()
        Dim broj, eksponent As Single
        Dim rez As Long
        broj = 1

        While broj <> 0
            Console.Write("Unesi bazu: ")
            broj = Console.ReadLine()
            Console.Write("Unesi exp: ")
            eksponent = Console.ReadLine()

            rez = potenciranje(broj, eksponent)

            Console.WriteLine(broj & " ^ " & eksponent & " = " & rez)
        End While
    End Sub
End Module

Module decToBin
    Function brojiZnamenke2(ByVal broj As Single) As Byte
        Dim brojac As Byte

        While broj <> 0
            brojac = brojac + 1
            broj = broj \ 2
        End While

        Return brojac
    End Function

    Sub unos()
        Dim broj As Single = 1
        Dim znamenke As Byte


        While broj <> 0
            Console.WriteLine()
            Dim niz() As Byte
            Console.Write("Unesi broj: ")
            broj = Console.ReadLine()
            znamenke = brojiZnamenke2(broj)
            Dim znamenke2 = znamenke
            ReDim niz(znamenke)

            For i = znamenke - 1 To 0 Step -1
                If broj Mod 2 = 0 Then
                    niz(i) = "0"
                Else
                    niz(i) = "1"
                End If

                broj = broj \ 2
            Next

            For i = 0 To znamenke2 - 1 Step 1
                Console.Write(niz(i) & " ")
            Next

        End While
        Console.WriteLine()
    End Sub
End Module

Module binToDec
    Sub ispis64(ByVal broj As Long)
        Dim ispitivac As Long = Long.MinValue

        For i = 0 To 63 Step 1
            If (i Mod 4) = 0 And i <> 0 Then
                Console.Write(" ")
            End If
            If (broj And ispitivac) = ispitivac Then
                Console.Write("1")
            Else
                Console.Write("0")
            End If

            broj = broj << 1
        Next
        Console.WriteLine()
    End Sub

    Function ispis64(ByVal broj As Long, ByVal brojac As Byte) As Long
        Dim ispitivac As Long = 1 << brojac - 1
        Dim brojdek As Long

        For i = brojac - 1 To 0 Step -1
            If (broj And ispitivac) = ispitivac Then
                Console.Write("1")
                brojdek = brojdek + (1 * 2 ^ i)
            Else
                Console.Write("0")
            End If

            broj = broj << 1
        Next

        Return brojdek
    End Function

    Sub unos()
        Dim varijabla As Long
        Dim broj As Byte = 1
        Dim brojac As Byte
        Dim brojdek As Long

        While broj <> 2
            Console.Write("Unesi broj: ")
            broj = Console.ReadLine()
            If broj >= 2 Then
                Exit While
            End If
            varijabla = varijabla << 1
            varijabla = varijabla Or broj

            brojac = brojac + 1
        End While

        brojdek = ispis64(varijabla, brojac)
        Console.Write("(2) = " & brojdek & "(10)")

        Console.WriteLine()
    End Sub
End Module

Module NajveciZajednickiDJeljitelj
    Sub unos()
        Dim broj, broj1, min As Long
        Console.Write("Unesi prvi broj: ")
        broj = Console.ReadLine()
        Console.Write("Unesi drugi broj: ")
        broj1 = Console.ReadLine()

        If broj < broj1 Then
            min = broj
        Else
            min = broj1
        End If

        For i = min To 1 Step -1
            If ((broj Mod i) = 0) And ((broj1 Mod i) = 0) Then
                Console.WriteLine("NZD: " & broj & " i " & broj1 & " = " & i)
                Exit For
            End If
        Next
    End Sub
End Module