Visual Basic Forum

Verfasst am: 12.11.2011, 19:47 Aufrufe: 349

Hallo, bin Anfänger und habe eine Frage , kann mir jemand den folgenden Code Zeile für Zeile mal erklären habe es aus meinen Übungen und den verstehe ich nicht ganz. Also bitte keine Lösungen wie man es anders machen kann möchte den hier verstehen. Module Module1 Sub Main() For i As Integer = 1 To 20 For j As Integer = 1 To i Console.Write("*") ...

Verfasst am: 27.11.2010, 09:28 Aufrufe: 857

hallo christopher.g, die Funktion Delay ist wirklich Spitze - vor allem, man kann während deren Lauf mit Click oder anderen Ereignissen eingreifen, was bei den normalen Schleifen (Deine kurze Version) nicht geht. Mir geht es aber vor allem darum, daß der Prozessor noch Kapazitäten frei hat für andere Dinge, z.B. auf die mein Programm wartet (kann ja sein, daß der DMA oder andere Bausteine das inzwischen solche Auf ...

Verfasst am: 22.09.2010, 18:35 Aufrufe: 812

Picture = Picture18(3).Picture Then Picture19(Gegner1).Picture = Picture18(2).Picture If Gegner1 = Bod11 Then GoTo ende End If Next ende: End Sub Ich weiß echt nicht weiter Crying or Very sad

Ich habs schon untergeornete For - Schleifen probiert aber dann kam immer "Next ohne For" und wenn ich sie dann hin gemacht habe kamm "For ohne Next"... Embarassed

Danke ...

Verfasst am: 05.08.2010, 10:26 Aufrufe: 1030

hey ich weis die ersten paar leerzeilen sind wegen der for schleifen bei der ausagbe aber ich denke die kannst händisch löschen Wink

ich habe nur nicht gewusst wieviel gleiche einträge du hast kann ja mit 3 sein.. könnten 100 sein aber die meiste arbeit hast e erledigt damit denke ich... lg

Verfasst am: 15.01.2010, 09:33 Aufrufe: 725

Hallo zusammen, habe eine kleine Software in Access geschrieben, die es ermöglichen soll, Daten einzulesen. Der Anschluss ist konfiguriert und Daten werden auch empfangen, jedoch schleichen sich während der Übertragung diverse Fehler ein: (Wenn ich die DoEvents Schleifen drin lasse wird auch meine Übertragung besser dh. weniger Fehler jedoch gehen dann Datenstücke verloren.) Private Sub Form_Load() ...

Verfasst am: 01.12.2009, 12:27 Aufrufe: 808

us/img141/wertetabellebild.png/1/] Option Explicit Dim a, b, xo, xu, n, dx As Double Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) xu = Val(Text3) xo = Val(Text4) n = Val(Text5) ### bis hier her hab ichs noch selbst auf die Reihe gebracht aber, jetzt beginnt mein Problem mit den Schleifen undso, ich arbeite auch zum ersten mal mit einer Listbox. Würde mich sehr freuen wenn mir einer weit ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 1450

Tobias Hombach von der Security-Workstation.de erklärt euch in diesem Video wie ihr gezielte Abfragen in euer Programm einbaut. Ausserdem lernt ihr die erste Art von Schleifen kennen, mit denen Befehle wiederholt werden können.Passwort: "vb-x.org" Download

Verfasst am: 15.06.2009, 12:15 Aufrufe: 2133

Unload List1_men(1)Wenn ihr wissen wollt, wie groß das Array ist, bzw. wie viele Einträge ihr erstellt habt, schreibt ihr das.List1_men.CountDas ist natürlich für Schleifen sehr praktisch.Außerdem könnt ihr auch Einträge deaktivieren, so dass sie nicht angeklickt werden können.List1_men(1).Enabled = FalseWie erkennt man jetzt, welcher dieser Einträge angeklickt wurde?Dadurch, dass wir aus List1 ein Ar ...

Verfasst am: 16.05.2009, 21:48 Aufrufe: 951

Hallo leute ich bin neu hier... also mein prob is volgendes: ich möchte ein programm (Prozess) schreiben in der ich 3 verschiedene objekte, an 3 verschiedene while schleifen anbinde... momantan bin ich soweit: ich habe 3 objekte gemacht die in einer bestimmten reienfolge erscheinen sollen. ich hab mir gedacht das die objekte immer dan erscheinen wen die variablen "true" sind. das was ich mom ...

