Visual Basic Forum

Verfasst am: 30.01.2012, 06:54 Aufrufe: 138

ja das solltest du wissen ob es gewollt ist Wink

Text1.Count gibt dir dann die anzahl zurück und somit bleibt alles schön dynamisch ansonsten schildere nochmal genau dein vorhaben dann könnte es leichter werden für mich

Verfasst am: 19.01.2012, 15:17 Aufrufe: 84

eine Kundennummer eingetragen werden kann. 1 Adminformular in welchem die Fragen definiert werden (Anzahl der Fragen die im Form erscheinen, die Fragen selbst und die Antwortart (Schulnotensystem oder Freitextantwort), sowie die Benutzerverwaltung. Das ganze sollte innerhalb eines Netzwerks laufen und die Antworten (und zugehörigen Fragen) in eine zentrale Datenbank im Netzwerk speichern (Die Datenbankverbin ...

Verfasst am: 14.01.2012, 15:45 Aufrufe: 96

Verfasst am: 01.11.2011, 10:27 Aufrufe: 112

Anschließen soll in einem Textfeld 4 eine Multiplikation mit einem Faktor x durchgeführt werden und das Produkt in eben das Textfeld ausgeben werden. Hintergrund ist eine Stundenverwaltung für Mitglieder vom DRK. Im Einsatzfall werden halt Start und Endzeit eingegeben und die Anzahl der Einsatzkräfte. Als Ergebnisse wird die Gesamtzeitleistung gefordert, sprich wieviele Stunden und Minuten (Sekunden sind hier eg ...

Verfasst am: 25.10.2011, 11:49 Aufrufe: 175

. For k = 1 To Wiederholen 'teilweise wird die schleife auch wiederholt For i = 0 To l 'l ist die anzahl der eingegebenen werte RS232.Output = "USET " & Spannung(i) & Chr(13) 'weitergabe der spannung an gerät ...

Verfasst am: 20.09.2011, 10:01 Aufrufe: 163

geringe Fehlerhäufigkeit??? Aufgabe 7 Das Dezimalsystem zählt zu den Stellenwertsystemen. Welche der folgenden Aussagen trifft für Stellenwertsysteme zu. a)Die Anzahl verfügbarer Ziffern ist abhängig vom jeweiligen Zahlensystem. b)Die Anzahl verfügbarer Ziffern ist für alle Stellenwertsysteme gleich. c)Der Stellenwert nimmt im Zahlwort von links nach rechts zu d)Der Stellenwert nimmt im Zahlwort vo ...

Verfasst am: 17.09.2011, 09:31 Aufrufe: 141

Verfasst am: 23.08.2011, 20:03 Aufrufe: 150

Hallo Ich habe eine Listview mit mehreren Columnheaders, im letzten steht 1. Wenn ein eintrag doppelt ist, soll dieses 1 auf 2 gehen. ListView1.Columns.Add(Anzahl.Text +1) Wenn ich das benutze fügt der ein neuen Columnheader hinzu aber ich will nur das er die zähl die in der Spalte ist mit +1 multipliziert. Kann mir einer weiterhelfen? Nur das mit dem multiplizieren bekomme ich nicht hin, den rest ...

Verfasst am: 20.04.2011, 20:59 Aufrufe: 2003

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: 15.02.2011, 14:24 Aufrufe: 859

Verfasst am: 20.01.2011, 07:26 Aufrufe: 298

Verfasst am: 17.01.2011, 12:07 Aufrufe: 298

