Visual Basic Forum

Verfasst am: 20.01.2012, 10:12 Aufrufe: 107

prozess schließen for i = 1 to 100000 'lasse zählen um zeit zu bekommen Smile

next shell bat datei 2) shell '... prozess schließen Delay 4000 'musst nach der funktion googlen ... dann wartet die 4000millisekunden shell bat datei 3) ShellWait Vlcprozess 'auch nach dieser funktion wirst du kurz suchen müssen 'aber sie wartet bis dein shell befehl abgeschlossen ist und macht erst ...

Verfasst am: 14.12.2011, 14:52 Aufrufe: 277

Hallo, ich stehe vor volgendem Problem. Ich möchte alle Items einer Listbox auslesen und prüfen ob meine Variable messageSplit(1) schon vorhanden ist. Das ganze ist in einem If Befehl und sieht etwa so aus: If List1.List(0).Contains(messageSplit(1)) Then WinSock(Index).SendData "Sie haben sich beim letzten mal nicht Ausgeloggt!" Else List ...

Verfasst am: 01.12.2011, 20:36 Aufrufe: 221

Space) = KeyPressed Then Do Until GetAsyncKeyState(Keys.Space) = KeyPressed 'Hier der Befehl Loop End if Loop Mit dieser abfrage mach ich das so, wenn space gedrückt, wird die Schleife ausgeführt, welche beim erneuten drücken von space endet. Hätte das allerdings gern so wie ich es oben erklärt hab, wenn das überhaupt möglich ist?! Danke schon ...

Verfasst am: 30.11.2011, 10:38 Aufrufe: 223

Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function der Code steht komplett in einem Modul. Nun zeigt mit VB beim Compilieren für den Befehl "Call ExportFile" die Fehlermeldung "Compile error: Argument not ...

Verfasst am: 25.10.2011, 11:49 Aufrufe: 175

... '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: Public Sub Verzoegerung() DoEvents VStart = Timer Do VZeit = Timer - VStart Loop Until VZeit >= VDauer End Sub beim befehl ...

Verfasst am: 16.10.2011, 17:09 Aufrufe: 171

Verfasst am: 23.09.2011, 09:27 Aufrufe: 112

Hallo zusammen.. Smile

Ich bin gerade dabei ein Programm zuschreiben, wobei ich auf ein Problem gestoßen bin, eine Ausgabe richtig zu schreiben.. Vielleicht habe ich auch einfach nur die falsche Anweisung bzw. Befehl benutzt... Ich schreibe zuvor die Deklaration bzw. den Quellcode und dann mein Problem.. Private EinmaligBCS As String Private EinmaligHSI As String Private Einmalig As String EinmaligBCS und Ei ...

Verfasst am: 20.09.2011, 15:05 Aufrufe: 116

Hi Leute, ich rufe in meinem VB .Net Programm eine CLI auf, übergebe einen Befehl und bekomme dann in der CLI eine Ausgabe. Das klappt toll. Nur möchte ich nun die Ausgabe die in der CLI steht ja nicht in der CLI ausgegeben bekommen, sondern in meinem VB Programm weiterverarbeiten. Hat jemand eine Idee, wie ich die Ausgabe in mein VB Programm umleiten kann? Viele Grüße dash

Verfasst am: 17.08.2011, 06:27 Aufrufe: 188

Hi BaSh, es ist normal dass du die Dezimalstellen verlierst weil der Befehl Val(Text1.Text) den Wert aus dem Text nimmt und ihn auf die nächste ganze Zahl aufrundet. Besser ist es im Single-Format zu rechnen, da dieses Format auch Dezimalstellen verarbeitet. Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CS ...

Verfasst am: 13.06.2011, 18:41 Aufrufe: 605

shell") tab=1 counter=0 fenster=2 ws.run("help") do counter = counter + 1 if counter = fenster + 1 then tab=2 ws.sendkeys "%+{TAB " & tab & "}" wscript.sleep 5000 loop Dies habe ich dann mit folgendem Befehl in eine Batch-Datei eingefügt: cscript WINLOOP.VBS Nun zwei Bitten, da ich wirklich NULL Kenntnisse in dem Bereich habe. 1. Wi ...

