|
Public Class Form1 Public MultSize() As Double = { _ 1 / 8, _ 1, _ 10 ^ 3, _ 2 ^ 10, _ 10 ^ 6, _ 2 ^ 20, _ 10 ^ 9, _ 2 ^ 30, _ 10 ^ 12, _ 2 ^ 40, _ 10 ^ 15, _ 2 ^ 50, _ 10 ^ 18, _ 2 ^ 60} Public MultSpeed() As Double = {1 / 8, 1, 1000 / 8, 1000} Public Enum ByteSize Bit Byte_ KiloByte KibiByte MegaByte MebiByte GigaByte GibiByte TeraByte TebiByte PetaByte PebiByte ExaByte ExbiByte End Enum Public Enum ByteSpeed Kbit KByte Mbit MByte End Enum Private Sub cmdCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCalc.Click Try Dim Size As Double = nudSize.Value * MultSize(cmbSize.SelectedIndex) Dim Speed As Double = nudSpeed.Value * MultSpeed(cmbSpeed.SelectedIndex) * 1000 Dim T As TimeSpan = TimeSpan.FromSeconds(Size / Speed) Dim Text As String = T.Days & " giorni, " & T.Hours & " ore, " & T.Minutes & " minuti e " & T.Seconds & "," & T.Milliseconds & " secondi" MsgBox("Impiegherai " + Text + " per completare il downalod.", MsgBoxStyle.Information) Catch Ex As Exception MsgBox("Errore di calcolo!", MsgBoxStyle.Exclamation) End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmbSize.SelectedIndex = 2 cmbSpeed.SelectedIndex = 0 End Sub End Class
|
|