kann mir da jemand nen tip geben??? Function p_staffel(menge%) Dim preis!, summe!, i% Dim anzahl(1 To 20, 1 To 2) As Single anzahl(1, 1) = "1": anzahl(1, 2) = 2 anzahl(2, 1) = "2": anzahl(2, 2) = 2 anzahl(3, 1) = "3": anzahl(3, 2) = 2 anzahl(4, 1) = "4": anzahl(4, 2) = 2 anzahl(5, 1) = "5": anzahl(5, 2) = 2 anzahl(6, 1) = "6": anzahl(6, 2 ...

Verfasst am: 15.01.2011, 17:49 Aufrufe: 514

Normal End With client.Host = "smtp.web.de" client.Credentials = anmeldung client.SendAsync(MailMessage) End Sub End Class Er Zeigt mit diesen Fehler an : Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "SendAsync" diese Anzahl von Argumenten akzeptiert. Für hilfe bin ich sehr dankbar, da mein Köpfchen scho ...

Verfasst am: 13.01.2011, 06:24 Aufrufe: 545

... icht erstellt werden."). Manchmal auch beim Einfügen der Werte. System ist Win XP, 2 GB Speicher, Office XP Im Taskmanager ist immer nur 1, bzw. während des Speicherns 2 Excelinstanzen offen. Wenn ich nach 300 Einträgen mit meinem VB Programm eine neue Datei anlege und in dieser die nächsten Werte eintrage, stürzt das VB Programm nach 28 einträgen ab. Anscheinend begrenzt irgendwas die Anzahl ...

Verfasst am: 18.11.2010, 16:19 Aufrufe: 842

lLbound = 0; //Erster Index des Arrays aDim[0].cElements =6; //Anzahl der Arrayelemente SPSData =SafeArrayCreate(VT_INT,1,aDim); //Safearray für Short/Integer erstellen for (long int i=0;i<6;i++) // Befüllen des SAFEARRAYS { SafeArrayPutElement(SPSData,&i,&Werte[i]); } try //Aufruf der VB6-Methode { CoInitialize&# ...

Verfasst am: 11.11.2010, 16:46 Aufrufe: 657

My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) der fehler wird in (str)) ANGEZEIGT Sad

(

Verfasst am: 05.08.2010, 07:24 Aufrufe: 865

Hallo, nein das habe ich nicht gemeint. Trotzdem danke nochmals Very Happy

Ich meinte: Bei der Ausgabe wird die Anzahl geschrieben CCur(sSum(i)) Nur wenn ich jetzt die txt öffne stehen da ja 990628 Zeilen untereinander mit jeweils wie oft vorgekommen. Ich wollte die die am meisten vorgekommen sind oben am Anfang der Datei haben usw. also absteigend sortiert nach ihrer Häufigkeit. Ich wollte das in excel ...

Verfasst am: 04.08.2010, 16:50 Aufrufe: 865

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: 30.07.2010, 08:34 Aufrufe: 667

net empfehlen weil da gibt es viel mehr möglichkeiten (und coder natürlich auch) und 1000e steuerelemente teilweise sogar die die sogar auf dem foto hast frage 3 ja das funktioniert per winsock aber bei so einem chat (also wie bei dir... wo die anzahl der nutzer variiert bzw es 2 oder mehr werden wirds aufwendiger Wink

) aber sonst würde es funkionieren bei fragen mit winsock kann ich dir noch helfen ab ...

Verfasst am: 16.07.2010, 10:02 Aufrufe: 479

.) 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: 09.05.2010, 11:52 Aufrufe: 757

Console Module Module1 Dim Anzahl As String Dim Durchläufe As Integer Dim ZwErg As Integer Dim Summe As Integer Dim numericCheck As Boolean Sub Main() Do Summe = 0 WriteLine("Bitte geben Sie die Anzahl der Durchläufe ein") Anzahl = ReadLine() ' nein, readline gibt Ihnen einen string zurück, aus dem müssen Sie eine Int mac ...

Verfasst am: 08.04.2010, 06:55 Aufrufe: 727

Also in meinem Kopf habe ich schon das Baumdiagramm, es beginnt mit 1326 verschiedenen Händen, dann sind wieder x Folgekartenvarianten möglich... Also die Wahrscheinlichkeit eine Straße, ein Pärchen etc zu treffen berechnet sich aus der Anzahl der verschiedenen Zweige... Die Frage ist aber nun: Wie kann ich so ein Diagramm umsetzten? (Ich weiß, dass ich so evtl sehr sehr viele If else Anweisungen bekomme) ...

Verfasst am: 19.03.2010, 18:45 Aufrufe: 966

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: 09.02.2010, 19:13 Aufrufe: 535

Die restlichen 3 aus Tabelle 3 und die restlichen 2 aus Tabelle 4 dürfen nicht als wahr markiert werden. So dass man später eine Tabelle heraus bekommt (Tabelle 5), auf der Sichtbar wird, wo die gesuchten "5mal Produkt A" aus Tabelle 1, in Tabelle 2,3,4 zu finden sind. Mann bräuchte wohl so etwas wie einen Countdown, welcher bis zu einer bestimmten Anzahl Produkt XY heraus filtert. Alle Tabellen lieg ...

