Visual Basic Forum

Verfasst am: 14.02.2012, 17:25 Aufrufe: 224

Zitatanfang: "Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?" Zitatende Sorry... hinter der anweisung muss natürlich die variable "ges" hin, da vorher vom nutzer die Stunden, Minuten und Sekunden und den dafür vorgesehenen Textfeldern eingegeben werden können und diese dann logischerweise von meinem Programm gleich umgerechnet werden. M ...

Verfasst am: 14.02.2012, 16:11 Aufrufe: 224

hallo hast es schon mal mit einer anderen zeichenfolge versucht z.b. ipconfig probiert? dann kannst vl ein wenig eingrenzen Edit: Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?

Verfasst am: 19.01.2012, 01:01 Aufrufe: 267

Verfasst am: 18.10.2011, 11:00 Aufrufe: 291

Ist mir mittlerweile klar, wenn ich über BTN Stop die Kommunikation mit der Schnittstellenkarte abbreche, läuft das Programm Spülen natürlich weiter und startet mit dem nächsten Timer event wieder neu. Wie kann ich diese Functionen beenden ? Mir fehlt sowas wie EXIT FUNCTION : MDL_MESSUNG ! RUN_FUNCTION_MESSUNG Eine Goto anweisung zum End function wäre schon genug, aber auch dafür fehlt mir die Syntax, ich ...

Verfasst am: 23.09.2011, 10:27 Aufrufe: 169

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: 05.07.2011, 13:32 Aufrufe: 1184

In dieser Sammelung ist unter anderen der "ToggleButton" der genau das kann was du suchst. ToggleButton1.Value = True Mit dieser Anweisung wird der Button dann "gedrückt" dargestellt. Darf ich fragen mit welcher SPS-Steuerung du arbeitest und welche .ocx-Datei du für die Kommunikation benutzt? Ich bin auch im Bereich der Automatisierungstechnik tätig und immer interessiert was neues zu ...

Verfasst am: 21.06.2011, 09:20 Aufrufe: 564

Sorry für die späte Meldung! Habe EWIG gesucht und jetzt den Haken endlich gefunden...ich habe überall Excelobjekt.workbook geschrieben...und irgendwo hatte ich mal ein with....endwith drin und dann raus genommen. Jetzt habe ich aber bei einer anweisung das excelobjekt. vergessen davor zu schreiben... :shock: es geht also alles...ein Glück...bis zum nächsten Problem ;-) Und nicht zu vergessen: Vielen Dank für ...

Verfasst am: 16.10.2010, 17:57 Aufrufe: 828

Hallo, ich bin grade an ein einem programm,das sich selber updaten soll...ich habe ein tutorial aus dem internet benutzt: http://www.youtube.com/watch?v=sq83yaZBNBQ habe es auch gleich versucht doch dann kamen diese 3 Fehler: "end of"-Anweisung erwartet. Der Name "request" wurde nicht deklariert. Der Typ "System.IO.screamreader" ist nicht definiert. hier der source: Publ ...

Verfasst am: 26.02.2010, 01:48 Aufrufe: 510

hat sich erledigt hab den fehler gefunen. die 2 + 3 elsif anweisung waren beide gültig nach dem ersten click

Verfasst am: 22.12.2009, 18:32 Aufrufe: 618

Verfasst am: 11.11.2009, 15:06 Aufrufe: 1425

Außerdem vereinfacht es die suche nach genau der SalesOrg, bei denen die Länder AT02, BE22 und und und eingetragen sind. Eine solche Abfrage kann man in Access mit dem Assistenten erstellen. Alternativ geht es auch über eine SQL Anweisung. select SalesOrg from Tabelle where Country1 = AT02 and Country2 = BE22 usw. Entweder er findet dann eine SalesOrg oder gibt den Hinweis aus, daß eine solche Kombinati ...

Verfasst am: 21.09.2009, 17:42 Aufrufe: 498

Verfasst am: 06.08.2009, 13:25 Aufrufe: 1090