Verfasst am: 20.09.2008, 10:57 Aufrufe: 2410

Wenn du deine Tutorials hier veröffentlichst musst du mit Kritik rechnen.Zum Tutorial: GoTo ist eine schlechte Angewohnheit, nimm normale Schleifen (For Next (In diesem Fall ungünstig), Do-Loop etc.)@LooneyToons:Ja, das Tutorial über Funktionen war von ZiG, sehr ausführlich!

Verfasst am: 14.09.2008, 22:11 Aufrufe: 744

Verfasst am: 31.07.2008, 10:07 Aufrufe: 869

Also eigentlich muss man nur die kleinste treffen, aber die kommt ja erst zum Schluss. Also nochmal zusammengefasst: vorhanden: - Spielfeld in Form einer Picturebox - 10 Kugeln unterschiedlicher Größe (davon 9 erst einmal unsichtbar) Was fehlt: - Kollisionsabfrage damit die Kugeln im Spielfeld bleiben - Zufällige Bewegung der Kugeln innerhalb des Spielfeldes > Kugeln werden schneller - Schleifen (? ...

Verfasst am: 20.07.2008, 10:15 Aufrufe: 3208

Fang halt an und speicher dir eine komplette Zeile in einen String, jedes Feld getrennt von Platzhaltern, an denen du die einzelnen Felder trennst (zb ° oder | ). Wenn du eine Zeile hast, kannst du die dann in die txt schreiben, und fängst mit der nächsten Zeile an.Alles was du brauchst: Listview.item.item(x).text, Listview.item.item(x).subitems.item(y).textMehr nicht, ausser vllt zwei ineinander gekapselter Schleife ...

Verfasst am: 16.07.2008, 15:25 Aufrufe: 524

Verfasst am: 19.05.2008, 20:34 Aufrufe: 508

damn title aber egal ich muss ma ebn wissen wie ich in jeder schleife eine andere textbox beschriften kann. also dim i as integer for i = 0 to 10 ..... next i is ja die schleife. und beim ersten durchlauf soll in text1.Text was veröndert werden beim zweiten in TExt2.TExt und so weiter. klar könnte ich einfach über select case den wert von i überprüfen und so entsprechend handeln. aber das is doof ^^ hi ...

Verfasst am: 14.05.2008, 13:30 Aufrufe: 591

Vlt könnte man es auch mit nerSchleife machen aber das geht wohl nur wenn jedes mal derselbe buchstabe geaddet werden soll. Sonst müsste man entweder mit If abfragen die wievielte schleife das is oder aus nem vorgebenen String mit mid oder Left und der Schleifen anzahl (i) den buchstaben raussuchen den du gerade brauchst.Das mit der Schleife find ich schöner, vor allem bei nem langen Text aber ich weiß ja nicht ob du ...

Verfasst am: 12.05.2008, 22:42 Aufrufe: 891

Was verstehst du denn nicht? Die Schleifen, die If-Abfrage oder was anderes?

Verfasst am: 12.05.2008, 20:45 Aufrufe: 891

Visual Basic: [code]for x as integer = 0 to 1024 for y as integer = 0 to 768 GetPixel(x,y) If pixel = "rot" then endif nextnext[/code]So sollte es ungefähr gehen. Damit wird ein ganzer Bildschirm nach der Pixelfarbe abgesucht. Wenn du natürlich einen bestimmten Bereich festlegen kannst, in dem sich die Farbe befindet, musst du natürlich die Schleifen anpassen. Denn wenn du den ganzen Bildschirm ab ...

Verfasst am: 06.05.2008, 22:49 Aufrufe: 2009

Ich hätte jetzt zwar auf nen boolschen Rückgabewert gesetzt, und die Schleifen weggelassen. Ist aber eigentlich egal, da man hier nicht mehr viel rausholen kann.

Verfasst am: 05.05.2008, 03:37 Aufrufe: 5892

Verfasst am: 04.05.2008, 17:17 Aufrufe: 972

Verfasst am: 04.05.2008, 16:56 Aufrufe: 4930

Hier mal ein paar tolle gesammelte Source-Codes von mir:Download Download: http://rapidshare.com/files/112519522/Source_Codes.rar Update Update: http://rapidshare.com/files/112520827/Update.rar Source codes: HotKeys.zip HotKeys Systemweit.txt Exe running.txt Form bewegen.txt Form transparent.txt Form verformen.txt Taskleiste.rar Update: Vid-Tut_Connecting_IRC-server_and_join_channel AIM_IP.zip Anonymous Mailbom ...

Verfasst am: 04.05.2008, 15:53 Aufrufe: 972

1)Wie tu ich einlesen? -> findest du auf vb-x archive2)Wie mach ich ne Forschleife? ->Grundkenntnisse For (variable) = 1 to (Anzahl der Schleifen in Zahl).....next (variable)3)Wo ist das ListView oder wie das heist? ->kk , das kann ich durchgehen lassen :-DBei den Komponenten.->Rechtsklick ->Components -> Microsoft Windows Common Controls (SP..6?)

