Problem mit Timer

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von aRiGaT0, 30. April 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 30. April 2006
    Hey Community,

    Ich habe ein Problem mit dem Timer. Es soll eine Webseite alle 15 minuten geladen werden. Hier der Code.

    Code:
     
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
     WebBrowser1.Navigate(TextBox1.Text)
    
    
     WebBrowser2.Navigate(TextBox2.Text)
    
     If WebBrowserReadyState.Complete Then
     Select Case cnt
     Case Is = 15 'Anzahl der Minuten
     Call WebBrowser2.Navigate(TextBox2.Text)
     cnt = 0
     Case Else
     cnt = cnt + 1
     End Select
     End If
     End Sub
     Dim cnt As Integer
    
    Als ersten werden 2 seiten im Browser geladen. Dann soll im WebBrowser2 Feld die Seite alle 15 min. neu geladen werden.

    Was ist daran falsch? mit der "sleep" funktion wollte ich nicht arbeiten´, da ja dann das ganze programm still steht.

    greezes und thx :]

    aRiGaT0
     
  2. 30. April 2006
    und wo kommt was mit nem timer vor oO
     
  3. 30. April 2006
    If WebBrowserReadyState.Complete Then
    Select Case cnt
    Case Is = 15 'Anzahl der Minuten
    Call WebBrowser2.Navigate(TextBox2.Text)
    cnt = 0
    Case Else
    cnt = cnt + 1


    hier?


    Wenn die Seite geladen ist dann (Case Is = 15) soll er 15 min. warten und dann zu dem Text in der Text.Box2 navigieren.

    doch leider klappt das nicht so wirklich

    greezes,
    aRiGaT0
     
  4. 30. April 2006
    lad mal das projekt hoch, ich kümmer mich mal darum wenn ich zeit hab (heut abend)
     
  5. 30. April 2006
    Wieso machst du den Navigate-Aufruf nich in das Tick-Event von dem Timer..
    Ich kann zwar kein .NET aber so müsste es gehen:

    Code:
    Dim Count As Long 'Zählvariable
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     timer1.intervall = 1000 '= 1 Sec (wird glaub in ms angegeben)
     timer1.enabled = true 'Timer anmachen
    End sub
    
    Private Sub timer1_tick 'ka wie das genaue event heißt
     cnt = cnt + 1
     if cnt = 900 then 'schauen ob 900 Sec = 15 min vergangen sind
     webbrowser2.navigate(text2.text)
     cnt = 1 'zurücksetzen
    end sub
    
    wie gesagt: weiß nich ob die syntax richtig is
     
  6. 30. April 2006
    nice w!ns0ck. es geht

    nur haste halt unten end if vergessen aber macht ja nix.

    danke euch beiden 10er sind selbstverständlich raus, für die schnelle und gute hilfe.

    greezes,
    aRiGaT0
     
  7. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.