Calculating amounts using VB

[dablyz]

Hi!

I was wondering if I could get some more excellent advice from this site. I'm designing a project that ultimately, among other functions, calculates a download time based upon a file size (which is loaded at run time by the user), a specified percentile of compression (selected by the user - 0-10%) and a download rate numerical up down box (also user specified - 1-10kb/s).
I figured that this just might be a glorified version of a VAT calculator, and I think I've figured out the code, I just dont know how to get it to execute from within the program. I have two text boxes and a button. The boxes show the KB/s rate and the amount of seconds it's going to take to download the file at the specified KB/s rate.

Here is the code

        'Dim dblCompressionRate, dblCompression, dblCompressedFileSize, dblTotalSeconds, dblRate, dblSizeText
        filesize = FileLen(file)
 
        'Calculate total compressed file size, based upon user settings
        dblCompressionRate = numCompression.Value
        dblSizeText = lblSize.Text
        dblCompression = dblCompressionRate.value / dblSizeText * 10
        dblCompressedFileSize = dblSizeText - dblCompression
 
 
        'Calculate total download time, using compression rate and download speed - and display it in a box
        numKB = dblRate
        dblTotalSeconds = dblCompressedFileSize / dblRate
        txtSec.Text = dblTotalSeconds
 
        Display total download rate in second box
        txtKB.Text = numKB.Value

I've tried putting it on the button event, but it doesn't seem to be working, I'm sure somewhere I'm not actually telling VB what to do with my (hopefully correct) code!

Can anyone help?

TIA!

Sam

[Killer42]

I don't think you said what version of VB you're using.

Anyway, I'd say probably your best bet is to place this code in a Private Sub (in the form) and call it from the change events whenever the user changes something. Or possibly from a timer.

[dablyz]

I don't think you said what version of VB you're using.

Anyway, I'd say probably your best bet is to place this code in a Private Sub (in the form) and call it from the change events whenever the user changes something. Or possibly from a timer.

Apologies - im using VB.NET express edition

I did manage to solve it in the end - and here is the code, if anyone needs it - you were right, it did involve a counter!

    Private Sub btnCalculate_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
 
        Dim FileSize As Double
        If (radJPG.Checked) Then
            If (numCompression.Value = 0) Then
                'FileSize = (FileLen(txtSize.Text)) / 1024
                FileSize = (txtSize.Text) / 1024
            Else
                'FileSize = ((FileLen(txtSize.Text)) / 1024) * (1 - (numCompression.Value / 100))
                FileSize = (txtSize.Text) / 1024 * (1 - (numCompression.Value / 100))
            End If
        Else
            FileSize = (txtSize.Text) / 1024
        End If
        counter = (FileSize / numKB.Value)
        txtSec.Text = Str(counter) + "secs"
 
    End Sub
 

Thanks!