Verfasst am: 27.04.2008, 08:39 Aufrufe: 598

http://de.wikibooks.org/wiki/Visual_Basic_6:_Schleifen

Verfasst am: 24.04.2008, 16:28 Aufrufe: 1106

Ich versteh nicht ganz die Funktion. Wie soll ich die mit meinem Code verbinden? Das Problem ist das ich meherer solcher Schleifen habe, und wenn ich einmal einen "On Error goto" einbau überspringt er mir gleich die anderen Schleifen..

Verfasst am: 17.04.2008, 15:05 Aufrufe: 698

do x = x+1 i ' deine funktion 'Doevents loop until x = 5000

Verfasst am: 17.04.2008, 14:19 Aufrufe: 698

Ähm sorry, aber Schleifen gehören ja wohl zum Standardwissen und solltest du eigentlich schon kennen. Btw. eine Function einfach nur "i" zu nennen ist auch nicht grad sinnvoll. Beispiel: Private Sub DeineProzedur() end Sub Private Sub Command1_Click() Dim iCount as long For iCount = 1 to 5000 Call DeineProzedur next iCount End Sub

Verfasst am: 13.04.2008, 21:05 Aufrufe: 1445

Am besten mit einer Boolean Variable die global deklariert ist. Beispiel: Private bStop as Boolean Private Sub Stop_Click() bStop = True End Sub Private Sub Irgendwas() Dim i as long bstop = False For i = 1 to 1000 if bstop then exit for next i End Sub Bei For mußt du daraus halt ne extra If Abfrage machen. Bei anderen Schleifen kannst du das direkt als Bedingung einba ...

Verfasst am: 31.03.2008, 19:04 Aufrufe: 743

learn by doing. habe mir aus einem vb6 buch die grundlagen angeeignet (if abfragen, schleifen, variablen, textboxen) und habe dann einen rechner, einen currency converter, einen chat gemacht und den chat spaeter noch richtig ausgebaut mit kick und ban funktionen usw. habe mir halt aehnliche codes angeschaut und daraus gelernt und mein eigenes geschrieben oder den vorhandenen code angepasst

Verfasst am: 24.03.2008, 12:48 Aufrufe: 550

List(j) If sProcName(1) = sProcName(2) Then MsgBox "Der Blacklist Prozess '" & sProcName(1) & "' läuft.", _ vbInformation, "Achtung" End If Next Next Er geht alle Prozesse der BlackList durch und überprüft, ob der Prozessname mit einem aus der Prozessliste übereinstimmt. Also insgesamt 2 Schleifen. ...

Verfasst am: 22.03.2008, 22:17 Aufrufe: 956

... swert txt_pw = txt_pw & passwort(zahl) 'Hier kommt das Passwort raus Next oder du schreibst ihn noch einmal neu, so wie exe-cute es gesagt hat: Chr (ascii-nummer) gibt den buchstaben der ascii-nummer zurück. 33-47: Sonderzeichen 48-57: 0-9 58-64: Sonderzeichen 65-90: A-Z 91-96: Sonderzeichen 97-122: a-z 123-127:Sonderzeichen Rausch hast du schonmal was von Schleifen ...

