none
işlemden sonra işlem RRS feed

  • Soru

  • Arkadaşlar merhaba ben timer 1de 


     Dim gmail As HtmlElement = WebBrowser1.Document.GetElementById("GmailAddress")    REM kayıt ol butonu sayfa değişkenleri
            Dim txtKayit As String
            If sayaç <> uzunluk Then
                SendKeys.Send(cümle.Substring(sayaç, 1))
                'Burada string bir nesne tanımladık ve sayaçla birlikte içine ekleme yaptık harf harf
                txtKayit += cümle.Substring(sayaç, 1)
    
                'Sonucu test etmek için label de gördük nasıl çalıştığını sonra silersin.
                lblTest.Text += txtKayit
                gmail.SetAttribute("value", lblTest.Text)
                sayaç += 1
    
            Else
    
                Timer1.Stop()
    
    
    
            End If
    
    
        End Sub
    işlemlerini yapıyorum timer 2 de ise 
      Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
            Dim korumamail As HtmlElement = WebBrowser1.Document.GetElementById("RecoveryEmailAddress")    REM kayıt ol butonu sayfa değişkenleri
            Dim txtKayit As String
            If sayaç <> uzunluk Then
                SendKeys.Send(cümle.Substring(sayaç, 1))
                'Burada string bir nesne tanımladık ve sayaçla birlikte içine ekleme yaptık harf harf
                txtKayit += cümle.Substring(sayaç, 1)
    
                'Sonucu test etmek için label de gördük nasıl çalıştığını sonra silersin.
                Label9.Text += txtKayit
                korumamail.SetAttribute("value", Label9.Text)
                sayaç += 1
    
            Else
    
                Timer2.Stop()
            End If
    
    
        End Sub
    End Class

    buton 1de
    timer1.start
    
    

    şimdi arkadaşlar ben programda timer1 işlemi gerçekleştirdikten sonra timer 2 işlemi gerçekleştirmeye başlamasını istiyorum timer 1de stopun altına timer 2 start yazdım fakat olmadı

    23 Temmuz 2015 Perşembe 19:12

Yanıtlar

  • buton1'e

    "timer1.enabled=true" yaz

     timer1de

    Dim gmail As HtmlElement = WebBrowser1.Document.GetElementById("GmailAddress")    REM kayıt ol butonu sayfa değişkenleri
            Dim txtKayit As String
            If sayaç <> uzunluk Then
                SendKeys.Send(cümle.Substring(sayaç, 1))
                'Burada string bir nesne tanımladık ve sayaçla birlikte içine ekleme yaptık harf harf
                txtKayit += cümle.Substring(sayaç, 1)
    
                'Sonucu test etmek için label de gördük nasıl çalıştığını sonra silersin.
                lblTest.Text += txtKayit
                gmail.SetAttribute("value", lblTest.Text)
                sayaç += 1
    timer2.enabled=true
            Else
    
                Timer1.enabled=false
    
    
    
            End If
    
    
        End Sub

    timer2de 

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
            Dim korumamail As HtmlElement = WebBrowser1.Document.GetElementById("RecoveryEmailAddress")    REM kayıt ol butonu sayfa değişkenleri
            Dim txtKayit As String
            If sayaç <> uzunluk Then
                SendKeys.Send(cümle.Substring(sayaç, 1))
                'Burada string bir nesne tanımladık ve sayaçla birlikte içine ekleme yaptık harf harf
                txtKayit += cümle.Substring(sayaç, 1)
    
                'Sonucu test etmek için label de gördük nasıl çalıştığını sonra silersin.
                Label9.Text += txtKayit
                korumamail.SetAttribute("value", Label9.Text)
                sayaç += 1
    
            Else
    
                Timer2.enabled=false
            End If
    
    
        End Sub
    End Class

    • Yanıt Olarak Öneren burhanx47 27 Temmuz 2015 Pazartesi 10:36
    • Yanıt Olarak İşaretleyen Serkan Canseven 30 Temmuz 2015 Perşembe 08:42
    24 Temmuz 2015 Cuma 05:36