Verfasst am: 23.12.2009, 00:11 Aufrufe: 2370

Das ist Relativ einfach, hier hilft google auch gerne weiter... Der Code zum Runden ist folgender: TextBox5.Text = Math.Round(TextBox3.Text, 2) ' Die 2 steht für die Anzahl der Stellen, die ausgegeben werden sollen. Ich wünsche viel Spaß beim Rechnen Razz

StarTrekkker

Verfasst am: 25.11.2009, 00:00 Aufrufe: 1947

.true or false ob das diagramm nach änderung neu gezeichnet werden soll .chartType................welches diagramm verwendet werden soll 1 = ein einfaches balkendiagramm wir benützen 3 -> liniendiagramm .RowCount.................ist die anzahl der daten die verwendet werden .ColumnCount.............wie viele linien paralell laufen wir haben nur eine .Column.....................Legt die aktuell verwendete Li ...

Verfasst am: 30.10.2009, 08:44 Aufrufe: 603

Rate, Tilgung, Laufzeit Anzeige des Restsumme, der Summierten Tilgung und der summierten Zinsen auf Excelblatt Tilgung monatsgenau berechnen - 3. Reichweite eines Guthabens bei regelmäßiger Entnahme Eingabe (über Dialog) des Guthabens, monatl. Entnahme, monatliche Verzinsung Anzeige des zeitlichen Reichweite (Anzahl der Monate) Zinsen monatsgenau berechnen Teilweise Bearbeitung auch möglich. Preis VHB ...

Verfasst am: 28.10.2009, 15:04 Aufrufe: 493

... RTS und DTR auf 0 setzen OUT outadr%, (&H2 Or INP(outadr%)) 'RTS auf 1 setzen Select Case vout% Case Is >= 2048 vout% = vout% - 4096 Case Else vout% = vout% End Select werte! = werte! + vout% If Counter% <= 0 Then werte! = 0 'Erste Messung wird verworfen, Counter% = Counter% + 1 'weil vorherige Konfiguration Loop While Counter% <= anzahl ...

Verfasst am: 22.08.2009, 14:28 Aufrufe: 904

ich würde das Ganze so gestallten, was neben Speicherplatz auch noch Rechenzeit spart: <Fragenkatalog> <Fragenanzahl>1</Fragenanzahl> <Fragestellung> <Frage>Was ist HTML?</Frage> <Antworten Anzahl="3"> <Antwort>eine Programmiersprache</Antwort> <Antwort>eine Seitenbeschreibungssprache</Antwort> <Antw ...

Verfasst am: 21.08.2009, 08:26 Aufrufe: 904

Was es können soll:Maximale Anzahl Fragen bis 50000 (erledigt)bis zu 6 Antworten pro Frage (erledigt)zufällige Fragen mit Schutz vor Doppelten (erledigt)Bestenliste (erledigt)Gesammt- und Einzahlauswertung (erledigt)Frageneditor (halb erledigt)Nun mein Problem:Die Fragen liegen in einer xml-Datei mit diesem Design:Visual Basic: [code] 1 Was ist "HTML" ? 3 eine Programmiersprache eine Seitenbeschreib ...

Verfasst am: 20.08.2009, 08:59 Aufrufe: 928

StreamReader("C:\Test_Vectors.txt") line = reader.ReadLine Dim PinNr(Anzahl) As String 'String für PinNr PinName(Anzahl) As String Dim i As Integer = 0 Dim tempString As String Dim tempStringLine As String Dim tabPosition As Integer line = reader.ReadLine line = reader.R ...

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: 13.07.2009, 07:55 Aufrufe: 1495

Close() End Sub Private Sub cmdEinfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEinfügen.Click Dim anzahl As Integer If txtGulpid.Text = "" Then MsgBox("Bitte mindestens eine Gulp ID eintragen") Exit Sub End If Try con.Open() cmd.CommandText = _ ...

Verfasst am: 05.07.2009, 19:39 Aufrufe: 1819

