Visual Basic Forum

Verfasst am: 15.05.2012, 16:46 Aufrufe: 39

Hallo, Ich bin recht neu in VB und programmiere mit Visualstudio 2010 Ich habe ein Formular erstellt mit Textboxen, Dropdowns und einer Datumsauswahl. Ich möchte die Daten nun in eine Datenbank auf einem Server im lokalen netz über geben. (jedes mal eine neue Zeile) Anschließend habe ich noch ein Fenster mit einer Tabelle die alle Werte einlesen soll. Meine frage ist welche datenbank für mich die beste wäre. ...

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: 27.04.2012, 11:34 Aufrufe: 94

Hi Alf, ich habe mir deinen Code mal in VB6 kopiert und zugleich gesehen dass dein String rot gekennzeichnet war. Das lag am falschen Aufbau des Strings. Da waren meiner Meinung nach zuviele "Anführungszeichen" drin. Ich bin zwar kein SQL Spezialist, aber ich weiss dass man auch viel mit dem 'Hochkomma' arbeitet um Werte zu schreiben. Im folgenden Code ist zumindest laut VB6-Regeln nichts mehr rot mar ...

Verfasst am: 07.03.2012, 13:39 Aufrufe: 120

Hallo ich habe ein Excel Sheet das sich laufend aktualisiert. Ich will mit meinem VB programm das Excel Sheet auslesen un in eine MySQL DB schreiben. Das Funktioniert auch ganz gut. Jetzt habe ich nur das Problem, wie bekomme ich das hin , das jedesmal wenn sich ein Zelle im Excel Sheet ändert , das bestimmte Werte in MySQL importiert werden. Quasi nach der Art Wenn sich was ändert führe aus. Wäre Euch sehr dankb ...

Verfasst am: 06.03.2012, 17:25 Aufrufe: 174

Verfasst am: 15.02.2012, 14:49 Aufrufe: 262

Hallo, ich habe ein DataGridView dessen Inhalt in eine XML gespeichert werden soll. Lesen/Schreiben von/in XML funktioniert soweit auch gut. Nun möche ich die DGV per Button leeren und in zelle 0;0 (also die erste) das aktuelle Datum eintragen lassen. Diese (fast) leere DGV soll dann wieder in die XML geschreiben werden. Das Leeren an sich und das Eintragen des Datum funktioniert auch aber der Inhalt (das Da ...

Verfasst am: 14.01.2012, 16:45 Aufrufe: 227

Verfasst am: 23.11.2011, 09:34 Aufrufe: 409

Guten Tag, ich hab eine Combobox die mir eine Spalte aus meiner Datenbank anzeigt, die Spalte Zeit. In dieser Zeile stehen natürlich Zeiten drin. Es wird jede sekunde ein neuer Datensatz in diese Db geschrieben, also 60 pro min. Ich will aber jetzt in meiner Combobox nicht zeitangaben mit Sekunden stehen haben, sondern nur minuten. Wenn ich jetzt im Format einfach nur die sekundenanzeige rauslösche, habe ich i ...

Verfasst am: 29.10.2011, 11:04 Aufrufe: 246

Funktioniert auch alles super nur mit der Formatierung des Strings für den Druck habe ich ein Problem. Manche meiner Werte haben eine unterschiedliche Stringlänge und mir gelingt es nicht sie sauber unter einander zu formatieren. Ich habe schon versucht die Längenunterschiede mit einem Leerzeichen auszufüllen, aber das hat leider nicht funktioniert: hier der verwendete code: value = Space(156) ...

Verfasst am: 28.10.2011, 10:29 Aufrufe: 294

hey! ich gebe vor der wartezeit an das angeschlossene gerät werte für spannung und strom weiter, die dieses dann ausführt solange die wartezeit eben ist. dieses ausführen muss aber auch abgebrochen werden können! wenn der stop button auf der gleichen form wie das mscomm(bei mir rs232) liegt funktioniert das wunderbar. ich hätte aber gerne, dass während des ausführens des geräts eine neue form geöffnet wird, die die ...

Verfasst am: 25.10.2011, 12:49 Aufrufe: 294

... raktikantin in einem unternehmen ein Ansteuerprogramm schreiben soll. das klappt auch soweit ganz gut, man findet wirklich auf fast jede Frage eine Antwort im Internet Smile

Eine kleine Frage habe ich dennoch, auf die ich leider keine Antwort gefunden habe (weiteres Problem beim suchen: bei vielen Seiten wird vom Unternehmen der Zugriff verweigert) Über eine form frage ich den Benutzer nach verschiedenen Werte ...

Verfasst am: 23.10.2011, 17:57 Aufrufe: 326

Es gibt dabei folgende Möglichkeiten: 1) Eine ID taucht nicht in der Liste auf - soweit das einfachste, die Picturebox ist standardmäßig auf "Nicht vorhanden" belegt. 2) In der Statuszeile steht "Completed". Hierbei kann es vorkommen, dass die Spalten "Started at", "Progress" und "Completed at" Werte vorweisen oder nicht. Diese Spalten sind aber im weiteren Ver ...

