Module Module1
    Public Class Bankomat

        Structure Izvjestaj
            Dim uplata As String
            Dim isplata As String
        End Structure

        Public adminStanjeNaRacunu As Double = 1000000000
        Public stanje As Integer = 1500
        Public pin As Integer = 1512
        Public admin As Integer = 1

        Function Kredit(ByRef velicinaKredita As Double, ByRef godineOtplate As Integer) As Integer

            Console.Write("Koji iznos kredita želite uzeti: ")
            Console.WriteLine()
            velicinaKredita = Console.ReadLine

            If velicinaKredita > 1000000 Then
                Console.Write("Nažalost, u našoj banci maksimalno možete podignuti milijun kuna")
                Console.WriteLine()
            Else
                Console.Write("Na koliko godina želite uzeti kredit? Najviše na 15 godina: ")
                godineOtplate = Console.ReadLine
                Console.WriteLine()
                If godineOtplate > 15 Then
                    Console.WriteLine("Nažalost, ne možemo vam isporučiti takav kredit")
                    Console.WriteLine()
                Else
                    Console.WriteLine("Uspješno ste podigli {0} HRK na rok otplate od {1} godina", velicinaKredita, godineOtplate)
                    Console.WriteLine()

                End If
            End If

            Return 0
        End Function

        Function Administrator(ByRef prebacivanjeIznosa As Double) As Integer

            Dim brojSaltera As Integer = 8
            Dim random As Random = New Random()
            Console.WriteLine("Dobrodošli u centralni sustav banke")
            Console.WriteLine()
            Console.Write("Trenutno se u banci nalazi {0} HRK, otvorena su {1} šaltera", stanje, brojSaltera)
            Console.WriteLine()
            Console.WriteLine("Svi sustavi rade rade normalno, optimizacija sustava uspješna")
            Console.WriteLine()
            Console.WriteLine("Trenutni suficit iznosi: {0} HRK", stanje * random.Next(100, 555))
            Console.WriteLine()
            Console.WriteLine("Unesite odabir: adminU ili adminI")
            Dim odabir As String = Console.ReadLine.ToUpper
            Console.WriteLine()


            Select Case odabir
                Case "ADMINU"
                    Console.Write("Koliko novaca želite postaviti na stanje: ")
                    prebacivanjeIznosa = Console.ReadLine
                    Console.WriteLine()
                    Console.WriteLine("Uspješno prebacivanje, na stanju se sada nalazi: {0}", stanje + prebacivanjeIznosa)
                    Console.WriteLine()
                Case "ADMINI"
                    Console.Write("Koliko novaca želite povući sa stanja: ")
                    prebacivanjeIznosa = Console.ReadLine
                    Console.WriteLine()
                    Console.WriteLine("Uspješno prebacivanje, na stanju se sada nalazi: {0}", stanje - prebacivanjeIznosa)
                    Console.WriteLine()

            End Select


            Console.ReadKey()

            Return 0
        End Function

        Function KreiranjeRacuna(ByRef racun As Integer()) As Integer

            Console.WriteLine("Sada ćemo vam kreirati novi račun, početni iznos je {0} HRK", stanje)
            Console.WriteLine()

            Dim slucajniOdabir As Random = New Random()

            For i = 0 To 9
                racun(i) = slucajniOdabir.Next(1, 10)
            Next

            Console.Write("Vaš novi račun je: ")
            For Each ulaz In racun
                Console.Write(ulaz & " ")
            Next

            Console.WriteLine()
            Console.WriteLine()


            Return 0
        End Function

        Function UpitStanja()
            Console.WriteLine("Na računu imate {0} HRK ", stanje)
            Console.WriteLine()
            Return 0
        End Function

        Function Uplata(ByVal x As Integer)
            stanje += x
            Return 0
        End Function

        Function Isplata(ByVal x As Integer)
            stanje -= x
            Return 0
        End Function

    End Class
    Sub Main()

        Dim pozivKlase As Bankomat = New Bankomat()
        Dim listaUplate As List(Of String) = New List(Of String)
        Dim listaIsplate As List(Of String) = New List(Of String)
        Dim listaKredita As List(Of String) = New List(Of String)
        Dim listaRacuna As List(Of String) = New List(Of String)
        Dim racunKreiranje As Integer() = New Integer(9) {}

        Dim prebacivanjeUSefbanke As Double
        Dim novacKredita As Double
        Dim godineKredita As Integer
        Dim pin As Integer
        Dim novac As Integer
        Dim unos As String

        Console.WriteLine("Dobrodošli na bankomat FESB-a")
        Console.WriteLine()
        Console.WriteLine("Molimo vas unesite vaš pin: ")
        pin = Console.ReadLine()
        Console.WriteLine()

        If (pin = pozivKlase.pin) Then

            Do

                Console.WriteLine("Unesite šta želite")
                Console.Write("Uplata, isplata, uvid, podizanje kredita, kreiranje novog računa, a za izlaz napisite exit:  ")
                unos = Console.ReadLine().ToUpper()
                Console.WriteLine()

                Select Case unos

                    Case "UPLATA"
                        Console.WriteLine("Molimo unesite koliko novaca želite uplatiti: ")
                        novac = Console.ReadLine()
                        Dim uplata As String
                        uplata = String.Format("Uplatili ste {0} HRK", novac)
                        listaUplate.Add(uplata)
                        pozivKlase.Uplata(novac)
                        Console.WriteLine("Uspješno ste uplatili {0}HRK", novac)
                        Console.WriteLine()

                    Case "ISPLATA"
                        Console.WriteLine("Molimo unesite koliko novaca želite islatiti: ")
                        novac = Console.ReadLine()

                        If novac < pozivKlase.stanje Then
                            Dim isplata As String
                            isplata = String.Format("Isplatili ste {0} HRK", novac)
                            listaIsplate.Add(isplata)
                            pozivKlase.Isplata(novac)
                            Console.WriteLine("Uspješno ste islatili {0}HRK", novac)
                            Console.WriteLine()
                        Else
                            Console.WriteLine("Nemate dovoljno sredstava")
                            Console.WriteLine()
                        End If
                    Case "UVID"
                        pozivKlase.UpitStanja()
                    Case "PODIZANJE"
                        pozivKlase.Kredit(novacKredita, godineKredita)
                        Dim kredit As String
                        kredit = String.Format("Uspješno ste podigli {0} HRK na rok otplate od {1} godina", novacKredita, godineKredita)
                        listaKredita.Add(kredit)

                    Case "KREIRANJE"
                        pozivKlase.KreiranjeRacuna(racunKreiranje)
                        Dim racun As String
                        Console.Write("Napravili ste novi račun: ")
                        For index = 0 To 9
                            racun = String.Format(racunKreiranje(index) & " ")
                        Next
                        listaRacuna.Add(racun)
                End Select

            Loop While unos <> "EXIT"

        ElseIf pin = pozivKlase.admin Then

            pozivKlase.Administrator(prebacivanjeUSefbanke)
            Exit Sub

        Else
            Console.WriteLine("Krivi pin, molimo pokušajte ponovo")
            Console.WriteLine()
        End If

        Console.WriteLine()
        Console.WriteLine("Dovidenja")
        Console.WriteLine()



        For Each ulaz In listaUplate
            Console.WriteLine("Izvjestaj: {0}", ulaz)
        Next

        For Each ulaz In listaIsplate
            Console.WriteLine("Izvjestaj: {0}", ulaz)
        Next

        For Each ulaz In listaKredita
            Console.WriteLine("Izvjestaj: {0}", ulaz)
        Next

        Console.Write("Izvještaj: ")
        For index = 0 To 9
            Console.Write(racunKreiranje(index))
        Next

        Console.ReadKey()
    End Sub

End Module