Visual Basic Forum

Verfasst am: 30.04.2012, 14:45 Aufrufe: 93

Hallöchen, ich komme mal gleich zur Sache: Habe einen zweidimensionalen Array und in Position array(0,0) einen Wert gespeichert. Will ich diesen wert abfragen, bekomme ich eine indexoutofrange-meldung. Es ist definitiv ein wert in array(0,0) vorhanden. Was soll das? habe es zuerst mit einer variablen versucht und jetzt sogar fix array(0,0) stehen, aber keine Chance. Woran kann das liegen? Danke schonmal an all ...

Verfasst am: 29.04.2012, 18:16 Aufrufe: 112

hi naja es ist echt mühsam soetwas zu machen du musst bei deinen labels, textboxen sämtliche werte korrigieren X wert Y wert Höhe Breite Texgröße... ich an deiner stelle würde es auf dem 15" progggen und eben dann als kleines fenster auf dem 24" oder was das war ausführen ich meine wenn du ein rießen projekt hast bei dem der aufwand wert ist kann ich versuchen dir zu helfen lg

Verfasst am: 31.03.2012, 16:28 Aufrufe: 160

- Das MDIchid hat im Wesentlichen ein DataGridView, welches über einen DataView an die Produkte-Tabelle gebunden ist. Mein Problem: - Wenn ich in einer Produkt-Zeile etwas ändere und ich verlasse die Zeile nicht, dann findet die Änderung beim Update nicht in die Datenbank - Wenn nach der Änderung in eine andere Produkt-Zeile wechsle, dann funktioniert alles prima. In der DataTable sehe ich den geänderten We ...

Verfasst am: 03.03.2012, 10:13 Aufrufe: 155

... esenen UUID-Codes der Transponder wie eine Tastatur als Eingabe an den PC schicken. Da der PC auf dem das System laufen soll ganz regulär zum arbeiten benutzt werden soll, ist es nicht möglich die Eingaben des Lesegerätes von der der Tastatur zu unterscheiden. Am liebsten wäre es mir das ganze in Visual Basic 6 zu schreiben, Alternativ wäre ein Deamonprozess, in einer anderen Sprache, der den erhaltenen Wert ...

Verfasst am: 24.02.2012, 14:01 Aufrufe: 150

Hey, ich habe folgendes Problem und zwar möchte ich wie bei einer CNC-Maschine Wegebefehle in einer Ritch Text Box eingeben, die dann im Programm Satz für Satz abgearbeitet werden. z.B. G0 X10 Y10 G1 X0 usw. Also wenn in der RTB G0 so soll der Computer im Programm der Variable G den Wert 0 zuweisen, das Gleiche mit X Y I J M. Die abgearbeiteten Sätze sollten dann auch dementsprechend in der ...

Verfasst am: 13.02.2012, 17:10 Aufrufe: 196

.

Wie kann ich dem sonst aus einer Inputbox einen Pfad zurückgeben, den er frisst? ---------------------------------------------------- Sub RelativeBildverknuepfung() ' ' RelativeBildverknuepfung Makro ' ' Dim Datei As String 'Hier mal die Filebrowserbox und zurückgeben von Pfad und Filename als Datei vom Wert String With Dialogs(wdDialogFileOpen) If .Display = 0 Then Exit Sub 'wenn abb ...

Verfasst am: 10.12.2011, 13:17 Aufrufe: 275

Hallo, ich bin Anfänger und habe ein kleines Consolen Programm geschrieben, möchte aber das die Variablen menge(Integer) und ergebnis(Double) rechtsbündig ausgegeben werden und zwar so das wenn sich der Wert von menge oder ergebnis ändert das heißt wenn der um eine Stelle größer wird z.B. von 22.99 auf 122.87 immer noch rechtsbündig bleibt. So in etwa ist der Code, wo muss ich was einfügen. Console.Write ...

