Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Calcolo esatto dei minuti
Forum - Visual Basic 6 - Calcolo esatto dei minuti

Avatar
bruceex_38 (Normal User)
Newbie


Messaggi: 1
Iscritto: 19/05/2007

Segnala al moderatore
Postato alle 18:54
Sabato, 19/05/2007
Salve sono nuovo del forum e della programmazione in vb quindi chiedo aiuto a voi che sicuramente siete molto piu esperti di me.
Allora ecco il problema:
Devo sviluppare un programmino per un'internet point che mi deve calcolare l'ora e i minuti di connessione e darmi il prezzo che il cliente deve pagare, io ho fatto una prima parte di programma cosi':

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As Double = TextBox1.Text
        Dim B As Double = TextBox2.Text

        TextBox3.Text = (B - A)
End Sub
e devo dire che bene o male sono riuscito ad ottenere cio che volevo praticamente mi calcola l'ora e i minuti della connessione,quello in cui non riesco e invece questo: Una volta ottenuti l'ora e i minuti della connessione devo calcolare il prezzo,ho fatto in questo modo:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim R As Double = TextBox3.Text
        TextBox4.Text = (R * 2.0)
    End Sub
E piu o meno va bene il problema pero' e che se mi deve calcolare un'ora allora ok ma se devo calcolare anche i minuti qui nasce il problema perchè se per esempio la connessione è stata di un'ora e 15 minuti e il prezzo dell'ora e di 2 € mi spunta come totale € 2,30 mentre deve essere di € 2,50 potete aiutarmi a risolvere il problema?
grazie anticipatamente a chiunque vorrà aiutarmi.

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 23:07
Sabato, 19/05/2007
1) occhio che questa è la sezione vb (6) non vb.net
2) x me vai megli calcolando direttamente in minuti.
in vb6 farei così

private sub timer1_timer()'intervallo = 60000 = 1 min
dim minuti as integer
dim spesa as single '(forse meglio currency)
minuti=minuti +1
spesa = (minuti / 60) * 2
end sub

in vb.net sono un po arrugginito ma dovrebbe suonare tipo

private sub timer1_timer() handle timer1.tick
dim minuti as integer
dim spesa as single
minuti=minuti +1
spesa = (minuti / 60) * 2
text2.text= "ore: " & (int(minuti/60)) & " minuti: " & (int(minuti mod 60))
text3.text= "costo totale: " & spesa & "€"
end sub

PM Quote