Laufzeit und Listener Anzeigen lassen

  • VB.NET

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von Cybkill.

    Laufzeit und Listener Anzeigen lassen

    Hallo VB-Paradise :D

    Ich wollte gerade eben mein Player updaten blos da ich z.Z. sehr wenig mit den Programm gemacht habe.

    Für Folgende Dinge wollte ich was einfügen:
    - Laufzeit anzeigen
    - Listener Anzeigen


    Für Listener habe ich jetzt keine Ahnung was ich da einfügen soll :x wollte es auf jedenfall über ein Label laufen lassen :x

    Für die Laufzeit habe ich diesen Code der aber dann nur für 1en Stream Gilt, ich brauche dies aber für ca. 10 streams und wollte dies immer nur dann gestartet haben wenn ein Stream Anfängt und wenn ein Stream gewechselt wird neu anfängt.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private StartTime As Date
    3. Private Sub
    4. StartTime = Date.Now
    5. Timer1.Start()
    6. 'Code
    7. Timer1.Stop()
    8. End Sub
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    12. Dim Ts As TimeSpan = Date.Now.Subtract(StartTime)
    13. Label1.Text = Ts.Hours.ToString("00") & ":" & _
    14. Ts.Minutes.ToString("00") & ":" & _
    15. Ts.Seconds.ToString("00")
    16. Label1.Refresh()
    17. End Sub


    Wäre nett wenn mir welche helfen könnten :x

    Danke euch Schonmal :x

    lg cybkill
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

    Den TimeSpan kannst Du mit ToString ausgeben:

    VB.NET-Quellcode

    1. Dim ts As New TimeSpan(12, 34, 56)
    2. MessageBox.Show(ts.ToString())
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn Du eine Dauer messen willst, nimm lieber eine Stopwatch-Instanz:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private start As DateTime
    3. Private sw As New Stopwatch
    4. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    5. start = DateTime.Now
    6. sw.Start()
    7. End Sub
    8. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    9. Dim dauer As TimeSpan = DateTime.Now - start
    10. sw.Stop()
    11. MessageBox.Show(dauer.ToString & Environment.NewLine & sw.Elapsed.ToString)
    12. End Sub
    13. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich will es so haben:

    Wenn ein Stream (ein Radio) ausgewählt wurde, soll der Stream ausgelesen werden, sprich was dort läuft, und dies bei jedem einzelnen Stream.

    Bei der Laufzeit wollte ich es so haben:

    Beim Auswählen eines Streames, sollen 3 Labels (H:M:S) ausgelesen werden und immer aktualisiert werden, wie bei einen Normalen Windows media player, die dauer/laufzeit des Liedes, blos das hier vom ganzen Stream der fall ist, wie lang der Stream schon läuft.

    Fals dies unverständlich ist, bemühe ich mich dies besser auszudrücken.
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

    Cybkill schrieb:

    Ich will es so haben:
    Genau das hab ich Dir doch geschrieben.
    Pack Deine Events und meine Ausgaben zusammen und fertig.
    Du musst schon ein wenig mehr tun als nur C&P :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das hat nicht geklappt,

    habe es zusammen gefügt und der zeigt mir an dauernd Fehlermeldungen an, ich wollte über den Button alles laufen lassen und halt über den Label, dies hat aber nicht geklappt, suche dennoch hilfe, sonst schaue ich auch nochmal überall rüber.
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

    Cybkill schrieb:

    und der zeigt mir an dauernd Fehlermeldungen an
    - Welche Codezeile :?:
    - Welche Fehlermeldung :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Edit by ErfinderDesRades: --> unnötiges Vollzitat entfernt.

    Ich habe es in den Button hinzuefügt wo ich die Streams habe. Also einmal den Code den ich im Threadanfang gepostet habe und deinen, da zeigt er mir fehler an.
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

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

    @Cybkill: Lernresistent :?:

    RodFromGermany schrieb:

    - Welche Codezeile :?:
    - Welche Fehlermeldung :?:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub
    2. StartTime = Date.Now
    3. Timer1.Start()
    4. 'Code
    5. Timer1.Stop()
    6. End Sub
    Gib der Prozedur einen Namen

    VB.NET-Quellcode

    1. Private Sub XXX()
    2. StartTime = Date.Now
    3. Timer1.Start()
    4. 'Code
    5. Timer1.Stop()
    6. End Sub
    Oder was meinst Du :?:
    Bilder

    • Fehler.jpg

      5,55 kB, 232×119, 250 mal angesehen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Edit by ErfinderDesRades: --> unnötiges Vollzitat entfernt.

    Genau das mein ich, ich weiß nicht was in der Bezeichnung rein soll, ich will ja das der Timer erst gestartet wird, wenn ein Stream abgespielt wird und bei Stop gestoppt wird, so wie beim Wechsel eines Streams den Timer/Laufzeit wieder von neu anfängt.
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

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

    Ich habe jetzt mir folgenden Code für die Laufzeit zusammen gereimt:

    VB.NET-Quellcode

    1. Timer1.Interval = 1000 DoEvents() Label4.Text = Label4.Text + 1
    2. If Label4.Text = 60 Then Label4.Text = 0 Label3.Text = Label3.Text + 1
    3. If Label3.Text = 60 Then Label3.Text = 0 Label2.Text = Label2.Text + 1 End If
    4. End If



    Blos jetzt zeigt er mir diesen Fehler an:

    Fehler 1 "DoEvents" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. 38 9

    Wie kann ich die DoEvents importieren so das das läuft?
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

    Option Strict On
    Application.DoEvents() ist eine böse Funktion, denn sie erlaubt z.B. die Bedienung des Programms.
    Verwende lieber Label1.Refresh() um die Anzeige zu erzwingen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Label2.Refresh()
    2. Label3.Refresh()
    3. Label4.Refresh()
    :rolleyes:
    Pack Deine Zeit in eine Variable vom Typ DateTime, die kannst Du ganz easy handeln und ausgeben.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Edit by ErfinderDesRades: --> unnötiges Vollzitat entfernt.

    Du meinst jetzt so:

    VB.NET-Quellcode

    1. Timer1.Interval = 1000 DateTime() Label4.Text = Label4.Text + 1 Label4.Refresh() If Label4.Text = 60 Then Label4.Text = 0 Label3.Text = Label3.Text + 1 Label3.Refresh() If Label3.Text = 60 Then Label3.Text = 0 Label2.Text = Label2.Text + 1 Label2.Refresh() End If



    Habe ich es richtig verstanden?
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

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

    Cybkill schrieb:

    Habe ich es richtig verstanden?
    Bis auf Option Strict On und einer Variable des Typs DateTime: Ja.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Edit by ErfinderDesRades: --> unnötiges Vollzitat entfernt. (ich werds langsam müde)

    Option Strict on ? wie füge ich diese ein?

    und ich soll jetzt eine DateTimePicker einfügen, so richtig ? xD
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

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

    Cybkill schrieb:

    und ich soll jetzt eine DateTimePicker einfügen, so richtig ?
    Nein.
    -------------------------
    Option Strict On:
    Projekt -> Eigenschaften -> Kompilieren
    Option Explicit On
    Option Strict On
    Option Compare Binary
    Option Infer On
    => Nun wirst Du eine Reihe von Fehlern erhalten, die musst Du beseitigen.
    TextBox2.Text = TextBox2.Text + 1 z.B.
    Leg Dir eine Integer-Variable für ein Label an
    oder
    Leg Dir eine DateTime-Variable an und alles wird ganz einfach.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich kann auch einfach eine Stoppuhr einfügen oder?

    So das halt beim Klicken auf Abspielen die Stoppuhr anfängt zu zählen.


    Dies wäre doch auch eine Möglichkeit, oder Irre ich mich?

    Habe eine Stoppuhr eingefügt und es funktioniert, blos da steht nur eine 0 wie bekomme ich es hin, das 2 00 angezeigt werden?
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

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

Facebook
Telefonspende