Verfasst am: 06.11.2011, 18:42 Aufrufe: 576

Moinsen, eigentlich wollte ich nur einen String in einen Integer umwandeln, aber es scheint ja doch nicht ganz so einfach zu sein. Wink

Folgender Code klappt, er gibt mir als Ergebnis 124: Dim b b = CInt(123.6) Response.Write("b = " & b) Nun dachte ich mir, dass der Wert 123.6 doch auch durch eine Variable vom Typ String kommen könnte. Also probie ...

Verfasst am: 04.11.2011, 01:15 Aufrufe: 154

Hallo zusammen, ich habe ein Problem und komme wirklich nicht mehr weiter. Es geht darum das ich einen Wert habe, wie zum beispiel 10. Dieser Wert soll mit mind. 2 anbietern verglichen werden. Also, Anbieter A kostet von 8 bis 20 10€ und Anbieter B kostet von 8 bis 20 aber nur 9,80€. Nach einem Buttonklick soll er mir wiedergeben für welchen ich mich entscheiden soll. also für den günstigeren... Ich hoffe ich ...

Verfasst am: 03.11.2011, 11:52 Aufrufe: 484

Open Pfad & "\Speicherplatzbelegung.xls" Set Belegung = ActiveWorkbook Einlesen.Activate s = Mid(Cells(1, 1), 18, 15) Belegung.Activate Cells(3, 3) = s aktivieren funktioniert! Smile

in der zeile s=mid... bekomme ich für s auch den richtigen wert angezeigt beim debuggen! allerdings kommt dieser wert nicht in der anderen excel datei an Sad

weiß j ...

Verfasst am: 23.10.2011, 17:57 Aufrufe: 326

Hallo zusammen, ich arbeite aktuell an einem Projekt und verzweifel ein wenig an einer Stelle. Es geht hier um das Einlesen eines Textblocks aus einer Zwischenablage und der anschließenden Auswertung. Das Einlesen funktioniert auch wunderbar, es hapert hier aber an der Auswertung. Damit meine anschließende Erläuterung verständlich wird, poste ich als erstes einen Beispielabschnitt aus dieser Zwischenablage. ...

Verfasst am: 30.09.2011, 07:59 Aufrufe: 434

Text = txBeschreibung.Text & rs.rdoColumns("beschreibung").GetChunk(iColsize) & vbCrLf ... das gleiche Ergebnis. iColsize nimmt immer den Wert an, den der letzte Datensatz hat. Auf wenn ich ihn beim debuggen im Direktfenster ändere bekomme ich das falsche Ergebnis. Noch was lustiges: Wenn ich in der For-Schleife eine Überprüfung einbaue, bekomme ich nichts bzw. nur returns angezeigt... ...

Verfasst am: 17.09.2011, 10:31 Aufrufe: 213

Hallo Zusammen, erst einmal ein Kompliment für das tolle Forum. Habe hier schon wertvolle Tips gefunden. Jetzt habe ich aber ein Problem für das ich noch keine Lösung finden konnte und hoffe auf Unterstützung. Kurze Erklärung: Ich multipliziere Zahlen mit Minuten und teile das Ergebnis dann in Stunden und Minuten. Um das zu lösen, arbeite ich mit Teilergebnissen mit den ich dann weiterrechne. Soweit so g ...

Verfasst am: 17.08.2011, 07:27 Aufrufe: 279

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.07.2011, 18:33 Aufrufe: 527

<Language>.<Menu>.<mnuStripFileCloseProgram>.Value) Return 1 End Function Ich möchte quasi aus dem XML-File einen Wert auslesen von einem Child-Element und dem entsprechenden Form-Element zuweisen. Wie man sieht heißt das Child-Element genauso wie das Form-Element. Jetzt bräcuhte ich quasi eine Schleife baut, da ich sonst ja jeden Wert einzeln zuweisen müsste. Ab einer gewissen ...