Verfasst am: 17.03.2011, 14:25 Aufrufe: 246

Am Anfang einmal ich will programmieren lernen und hab mich entschieden mit Visual basic anzufangen ,aber jetzt zu meiner frage ich will com1 ansteuern z.B.: leds zum leuchten zu bringen aber nicht nur ein led sondern mehrere ich hab auch schon gesucht aber hab nirgends einen befehl dafür gefunden. Vielleicht kann es mir ja wer von euch sagen (weiterhelfen ) Fals ich das irgendwo falsch hingeschrieben habe tut es mi ...

Verfasst am: 07.02.2011, 20:14 Aufrufe: 531

Ich Hab ne Frage ich hab einen einfachen Euro Dollar Umrechner Geschrieben und weiß nicht wie ich den Print Befehl Formulieren soll Sry bin anfänger bitte erklären Very Happy

der code ist: Dim BetragEuro As Long Dim BetragDollar As Long Sub Rechnen() BetragEuro = TextBox1 BetragDollar = BetragEuro * 1,35 End Sub Private Sub CommandButton1_Click() Rechnen End Sub Private Sub CommandButton2_Click() U ...

Verfasst am: 05.02.2011, 10:01 Aufrufe: 306

Hallo Leute, ich wollte wissen wie es möglich ist, ein bestehendes Form (inklusives aller Labels, Button etc.) in eine TabPage zu kopieren. Kopieren ist hier vlt. das falsche Wort. Aber es geht im Prinzip darum das ich ein Form habe, und dieses möchte ich mit einem Shortcut Befehl (ähnlich dem Tabbed Browsing) bei Bedarf mehrmals in einem Tab zur Laufzeit öffnen können. Vlt. hat jemand einen Denkanstoß für mic ...

Verfasst am: 22.01.2011, 00:01 Aufrufe: 547

Hallo zusammen, habe leider nichts im Internet über mein Problem gefunden, aus diesem Grund schreibe ich hier. Ich versuche gerade verzweifelt, eine Variable ( ID ) an CrystalReport zu übergeben um mittels SELECT - Befehl nur bestimmte Datensätze aus der MySQL-Datenbank auslesen zu können, aber leider ohne Erfolg. Hier nun paar Fakten: > Ich benutze Visual Basic 2008 > Habe ein WindowsForm erstellt ...

Verfasst am: 02.01.2011, 13:28 Aufrufe: 252

ist es möglich in .net das wenn man z.b /join schreibt und er den befehl ausführt? am besten den inhalt eines buttons

Verfasst am: 29.12.2010, 12:54 Aufrufe: 299

Verfasst am: 24.12.2010, 20:41 Aufrufe: 290

Hallo alle zusammen ich schreibe hier das erste mal Surprised

und möchte von euch wissen mit welchem befehl ich den Pfad der geöffneten exe (z.b. C:/All user/desktop/Programm.exe) in eine Textbox bekomme, ohne das ich den pfad der exe angebe. Confused

(b.s.p. Textbox3.Text = Meinprogrammpfad) LGrüße Swere Very Happy

Verfasst am: 22.12.2010, 13:01 Aufrufe: 778

Verfasst am: 02.11.2010, 16:08 Aufrufe: 362

... n bestehendes Programm will ich mit VB folgende Informationen an den ComPort senden. Das Protokoll lautet: TN_RR_TAA_XXXXXXXXXXXXXXXXXXX<TAB><CS16><CR><FL> Für TN, RR, TAA und die Xes stehen irgendwelche Daten, die mir auch klar sind. Für CS16 steht aber in der Beschreibung: "Sum of all data bytes modular 65536 (cod in 4 heexa digit) in ASCII. Weiss jemand mit welchem Befehl ...

Verfasst am: 28.10.2010, 13:24 Aufrufe: 612

Verfasst am: 27.10.2010, 14:10 Aufrufe: 612

