Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > .NET Languages
You last visited: Today at 10:45

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Visual Basic erste Projekte

Discussion on Visual Basic erste Projekte within the .NET Languages forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: May 2010
Posts: 143
Received Thanks: 58
Visual Basic erste Projekte

Hallo Elitepvpers

Also ich bin noch relativ am anfang von Visual Basic und ich wollte heute ein programm coden. aber wenn ich das dann debugge und ne website eingeb und auf start drück öffnet sich die website unendlich mal was soll ich ändern ?
Hier der Code :

PHP Code:
Public Class Form1

    
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        ProgressBar1
.Increment(2)
        If 
ProgressBar1.Value ProgressBar1.Maximum Then
            Process
.Start(TextBox1.Text)
        
End If
    
End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Timer1
.Start()
    
End Sub

    
Private Sub Timer2_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer2.Tick
        ProgressBar2
.Increment(2)
        If 
ProgressBar2.Value ProgressBar2.Maximum Then
            Process
.Start("http://www.youtube.com/?gl=DE&hl=de")
        
End If
    
End Sub

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        Me
.Close()
    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        
If CheckBox1.Checked True Then
            Timer2
.Start()
            If 
CheckBox2.Checked True Then
                Timer3
.Start()
                If 
CheckBox3.Checked True Then
                    Timer4
.Start()
                
End If
            
End If
        
End If
    
End Sub

    
Private Sub Timer3_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer3.Tick
        ProgressBar2
.Increment(2)
        If 
ProgressBar2.Value ProgressBar2.Maximum Then
            Process
.Start("http://www.elitepvpers.com/forum/s4-league/")
        
End If
    
End Sub

    
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles CheckBox3.CheckedChanged
        ProgressBar2
.Increment(2)
        If 
ProgressBar2.Value ProgressBar2.Maximum Then
            Process
.Start("http://www.facebook.com/")
        
End If
    
End Sub
End 
Class 
s4gamer500 is offline  
Old 07/04/2011, 13:59   #2

 
.Timoleini's Avatar
 
elite*gold: 5
Join Date: Jul 2009
Posts: 281
Received Thanks: 36
Ich bin mir jetzt zwar nicht sicher , weil ich mich nicht konzentrieren kann im moment aber versuch es einfach mal mit dem Quellcode habe da 3 zeilen reingemacht , hoffe ich hab das auf den ersten Blick richtig gesehen wenn nicht schau ich nochmal richtig

Quote:
Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(2)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Process.Start(TextBox1.Text)
Timer1.Stop()
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.youtube.com/?gl=DE&hl=de")
Timer2.Stop()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If CheckBox1.Checked = True Then
Timer2.Start()
If CheckBox2.Checked = True Then
Timer3.Start()
If CheckBox3.Checked = True Then
Timer4.Start()
End If
End If
End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.elitepvpers.com/forum/s4-league/")
Timer3.Stop()
End If
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.facebook.com/")
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class
.Timoleini is offline  
Thanks
1 User
Old 07/04/2011, 14:04   #3
 
Kraizy​'s Avatar
 
elite*gold: 0
The Black Market: 471/0/0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,810
Du musst den Timer dann natürlich auch stoppen, denn du frägst ja ab, ob ProgressBar.Value = Maximum und wenn ja, dann Seite aufrufen. Jedoch ist bei dir die ProgressBar irgendwann voll und der Timer läuft immernoch weiter, also ruft er die Seite nochmal auf. Noch eine Frage: Haben deine ProgressBars irgendeine Funktion oder benutzt du die einfach so um die Seite nach einer bestimmten Zeit zu öffnen? Wenn ja, dann bräuchtest du diese gar nicht.
Kraizy​ is offline  
Thanks
1 User
Old 07/04/2011, 14:07   #4

 
.Timoleini's Avatar
 
elite*gold: 5
Join Date: Jul 2009
Posts: 281
Received Thanks: 36
Ich hab ihn mit Timer stop schon reingetan.

Am ende wär es auch noch Praktisch die Progressbare wieder auf 0 zu setzen

Einfach mit

Quote:
Progressbar1.Value = 0
Damit er auch beim nächsten mal wieder von vorne anfängt.
.Timoleini is offline  
Thanks
1 User
Old 07/04/2011, 16:52   #5
 
elite*gold: 0
Join Date: May 2010
Posts: 143
Received Thanks: 58
Vielen Herzlichen Dank
s4gamer500 is offline  
Old 07/04/2011, 17:34   #6
 
elite*gold: 0
Join Date: May 2010
Posts: 143
Received Thanks: 58
hmm jetz öffnet er zwar nich mehr so viele seiten aber immer noch minderstens 3 ...

Edit : ah jetz funktionierts doch nochmals vielein dank
s4gamer500 is offline  
Reply


Similar Threads Similar Threads
Visual Basic eigene Projekte hochladen
01/09/2011 - .NET Languages - 3 Replies
Hey Leute kennt jemand vieleicht ne Seite wo man seine Visual Basic sachen reinstellen kann?
Suche jemanden, für Visual Basic Projekte
07/31/2010 - .NET Languages - 7 Replies
Huhu, hätte hier jemand Lust, mit mir ein Paar Visual Basic Dinge zu erstellen? Je nach Projekt ne betimmte Menge von Leuten? ICQ: 568988844 oder PM oder im Thread. Ich beherrsche Visual Basic 2008. Was ich von euch erwarte: mindestens die Grundkenntnisse. Mfg Nakromus
Visual C++ (C++), Visual Basic, oder AutoIT?
06/24/2010 - .NET Languages - 11 Replies
Hallo Zusammen Ich würde gerne mit dem Programmieren anfangen. Meine Vorstellungen: Es müsste möglich sein, eigene Programme zu schreiben wie z. B. MSN, Emule oder ähnliches. Natürlich nie in dieser Grösse nur als Beispiel. Als weiteres sollte mit der gleichen Programmiersprache auch die Möglichkeit bestehen einen WoW Bot zu schreiben. Habe gehört die meisten Bots sind in Auto IT geschrieben. Gibt es unterschiede wegen des Warden schutzes oder kommt es nicht darauf an?



All times are GMT +1. The time now is 10:45.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.