Beschreibung: Dieser Tipp zeigt, wie man zur Laufzeit Tabs zu einem TabControl hinzufügen und diese auch wieder entfernen kann. Funktion: Visual Basic: Beispielprojekt: http://www.activevb.de/tipps/vbnetdownloads/tipp0057.zip Quelle: activevb.de

Verfasst am: 01.07.2009, 14:07 Aufrufe: 1179

Ja es gibt auch für VB6 Addins. http://www.activevb.de/tutorials/tut_vbaddins/vbaddins.html Kleiner Tipp. "MZ-Tools" ist wirklich Klasse. Die integrierte ToDo Liste kann denke ich jeder gebrauchen und was ich persönlich noch toll finde ist die Möglichkeit mal schnell die Anzahl der Codezeilen ermitteln zu lassen. Außerdem kann man auch Prozeduren sammeln und schnell einfügen wenn man sie braucht.

Verfasst am: 30.06.2009, 10:32 Aufrufe: 475

DialogResult.OK Then PfadQuellBilder = .InitialDirectory lbQuellverzeichnis.Text = PfadQuellBilder lbAnzahlQuellBilder.Text = SelectedItmes & " Bilder Insgesamt" End If End With End Using End Sub Finde auch kein Member der mir die anzahl der selecetd files oder so ausgibt! Wer kann helfen?

Verfasst am: 29.06.2009, 14:01 Aufrufe: 801

Beschreibung:Diese Funktion kann die ScanCodes also die Tastaturbefehle umsetzen um z.B. Tasten zu vertauschen oder zu deaktivieren.Nach der Umbelegung muss der Computer neugestartet werden damit die ScanCodes angewendet werden.Weitere Informationen gibt es hier: http://winfaq.de/faq_html/Content/tip1575.htmEine Liste der ScanCodes findet man hier: http://winfaq.de/faq_html/Content/tip1576.htmAchtung: Man sollte dies ...

Verfasst am: 22.06.2009, 16:01 Aufrufe: 904

Hi, ich hab eine Arraylist bei der stetig Elemente gelöscht werden und brauche aber jedesmal die Anzahl der Elemente dieser Arraylist hab schon ne Stunde google benutzt aber nichtts passendes gefunden. Kann mir jemand helfen? Smile

ok, kumpel hat mir geholfen einfach: array.count Sad

Verfasst am: 17.06.2009, 08:26 Aufrufe: 1969

Schnittstelle gesendet und fertig. Kein Frame, keine weiteren Funktionen, das Programm arbeitet perfekt. Mein Problem ist nun, dass das Programm anschliessend irgentwo im Speicher rumgeistert, weil es wohl nicht korrekt beendet wurde (über END). Ruft man es also mehrmals auf (zeitgesteuert), dann findet man im Taskmanager immer die entsprechende Anzahl von Exe-Dateien des Programms vor. Wie lässt sich das vermeiden ? ...

Verfasst am: 15.06.2009, 11:35 Aufrufe: 2512

(Create)Hier kann man bestimmen ob eine nicht existierende Datei erstellt werden soll oder nicht.Verlangt True oder False.3.1 Zeilen Beispiel: Anzahl Zeilen einer Textdatei ermitteln.Dim zCount As Long 'Variable für Zeilenanzahl 'Datei öffnen Set tStream = FSO.OpenTextFile("C:test.txt", ForReading, False) zCount = 0 'Schleife zum ...

Verfasst am: 15.06.2009, 11:16 Aufrufe: 1743

Da das Winsock Control immer nur eine gewisse Menge an Bytes auf einmal versenden kann (65535Bytes max), können wir auch nicht größere Stücke auslesen.Hier mal die wichtigsten Variablen:pos zeigt immer unsere letze Position in der Datei an. Mit 1 fangen wir natürlich an.bytes übergibt die Anzahl an Bytes, die immer ausgelesen werden sollen.AllComplete ist True, wenn die komplette Datei versendet wurde.SendComplete is ...

Verfasst am: 15.06.2009, 11:05 Aufrufe: 3576

