|
You last visited: Today at 10:45
Advertisement
Visual Basic erste Projekte
Discussion on Visual Basic erste Projekte within the .NET Languages forum part of the Coders Den category.
07/04/2011, 13:51
|
#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.Object, ByVal e As System.EventArgs) Handles 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.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") 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/") 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 End Class
|
|
|
07/04/2011, 13:59
|
#2
|
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
|
|
|
|
07/04/2011, 14:04
|
#3
|
elite*gold: 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.
|
|
|
07/04/2011, 14:07
|
#4
|
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:
Damit er auch beim nächsten mal wieder von vorne anfängt.
|
|
|
07/04/2011, 16:52
|
#5
|
elite*gold: 0
Join Date: May 2010
Posts: 143
Received Thanks: 58
|
Vielen Herzlichen Dank
|
|
|
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
|
|
|
|
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.
|
|