Hey ich habe eine Frage, wie mache ich das, dass eine Pivturebox 5 Farben in einer zufälligen Reihenfolge hintereinander zeigt und man die Farben in der richtigen Reihenfolge wiedergeben muss.
D.h. ein Algorythmus ist gesucht der ZUfällig ist aber trotzdem vom PC gemerkt wird.
und noch was, warum kommt hier bei jeder Website online?:
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'wenn Button 1 angeklickt wird
Timer1.Start() 'startet der Timer1
ToolStripProgressBar1.Value = 0 'der Status der Progressbar, welche in der StatusStripleiste verankert ist, wird auf 0 gesetzt
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ToolStripProgressBar1.Value < 100 Then 'wenn der Status der Progressbar kleiner als 100 ist,dann...
ToolStripProgressBar1.Value += 10 'wird der Status um 10 erhöht
End If 'Ende If-Abfrage
If ToolStripProgressBar1.Value = 100 Then 'wenn der Status der Progressbar bei 100 ist, dann...
Timer1.Stop() 'wird Timer1 gestoppt
Dim tbtext As String = TextBox1.Text() 'der Text von TextBox 1 wird ausgelesen und in einer neuen Stringvariable tbtext gespeichert
Try 'das Programm versiucht...
If My.Computer.Network.Ping(tbtext) = False Then 'wenn eine Verbindung zu der eingegebenen Website(TextBox1 text) besteht, dann...
Dim lvi As New ListViewItem 'ein neues ListViewItem, d.h ein Element im ListView, wird erstellt mit dem namen lvi für ListViewItem erstellt
lvi.Text = tbtext 'das Item bekommt den namen des Inhaltes der Variable tbtext
lvi.SubItems.Add("online") ''es kommt ein subitem also ein "unteritem",d.h. in der nächsten Katekorie, wird "online" eingetragen
ListView1.Items.Add(lvi) 'das Item wird zum ListView hinzugefügt
MsgBox("online")
Else 'If My.Computer.Network.Ping(ttext) = False Then
Dim lvi As New ListViewItem 'ein neues ListViewItem, d.h ein Element im ListView, wird erstellt mit dem namen lvi für ListViewItem erstellt
lvi.Text = tbtext 'das Item bekommt den namen des Inhaltes der Variable tbtext
lvi.SubItems.Add("offline") ''es kommt ein subitem also ein "unteritem",d.h. in der nächsten Katekorie, wird "offline" eingetragen
ListView1.Items.Add(lvi) 'das Item wird zum ListView hinzugefügt
MsgBox("offline")
End If 'Ende er If-ABfrage
Catch ex As Exception 'eine Fehlermeldung die jedoch nur für Programmierer verständlich ist wird erstellt
MsgBox(ex.ToString(), MsgBoxStyle.Critical) 'wird eine "kritische" MsgBox erscheinen,in der der Fehler angezeigt wird
End Try 'ende des veruschs
End If 'Ende der If-Abfrage
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'wenn Button2 angeklickt wird
ListView1.Items.Clear() 'werden alle Inhalte des ListViews gelöscht
End Sub
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Stop() 'der Timer wird gestoppt
End Sub
End Class