Verfasst am: 23.09.2011, 10:27 Aufrufe: 170

Private EinmaligBCS As String Private EinmaligHSI As String Private Einmalig As String EinmaligBCS und EinmaligHSI können für verschiedene Werte stehen: (EinmaligBCS für: "" oder "19,95" oder "39,90" oder "39,90 + 19,95") (EinmaligHSI für: "" oder "19,90" oder "24,90" oder "29,90" oder "19,90 + 24,90") Im insgesamt ...

Verfasst am: 30.08.2011, 16:41 Aufrufe: 531

Verfasst am: 16.08.2011, 20:45 Aufrufe: 279

Hi ich versuche grade ein simples Programm zu coden das 2 werte zusammen rechnet. nur leider nimmt er die werte aus den textboxen an. Private Sub Command1_Click() MsgBox = Val(Text1.Text) + Val(Text2.Text) End Sub das sollte doch normal funktionieren? so hab das ganze jetzt umgebaut das alles nur in textboxen abläuft Private Sub Command1_Click() Text5.Text = Val(Text2.Text) / 60 Text4.Tex ...

Verfasst am: 27.07.2011, 11:29 Aufrufe: 807

Es geht um die Erstellung einer INI.Datei. Ich habe ein Programm, mitdem ich das Volumen, Gewicht, Prozentualen Füllstand und Wandstärkenauslegung von Tanklagern berechnen kann und möchte diese Werte, bzw das komplette Programm mithilfe einer INI Datei speichern. Meine Frage: Ansich ist das erstellen der INI absolut kein Problem. Nur wie bekomme ich es hin, dass ich die Ini Datei an einem beiebigen Ort speiche ...

Verfasst am: 11.07.2011, 11:34 Aufrufe: 706

Dies ist mein erster Post hier, daher bitte ich um Nachsicht bei Fehlern oder Nachlässigkeiten. Ich habe ein VB6-Programm geschrieben. Ein Eingabeformular enthält verschiedene Comboboxen, deren Werte aus einer Access Datenbank ausgelesen werden. Eine Combo zeigt Kundennamen an, die folgende Box zeigt die zu dem Kunden gehörigen Artikel an. Bei einem Kunden werden nicht alle Artikel in der Combobox angezeigt, obw ...

Verfasst am: 30.05.2011, 09:56 Aufrufe: 447

dieser soll dann mit der absoluteURi verglichen werden (zwecks ob der Server auf eine andere Seite weiterleitet) Wenn das fertig ist mit dem Link aus Textbox2 das gleiche.. Allerdings ist das Problem, dass wenn der Timer tickt das Programm alle drei Seiten gleichzeitig checken will.. Dadurch kommen falsche Werte raus.. Jetzt will ich meinem Programm quasi sagen: "Wenn der Timer tickt, machst du zuerst Aufg ...

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: 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: 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: 29.01.2011, 20:42 Aufrufe: 640