Hi hab mir nen Chatclient ueber Telnet vor kurzem geschrieben und haufen befehle und tools eingebaut hab jetzt kein platz mehr auf Form1 und jetzt will ich ueber button klick neue form laden mit dem befehl textbox inhalt an die RichTextBox abschicken der auf form1 ist habs chon SuFu benutzt und da wurde erklaert das man davor Form1. setzen soll hab ich gemacht doch dann kommt immer "laufzeitfehler 40006 falsch ...

Verfasst am: 02.07.2010, 12:29 Aufrufe: 878

Von uns dreien im Team ist nun meine erste Aufgabe, die Werte und Fehler auf einer interaktiven Benutzeroberfläche auszugeben, dies ist mein Teil des Prototyps für das fertige Programm. Das Senden von Befehlen habe ich über die SendSerialData()-Methode von MSDN realisiert, was auch funktioniert, habe dazu eine Methode für die Prüfsummenberechnung geschrieben. Dies klappt auch, aber wenn ich darauf die Empfangsme ...

Verfasst am: 26.06.2010, 23:18 Aufrufe: 328

Hallo liebe VB - Freunde, ich habe ein kleines Problem und zwar möchten wir Befehle an ein 2 Programm schicken wie ist das möglich? Das heißt : Leitstelle1 = Sender sendet Empfänger Programm2 ein Befehl der der diesen Ausführen soll! Würde mich um jede Antwort freuen! Mfg Webmasterfreaky

Verfasst am: 21.06.2010, 00:37 Aufrufe: 576

Hallo Leute! Ich habe ein kleines Progrämmchen geschrieben, dass über ein winsock per tcp eine Verbingung zu einem Gerät aufbaut. Bei bestehender Verbindung schicke ich den Befehl, Daten vom Gerät per UDP zu senden. Ein zweites Winsock nimmt die Daten an und zeigt sie auf der Form. Funktioniert alles so, wie es soll. Kompiliere ich das ganze nun und starte die exe, kann ich die TCP-Verbindung aufbauen und Bef ...

Verfasst am: 05.05.2010, 13:08 Aufrufe: 479

... tergrud laufen lassen möchte kann ich die senkeys-methode nicht benutzen, bei invokemembers("submit") wird nur aktualisiert Alle Buttons, die ich betätigen möchte: >anmelden< auf Anmelde-Seite den button hinter jaki(2) steht und zu landevice15 gehört >übernehmen< auf Bearbeiten-Seite Ein gute Beitrag wär super, da schon viele Wochen arbeit im bot stecken und nur noch dieser befehl ...

Verfasst am: 23.03.2010, 22:24 Aufrufe: 542

Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 192 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If Next i End If End Sub -------------------------------------------------------- Der Befehl läuft immer so weiter. Was nicht funkt ist der Range(hilf).activate befehl und evnt der Emptybefehl.Ich habe auch direkt mit Range("A"+str(i)) probiert aber es funkt auch ...

Verfasst am: 01.03.2010, 13:25 Aufrufe: 532

Verfasst am: 11.02.2010, 14:54 Aufrufe: 375

hey ich such ein Script für den Euklidischer Algorithmus allerdings ohne den befehl "Mod" ? könnt mir da jemand zeigen wie man des hinbekommt ?

Verfasst am: 10.02.2010, 15:11 Aufrufe: 464

was heisst dein loop befehl hängt da irgendwo drin? ich sehe nix von loop ... aber schau der code wird zeile für zeile abgearbeitet wenn du jetzt wie z.b. If gross <= 0 Or klein <= 0 Then Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !") End If da hast wird weiter gearbeitet. wennst jetzt aber noch hinschreibst exit sub also If gross <= 0 Or klein <= ...

Verfasst am: 10.02.2010, 14:11 Aufrufe: 464

... s sich da 2 textboxen befinden für die Zahlen (von denen später der GGT errechnet wird) und unter jeder Textbox 1 Label ist welches dann nochmal die Zahlen anzeigt (verlangt unser lehrer) wenn ich in die rechte Textbox die größere Zahl schreibe von den beiden ordnet der die nochmal in dem er die größere zahl immer ins linke label packt und die kleinere ins rechte label Smile

