Visual Basic Forum

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

Hallo alle zusammen, ich habe folgendes Problem: Ich schreibe gerade ein Programm, mit dem ich Daten über die serielle Schnittstelle empfange. Die Daten zeige ich nach dem Empfangen zunächst in einer Textbox an und schreibe sie danach sequenziell in eine Textdatei. Zum Empfangen der Daten verwende ich das MSComm32.ocx. Das funktioniert auch alles einwandfrei. Nach dem Empfangen des ersten übertragenen Text ...

Verfasst am: 25.10.2011, 13:02 Aufrufe: 294

... Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen DoEvents ' TimeOut erreicht? Loop Until TimeOut < (GetTickCount / 1000) End Sub Aufruf: ' 5 Sekunden warten ...

Verfasst am: 25.10.2011, 12:49 Aufrufe: 294

Output = "OUTPUT ON" & Chr(13) 'ausgabe des geräts aktivieren Call Verzoegerung(Zeit(i)) 'für gewisse zeit warten Next Next im Variablen-Modul: (damit die variablen übersichtlich bleiben) Public VDauer As Currency Public VStart As Currency Public VZeit As Currency im Modul: P ...

Verfasst am: 19.10.2011, 13:13 Aufrufe: 318

Nun habe ich das Problem, dass ich im besagten Projekt zwar Änderungen machen kann, aber es scheint als würden die nicht übernommen werden!? Eine Test-MsgBox z.B. wird nicht angezeigt und Einzelschritte werden nur in einem Dissambly-Fenster angezeigt, dabei taucht die Test-MsgBox ebenso nicht auf. Was ist da scchief gelaufen`? Muss ich nun bis morgen oder übermorgen warten, bis ich wieder wie gewohnt am Proje ...

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

Thread Dim list As New List(Of Connection) '______________ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() Server = New TcpListener(ipendpoint) Server.Start() While True ' wir warten auf eine neue verbindung... client = Server.AcceptTcpC ...

Verfasst am: 27.06.2011, 20:47 Aufrufe: 323

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: 26.11.2010, 17:33 Aufrufe: 857

He christopher.g, wie recht Du hast - genau das habe ich gesucht, dieses Modul beschäftigt sich gottseidank nicht so heftig mit sich selbst, wie eine Schleife, die auf kein Ereignis mehr reagiert. Heißen Dank für den Tip.

Verfasst am: 25.11.2010, 19:54 Aufrufe: 857

Hallo zusammen, ich komme mal wieder nicht weiter - mein Problem: Ich muß mein VB6-Programm in der Abarbeitung aufhalten, bis z.B. eine VB-externe Datei von einem Shell-Befehl fertiggestellt ist. Beispielsweise frage ich da nach der Dateigröße, ob sie sich noch verändert. Das kann ich jedoch nicht in einer Schleife tun, weil diese den Prozessor fast für sich allein binden würde, und die Datei wird nie fertig. Anal ...

Verfasst am: 31.08.2010, 07:29 Aufrufe: 466

... Text1) und du willst im Label1 den Text vom Textfeld anzeigen lassen dann sprichst du erst die form an und dann das betreffende Steuerelement also Form1.Label1.Caption = Form2.Text1.Text oder habe ich deine Frage Falsch verstanden winsock ist nicht ganz so einfach wie dass beispiel oben... da musst dich dann schon ein bisschen reinhängen port und host angeben auf eingehende verbinungen warten ...

Verfasst am: 31.08.2010, 06:56 Aufrufe: 554

Ich lese eine Datei, gefüllt mit Maschinenbefehlen, zeilenweise aus, analysiere die Befehle und gebe die an eine Maschine aus. Bei bestimmten Befehlen wird außer einigen Handlungen auch eine Textbox ausgegeben. Da wartet das Programm ja auch. Hierbei wird der Cursor allerdings nicht richtig auf das derzeitige Ende gesetzt. Ich muß eben von Zeile zu Zeile auf das Scrollen warten. Deshalb, weil ich eigendlich nich ...

Verfasst am: 09.08.2010, 15:07 Aufrufe: 506

... che -) verwendetes Framework und sonstige ansprüche -) getestete systeme -) datei größe -) virustotal.com upload -) screenshot -) usw... was dir halt noch einfällt wie z.b. funktionalität lg aja !!!!! besorg dir einen normalen hoster funpic oder was auch immer oder noch besser eigenen ftp server mit direkt download link!!! sonst testet niemand und du kannst lange auf eine gute bewertung warten ...

Verfasst am: 28.06.2010, 09:11 Aufrufe: 301

Verfasst am: 09.05.2010, 12:52 Aufrufe: 807

If Durchläufe = 0 Then Exit Do End If For i = 1 To Durchläufe + 0 ' unschön, das sollte schon eine int sein ZwErg = i ^ 2 Summe += ZwErg Ausgabe(i) Next Endergebnis() WriteLine() 'Warten() Loop WriteLine("Das Programm wird beendet& ...

Verfasst am: 26.01.2010, 08:41 Aufrufe: 492

Verfasst am: 17.11.2009, 10:35 Aufrufe: 506

hallo würde das eher über das webbrowser steuerelement lösen. Unter Controls/ zu finden mit dem Namen "Microsoft Internet Control". da kannst du dann while WebBrowser1.ReadyState <> 4 warten (doEvent) end while oder deinen Code (verarbeitung von Puffer) im WebBrowser1_DocumentComplete Ereignis ausführen. mfg

Verfasst am: 29.06.2009, 15:00 Aufrufe: 1100

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene UDP Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 Backgroundworker1 ProgressbarDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktio ...

Verfasst am: 29.06.2009, 14:59 Aufrufe: 1329

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 BackgroundworkerDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktion:Visual Basic: Q ...

Verfasst am: 29.06.2009, 14:22 Aufrufe: 1306

Beschreibung:Diese Klasse überwacht veränderungen in der Registry entweder an einem Key oder an einem Wert.Wenn man einen Key überwacht wird das Event immer dann ausgelöst wenn irgendetwas an diesem Key geändert wird wie z.B. es wird unter diesem Key ein neuer Key angelegt oder es wird ein Wert geändert.Wenn man einen Wert überwacht wird das Event immer nur dann ausgelöst wenn auch genau dieser Wert verändert wird.Fu ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1921

... t; pos = pos + bytes Else bytes = (LOF(1) - pos) + 1 buffer = Space(bytes) Get #1, pos, buffer AllComplete = True End If 'Daten senden ws.SendData (buffer) buffer = "" 'Warten ...

Verfasst am: 25.04.2009, 21:56 Aufrufe: 2800

Name des Programms: RsDownloadLibary 0.3 Beschreibung: Eine Libary (DLL) zum Runterladen von Datein bei dem 1-Click Hoster "Rapidshare". Diese Libary ist wie geschaffen für einen Autoupdater über Rapidshare oder einfach nur einen eigenen Downloader. Man muss einfach einen RsDownload erzeugen und einen RsLink angeben. Weitere Bedienungsmöglichkeiten werden euch im Sample vorgestellt. Dieses Projekt ...

Verfasst am: 22.04.2009, 14:23 Aufrufe: 651

Verfasst am: 16.03.2009, 10:36 Aufrufe: 2591

... tDown '**************** 'Client-Programm '**************** if DownTime then ServerNotDown = false end if end while tcpClient.Close() if ReadKey()="0" then 'Client beenden ClientSollLaufen = False else 'Zwei Minuten warten ...

Verfasst am: 02.03.2009, 09:00 Aufrufe: 2462

... mehrmals in der Datei vor sodass ich die Datei bearbeitet habe und "End Sub#", sonst würde das Programm früher mit dem Einlesen aufhören daraus gemacht habe.: Do Until newtstream.AtEndOfStream Or sourceline = "End Sub#" Dann funktioniert alles korrekt. Hier nun meine Frage warum wird nicht korrekt bis ans Dateiende eingelesen oder dauert es nur wahnsinnig lange und ich muss länger warten ...

Verfasst am: 06.02.2009, 21:10 Aufrufe: 1270

Verfasst am: 05.02.2009, 01:26 Aufrufe: 1270

Verfasst am: 13.10.2008, 18:12 Aufrufe: 2043

Verfasst am: 16.09.2008, 15:44 Aufrufe: 1739

(sollniss;8462)Was willst du mit RATs? Das is Kinderkram...Naja UD wäre schwer, und hald das Framework was installiert sein muss.Sonst ist das Framework aber so mächtig, dass man daraus schon was basteln kann.Nen RAT ist doch mal mega easy...Top:Einfach ne Datenverbindung aufbauen,auf Traffic warten,Traffic in einen String ablegen,cmd.exe aufrufen und den String als Parameter anhängen,Cmd-Ausgabe abfangen,Ausgabe in ...

Verfasst am: 10.09.2008, 17:48 Aufrufe: 1407

Text [COLOR=Orange] If sloesung = 10000 Then[/COLOR] lblAnzeige.Text = "Aufgabe ist richtig!" & vbNewLine & _ "bitte warten" &n ...

Verfasst am: 02.09.2008, 22:00 Aufrufe: 1122

Ich denke, wenn du keine Dinge erklärst wie zb. einen Autostart einbauen etc. und Sachlich bleibst, darfst du es hier posten. Aber besser auf des Admins Meinung warten;)

Verfasst am: 23.08.2008, 15:50 Aufrufe: 9519

Thema: Arbeiten mit Threads in VB.NETHallo,da die Anfrage nach einem Tutorial kam, hab ich mal eines geschrieben.Sicherlich kennt ihr das Problem: Was sind Threads?Stellt euch vor ihr schreibt eine extrem Speicherlastige Funktion. Wärend diese Funktion dann ausgeführt wird, kann der Benutzer nichts mehr an eurem Programm machen. Sprich: Die Form lässt sich nicht mehr bewegen, Die Form reagiert nicht mehr und der Benu ...

Verfasst am: 03.08.2008, 18:25 Aufrufe: 1216

Hallo. Ich muss wissen, wie ich abwarten kann, bis der Webbrowser fertig ist. Bin ganz neu in dem .net-Bereich und habe vorher nur 6 programmiert. Danke, h0ttel tut mir leid. nach ein bisschen forschen habe ich nun das in den eigenschaften gefunden: While web.IsBusy = True ...

Verfasst am: 26.07.2008, 13:37 Aufrufe: 905

Visual Basic: [code]Public Class Form1 Private Sub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click Timer1.Enabled = True lblAnzeige.Text = "warten" ProgressBar1.Value = 0 'die progressbar soll wieder bei 0 anfangen Timer2.Enabled = True End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) H ...

Verfasst am: 25.07.2008, 21:20 Aufrufe: 905

Der Timer1 wird ja nicht disabled!Sprich, du musst den Timer1 zuerst disablen. Public Class Form1PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.ClickTimer1.Enabled = TruelblAnzeige.Text = "warten"EndSubPrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadEndSubPrivateSub Timer1_Tick(ByVal sender As System.Obje ...

Verfasst am: 25.07.2008, 16:35 Aufrufe: 905

Visual Basic: [code]Public Class Form1 Private Sub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click Timer1.Enabled = True lblAnzeige.Text = "warten" End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 5000 Timer1.Enabled = False End Sub Private Su ...

Verfasst am: 25.07.2008, 13:30 Aufrufe: 905

(^^kev####;5944)Heißt das nicht Select Case ôo Visual Basic: [code]Public Class Form1PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.ClickTimer1.Enabled = TruelblAnzeige.Text = "warten"EndSubPrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadEndSubPrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As ...

Verfasst am: 25.07.2008, 11:52 Aufrufe: 905

Heißt das nicht Select Case ôo Visual Basic: [code]Public Class Form1 PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click Timer1.Enabled = True lblAnzeige.Text = "warten" EndSub PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load EndSub PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System. ...

Verfasst am: 25.07.2008, 04:11 Aufrufe: 905

.. Public Class Form1PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.ClickTimer1.Enabled = TruelblAnzeige.Text = "warten"EndSubPrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadEndSubPrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickTimer2.Enabled = TrueDim ...

Verfasst am: 19.07.2008, 09:49 Aufrufe: 834

Verfasst am: 12.07.2008, 17:07 Aufrufe: 2785

Verfasst am: 09.07.2008, 16:19 Aufrufe: 1088

tztztzDann solltest du schon vbarchiv.net kennen..Mauposition setzen:http://www.vbarchiv.net/api/api_setcursorpos.htmlEine bestimmte Zeit warten (Sleep):http://www.vbarchiv.net/api/api_sleep.html

Verfasst am: 29.06.2008, 19:30 Aufrufe: 889

Verfasst am: 29.05.2008, 17:39 Aufrufe: 813

hi ich weis nicht warum ihr es immer alle so umstendlich machen müsst ja vl is es besser so aber naja ich würd einfach hergehen und einfach nur die seite öffnen lassen dann 2 sek warten oder so und wärenddessen mit der maus auf die den nick klicken und mit sendkeys die textboxen füllen lassen oder mit sendkeys "{TAB}" zur richtigen stelle navigieren funzt ja auch normalerweise und ist meiner meinung nach leichter o ...

Verfasst am: 11.05.2008, 19:26 Aufrufe: 587

So wie du es momentan machst wird ja (bei aktivierter Checkbox) nach jedem Wort (da man ja ein Leerzeichen nach jedem Wort setzt) das Wort "replaced". Ist eigentlich viel zu aufwendig, da ja eine Zeile aus mehreren Wörtern besteht. Also würde ich eher auf die Eingabetaste warten. Und dann würde ich auch nicht das _changed Event nehmen, sondern es mal mit einem Timer probieren, der alle x (Milli)Sekunden die Anzahl de ...

Verfasst am: 09.05.2008, 20:41 Aufrufe: 827

Wie wäre es, wenn du dir eine Art "FlagSystem" aufbaust, d.h du sendest effektiv nur noch Zahlen (Bsp. 154). Das interpretiert dann dein Empfänger als Funktionen die er nach der Reihe ausführen soll. Hier z.B erst Funktion 1 dann 5 und am Ende Funktion 4. Dann hättest du das Problem mit dem Warten nicht mehr Wink

Verfasst am: 23.04.2008, 10:25 Aufrufe: 1574

1, virus total nach legen 2. whate fuck Very Happy

3. solltes du das lieber als toolbar programmiern für fireforx z.b dann wäre das auch bestimmt sinn voller , weil ich persönlich kann die adresse der suchmaschine schneller schreiben als dein programm zu suchen dann drauf zu klicken und zu warten bis sich ie oder firefox geladen hat danke peace gruß DFJ

Verfasst am: 17.04.2008, 18:45 Aufrufe: 864

Verfasst am: 17.04.2008, 12:04 Aufrufe: 2014

Private Sub Form_Load() Winsock1(0).LocalPort = 2222 Winsock1(0).Listen End SubAlso das Winsock Control mit dem Index 0(Null) dient uns nun zum warten auf Verbindungen und herstellen dieser.Jetzt müssen wir eingehende Verbindungen entgegen nehmen und jeweils einen Index zuweisen. Dafür hab ich eine nette Funktion für euch, die den nächsten freien Index ermittel ...

Verfasst am: 06.04.2008, 09:32 Aufrufe: 1877

lol... also erstmal ist das extrem buggy xD und das ist nervig wenn man zuerst auf ausfüllen klicken muss, dan 2 sek warten und dann auf Check Very Happy

MfG

Verfasst am: 30.03.2008, 15:13 Aufrufe: 1107

Du könntest ja noch machen das man einstellen kann, wie lange er warten soll bis er floodet! Dann noch wie lange er floodet und in welchen Interval. Mit freundlichen Grüßen --Chillo--