Visible = True objectCounter = objectCounter + 1 End Sub Private Sub nObjekt_mouseDown(button As Integer, shift As Integer, X As Single, Y As Single) if button = vbLeftButton then select case nObjekt.tag case = 0 ' je nach Button sollen hier andere Werte in bestehende Variablen geschrieben werden case = 1 ' je nach Button sollen h ...

Verfasst am: 22.01.2011, 01:01 Aufrufe: 672

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: 13.01.2011, 07:24 Aufrufe: 676

In einem Excelblatt (permant geöffnet) gibt es 29 Mess-Stationen (Zeilen) mit jeweils 4 Daten (Leistung, Temperatur,..) die ich in einem Zeitintervall auslese. Ich öffne mit meinem VB Programm dann eine Exceldatei mit 29 Seiten und trage dort entsprechend den Stationen die ausgelesenen Werte ein. Diese Datei speichere ich und schliesse sie. Nach dem Zeitintervall öffne ich diese Datei wieder, speichere und sch ...

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: 22.12.2010, 14:01 Aufrufe: 898

KeyUp Static einl As Decimal 'Einlesen der Einmalanlage einl = CInt(TextBox1.Text) End Sub Public Function kapital(ByVal einl) Dim rend = {2, 2.5, 3, 4, 4.5, 5} 'Werte der Renditen Dim i As Integer For i = 1 To 65 Me.dg.ItemsSource = i.ToString 'Befehl zur Ausgabe in Tabelle = "Jahr" 'Durchgehen der Jahre und A ...

Verfasst am: 21.12.2010, 16:52 Aufrufe: 314

Hallo, Ich habe in MS Access einen Bericht fertig erstellt und mit folgenden Namen erstellt: Bericht_BBZ Nun möchte ich im VisualBasic Code einige bestimmte Werte an diesen Bericht übermitteln und dann soll der Bericht ausgeführt werden. Ich konnte bisher zwar Formulare aufrufen und damit arbeiten, aber Berichte funzen bei mir jedoch nicht. Vielleicht bin ich da ein bisschen doof, aber ein Experte bin ich d ...

Verfasst am: 18.11.2010, 17:19 Aufrufe: 926

Hier der Code: C++: void WriteString(char* SPSinput) { char* WerteString; //Der zerlegte Teilstring int Werte[6]; //Array für die Werte aus dem String USES_CONVERSION; WerteString=strtok(SPSinput,"$"); //Abspalten des ersten Teilstrings Werte[0]=atoi(WerteString); //Speichern des abgespaltenen String im Arrayfeld [0] f ...

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: 21.09.2010, 10:01 Aufrufe: 926

Moin, ich versuche ein short-Array aus c++ nach VB6 zu uebergeben und die einzelnen Werte zu nutzen. Leider bekomme ich die Fehlermeldung, dass eine Konvertierung von 'short(*)Der C++-Code void WriteString(char* SPSinput) { char* WerteString[6]; short Werte[6]; for (int i=0;i<6;i++) { WerteString[i]=strchr(SPSinput,'$'); Werte[i&# ...

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 Werte ...

Verfasst am: 16.07.2010, 11:03 Aufrufe: 544

.bin jetzt zumindest mal soweit, dass er mir das minimum rausfindet...aber so wirklich funktioniert das trotzdem noch nicht Sad

Option Explicit Dim IntAnzahl As Integer Dim Werte() Dim IntI As Integer Dim IntJ As Integer Dim IntX As Integer Dim IntMin As Integer Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row Activ ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

so hab gestern noch mal versucht etwas weiter zu machen, er liest jetzt zumindest mal die werte ins array....jetzt ist die frage wie ich das sortieren lasse, am besten mit ner for schleife dachte ich? Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox ...

Verfasst am: 16.07.2010, 11:02 Aufrufe: 544

.) schreiben! Leider klappt das bei mir überhaupt nicht, da ich schon Probleme habe das Array zu erstellen, da er in der Arraydefinition einen festen Wert haben will - der Wert ändert sich ja aber immer, da die Anzahl der Werte (=Anzahl der Mitarbeiter/Umsätze) nicht festgelegt ist. Hab das mal soweit geschrieben: ---- Dim IntI As Integer Dim IntPosition As Integer Dim Werte() Sub Einles ...