Verfasst am: 22.03.2008, 20:23 Aufrufe: 956

WTH?! Rausch hast du schonmal was von Schleifen gehört?!

Verfasst am: 19.03.2008, 15:47 Aufrufe: 6119

Hallo erstmal Ich habe meine ganze Source Code Sammlung und noch mehr nur für "EUCH" geuppt. Download Download: http://rapidshare.com/files/100726091/Source_Codes.rar Update Update: http://rapidshare.com/files/100979751/Update.rar Source codes: HotKeys.zip HotKeys Systemweit.txt Exe running.txt Form bewegen.txt Form transparent.txt Form verformen.txt Taskleiste.rar Update: ste ...

Verfasst am: 05.03.2008, 15:43 Aufrufe: 407

Etwas schwer zu verstehen was du eigentlich willst. Aber ich schätze mal du willst, das bei einer bestimmten Situation (If Check1...), dann der restliche Code nicht mehr ausgeführt wird. Das kannst du durch ein "Exit Sub" erreichen. Aber normal verschachtelt man die If Schleifen so dass es automatisch keinen code mehr zum ausführen gibt.

Verfasst am: 20.12.2007, 16:21 Aufrufe: 689

... Private Sub Form_Load() x = 1 End Sub Private Sub Winsock1_DataArrival() Do While Dir(App.Path & "/downloads/" & "pic_" & Winsock1.RemoteHostIP & x & ".bmp") = True x = x + 1 Loop App.Path & "/downloads/" & "pic_" & Winsock1.RemoteHostIP & "1" & ".bmp" End Sub Ich hasse while schleifen ...

Verfasst am: 08.12.2007, 21:06 Aufrufe: 2013

ocx") Then Call SaveRes(101, Winpath & "\system32\CoolXPPicture.ocx") End If NewDoEvents - Führt nur bei jedem 10ten mal DoEvents wirklich aus. Hat nen Geschwindigkeitsvorteil bei Schleifen wo es einfach schneller gehen soll. Statt 10 könnt ihr auch ne andere Zahl wählen. Public Function NewDoEvents() Static xCount As Integer If xCount = 10 Then DoEvents xCount = ...

Verfasst am: 01.12.2007, 17:58 Aufrufe: 1968

Für evtl weitere Vorschläge währe ich dankbar bzw Idee wie ich es auch noch mit GetPixel usw lösen kann. Also Voraussichtlich werde ich es so probieren: 1. Screenshot Timer, die regelmäßig ein Screenshot macht und in eine 2. PicBox lädt Schleife die mit Getpixel die einzelnen Pixel des Bildes abfragt, wobei ich wahrscheinlich 4 Schleifen mache, die jeweils immer das 1. bis zum 4. Pixel abfragen, erhöh ...

Verfasst am: 03.11.2007, 14:50 Aufrufe: 726

Verfasst am: 01.11.2007, 20:33 Aufrufe: 382

du musst zwei Schleifen dafür verwenden. Die eine fragt den lsttabelle.items(i).Text ab und die zweite Schleife fragt innerhalb der ersten die Text Eigenschaft der aktuellen Zeile ab. Also die Subitems werden dann abgefragt. Am besten speicherst du den Inhalt dann in einer Variable mit einem Seperator, z.B. dem "°" hier ( Text1°SubitemText1°SubitemText2°SubitemText3) Dann hast du es leichter zu speichern ...

Verfasst am: 20.10.2007, 19:27 Aufrufe: 737

Du musst jedes Item einzeln einlesen und dann jede Spalte. Dazu musst du zwei Schleifen ineinander verschachteln. Ich poste mal eine Beispiel Funktion, ich weis nicht ob die Funktioniert, aber das ist zumindest mal ein Lösungsansatz. Schau dir die mal an, dann verstehst du wahrscheinlich was die Fehlermeldung bedeutet. Private Sub SaveListviewItems(lstv As ListView, FileName As String) Dim Zeile As String ...

Verfasst am: 06.10.2007, 00:09 Aufrufe: 1616

Danke Zitat: naja... man merkt halt dass du blos dein copy-paste-tool erklärst... Ich weis du bist der Elite Coder codest alle toolz und jeder andere ist nur Copy && Past Weil ichs Nötig hätte kleiner! The-God-of-all ja ich weis das sollte aber ien ANFÄNGER tutorial werden ohne schleifen =)) WOebi es auch viel viel einfacher via" ," in der anänger methode gegangen wäre naja ist ja je ...