Verfasst am: 03.07.2011, 13:14 Aufrufe: 291

Hi! Ich hab ein Problem in VB2010 mit dem MonthCalendar Control: Nachfolgender Code funktioniert nicht mit der Fehlermeldung "Der Wert vom Typ "System.Collections.Generic.List(Of Date)" kann nicht in "1-dimensionales Array von Date" konvertiert werden." Keine Ahnung was das bedeutet und warum es nicht funktioniert. Dim darray As New List(Of Date) Dim d As ...

Verfasst am: 17.06.2011, 11:15 Aufrufe: 508

Das ging in erster Linie gut. In zweiter Linie, habe ich jedoch bemerkt, dass mein Programm die Access DB lediglich kopiert hat und im Programm eingefügt. Ändere ich nun in der Access DB einen Wert wird dieser im Programm nicht aktualisiert. Erst wenn ich nun den Wert in der Tabelle im VB ändere, wird der Wert in der ListBox geändert, jedoch nicht in der Access DB. Nun die Frage, wie kann ich es so machen, dass di ...

Verfasst am: 03.06.2011, 10:38 Aufrufe: 296

Das Problem hat sich erledigt! Mittels "Try Catch" habe ich herausgefunden, dass ich einen unzulässigen Wert in ".DataBits" schreiben wollte. Das hatte weder bei der Compilierung, noch im Debug-Modus eine Fehlermeldung, sondern nur dieses unkontrollierte Verhalten zur Folge. Vielen Dank an alle die sich diesen Thread angeschaut und sich Gedanken dazu gemacht haben. Viele Grüße BerndL

Verfasst am: 25.04.2011, 08:24 Aufrufe: 644

hallo leute! ich versuche einen dezimal wert z.b. "121174323" in hex werte umzuwandeln. ich brauche den hex wert aber vollständig also immer ganze zweier blöcke. also so ich rechne 121174323 in hex um und bekomme dann 738F933 heraus. ich brauche aber alle 8 stellen also so: 07 38 F9 33 wie kann ich das so formatieren? der leeraum ist ja egal das kann ich selber auch, aber die hex zahlen vollstä ...

Verfasst am: 20.04.2011, 21:59 Aufrufe: 2425

können hinzugefügt werden - Für Faule ist es möglich sich eine Anzahl an Leveln generieren zu lassen - DLL Plug-In System für neue Editoren Ich hab sicher etwas vergessen aber ich hoffe das reicht erst mal! Verwendete Programmiersprache: VB6 Systemanforderungen: Soweit noch nicht bekannt, da ich auf einem Sixcore fahre! Erfahrungswerte von Euch würden mir da sehr helfen! Auflösung ist aber minimum 102 ...

Verfasst am: 25.03.2011, 09:56 Aufrufe: 772

" ' Ausgangslaufwerk und Pfad ChDrive ("C:\") ChDir ("C:\") With Application ' Set File Name to selected File Filename = .GetOpenFilename End With ' Ende bei Abbruch ' die Variable FileP wird auf den Wert des Pfades gesetzt und im Feld G7 ausgegeben FileP = Filename Range("G7") = FileP If Filename = False The ...

Verfasst am: 17.03.2011, 15:56 Aufrufe: 601

Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If End If If temp.Length > 12 Then 'das ...

Verfasst am: 17.03.2011, 15:25 Aufrufe: 601

Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If End If If temp.Length > 12 Then 'das ...

Verfasst am: 17.03.2011, 14:36 Aufrufe: 601

Remove(5, temp.Length-1) = "File =" Then Aber so wie es jetzt ist werden natürlich nur die Werte von File4 in die neue Datei geschrieben, kannst aber das Schreiben der Datei gleich in die Suchschleife mit reinpacken dann schreibt er es jedesmal wenn er den entsprechenden Begriff findet. Oder das schreiben in einen eigenen Sub und ihn dann in der Suchschleife aufrufen und als Parameter den zu sch ...