Verfasst am: 13.07.2010, 06:09 Aufrufe: 530

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

Habe vorner nur Java programmiert, deshalb verzeiht mir etwaige Anfängerfehler =) Es geht um ein Schulprojekt, bei dem über den Mehrkreistemperaturregler MCS von Feller Engineering das Auftreten von Fehlern über die Twitter-API gesendet wird und dass sich über Twitter der entsprechende Regler steuern lässt. Von uns dreien im Team ist nun meine erste Aufgabe, die Werte und Fehler auf einer interaktiven Benutzerobe ...

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

... riginalcode eine Schleife die den Wert immer erhöht, damit es die ganze Spalte durchmacht StrBU = Range("R" & IntCounterBU).Value P1 = Application.Find("-", StrBU, 1) 'Pos vom ersten - IntValA = Left(StrBU, P1 - 1) IntValB = Mid(StrBU, P1 + 1) MsgBox (IntValA & Chr(13) & IntValB) Der Wert in der Zelle sieht z.Bsp so aus: 217-250 Ich wollte die Werte ...

Verfasst am: 13.04.2010, 08:09 Aufrufe: 664

Guten Morgen! Ich bin leider ein VB-Neuling und kenne mich nicht so gut aus und hoffe ihr könnt mir helfen! Ich habe mit Access 2003 eine DB erstellt. In dieser DB sind Eingabemasken, wo Werte eingetragen werden. Nun möchte ich, dass ein bestimmter Teil dieser Werte in eine Spalte eingetragen werden und die anderen Werte in eine andere Spalte von einer (!) Tabelle. Könnt ihr mir da bitte behilflich sein? ...

Verfasst am: 03.04.2010, 22:03 Aufrufe: 508

