Procent i tid

jeg kunne ummidlbart tænke mig 2 måder at gøre det på :

1 -> du tager tid på aplicationen en gang for alle så laver du noget select case hvor du så kan definere intervallerne.

2 -> man timer løbende hvor lang tid der er gået med det foregående.

Hvis du ved at \"opgaven\" eks. er 20% færdig, og at der ind til videre er gået 10 minutter, så er der jo let at udregne resten:

1% = 10 minutter divideret med 20% = 0,5 min.
100% = 1% (=0.5 min.) ganget med 100 = 50 min.

Eller en formel med sekunder...

Sekunder_I_Alt = (Sekunder_Der_er_Gået % Procent_Færdig) * 100

..eller...

Function SekunderIAlt(Sekunder_Der_er_gaaet As Long, Procent_Faerdig As Integer) As Long
    SekunderIAlt = (Sekunder_Der_er_gaaet % Procent_Faerdig) * 100
End Function

.

Jelzin > Du har helt ret !

winkill>> det var faktisk et uheld jeg ville have pastet noget kode jeg havde lavet til min select case ting :)

men hvis han kan bruge dit er det ligemeget :0) så bruger jeg det selv.

jelzin > Øv ! Troede det var helt seriøst ment... ;o)

:0)

IN VB (Visual Basic) not VB Script, you  can use the progress bar for this?

sjh> hows it going?

ikke godt, jeg kan ikke få det til at funke. :-(

Jeg fant noget, men det funker ikke så godt tiden viser forkert somme tider, så HJÆLP MIG DOV.


http://www.planet-source-code.com/xq/ASP/txtCodeId.12312/lngWId.1/qx/vb/scripts/ShowCode.htm

Hi sjh!
Can\'t you use the progress bar for this, or MUST you have a time value?
The progress bar gives a visual representation of the time used.

When you say, % om til tid. Procent of what?

terry> jeg bruger AddressOf, nStatus er i % MIN=0 MAX=100.


Public Function StartEncoding(IndWavFile As String, OutMp3File As String) As Long
  Stop_Encoding = 0
  StartEncoding = EncodeMp3(IndWavFile, OutMp3File, AddressOf EnumEncoding)
End Function

Public Function EnumEncoding(ByVal nStatus As Integer) As Boolean
  frmMain.Caption = \"\" & nStatus & \" %\"
    DoEvents
  If Stop_Encoding = 1 Then
    EnumEncoding = False
      Else
    EnumEncoding = True
  End If
End Function

sjh> I am going to have to say that I dont know what these functions (EncodeMp3 and EnumEncoding)do, so its difficult to make any suggestions!

I can see that EnumEncoding displays a % and it looks to me as though the function EncodeMp3 uses
EnumEncoding for something. But I would need a bit more information before I can help!

terry> Skriv din E-mail så sender jeg det til dig.

dkTeBrSa@Europe.lego.com (.com is in the hyperlink)

Ho! they hav egot it right now (the email translation)

sjh> I have had a look at your VB application.

I cant see how its possible to change a % to a time without knowing how long its going to take. I suppose its possible to calcule the time taken between each % adjusting underway. Is this what you want? Th eproblem here is that the DLL could have a delay and you can only re-calculate when your return from the DLL call.

Or as I said you could just show a progress bar.

Let me know what you think!

Terry

Så, nu fik jeg det til at funke. i kan selv prøve. :-)


\'---------------------------- Form1 ----------------------------
Dim TestCount As Long
Dim StartTime As Variant

Function TimeStart()
  StartTime = Timer
End Function

Private Function SecToTime(Sec) As String
Dim Min As Variant
  Min = Format(Fix(Sec / 60), \"00\")
SecToTime = Format(Fix(Min / 60), \"00\") & \":\" & Format(Min Mod 60, \"00\") & \":\" & Format(Sec Mod 60, \"00\")
End Function

Function TimeProcent(CountValue As Variant, MaxValue As Variant) As String
Dim t_ProcentTime As Variant
Dim t_Time As Variant
If CountValue > 0 Then
  t_Time = CountValue / (Timer - StartTime)
    t_ProcentTime = (MaxValue - CountValue) / t_Time
  TimeProcent = SecToTime(t_ProcentTime)
End If
End Function

Private Sub Command1_Click() \'Start Test
  TestCount = 0
    TimeStart
  Timer1.Enabled = True
End Sub

Private Sub Form_Load()
  Timer1.Enabled = False
  Timer1.Interval = 750
End Sub

Private Sub Timer1_Timer()
  TestCount = TestCount + 1
    Me.Caption = TimeProcent(TestCount, 100) & \" - \" & TestCount & \" %\"
  If TestCount = 100 Then Timer1.Enabled = False
End Sub
\'---------------------------- Form1 ----------------------------

sjh> Thanks for the points:o)
I have had a look at your code and it seems to work fine.

tak for pts :)