Visual Basic Forum

b3rl!n3rm@u3r_ · Newbie Anmeldedatum: 30.07.2007 Beiträge: 8

[code]Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click, Button2.Click
Dim IP As String
Dim Anzahl As Integer
IP = 0
IP = TextBox1.Text

MessageBox.Show("Du floodest die Folgende IP-Adresse:" & IP)
Do Until Anzahl = 200
Shell("ping.exe & IP -t -l 55555", AppWinStyle.Hide, True, 120)

Anzahl = +1
Loop
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click, Button2.Click
Dim IP As String
Dim Anzahl As Integer
IP = 0
IP = TextBox1.Text

MessageBox.Show("Du floodest die Folgende IP-Adresse:" & IP)
Do Until Anzahl = 150
Shell("ping.exe & IP -t -l 55555", AppWinStyle.Hide, True, 120)
Anzahl = +1
Loop

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click, Button2.Click

Dim IP As String
Dim Anzahl As Integer
IP = 0
IP = TextBox1.Text

MessageBox.Show("Du floodest die Folgende IP-Adresse:" & IP)
Do Until Anzahl = 25
Shell("ping.exe & IP -t -l 55555", AppWinStyle.Hide, True, 120)

Anzahl = +1
Loop

End Sub

End Class[/code]

Im Grunde ganz easy , kann mir aber net mal jmd sagen wieso dann mein Monitor sagt kein Signal und der PC dann nichtmehr zu retten ist außer Reboot ?

Thx[/vb]

TheCoder_ · Verfasst am: 30.07.2007, 18:28

Endlosschleife.
Anzahl = +1
na und dann is anzahl eben 1 und in der Schleife danach isses acuh 1 und in der danach auch u.s.w. dadurch wird nie deine Until Bedingung erfüllt
Anzahl = Anzahl + 1
wäre da schon besser da der alte wert um eins erhöht wird. Außerdem würd ich meinen das ne For Next schleife sowieso besser wäre

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ein DoEvents solltest du auch noch in die Schleife einbauen. Falls es so heißt in VB.Net.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

b3rl!n3rm@u3r_ · Newbie Anmeldedatum: 30.07.2007 Beiträge: 8

TheCoder_ · Verfasst am: 30.07.2007, 19:31

Nein ich meine nicht du setzt sie auf null.
Variable = -1
Dann hätte die Variable den Wert Negetiv 1
Variable = +1
dann hätte die Variable den wert positiv 1
Setzt man kein Vorzeichen wird automtisch von Positiv asugegangen. Also +1 ist in diesem Fall keine Rechen Opreation sondern ein Wert. Für eine Addition werden zwei Summanden benötigt.
1 + 1 = 2
Summand + summand = Summe
+1 = 2
Ist keien Rechnung. Verstehst du was ich mein? Du brauchst einen Wert zudem +1 hinzu addiert wird. Wenn du nur Variable = +1 schreibst hat die Variable den Wert +1 aber es wird nicht der alte wert plus eins genommen.
Zu deinem zweiten Problem: Du solltest einfach mal schauen was du schreibst. du deklarierst Var2 und schreibst Var 2
Das geht nicht. Außerdem gibt es keine Variablen mit leerzeichen.
msgbox Var1 & Var2 & Var3

b3rl!n3rm@u3r_ · Newbie Anmeldedatum: 30.07.2007 Beiträge: 8

@ 1, das hab ich jetzt kapiert.
@ 2. Das war auch freigeschrieben und enthielt Fehler meine Eigentlichn Fehler sind :

Fehler 1 Das Typzeichen "&" entspricht nicht dem deklarierten Datentyp "Integer".

C:\Dokumente und Einstellungen\Marc\Eigene Dateien\Visual Studio 2005\Projects\test\test\Form1.vb 41 40 test

Fehler 2 Komma, ")" oder eine gültige Ausdrucksfortsetzung erwartet. C:\Dokumente und Einstellungen\Marc\Eigene Dateien\Visual Studio 2005\Projects\test\test\Form1.vb 41 46 test

kommt bei folgendem Taschenrechner

TheCoder_ · Verfasst am: 30.07.2007, 19:56

[code] Dim Meldung As String
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer

Meldung = Meldungsbox.Text
Zahl1 = Addzahl1.Text
Zahl2 = Addzahl2.Text

Zahl3 = Zahl1 + Zahl2

MessageBox.Show("Die Rechnung" & Zahl1 & "+" & Zahl2 & "=" & Zahl3) [/code]
immer schön an die leerzeichen denken Wink