Hallo, ich frage in meinem Programm über Sql eine Datenbank ab. Die zurückgegebenen Werte möchte ich dann direkt im Programm nutzen. D.h. Ich möchte z.B. einen Button, welcher in der Tabelle benamt ist, im Formulat eine neue Farbe geben. Beispiel: In der Tabele steht der Name des Buttons "Buttonname1" Im Programm möchte ich ihn jetzt in dieser Form nutzen: Formular.Buttonname1.BackColor = RGB(2 ...

Verfasst am: 30.03.2010, 17:12 Aufrufe: 611

Ich habe weder Kompiliereinstellungen geändert noch sonst irgendwas. Unter XP ist .NET Framework 3.5 installiert - wie gesagt, bisher gab es da keine Probleme. Ich habe auch keine ausgefallenen Libs verwendet o.ä., einfach nur eine simple Form, die mir auf Drücken des Buttons ein paar Werte errechnet...?! Der Fehler äußert sich unter XP mit der bekannten Meldung "Programm hat ein Problem entdeckt und muß been ...

Verfasst am: 24.03.2010, 19:45 Aufrufe: 571

Habe das Problem jetzt umgangen. Ich habe mir jetzt ne Funktion geschrieben die alle doppelten Werte löscht und die nicht gelöschten der Reihe nach in ein Array schreibt. Dieses Array schreibe ich mir dann später in zwei Spalten die außerhalb meines Arbeitsbereiches liegen und greife dort mit der Combobox auf die Werte zu. Nachdem die Eingabe beendet ist lösche die eingegeben Werte einfach wieder, brauche die ja nur ...

Verfasst am: 19.03.2010, 19:45 Aufrufe: 1027

mdb" cmd.Connection = con Try Auslesen = Split(ListBox1.SelectedItem.ToString, "-", -1) 'Split (Ausdruck,Trennzeichen,Anzahl) Anzahl -1 Gibt alle Werte zurück Kundenbox_Label_KdNR.Text = Auslesen(0) 'Belegt die Labelbox mit dem ersten Teil der gesplitteten ListBox Zeile con.Open() cmd.CommandText = "select * from ...

Verfasst am: 06.03.2010, 16:58 Aufrufe: 1597

Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) Dim adp As New OleDbDataAdapter("SELECT * FROM " & Tbl.TableName, conn) Dim b As New OleDbCommandBuilder(adp) adp.Update(Tbl) conn.Close() Catch ex As Exception Console.Write("Error in SavegameAna ...

Verfasst am: 24.02.2010, 18:59 Aufrufe: 485

Wie geht man da vor? Es muss unbedingt professionell bzw. effizient vorgegangen werden, also eine endlos lange if und else Abfrage ist zu vermeiden. Das Ganze wird in VB.net programmiert, hatte schon die Idee eine Collection (zb. list(of)) zu verwenden. Wenn ich dort alle Werte der Spieler reinlese, hilft es mir natürlich nicht, wenn ich herausbekomme, welches der höchste Wert ist, aber nicht mehr sagen kann ...

Verfasst am: 01.02.2010, 07:41 Aufrufe: 811

Hallo, ich möchte ein Programm erstellen welches mit Hilfe in einer Datenbank hinterlegten Werten einen Ablauf bestimmter Berechnungen / Vergleiche durchführt. Ich habe das "Vorbild" als Excel Tabelle vorliegen in welcher gerechnent / verglichen wird und aus den Ergebnissen eine neue Tabelle erstellt wird. Das Problem ist zwar, von der rechnerischen Seite, nicht gerade komplex, jedoch wird es in Excel sc ...

Verfasst am: 31.01.2010, 20:02 Aufrufe: 343

Hallo, wie kann ich eine Zelle mit einer anderen vergleichen, wenn diese ihren Inhalt von anderen Zellen bezieht.Dieser Vergleich darf nicht nur dann ablaufen wenn diese Werte streng monoton steigend sind. D.h. zb 4,6,9,15 etc, sondern auch wenn zb 4,6,9 1, 15 gilt. meine falsche Lösung: Worksheets("Arbeitsplatz").Range("E5") >= Worksheets("Arbeitsplatz").Range("E4" ...

Verfasst am: 28.01.2010, 21:16 Aufrufe: 1126

Problem: 1. Zellenvergleich funktioniert nur für WErte die aufsteigender Größe sind, also 2, 4, 6, 19, ist aber zb 2 ,4, 6, 3 , 19 dann wird die 3 nicht beachtet 2. der Wert von E4+i soll nicht überschrieben werdne (was es bei mir leider tut) ich füge den relevanten Codeteil bei und würde mich sehr über Hilfe freuen Viele Grüße und Danke im Vorraus Dim counter3 As Integer Dim i As Integer Priv ...

Verfasst am: 21.01.2010, 18:36 Aufrufe: 982

Hallo Leute, ich hoffe Ihr könnt mir helfen. Ich habe eine CheckedListBox mit 4 Einträgen erstellt. Ich möchte jetzt, das bei einer Auswahl (Haken gesetzt) der Wert (z.B. Info) in einer TextBox erscheint. Zugleich sollte aber auch der Inhalt aus der TextBox entfernt werden, wenn der Haken wieder deaktiviert wird. (Hoffe ich habe es verständlich ausgedrückt) Rolling Eyes

Nun meine Frage, lässt sich soetw ...

Verfasst am: 23.12.2009, 01:24 Aufrufe: 445

Moin, Ich würde das mit einem Array machen, welches die Werte der TextBoxen enthält und vorm Start des Timers Deklariert wird: Dim TextArray(2) as String Sub Btn_Start_Click () TextArray(0) = TextBox1.Text TextArray(1) = TextBox2.Text TextArray(2) = TextBox3.Text Timer1.Start() End Sub ' Wo ich mir jetzt deinen Code noch mal genauer angescha ...