Innerhalb des Catch-Blockes kann wiederum ein Try-Konstrukt mit Code stehen, hier wird jetzt versucht auf C: die Datei zu öffnen, da sie dort nicht vorhanden ist, wird ein FileNotFound Fehler ausgegeben und dieser auch aufgefangen. Bis dahin unbekannte Fehler können mit einem einfachen Catch aufgefangen werden. Zum Schluss kann man noch eine Finally Anweisung hinzufügen, d.h falls ein Fehler auftritt wird auf jeden F ...

Verfasst am: 17.07.2009, 12:02 Aufrufe: 514

Wenn du willst das es wieder zu Writeline springt mach es so 1: SerialPort.Writeline("Anweisung") Try SerialPort.Readline() Catch ex as Exception MessageBox.Show("No response") GoTo 1 End Try

Verfasst am: 15.07.2009, 10:02 Aufrufe: 514

... 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 ihr könnt mir soweit folgen. Ich habe in meine Pause-Funktion folgendes geschrieben: SerialPort.Writeline("Anweisung ...

Verfasst am: 15.04.2009, 14:15 Aufrufe: 686

Man könnte noch versuchen auf das Control Array zuzugreifen, mit den entsprechenden Indexen aus deiner Variable test. Man holt sich erst alle Labels in ein eigenes Array und ruft sie dann mit dem Index ab, aber das ist hier aufwendiger als die Select Anweisung. Und die Methode (lable + test).text = "asdf" geht in VB nicht.

Verfasst am: 15.04.2009, 14:01 Aufrufe: 686

Marduk hat recht, Select Case Anweisung ist das, was du bruachst ;D Wüsste nicht, warum du es anders lösen solltest, wenn es damit so einfach geht. lg ZiuX

Verfasst am: 15.04.2009, 11:30 Aufrufe: 686

Wenn ich dich richtig verstanden habe, hilft dir die Select Case Anweisung weiter. http://openbook.galileocomputing.de/vb_net/msvb020006.htm#Rxxmsvb020006256DieSelectCaseVerzweigung

Verfasst am: 05.03.2009, 16:02 Aufrufe: 592

Hallo, kann ich irgendwie beim Einlesen einer Textdatei in ein Stringarray mir anschließender ReDim Preserve Anweisung, die Progressbar anzeigen lassen. Also nach jeder Neudimensionierung und Einlesen ins Array: ProgressBar1.Value = ProgressBar1.Value + 1 ohne ProgressBar1.Max zu kennen, da das Array ja dynamisch ist? Danke!

Verfasst am: 23.05.2008, 19:53 Aufrufe: 635

Fehler 1 "Get" ist kein Member von "System.Net.Dns". C:UserscReative.ExploiDocumentsProgenWindowsApplication2WindowsApplication2Form1.vb 108 80 WindowsApplication2Fehler 2 Die Anweisung "ReDim" kann nicht mehr zum Deklarieren eines Arrays verwendet werden. C:UserscReative.ExploiDocumentsProgenWindowsApplication2WindowsApplication2Form1.vb 110 37 WindowsApplication2

Verfasst am: 19.05.2008, 20:34 Aufrufe: 508

Verfasst am: 14.05.2008, 19:21 Aufrufe: 3186

Fehler 1 Syntaxfehler. C:UserscReative.ExploiAppDataLocalTemporary ProjectsWindowsApplication1Form1.vb 5 7 WindowsApplication1Fehler 2 Eine Anweisung kann nicht innerhalb eines Methodentexts verwendet werden. Das Methodenende wird angenommen. C:UserscReative.ExploiAppDataLocalTemporary ProjectsWindowsApplication1Form1.vb 9 7 WindowsApplication1Fehler 3 Bezeichner erwartet. ...

Verfasst am: 17.04.2008, 14:03 Aufrufe: 698

Hi Community, Also ich hätte da mal eine frage... Ich gib mal jetzt einen Beispiel.. Function i() ShellExecute Me.hwnd, "Open", "http://www.win32-coder.x2.to", _ vbNullString, vbNullString, 1 End Function Function festgelegt.. Der Aufruf z.B. 5 mal: Private Sub Command1_Click() i i i i i End Sub Gibt es vielleicht einen Weg um denn aufruf so zu ...

Verfasst am: 14.04.2008, 18:15 Aufrufe: 1184

Verfasst am: 04.04.2008, 18:13 Aufrufe: 385

Split die Eingabe doch einfach,wenn zwischen der Anweisung und den Parametern immer ein Leerzeichen ist kannst du es doch aufspliten in zwei Teile. Die Funktion dazu muss dir aber wer anderes sagen,weil ich schon ewig nichts mehr in vb 6 gemacht habe,sondern auf .Net umgestiegen bin.

Verfasst am: 17.03.2008, 02:57 Aufrufe: 1421

FormClosed End Sub ' und Private Sub Start_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing End Sub Da gibt es auch die "End-Anweisung" aber ich habe keine Ahnung wie ich die benutze und vorallem nicht wie ich damit abfragen soll ob die Q3 geschlossen wird. Hat da jemand für mich einen Beispiel Quellcode ? Weil wenn ic ...

Verfasst am: 17.03.2008, 01:49 Aufrufe: 1421

Die Einfache Variante waere es jetzt einfach sobald die Form Q3.vb geschlossen wird , die start.vb wieder sichtbar wird. Aber da Q3.vb quasi der abschluss des programmes ist, sollte sich auch das ganze Programm schließen. Habe gedacht ich könnte es mit einer ganz einfaches If Anweisung lösen. If q3.Close() Then Me.Close() End If Aber er sagt mir dann das q3.close() keinen Wert hat. Wie löse ich das d ...

Verfasst am: 24.02.2008, 14:51 Aufrufe: 288

ich versteh irgendwie deine frage ned via if anweisung??

Verfasst am: 23.02.2008, 22:18 Aufrufe: 668

Text"nach jedem klick auf einen button aktualisieren lassen .. der port liegt in der registry ... ich schreibe: Private Sub portcheck() Global check As String ..... jetzt sagt der mir, dass die Anweisung "Globe" in öffentlichen prozeduren nicht zulässig ist. was muss ich nun ändern? Edit: sorry wegen Doppelpost hab nicht aufgepasst Da das im moment viel zu oft passiert, Verwarnung ...

Verfasst am: 02.12.2007, 20:03 Aufrufe: 620

Location = New Point(x, y) einen neuen punkt erstellt. dachte, das wäre mit sowas zu vergleichen: "Dem Label1 soll ein neuer Punkt mit den Koordinaten x und y zugeordnet werden." Und wenn man sowas mit einer if anweisung überprüft, klingt es umgangssprachlich etwas selstam. "Wenn Label1 ein neuer Punkt mit den Koordinaten x und y zugeordnet wird, soll {Anweisung} passieren." na ja, ...

Verfasst am: 29.11.2007, 20:08 Aufrufe: 446

. Allerdings habe weiter oben im Code noch ein "On error resume next" stehen, und deswegen habe nicht bemerkt, dass ein Indexfehler kam Wink

(also, habe das erst jetzt bemerkt, dass diese Anweisung da noch stand) Und ansonsten hätte ich hier auhc nicht gefragt, hätte ich es selber geschafft Wink

Danke für deine Hilfe. Werde zwar noch einiges ändern müssen, aber das Grundgerüst ist wunderbar Smile

(ich ...

Verfasst am: 11.11.2007, 15:40 Aufrufe: 390

de", vbNullString, "C:\", SW_SHOWNORMAL End Sub jedoch kommt eine fehler meldung die sich auf folgedene zeile bezieht (ByVal hwnd AsLong , ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Erwartet Zeilennummer oder Sprungmarke oder Anweisung oder Anweisungsende Kann mir jemand hel ...

Verfasst am: 29.10.2007, 15:17 Aufrufe: 780

Wenn du ungefähr weisst welche Befehle du einbauen willst(muss man leider schon bissl vorrausdenken) kannst du doch select case Anweisung einbauen und nur den Wert übergeben. Nachteil ist halt, dass man die Befehle alle einbauen und wissen muss. kA ob das geht, aber vllt kann man ja den Befehl in der Variablen parsen Question

Verfasst am: 27.10.2007, 18:13 Aufrufe: 289

Verfasst am: 25.07.2007, 16:14 Aufrufe: 919

Verfasst am: 06.05.2007, 09:52 Aufrufe: 656

Verfasst am: 04.05.2007, 21:12 Aufrufe: 656

und wen if = 1000 bedeutet dann if = 500 ?? selber bug selber nonsense und if > 501 dein if soll größer 501 sein? WAS? ich versteh nix. ok egla ich mach vermutungen die dir helfen: If Bedingung Then Anweisung ElseIF AndereBedingung Anweiseung End IF suchst du sowas? oder eher IF Bedingung then Anweisung Else If Bedinung Then Anweisung Else Anweisung End IF End If kp inwiefern dir ...

Verfasst am: 04.05.2007, 13:19 Aufrufe: 656

Verfasst am: 28.03.2007, 01:16 Aufrufe: 708

GetData dat 'Die daten vom Clienten werden empfangen Shell "C:\Programme\Internet Explorer\iexplore.exe dat", vbNormalFocus End Sub Jedoch will der dann immer wenn er die anweisung hat zb www.google.

Verfasst am: 03.02.2007, 00:28 Aufrufe: 439

Wieso bei F1? naja wie auch imme rich werde es mir sparen einen source zu posten. Du suchst nach der API GetAsyncKeyState damit frast du ab ob f1 gedrückt is wenn ja dann sendkeys (txt_x.Text) ende diese Abfrage machst du mit einem if satz. ICh glabu mit hilfe dieser infos und google (stichwörter: GetAsyncKeyState; Abfragen ob taste gedrückt; If anweisung; Sendkeys) schaffst du das auch gut alleine wenn du lange gen ...

Verfasst am: 16.12.2006, 22:14 Aufrufe: 3085

Hier werdet ihr in die If Anweisung und For-Schleifen eingeführt. Passwort: "vb-x.org"

Verfasst am: 19.09.2002, 12:51 Aufrufe: 287

Hallo, wie kann ich die folgende find.record anweisung mit einem suchbegriff aus einem accesstextfeld versehen ?? (siehe WASMUSSHIERSTEHEN?) Private Sub Sucheselbst_Click() On Error GoTo Err_Sucheselbst_Click Screen.PreviousControl.SetFocus DoCmd.FindRecord WASMUSSHIERSTEHEN?, acAnywhere, , acSearchAll, False, acAll, False DoCmd.FindNext Exit_Sucheselbst_Click: Exit Sub Err_Sucheselbst_Click: ...

Verfasst am: 04.09.2002, 14:33 Aufrufe: 286

3 MsgBox "Falsche Eingabe" Benutzer bekommt der Meldung 4 Exit Sub Verlasse sub fehler: Exit Sub Resume Next End Sub Es währe einfacher, den Is??? Funktionen zu benutzen. Quote: Guten Tag ich habe eine Frage, es geht um eine on error goto Anweisung. Ich habe eine Textfeld dort sollen nur Zahlen eingegeben werden, wenn aber ein Buchstabe geschrieben wird soll eine NsgBox erscheinen mit den Hinweis "F ...

Verfasst am: 31.08.2002, 19:02 Aufrufe: 286

Guten Tag ich habe eine Frage, es geht um eine on error goto Anweisung. Ich habe eine Textfeld dort sollen nur Zahlen eingegeben werden, wenn aber ein Buchstabe geschrieben wird soll eine NsgBox erscheinen mit den Hinweis "Falsche Eingabe": Ich habe schon probiert aber es hat noch nicht klappen wollen hier ist mein Quellcode: würde mich um Antwort freuen. Private Sub txtek_Change() On Error GoTo fehler Einkaufsp ...

Verfasst am: 31.08.2002, 17:11 Aufrufe: 282

Guten Tag ich habe eine Frage, es geht um eine on error goto Anweisung. Ich habe eine Textfeld dort sollen nur Zahlen eingegeben werden, wenn aber ein Buchstabe geschrieben wird soll eine NsgBox erscheinen mit den Hinweis "Falsche Eingabe": Ich habe schon probiert aber es hat noch nicht klappen wollen hier ist mein Quellcode: würde mich um Antwort freuen. Private Sub txtek_Change() On Error GoTo fehler Einkaufsprei ...