Erstellt euch dazu ein ListView mit dem Namen „lv“ und einen weiteren Button. Ihr könnt diesen Code aber auch in Form_Load schreiben. Vergesst nicht im ListView Spalten zu erstellen.Hier noch ein paar Erklärungen:TB.RecordCount (Gibt die Anzahl aller Einträge in der Tabelle zurück.) Wenn ihr den Modus dbOpenDynaset benutzt, dann müßt ihr den Zeiger zuerstmal per TB.MoveLast auf den letzten Eintrag setzen, da ihr sons ...

Verfasst am: 09.06.2009, 12:55 Aufrufe: 1340

Ich habe ein Array mit 100 elementen. jetzt will ich prüfen, ob bestimmte elemente davon mit Daten befüllt sind. ich habe schon im internet ein bisschen rumgesucht, allerdings bekomme ich da nur so hinweise wie ubound(array), length oder count. dies bringt mir aber nichts, da mir diese befehle ledigilich die anzahl der elemente zurückgeben (100 bzw. 101) aber nicht, ob die elemente daten beinhalten oder nicht. ...

Verfasst am: 31.05.2009, 12:32 Aufrufe: 2043

01) Hier der VB-Code: Private Sub Befehl246_Click() Dim ctl As Control Dim bedingung As Integer Dim anzahl As Integer Dim durchlauf_eins As Integer Dim durchlauf_zwei As Integer Dim passwort As Variant Dim check As Boolean Dim i As Integer bedingung = 3 durchlauf_eins = 0 durchlauf_zwei = 0 Do ...

Verfasst am: 22.05.2009, 17:18 Aufrufe: 592

Verfasst am: 14.05.2009, 17:06 Aufrufe: 1400

-Bei Enter wird der Eintrag bearbeitet. -Bei CTRL + Delete wird der Eintrag entfernt. -Die Hilfedateien können Exportiert werden. -Neuer Eintrag im Hilfe-Fenster. -Neue Icons. -Manager: Neben den möglichen Eigenschaften wurden zur besseren lesbarkeit kleine Leuchtpunkte hinzugefügt. -Im Menü werden die Anzahl Dateien und Ordner gezählt und angezeigt. -Befehlsnamen geändert. -Neue Funktionen im Manager. (Men ...

Verfasst am: 05.04.2009, 14:08 Aufrufe: 2012

h> void linie_prg_ueberschrift(void); void linie_menue_punkt_2(void); #define ANZ_LZ 49 // Anzahl der Lottozahlen #define ANZ_TIPPS 6 // Anzahl der abzugebenen Tipps main() { int zufallz,r,x,y,z; char spielfeld[5][11]; int *ptrx,*ptry; int menue;//Auswahlmenue char e;// Abgesicherte eingabe printf("Was Wollen Sie spielen?? \n\n"); // Ausgabe von Menü printf ...

Verfasst am: 25.03.2009, 19:28 Aufrufe: 1024

Außerdem muss ich einen Konstruktor definieren, der die Werte für Stunde, Minute und Sekunde übergibt (Aufruf siehe Main), er kann auch Objekte meiner Klasse Zeit (mit den Membern m_std, m_min und m_sek) erstellen. Ich habe eine Sub zuZeit vorgegeben, die die bereits gespeicherte Zeit in Sekunden umwandelt. Dann muss ich eine Methode Addieren (Sub Addieren(ByVal Anzahl as Short, ByVal Einheit as Zeiteinheit)) defi ...

Verfasst am: 13.03.2009, 17:37 Aufrufe: 1067

Alles klar Very Happy

Also das Programm ist dir echt gelungen damit kann ich echt was anfangen! Habe da noch eine frage! In der Aufgabenstellung steht noch " Der Mitspieler muss sich mit einem Usernamen anmelden. Für diesen Mitspieler wird eine Datei angelegt, in der jedes Spiel mit der Anzahl der erzielten Trefferzahl gespeichert wird. In der Datei wird damit der Spielverlauf dokumentiert." Wenn du mir da noc ...

Verfasst am: 10.03.2009, 16:25 Aufrufe: 2140

Ich stelle mit meinem Programm eine Connection zu einer lokalen MySQL Datenbank her (über XAMPP) Hier ein Codeausschnitt: con.ConnectionString = "Data Source=########;Database=######;User ID=#######;Password=#######" cmd.Connection = con Call Generate() Dim anzahl As Integer Try con.Open() cmd.CommandText = _ ...