okay soweit sogut mein Loop befehl ...

Verfasst am: 10.02.2010, 11:48 Aufrufe: 464

hallo wir nehmen gerade Visual Basic im Informatik Unterricht durch und ich wollt da mal etwas fragen. ich hab diesen If befehl hier If gross Or klein <= 0 Then Label3.Text = (" du Blöde Banane !!!!!!!") Else Label3.Text = (" Alles im Grünen Bereich ") End If gross und klein sind beides double speicher jetzt ...

Verfasst am: 04.02.2010, 09:34 Aufrufe: 1223

HALLO ICH WÜRDE GERN EIN PROGRAMM SCHREIBEN MIT SHELL BEISPIEL: Shell("C:\Programme\Yahoo!\Messenger\YahooMessenger.

Verfasst am: 21.01.2010, 16:57 Aufrufe: 2032

Der Code geht nicht und den hatte ich schon. z.B Blau unterstrichen SetBinaryMode : Der Name ~ wurde nicht deklariert Bei allen anderen steht ebenfalls das der entsprechende Befehl nicht deklariert wurde. Confused

Jonas

Verfasst am: 18.01.2010, 16:45 Aufrufe: 381

Hallo Schreibe gerade für meine Diplomarbeit ein Programm. Es get darum merere Variablem einer SPS-Steuerung eizulesen. Damit diese immer aktuell angezeigt werden können muss ich disee immer wider aktualisieren. Wie macht man das am besten...das ganze gerät immer in eine Endlosschleife...ich kann dann die anderen funktionene nicht mer ausführen. Gibt es irgend ein befehl der das ganze aktulasiert solange man n ...

Verfasst am: 05.01.2010, 18:46 Aufrufe: 831

kann einiges sein, eventuell sind auch die Kerndateien von .net Framework beschädigt. Aber zeigt er das bei einem bestimmten Befehl oder einfach immer wieder an ?

Verfasst am: 25.11.2009, 17:19 Aufrufe: 702

MAPIFolder Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items Dim objEMail As Outlook.MailItem Dim Befehl ' Variable um den im Betreff erhaltenen Befehl zu Speichern Dim Zahl ' Variable um zu zählen wie viele neue Emails reingekommen sind (So viele Male müsste dann das Script ausgeführt werden) Set objOutlook = New Outlook.Application Set objNameSpace = objOutlook.GetNamespace("MAPI") ...

Verfasst am: 19.11.2009, 08:57 Aufrufe: 770

Hallo Vermute mal du rufst die Sub "Anzeige()" dann auf wenn du einen Knopf drückst. Lieg ich da richtig? Wenn ja: dann dann gib die Sub "sprachausgabe("xyz") " als nächsten Befehl nach "Anzeige()" beim Klickereignis deines Buttons. Wenn nein: bevor du in der Sub "Anzeige()" die Sub "sprachausgabe()" aufrufst einfach ein If lbl_Zubereitung.Captio ...

Verfasst am: 17.11.2009, 20:45 Aufrufe: 770

Hallo, ich habe ien Problem und hoffe auf kompetente Hilfe! Smile

Ich habe ein VB6-Programm geschrieben, in welchem einem Label ein Text zugewiesen wird. Einen Befehl weiter rufe ich ein sub sprachausgabe auf (hier wird der text im label vorgelesen). Funktioniert auch alles bestens. Mit einem Haken: Obwohl der Befehl zum Text anzeigen vor dem Befehl zur Sprachausgabe steht, wird zuerst vorgelesen und danach(!) de ...

Verfasst am: 17.11.2009, 11:06 Aufrufe: 296

Hallo zusammen... ich arbeite an einem kleinen(besser gesagt mehreren) VB.net Programmen. Nun würde ich gerne etwas einbauen, das in Abhängig keit vom Datum passiert... also bsp weise, sobald man den 1. Oktober erreicht hat, soll ein label nen Text enthalten... (also bsp "Einen wunderschönen Herbsttag!") Kann mir jemand ein Beispiel posten? denke, das ist nciht soo unfangreiches, abe ...

Verfasst am: 03.11.2009, 09:32 Aufrufe: 880

dies dauert eine ganze weile und soll deshalb im hintergrund passieren. Mit dem "invisible"-befehl klappt das ja auch ganz gut und dass ich falls eine excel-instanz bereits geöffnet ist eine neue im hintergrund laufende anlege geht auch. nun kommt es aber zu folgendem problem: Öffne ich während der prozedur manuell eine excel-datei mit doppelklick, so öffnet sich diese in der gleichen instanz, die ich mit V ...

Verfasst am: 29.10.2009, 01:19 Aufrufe: 1026

Verfasst am: 25.10.2009, 23:11 Aufrufe: 544

Muss mir selber ein kurzes Tool schreiben um eine gewisse Arbeit zu vereinfachen.Ich möchte gerne eine Text Datei auslesen und gewisse Vorgaben vergleichen.So würde die Textdatei aussehen:- Befehl "1" "100"- Befehl "2" "200"- Befehl "3" "300"Jetzt möcht ich zb. das der der Wert des ersten Befehles überprüft wirdsprich Befehl "1" = Wert "100" , dann überschreibe mit Wert "200".Wenn Befehl "1" bereits Wert "200" hat, m ...

Verfasst am: 19.09.2009, 13:56 Aufrufe: 573

Verfasst am: 08.09.2009, 08:02 Aufrufe: 320

Verfasst am: 01.09.2009, 19:30 Aufrufe: 432

Ich habe da net Frage, ich möchte einen Befehl einbauen der den User eine Datei aufruft. My.Computer.Audio.Play(My.Resources.You_Tube_Login, AudioPlayMode.Background) So geht das mit Audio Dateien, aber wie funktioniert das mit .exe Dateien? bzw. Batch Dateien? Möchte wenn man auf dem xxx Button draufklickt, dass die Datei beginnt Ihren Prozess zu starten. Danke für eure Hilfe Smile

Verfasst am: 18.08.2009, 15:17 Aufrufe: 496

Hallo, ich schreibe gerade einen Delphi Code in VB .net um und hänge derzeit an einem Befehl von Delphi. Über eine Schnittstelle soll folgendes gesendet werden: pchar(String), length(String) Die Länge eines Strings ist einfach über Len(String) in VB bestimmbar. Bei pchar hab ich so meine liebe Mühe. Pchar ist wohl ein Pointer der auf das erste Zeichen eines Strings zeigt. Ich habe es in VB .net erstmal so ge ...

Verfasst am: 04.08.2009, 16:08 Aufrufe: 606

Hi, du musst das FileSearch noch ausführen. Du hast mit deinen Befehlen nur die Bedingungen gesetzt. Mit Filesearch.execute wird das ausgeführt und du kannst das Ergebnis z. B. mit deinem Befehl Debug.Print "Anzahl Dateien: '" & varFS.FoundFiles.Count &_ "'" auswerten. MfG

Verfasst am: 01.08.2009, 11:47 Aufrufe: 1021

Hileider musste ich feststellen, dass der Befehl sendkeys unter Vista nicht mehr funktioniert.Gibts da eine Alternative?

Verfasst am: 15.07.2009, 09:02 Aufrufe: 468

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 Hauptprogramm gesprungen werden und an der Stelle weitergemacht werden wo es pause gemacht hat. Hoffe ih ...

Verfasst am: 17.06.2009, 08:26 Aufrufe: 1969

Hallo Leute, das Thema 'VB-Programme richtig beenden' ist sicher nichts neues und wird vielfach diskutiert. Letztlich wird es ja auch in einschlägigen Büchern immer irgentwo beschrieben. Mein Problem ist allerdings etwas spezieller: Ich habe eine Software geschrieben, die lediglich einen vorgegebenen Befehl (String) an die serielle Schnittstelle ausgibt, ohne dafür ein Frame zu öffnen. Das bedeutet, es wird ein ...