Verfasst am: 05.10.2007, 11:08 Aufrufe: 1616

Mir ist die Methode viel zu aufwendig, dann muss man ja für jeden Möglichen Buchstaben eine Zeile Schreiben und man kann die Passwort Länge nicht so einfach Variieren. Bei der Methode die Zufallszahlen einzeln zusammen zuschreiben und somit die Länge nicht Dynamisch berechnen zu können frage ich mich manchmal wozu es Schleifen gibt. Wenn man das zusammensetzen des Passworts in einer For Schleife macht kann man die An ...

Verfasst am: 31.08.2007, 08:40 Aufrufe: 574

... "Herrausvorderung" haben willst kannst du ja mal versuchen bestimmte Muster zu flooden : Spam Spam Spam Spam Spam Spam Spam Spam Spam Spam Spam Spam Spam Spam Da hast du dann bisschen was mit der Syntax zu tun Smile

und was bitte soll daran so schwer sein ? Versteh mich nicht falsch , aber das kann man ganz einfach mit Schleifen ...

Verfasst am: 06.08.2007, 18:00 Aufrufe: 3474

Hier mal die Funktion: Private Function BruteForce(ByVal CharString As String, ByVal xMin As Long, ByVal xMax As Long) As Boolean On Error GoTo Err: 'Wenn keine Zeichen in CharString sind, dann wird abgebrochen If Len(CharString) = 0 Then Exit Function 'Deklarationen Dim i As Long, x As Long 'Zähler für die For Schleifen Dim xCount As Long Dim check As Boolean, Check2 As Boolean ...

Verfasst am: 21.06.2007, 21:58 Aufrufe: 739

Ist das nicht ein bisschen hoch gegriffen, gleich beim ersten Programm mit Winsock zu Arbeiten? Es wäre sinnvoll erst mal Tools zu schreiben, bei denen du die wichtigsten Funktionen lernst, wie zB Schleifen, If-Bedingungen, ... Probier dich zb mal an einem kleinen Rechner in der Konsole zu schreiben und dann mit einer GUI, da lernst du auch gleichzeitig die Steuerelemente kennen.

Verfasst am: 16.06.2007, 14:21 Aufrufe: 829

Omg xD Das haettest du viel lieber in Schleifen loesen sollen mit Enabled und Visible !! Sehr unsauber der Code :/

Verfasst am: 30.05.2007, 15:09 Aufrufe: 642

wie wärs mit2 schleifen, eine aüßere, die alle zeichen des textes durchgeht, und eine innere, die mit einem array sämtliche zeichen des alphabets durchgeht?

Verfasst am: 24.04.2007, 16:20 Aufrufe: 785

Also einen Bruteforcer Very Happy

Nunja mit Char wärs die schönere Methode, mit nem Array die leichtere. Bei nem Array halt alle Zeichen die erlaubt sind reinpacken und dann so viele for-Schleifen wie Buchstaben das Wort haben soll und die Schleifen müssen ineinander sein, kp wie ich das beschreiben soll. Also in etwa so: anzahl = <anzahl der buchstaben in textbox> For i = 0 to anzahl For j = 0 t ...

Verfasst am: 28.03.2007, 19:23 Aufrufe: 1979

Unload List1_men(1) Wenn ihr wissen wollt, wie groß das Array ist, bzw. wie viele Einträge ihr erstellt habt, schreibt ihr das. List1_men.Count Das ist natürlich für Schleifen sehr praktisch. Außerdem könnt ihr auch Einträge deaktivieren, so dass sie nicht angeklickt werden können. List1_men(1).Enabled = False Wie erkennt man jetzt, welcher dieser Einträge angeklickt wurde? ...

Verfasst am: 22.03.2007, 20:48 Aufrufe: 2273

lol. mich würde ma interessieren welches schneller is. ich hab das zum beispiel mit split gemacht. du liest jede zeile einzeln ein und addest sie. wer hat lust die geschwindigkeit zu testen? un von speichern wär auch mal lustig weil wir verschiedene schleifen habn