Vb@rchiv-Code

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von hal2000.

    Vb@rchiv-Code

    VB.NET-Quellcode

    1. ' Für das Beispiel sei angenommen, dass Dateien kopiert werden sollen
    2. ' und die zu kopierenden Dateien im Array arrFiles() liegen.
    4. Private Sub cmdCopy_Click()
    5. Dim Start As Single
    6. Dim Dateien As Long
    7. Dim i As Long
    9. ' Startzeit festlegen
    10. Start = Timer
    12. ' Anzahl der zu kopierenden Dateien bestimmen
    13. ' (da das Array bei 0 (Null) beginnt, ist die Anzahl der Dateien der
    14. ' obere Index des Arrays + 1)
    15. Dateien = UBound(arrFiles) + 1
    17. For i = LBound(arrFiles) To UBound(arrFiles)
    18. ' Datei kopieren
    19. FileCopy "C:\temp\" & arrFiles(i), "C:\Temp1\" & arrFiles(i)
    21. ' Restzeit anzeigen
    22. ' (da das Array bei 0 (Null) beginnt, ist die Anzahl der bereits
    23. ' kopierten Dateien i + 1)
    24. Label1.Caption = "Verbleibende Zeit: " & TimeRemain(Start, Dateien, i + 1) & " Sekunden"
    25. Next i
    26. End Sub
    27. Private Function TimeRemain(Start As Single, Dateien As Long, _
    28. Kopiert As Long) As Long
    30. Dim Vergangen As Single
    31. Dim Rest As Long
    32. Dim Tmp As Double
    34. ' Start: Zeit, wann mit der Operation begonnen wurde
    35. ' Dateien: Anzahl aller Dateien
    36. ' Kopiert: Anzahl der bereits kopierten Dateien
    37. ' Vergangen: Zeit, die seit dem Start der Operation verstrichen ist
    38. ' Rest: Zeit, die für die restlichen Dateien benötigt wird
    39. ' Tmp: Zeit, die für eine Datei benötigt wurde (Durchschnitt)
    41. ' Zeit, die seit dem Start der Operation verstrichen ist
    42. Vergangen = Timer - Start
    44. ' Zeit, die für eine Datei benötigt wird (Durchschnitt)
    45. Tmp = Vergangen / Kopiert
    47. ' Zeit, die für die restlichen Dateien benötigt wird
    48. ' restliche Dateien = Dateien - Kopiert
    49. Rest = (Dateien - Kopiert) * Tmp
    51. TimeRemain = Rest
    52. End Function

    Hallo, den vorherigen Code
    habe ich auf Vb@rchiv gefunden.
    Was ist die Funktion Timer.
    Bei mir wird immer ein Fehler angezeigt.
    Der Link ist da, probiert den Code aus und postet eure fehler BITTE hier


    Edit by Manschula: Warum startest du hier eine Umfrage ("Ist das ein Fehler oder kein Fehler")? --> Unsinnige Umfrage entfernt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()

    danke,
    aber wie fuktioniert der Code jetzt in VB.NET
    //EDIT\\
    Hab den Code nun so geändert:

    VB.NET-Quellcode

    1. Dim arrFiles As Array
    2. Dim Nun As String = System.DateTime.Now
    4. Sub GetSyncTime_SyncStart()
    5. Dim Start As String
    6. Dim Dateien As Long
    7. Dim i As Long
    9. ' Startzeit festlegen
    10. Start = Nun
    12. ' Anzahl der zu kopierenden Dateien bestimmen
    13. ' (da das Array bei 0 (Null) beginnt, ist die Anzahl der Dateien der
    14. ' obere Index des Arrays + 1)
    15. Dateien = UBound(arrFiles) + 1
    17. For i = LBound(arrFiles) To UBound(arrFiles)
    18. ' Datei kopieren
    19. StartSync()
    21. ' Restzeit anzeigen
    22. ' (da das Array bei 0 (Null) beginnt, ist die Anzahl der bereits
    23. ' kopierten Dateien i + 1)
    24. tbTimeStatus.Text = TimeRemain(Start, Dateien, i + 1) & " Sekunden"
    25. Next i
    26. With tbTimeStatus
    27. If .Text = "0 Sekunden" Then
    28. .Text = "Fertig!"
    29. End If
    30. End With
    31. End Sub
    33. Private Function TimeRemain(Start As String, Dateien As Long, Kopiert As Long)
    35. Dim Vergangen As Single
    36. Dim Rest As Long
    37. Dim Tmp As Double
    40. ' Start: Zeit, wann mit der Operation begonnen wurde
    41. ' Dateien: Anzahl aller Dateien
    42. ' Kopiert: Anzahl der bereits kopierten Dateien
    43. ' Vergangen: Zeit, die seit dem Start der Operation verstrichen ist
    44. ' Rest: Zeit, die für die restlichen Dateien benötigt wird
    45. ' Tmp: Zeit, die für eine Datei benötigt wurde (Durchschnitt)
    47. ' Zeit, die seit dem Start der Operation verstrichen ist
    48. Vergangen = Nun - Start
    50. ' Zeit, die für eine Datei benötigt wird (Durchschnitt)
    51. Tmp = Vergangen / Kopiert
    53. ' Zeit, die für die restlichen Dateien benötigt wird
    54. ' restliche Dateien = Dateien - Kopiert
    55. Rest = (Dateien - Kopiert) * Tmp
    57. TimeRemain = Rest
    58. End Function

    Aber jetzt wird bei

    VB.NET-Quellcode

    1. Dateien = UBound(arrFiles) + 1
    Folgender Fehler angezeigt:
    ArgumentNullException wurde nicht behandelt
    Der Wert darf nicht NULL sein
    Parametername: Das Argument Array ist "Nothing".
    Wo liegt der Fehler ?( ?( ?( ?(

    //EDIT\\
    Das Programm ChipPRO DirectorySync wird bald veröffentlicht.
    Codequellen:
    VB-Paradise
    Vb@rchiv
    DotNet-Snippets

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ChipPRO Österreich“ ()

    :D :D :D :D Es sind keine Fehler drin? Der war gut. Dann sollte alles ja perfekt funktionieren. Wo is das Problem?
    Btw.. es gibt keine alternative zu Strict ON!
    Der erste is in Zeile 2

    VB.NET-Quellcode

    1. DIM string as DateTime

    is kla, ne

    Hi
    ja. Programmieren lernen. Danach ist Option Strict sowieso On. Jetzt setzt du dich einfach mal hin und versuchst deine Probleme selber zu lösen. Wie willst du was lernen, wenn wir dir jedes Bröckchen vorkauen und dabei nichts rüberkommt? Als Anlaufstellen hast du so viele Möglichkeiten. Wenn ein Fehler auftritt, den du partout nicht verstehst, schmeiß die Fehlermeldung in eine Suchmaschine und recherchiere so lange, bis du das gefunden hast, was dir hilft. Was ist das denn für eine Arbeitshaltung? ;)

    Du meintest, du hättest ein Buch daheim. Wenn darin die Grundlagen umfangreich behandelt werden, setze dich mal da hin und programmiere ein paar Sachen nach und versuche mit dem dort vermittelten Wissen ein wenig Verständnis aufzubauen. Wenn du damit fertig bist, kannst du dich mal an etwas Größeres ranwagen.

    Gruß
    ~blaze~

    FloFuchs schrieb:

    :D :D :D :D Es sind keine Fehler drin? Der war gut. Dann sollte alles ja perfekt funktionieren. Wo is das Problem?
    Btw.. es gibt keine alternative zu Strict ON!
    Der erste is in Zeile 2

    VB.NET-Quellcode

    1. DIM string as DateTime

    is kla, ne


    Hast du das schon mal probiert? Bei mir zeigt Option Strict On in Zeile 2 keinen Fehler. Ich würde sagen fail von deiner Seite aus :P.

    Ich weiß nich was du für ein VB hast.... @Bluespide
    Bei meinem is die implizite Konvertierung von String zu DateTime immer noch verboten ...
    Bilder

    • Option-01.gif

      37,46 kB, 680×367, 158 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FloFuchs“ ()