12,951,034 members (58,835 online)
alternative version

#### Stats

37.4K views
32 bookmarked
Posted 4 Mar 2009

# Disc Used Space Control in Circle ProgressBar

, 4 Mar 2009 CPOL
 Rate this:
This Circle ProgressBar tells you about DVD or CD used space

## Introduction

Hello!
I think Burning Applications should tell their users for disc (DVD/CD) used space in an attractive way, for example like this control.

## Background

With this control, you find used space of DVD in a Circle ProgressBar Control.
For example, Nero wants to tell users about DVD/CD used space. This is the best way, it isn't perfect, but nothing is perfect.

## Control Properties and Methods

Here is a list of the primary properties:

• `Disc Type`
With this property we change Type of Disc
example: from DVD(4500 MB) to CD(700 MB)
• `Valuemb `
Capacity of disc in MB

## Using the Code

Now let us see the code:

```'used variables
' l_1 is the main circle
' l_2 is the second circle
' l_3 is the third circle (smallest)
' l_4 is tells you for used space of disc
' d is diameter of l_1
' d2 is diameter of l_2
' d3 is diameter of l_3
' d4 is diameter of l_4
' d_temp is distance between l_1 and l_4
' p is the center of the form
' dim p as integer = me.width/2
' 'we use only p coordinate because width=height```
```Dim a as Double 'this value will be percentage of used space
'If type of Disc is DVD
a=(100 * Val(value_mb)) / 4500 ' valuemb is your value in mb
Dim d_temp As Integer
d_temp = d - (d / 4) 'distance between l_1 and l_4
d_per = ((a / 100) * d_temp) + d2 'diameter of l_4(used space circle)
r_per = d_per / 2 'radius of l_4(used space circle)
'Now we draw l_4 (used space circle)
e.Graphics.FillEllipse(color1, p - r_per, p - r_per, d_per, d_per)

'If type of Disc is CD
a=(100 * Val(value_mb)) / 700 ' valuemb is your value in mb
Dim d_temp As Integer
d_temp = d - (d / 4) 'distance between l_1 and l_4
d_per = ((a / 100) * d_temp) + d2 'diameter of l_4(used space circle)
r_per = d_per / 2 'radius of l_4(used space circle)
'Now we draw l_4 (used space circle)
e.Graphics.FillEllipse(color1, p - r_per, p - r_per, d_per, d_per) ```

On resize width of control must be equal to height:

```Me.Width = Me.Height
Me.Height = Me.Width```

## History

• Version 1.0 - 28 February 2009

## Share

 Software Developer Appsix Mobile Albania
Esat Pllana
Live in Mitrovica
Republic of Kosovo

## You may also be interested in...

 Pro Pro

 First Prev Next
 My vote of 5 Heaven20205-Nov-10 0:31 Heaven2020 5-Nov-10 0:31
 only one issue mtkupp21-Apr-09 3:04 mtkupp 21-Apr-09 3:04
 Re: only one issue Esat Pllana21-Apr-09 5:47 Esat Pllana 21-Apr-09 5:47
 Re: only one issue mtkupp21-Apr-09 6:06 mtkupp 21-Apr-09 6:06
 Re: only one issue Esat Pllana21-Apr-09 6:17 Esat Pllana 21-Apr-09 6:17
 Absolutely great fitimm13-Apr-09 4:37 fitimm 13-Apr-09 4:37
 5 xhevdacom9-Apr-09 6:22 xhevdacom 9-Apr-09 6:22
 Great first article Donsw21-Mar-09 17:43 Donsw 21-Mar-09 17:43
 WOW roberto.reff9-Mar-09 13:49 roberto.reff 9-Mar-09 13:49
 Good job! Shane Story5-Mar-09 3:47 Shane Story 5-Mar-09 3:47
 My vote of 5! Tarmo Kalda4-Mar-09 20:56 Tarmo Kalda 4-Mar-09 20:56
 Last Visit: 31-Dec-99 18:00     Last Update: 26-May-17 0:53 Refresh 1