Verfasst am: 17.03.2011, 13:24 Aufrufe: 601

Length) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, Var1.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If 'das gleiche nochmal für deinen zweiten Wert If temp.Remove(10, temp ...

Verfasst am: 10.03.2011, 21:29 Aufrufe: 294

hi leute, steh echt aufm Schlauch. Ich soll ein Consolen-Programm schreiben das aus diesen Werten den größten Wert ermittelt: Werte: 16, 221, 39, 45, 20, 4, 121. Ich nicht mal den Dunst eines blassen Schimmers wie ich das machen sollte. Brauch da echt ma jmd der mir das mal komplett postet damit ich mir da mal nen bild machen kann. Embarassed

Danke.

Verfasst am: 07.03.2011, 20:07 Aufrufe: 477

M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden. Bin echt sehr dankbar für euere Vorschläge Private Sub Command8_Click() ' M5.4 lesen If (CPU_Connected = True) Then On Error GoTo err: ' M(nr As Long, bit As Long) As Long ' nr: Adresse des Merkerbytes ' bit: Bitnummer im Merkerbyte ' Rückgabe: Gelesener Wert M5_4.Value = CPU ...

Verfasst am: 09.02.2011, 12:13 Aufrufe: 483

Hallo an Alle, Ich will ein Textbox1 Wert in einer Textdatei suchen und gefundene Line in Label1 ausgeben. Diese Code hab ich in Internet gefunden, wie könnte ich es für meine Idee nutzen? Diese Code sucht einen Wert den ich in eine Textbox eingebe in einer Textdatei und die Zeile mit dem gefundenen Wert wird in einer neue Textdatei gespeichert. Dim stream1 As New System.IO.FileStream("C:\ ...

Verfasst am: 27.12.2010, 00:58 Aufrufe: 796

Also ich studiere E-technik und hatte 1 Semester VB (nur ganz einfache Sachen). Ich soll jetzt in meiner Bachelorarbeit Windgeschwindigkeiten auslesen und brechnen. Das heisst ich bekomme eine CSV Datei mit sehr vielen Werten (Geschwindigkeit und Zeit Werte). Diese muss ich laden und auslesen. Ich kann aber nicht jeden Wert aus der Datei brauchen, sondern nur jeweils einen Mittelwert (aus 10 minütigem Zeitin ...

Verfasst am: 26.10.2010, 19:17 Aufrufe: 257

Ich suche eine Möglichkeit ein structure, welche wiederum aus mehreren untergeordneten structure besteht, zu leeren. Es soll so sein, dass die Werte der enthaltenen untergeordneten structure alle auf Nothing gesetzt werden und nicht der Wert der obersten structure einfach Nothing ist. z.B. structure structGesamt Dim A() As structA Dim B As structB '... End structure

Verfasst am: 06.10.2010, 07:27 Aufrufe: 561

Hy hy. Ich habe ein Zahlenfeld wie bei einem Taschenrechner. darunter eine textbox. Wenn ich die Zahlen klicke sollen diese unten im Zahlenfeld erscheinen. bei klick auf den Button login, soll die eingegebene Zahl mit den Zahlen welche in einer Excel Tabelle geschrieben sind vergliechen werden. Wenn die eingegebene Zahl in dem Excel File in Spalte A hinterlegt ist, wird die nächste Form geöffnet. Hat da j ...

Verfasst am: 02.10.2010, 03:04 Aufrufe: 598

hallo leute ich bin leider noch ein anfänger und deshalb beschäftige ich mich mit einen text crypter und habe auch schon mein erstes problem. Sad

Warnung 2 Die TextBox1-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten. beispiel: TextBox2 = Replace(TextBox1, encrypta, "srgae") ich komm nicht weiter bitte um hilfe ...

Verfasst am: 20.09.2010, 14:20 Aufrufe: 903

Hi ich habe folgendes Problem, ich bekomm ich eine Textbox einen String gesendet, dieser soll ab einen bestimmten zeichen (Asc 13) abgeschnitten werden. Mit meinen Quellcode bekomm ich immer die Meldung das der Wert nicht kleiner Null sein darf? Was mache ist denn da verkehrt? Dim b As Integer Dim z As String Dim a As String = TextBox2.Text b = a.IndexOf("~") ...

Verfasst am: 16.09.2010, 07:03 Aufrufe: 1346

hi der fehler ist folgender... dur prüfst ob in der Variable "ID" der wert 5 ist und nicht ob der wert in der varaiablen die länge 5 hat Wink

also... nicht if ID = "5" sondern if len(ID) = 5 then 'vorgang wird bearbeitet else 'bitte geben sie ihre korrekte ID ein endif aja nochwas GANZ WICHTIG wenn du sowas machst solltest du die Variable ID nicht als integ ...

Verfasst am: 06.09.2010, 14:40 Aufrufe: 455

Hallo, das werde ich nun mal probieren. Meine Dateien sind zwar mehr als 10mal so groß, aber ein Versuch ist es wert. Ein Satzzeiger in der Datei wäre mir allerdings lieber gewesen. MfG

Verfasst am: 04.09.2010, 22:34 Aufrufe: 355

Hallo! Ich habe eine Matrix aus ganz vielen Picturesboxen auf einer Form. Nun will ich wenn z.B. aus einem datenbankfeld der Wert 122 kommt, das die Picturebox122 z.B. ihre Farbe ändert. Wir kann man also so ein Objekt aus einer variablen heraus ansprechen? Danke! Leffe

Verfasst am: 06.08.2010, 09:34 Aufrufe: 794

Guten Tag, ich benötige eine Lösung (welche mir auch Geld wert ist), mit der ich Daten aus ca. 3000 E-Mails herauslesen und auflisten lassen kann, bzw. von den Daten, welche ich in Outlook 2003 per E-Mail mit PDF-Anhang (Beispiel kann ich schicken) versandt hatte, herauslesen: Minimum: Der E-Mail-Adresse des Empfängers, die Anrede, der Nachname. Jedes E-Mail beginnt so: Sehr geehrter Herr …. Oder Sehr ge ...

Verfasst am: 04.08.2010, 17:50 Aufrufe: 1031

Hallo christopher.g danke Dir habe mein Code entfernt und Deinen genommen. Läuft relativ schnell. Nur leider steht der größte gefundene Wert nicht oben. Also absteigend sortiert mit der Anzahl wie oft. lieben lieben Gruß Angelina

Verfasst am: 04.08.2010, 17:07 Aufrufe: 583

Hallo Leute , ich brauche ein wenig hilfe um nen quelltext auszulessen und den wert in einer ListView zu laden. Ich hab das ganze web schon durchsucht und nichts passendes gefunden Das Normale auslesen hab ich so gemacht With Form1.wbb.Document.documentElement quelltext = .outerHtml suchzeichen1 = "<span class=""""""no" > "" pos1 = InStr(quellte ...

Verfasst am: 04.08.2010, 08:38 Aufrufe: 1031

... = 0 To 12 If Not sStr(i) = sStr(j) Then Print #2, sStr(i) & " " & sStr(j) Next Next Close #2 Hallo, sorry konnte mich erst jetzt wieder melden. Nochmals danke danke danke hat alles gut funktioniert Very Happy

Nun versuche ich verzweifelt - als Anfängerin in VB6 - eine Datei zu zählen. Ich habe eine txt Datei dort sind 990628 Wert ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

Soweit mal zur Aufgabenstellung. Ich habe mir überlegt die Daten aus der Spalte B (also die Umsätze) in ein Array zu schreiben welches dann sortiert wird und die jeweilige Positionierung in die jeweilige Zeile schreibt. (Er muss sich also merken welcher Wert wo steht). Er soll also NICHT den höchsten Wert nach oben schreiben, sondern die Umsätze in der Zelle belassen und nur in die Zelle dahinter den jeweiligen ...

Verfasst am: 13.07.2010, 06:09 Aufrufe: 530

Verfasst am: 28.06.2010, 21:51 Aufrufe: 504

Ich habe es geschafft aus zwei Längengraden und Breitengraden eine Distanz und die Zeit zu berechnen. Wenn ich aber das gesamte nmea File berechne komme ich auf unrealistische Werte. Die nmea Datei befindest sich unter http://haiflosse.lima-city.de/nmea.txt. Mein VB Code für die Berechnung der Distanz und Zeit sieht wie folgt aus: Open datei For Input As #2 Do While Not EOF(2) L ...

Verfasst am: 18.06.2010, 09:58 Aufrufe: 419

. Ich will aus einer Zelle im Excel Text auslesen und diesen danach in zwei Variablen aufteilen Hier ein Ausschnitt: Dim IntCounterBU As Integer Dim P1 As Integer Dim StrBU As String Dim IntValA As Integer Dim IntValA As Integer IntCounterBU = 1 'Habe im Originalcode eine Schleife die den Wert immer erhöht, damit es die ganze Spalte durchmacht StrBU = Range("R" & IntCounterBU).Value ...

Verfasst am: 13.06.2010, 20:35 Aufrufe: 511

MDB") Set TB = DB.OpenRecordset("Antragsdaten", dbOpenDynaset) Do While Not (TB.EOF) j=j+1 ' Hier fehlt mir was, um die einzelnen Felder des jeweiligen Datensatzes zu durchlaufen ' wert(j, ?)=??? ' TB.MoveNext Loop End Sub Es wäre super, wenn mir jemand - mit ganz einfachen Worten/Scripts - helfen könnte. Ich da ...

Verfasst am: 12.06.2010, 13:33 Aufrufe: 975

Open ordner & "\Tabelle.xls" For zeile = 1 To 5 For spalte = 1 To 5 wert(zeile, spalte) = Excel.Range(Spaltenname(spalte) & zeile) 'Hinter Spaltenname steckt eine Funktion, ...

Verfasst am: 08.06.2010, 21:39 Aufrufe: 635

Ich verwende einen VB Code um aus 2 NMEA Koordinaten die Distanz zu berechnen. Das ganze funktioniert auch sehr gut. Jetzt habe ich zwei Koordinaten, wo ich aber einen viel zu großen Wert bekomme. Die Koordinaten lauten: Breite start: 46.999913 Länge start: 15.492768 Breite Ende: 47.000023 Länge Ende: 15.492642 Wenn ich diese Zahlen z.B. mit der Webseite http://www.mountainbiker.ch/inhalt/distanz-berech ...

Verfasst am: 07.05.2010, 17:35 Aufrufe: 405

hallo ich muss ein Vortrag über One-time pad verschlüsselung machen. dazu muss ich jedem buchstaben aus einem string einen wert zuteilen. ( A=1, B=2, C=3,..., Z=26). wie mache ich das? Ich habe mir eine Userform angelegt in den ich den string schreiben kann. gruss lars

Verfasst am: 22.04.2010, 20:44 Aufrufe: 413

weis nicht vl prüfen ob der prozess explorer.exe wegfällt mag mich irren aber einen versuch wäre es wert

Verfasst am: 21.04.2010, 10:13 Aufrufe: 965

Hallo, bin neu in der programmierwelt und möchte eine txt DAtei öffnen, einen Wert suchen und ändern. In der Datei steht test!1234 ich möchte dann test! suchen und die ZAhlen ändern, später über eine Variabel. Hier mal mein Code, aber irgdedwie ghet das nicht. Open dateiname For Input As #1 Do While Not EOF(1) Line Input #1, gesamtstring pos = 1 x = InStr(pos, gesamtstring, &quo ...