Sub Főprogram()
        'Beolvasás: Hívások tömb feltöltése a hívási adatok feldolgozásával együtt.
        Beolvas(HívásokFájl)

        'Statisztikai feldolgozás
        Statisztika()


        'Megjelenítés
        '1. Mobil-e
        Dim Vezetékes As Boolean
        MilyenTelefonSzám(Me.TextBox_Telefonszám.Text, Me.Label_MilyenSzám.Text, Vezetékes)

        '2. Időtartam
        Dim IdőSztring As String
        Dim IdőKezd, IdőVég As Date
        Dim Időtartam As Integer
        Dim Csúcsidőben As Boolean

        IdőSztring = Me.TextBox_K_Óra.Text & " " & Me.TextBox_K_Perc.Text & " " & Me.TextBox_K_Másodperc.Text & " " & _
                    Me.TextBox_V_Óra.Text & " " & Me.TextBox_V_Perc.Text & " " & Me.TextBox_V_Másodperc.Text
        IdőFeldolgoz(IdőSztring, IdőKezd, IdőVég, Időtartam, Csúcsidőben)
        Me.Label_Időtartam.Text = Időtartam

        '3. Írás a percek fájlba
        Kiír(PercekFájl)

        '4. Csúcsidős hívások száma:
        Me.Label_HívásSzámCsúcsidőben.Text = HívásStatisztika.HívásSzámCsúcsidőben
        Me.Label_HívásSzámCsúcsidőnKívül.Text = HívásStatisztika.HívásSzámCsúcsidőnKívül

        '5. Hány percet beszélt?
        Me.Label_PercVezetékes.Text = HívásStatisztika.PercVezetékes
        Me.Label_PercMobil.Text = HívásStatisztika.PercMobil

        '6. Mennyit kell fizetni?
        Me.Label_ÁrCsúcsIdő.Text = HívásStatisztika.ÁrCsúcsIdő
        Me.Label_ÁrCsúcsIdőnKívül.Text = HívásStatisztika.ÁrCsúcsIdőnKívül

    End Sub