Option Explicit
Dim minuti As Integer
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Me
End
End Sub
Private Sub mnuAzioniCalcolaUrbana_Click()
lblTipoChiamata.Caption = "Chiamata urbana"
CalcolaUrbana
End Sub
Public Sub CalcolaUrbana()
On Error GoTo GestioneErrori
'///INIZIO COSTANTI PER CHIAMATE URBANE
Const Scatto = 7.87
Const Tariffa = 1.43
Const FasciaRidotta = 0.82
minuti = CInt(txtMinuti.Text)
'Gestisco lo 0
If txtMinuti = "0" Then
MsgBox "Inserisci un valore corretto", vbExclamation, "ERRORE"
txtMinuti.Text = ""
txtMinuti.SetFocus
Exit Sub
End If
'Controllo se c'è la fascia ridotta
If chkFasciaRidotta.Value = vbChecked Then
lblSpesa.Caption = Scatto + (FasciaRidotta * minuti) & " Centesimi"
Else
lblSpesa.Caption = Scatto + (Tariffa * minuti) & " Centesimi"
End If
Exit Sub
'Gestisco gli errori
GestioneErrori:
MsgBox Err.Description, vbExclamation, "ERRORE"
txtMinuti.SetFocus
End Sub
Private Sub mnuCalcolaInterurbana_Click()
lblTipoChiamata.Caption = "Chiamata interurbana"
CalcolaInterurbana
End Sub
Private Sub mnuFileEsci_Click()
'Termino il programma
End
End Sub
Private Sub mnuFileNuovoFoglio_Click()
txtMinuti = ""
lblSpesa.Caption = ""
chkFasciaRidotta.Value = 0
lblTipoChiamata.Caption = ""
txtMinuti.SetFocus
End Sub
Public Sub CalcolaInterurbana()
On Error GoTo GestioneErrori
'///INIZIO COSTANTI PER CHIAMATE INTERURBANE
Const Scatto = 7.87
Const Tariffa = 10.39
Const FasciaRidotta = 3.1
minuti = CInt(txtMinuti.Text)
'Gestisco lo 0
If txtMinuti = "0" Then
MsgBox "Inserisci un valore corretto", vbExclamation, "ERRORE"
txtMinuti.Text = ""
txtMinuti.SetFocus
Exit Sub
End If
'Controllo se c'è la fascia ridotta
If chkFasciaRidotta.Value = vbChecked Then
lblSpesa.Caption = Scatto + (FasciaRidotta * minuti) & " Centesimi"
Else
lblSpesa.Caption = Scatto + (Tariffa * minuti) & " Centesimi"
End If
Exit Sub
'Gestisco gli errori
GestioneErrori:
MsgBox Err.Description, vbExclamation, "ERRORE"
txtMinuti.SetFocus
End Sub
Private Sub mnuFileSalva_Click()
Dim stFile As String
On Error GoTo GestioneErrori
stFile = App.Path & "TARIFFE.dat"
frmStampa.Show
Open stFile For Append As #1
Write #1, frmStampa.RTF.Text
Close #1
frmStampa.Hide
MsgBox "File salvato in " & App.Path, vbInformation, "SALVATAGGIO AVVENUTO CON SUCCESSO!"
Exit Sub
GestioneErrori:
MsgBox Err.Description
End Sub
Private Sub mnuFileStampa_Click()
frmStampa.Show
End Sub