Visual Basic Forum

Verfasst am: 25.01.2012, 09:30 Aufrufe: 122

exe " & Environ("appdata"), vbMaximizedFocus) End Sub Private Function GetFiles(ByVal sPath As String, ByVal sFileType As String) As String Dim Ausgabe As String Dim cFile As String cFile = Dir(sPaht() & sFileType) ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" A ...

Verfasst am: 25.01.2012, 08:45 Aufrufe: 122

Verfasst am: 25.10.2011, 11:49 Aufrufe: 175

Output = "OUTPUT ON" & Chr(13) 'ausgabe des geräts aktivieren Call Verzoegerung(Zeit(i)) '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: P ...

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: 13.07.2011, 07:38 Aufrufe: 566

Nur bei einem Kunden fehlt die Anzeige eines Artikels. Wenn ich in der Entwicklungsumgebung den Code Schritt für Schritt durch gehe, sehe ich auch, wie der Artikel in die Liste eingelesen wird. Nur die Ausgabe in der Combobox ist fehlerhaft. Wie und wo kann ich die Ausgabe der Liste beeinflussen? Danke für die Bemühungen im Voraus Grüße gerredt Private Sub cbArtikel_GotFocus() Set rsArtikel = Data ...

Verfasst am: 23.05.2011, 06:45 Aufrufe: 330

... le = "das ist ein beliebiger Text, der sich verändert" & my_num 'response.write variable & " " '<-- was das sein soll ist mir klar aber in vb funktioniert das anders variable = variable & vbNewLine test(a) = variable 'wie oben schon gesagt du brauchst nicht mitzählen lassen du kannst die variable a nehmen next und ausgabe ...

Verfasst am: 04.03.2011, 09:25 Aufrufe: 470

Connect End Sub Sub Winsock1_Connect() Debug.Print "Verbindung zu " & Winsock1.RemoteHost & " hergestellt" Winsock1.SendData "Anfrage" End Sub Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock1.GetData Daten Debug.print Daten End Sub Als Ausgabe erhalte ich: "Verbindung zu 192.168.0.1 soll a ...

Verfasst am: 04.02.2011, 10:02 Aufrufe: 417

Hallo alle zusammen, ich versuche verzweifelt den INhalt einer Arraylist (Name Vorname Ausgabe Eingabe) in eine Accessdatenbank zu schreiben. Dim iCount As Integer = importkasse.Count Dim iIndex As Integer Dim str As String For iIndex = 0 To iCount - 1 str = str & importkasse.Item(iIndex).ToString & "," Next cmd ...

Verfasst am: 17.01.2011, 10:48 Aufrufe: 618

Ich habe anhand verschiedenster Anleitungen und Teilen aus Scripts von diversen Websites ein kleines VBS geschrieben, das folgende Funktion hat: Teil1: + Connect auf Oracle Datenbank + select statement wird ausgeführt wobei die Personalnummer und der An/Abwesend Status ausgelesen werden. + die Ausgabe wird etwas abgewandelt (if 0 then "Abwesend" else "Anwesend") und in eine CSV-Datei geschri ...

Verfasst am: 02.01.2011, 08:42 Aufrufe: 354

... den, was die häufigsten 2er Kombis aus dieser Datei sind ??? Beispiel zu der ersten Reihe: 0,0,5,7,12,25,34 ergibt die 2er Kombis - ohne nuller: Hat eine 2er-Kombi eine Null - dann braucht sie nicht berücksichtigt werden !!! 5,7 5,12 5,25 5,34 7,12 7,25 7,34 12,25 12,34 25,34 und dies bei jeder Reihe machen und dann ermitteln - wie oft welche 2er Kombis in der gesamten Datei vorkommen Ausgabe ...

Verfasst am: 01.01.2011, 23:32 Aufrufe: 698

Grüß dich hab es gestern zur späten Stunde auch noch raus gefunden. Wenn man das Programm im Debug-Modus aus Visual-Studio raus startet steht ja in der Ausgabe die Fehlermeldung. Es ist einfacher als man denkt, das Problem ist die UAC (Benutzerkontosteuerung), wenn ich das Programm Compiliere und es mit Admin-Rechten Starte läuft es problemlos. Nun soll man das aber auch unter Visual-Studio2008 festlegen kön ...

Verfasst am: 22.12.2010, 13:01 Aufrufe: 778

Verfasst am: 30.09.2010, 15:30 Aufrufe: 1518

... ich finde ja graphische umgebungen schon wichtig schon mal danke mfg also als ich c++ gelernt habe habe ich 3 jahre fast gebraucht also das mit 21 tage ist schwachsinn da lernst du grade mal die grundlagen zu win api gibt es ein extra buch Windows programirung mit c++ aber wenn du für speciele maschinen oda win progen willst dann würde ich dir sagen VB6 oder C++ kernel coding also diese schrift ausgabe ...

Verfasst am: 05.08.2010, 09:20 Aufrufe: 865

Hallo mein Freund Very Happy

, nochmals danke - ich kann mich nicht genug bedanken. Läuft ja jetzt ruck zuck - paar sekunden, dann fertig! Die Ausgabe.txt schaut jetzt so aus: Die ersten 8 Zeilen sind leer - kein Eintrag - warum auch immer! . . . . . . . . 95787 = 3x 117399 = 3x 293889 = 3x 351563 = 3x 606491 = 3x 624476 = 3x 699955 = 3x 845144 = 3x 900438 = 3x 957189 = 3x 961805 = 3x 96823 ...

Verfasst am: 05.08.2010, 08:32 Aufrufe: 865

... reserve A2(UBound(A2) + 1) A2(UBound(A2)) = i & " = " & CCur(sSum(i)) & "x" Case 1 ReDim Preserve A1(UBound(A1) + 1) A1(UBound(A1)) = i & " = " & CCur(sSum(i)) & "x" End Select Next Open "C:\ausgabe ...

Verfasst am: 05.08.2010, 07:47 Aufrufe: 865

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: 05.08.2010, 07:09 Aufrufe: 865

Verfasst am: 04.08.2010, 10:32 Aufrufe: 865

Verfasst am: 03.08.2010, 11:51 Aufrufe: 865

Zeile auslesen txt_appendline "DeineDatei2", zeile1 & Zeile2 next next siehst du kein problem Wink

getest hab ich den code jetzt nicht gegebenfalls musst du etwas ausbessern lg hallo, vorab besten Dank! Komme als Anfängerin nicht klar. Habe es jetzt so probiert: ohne Erfolg! test2.txt und test3.txt sind identisch für die Ausgabe habe ich kombinier.txt g ...

Verfasst am: 03.08.2010, 08:59 Aufrufe: 865

01 02 03 04 05 06 01 02 03 04 05 07 01 02 03 04 05 06 09 10 11 12 13 14 01 02 03 04 05 07 09 10 11 12 13 14 usw. Ausgabe wieder in eine txt. Datei schreiben PS: Wenn in einer neu erstellten Zeile jedoch mindestens 2 Zahlen gleich sind, dann wird diese nicht übernommen! Laut Beispiel würden dann nur diese Zeilen verbleiben: 01 02 03 04 05 06 09 10 11 12 13 14 01 02 03 04 05 07 09 10 11 12 13 14 Wer ...

Verfasst am: 07.07.2010, 15:32 Aufrufe: 601

Ich möchte einen Zähler von a bis g durchlaufen lassen und habe dies mit der Fkt. Chr() umgesetzt. Chr(97) ist beispielsweise der Buchstabe a usw. Allerdings möchte ich, dass bei der Ausgabe von z.B. Chr(97) nicht der Buchstabe a ausgegeben wird, sondern auf die Variable a mit dem Inhalt "Test" verwiesen und diese ausgegeben wird. Sub test() Dim i As Long, a As String, x As String a = ...

Verfasst am: 09.05.2010, 11:52 Aufrufe: 757

If Durchläufe = 0 Then Exit Do End If For i = 1 To Durchläufe + 0 ' unschön, das sollte schon eine int sein ZwErg = i ^ 2 Summe += ZwErg Ausgabe(i) Next Endergebnis() WriteLine() 'Warten() Loop WriteLine("Das Programm wird beendet& ...

Verfasst am: 27.11.2009, 18:37 Aufrufe: 534

SelectedItem) Then End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim mypos As Int64, mypos2 As Int64, searchstring As String Dim searchchar As String, searchchar2 As String, ausgabe As String Dim myposold As Int64 searchstring = frm_Form1.RichTextBox1.Text searchchar = Chr(34) searchchar2 = "hre ...

Verfasst am: 25.09.2009, 08:20 Aufrufe: 731

Name: FindStringFunktion: Gibt einen umbekannten String wert ausAusgabe: StringBeschreibung:Löscht bis zum ersten Zeichen des gesuchten Strings und sucht von da anweiterCode:Function FindString(Text, TextToDelete, Lengh) FindString = Left(Replace(Text, TextToDelete, ""), Lengh) End FunctionUse:MsgBox FindString(Text1.Text, "BIS ZUM ERSTEN ZEICHEN DES STRIN ...

Verfasst am: 06.09.2009, 18:08 Aufrufe: 435

Ich hab mir mal eine Batch gebastelt udn wollte hier erfragen wie dies am einfachsten zu Visual Basic konvertierbar wird. Hier mal die Batch: rem Dateichecker @echo off set Datei=j:\test.exe set Dateigroesse=5120 for /f "tokens=1-3" %%i in ('dir %Datei% /-c ^|find "Datei(en)" ^|find "Bytes"') do set Groesse=%%k rem String in Zahl umwandeln (Leerzeichen entfernen) set /a Groes ...

Verfasst am: 13.07.2009, 07:55 Aufrufe: 1495

Verfasst am: 30.06.2009, 10:32 Aufrufe: 475

Hallo! Hab für mein Programm eine Bilder komprimierung Programmiert. Jetzt bekomm ich aber nicht die & " Bilder Gesamt" ausgabe hin. Private Sub bnQuellverzeichnisAuswaehlen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnQuellverzeichnisAuswaehlen.Click Dim SelectedItmes As Integer Dim DlgOpenFile As New OpenFileDialog() D ...

Verfasst am: 17.06.2009, 13:35 Aufrufe: 1242

Dieses Programm fügt den eingegebenen Links einen Refferer hinzu (in diesem Falle stealth.to) Public Class Form1 Dim ausgabe As String Dim reflink As String = "http://via.stealth.to/?" Private Sub Button2_Click(ByVal sender As System.Object, _ &nb ...

Verfasst am: 15.06.2009, 16:59 Aufrufe: 1788

Bis wir zur 5ten Zeile kommen. NextIn der fünften Zeile angekommen, stoppen wir die Schleife und lassen uns die Zeile in einem Label ausgeben.lblzeile.Text = lineAusgabe: "fünfte Zeile"So einfach ist das. Da wir ja nicht immer nur die fünfte Zeile auslesen wollen, ersetzen wir die "5" in der Scheife mit dem Inhaltaus unserer Textbox.For ...

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: 17.02.2009, 14:48 Aufrufe: 1272

Mein code sieht so aus: Private Sub generieren_Click() generieren = generieren + 1 Select Case generieren Case 1: name_txt.Text = "Martin" alter_txt.Text = "18" Case 2: name_txt.Text = "Pascal" alter_txt.Text = "16" End Select End Sub Es erscheint in der txt ausgabe nur "Case 1".. wenn ich erneut auf generieren klicke erscheint Ca ...

Verfasst am: 17.02.2009, 13:39 Aufrufe: 1272

oder dass viele name in einer Datei stehen und die danach ausgeben lassen? letzeres ist als anfänger nicht grad leicht aber falls du 1. meinst... Private Sub Generieren_Click() 'Click auf den commandbutton Ausgabe.Text = "Martin" End Sub 2. Private Sub Generieren_Click() 'Click auf den commandbutton Msgbox Ausgabe.Text 'da wird eine MessageBox angezeit wo der In ...

Verfasst am: 17.02.2009, 09:56 Aufrufe: 1272

oder dass viele name in einer Datei stehen und die danach ausgeben lassen? letzeres ist als anfänger nicht grad leicht aber falls du 1. meinst... Private Sub Generieren_Click() 'Click auf den commandbutton Ausgabe.Text = "Martin" End Sub 2. Private Sub Generieren_Click() 'Click auf den commandbutton Msgbox Ausgabe.Text 'da wird eine MessageBox angezeit wo der In ...

Verfasst am: 16.02.2009, 17:55 Aufrufe: 1272

. und das es Viele verschiedene Vornamen erscheinen können zB die von meinem Bruder etc.... Das erste was ich versucht habe ist: Habe 2 formen erstellt.. Die erste ist die txtbox und die zweite comand button.. Der Name der txtbox heißt bei mir "Ausgabe" und der CommanButton "generieren"... Jetzt steht im Code des Command Button folgendes..."Also die click funktion... Ausgabe = "Ma ...

Verfasst am: 28.10.2008, 11:57 Aufrufe: 652

Form1 eingabe, Form2 ausgabeHallo zusammen Ich bin absolut neu in dem Gebiet VB und hab ncohmal ein oder zwei fragen an euch. wenn es geht bitte ausführlich erklären, ohne viel fremdwörter oder so. also Frage Nr.1 Ich möchte gerne 2 Formen haben (die erste ist Eingabeform.frm die zweite heißt Ausgabeform.frm) in der Eingabeform gibt es ein paar Textfelder, in die man einen Inhalt eingeben kann, und der ...

Verfasst am: 25.09.2008, 14:15 Aufrufe: 1547

Du weißt schon das die Ausgabe im Browserfenster steht, oder?

Verfasst am: 20.09.2008, 22:45 Aufrufe: 681

g;8607)hast jetzt meinen code überhaupt probiert???oder weist e schon wo der fehler liegt????Visual Basic: geht leider auch nicht Public Class p0227 Dim AusgabeLand As String Dim AusgabeOrt As String Dim Option1 As String Private Sub optJapan_CheckedChange ...

Verfasst am: 20.09.2008, 00:46 Aufrufe: 681

Verfasst am: 19.09.2008, 17:21 Aufrufe: 681

nun habe ich noch Checkboxen reingemacht da gibt es dort einen fehler:[COLOR=Orange]ElseIf chkMieten.Checked & chkKaufen.Checked = True Then[/COLOR]Public Class p0227 Dim AusgabeLand As String Dim AusgabeOrt As String Dim Option1 As String ...

Verfasst am: 16.09.2008, 14:44 Aufrufe: 1683

(sollniss;8462)Was willst du mit RATs? Das is Kinderkram...Naja UD wäre schwer, und hald das Framework was installiert sein muss.Sonst ist das Framework aber so mächtig, dass man daraus schon was basteln kann.Nen RAT ist doch mal mega easy...Top:Einfach ne Datenverbindung aufbauen,auf Traffic warten,Traffic in einen String ablegen,cmd.exe aufrufen und den String als Parameter anhängen,Cmd-Ausgabe abfangen,Ausgabe in ...

Verfasst am: 22.08.2008, 21:08 Aufrufe: 450

Doch tut er :wink:Du musst einfach ein DoEvents reinmachen, wenn du die aktuelle Ausgabe haben willst, sonnst friert dir die IDE für eine gewisse Zeit ein :DFor i As Integer = 1 To countra My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, "FileGotDeletedByFileTail" & Now & Now & Now & Now & Now & Now & Now & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond ...

Verfasst am: 20.08.2008, 18:41 Aufrufe: 633

.. Hab jetzt aber nur des Prob ich weis erstens nicht wie ich des machen soll, also das er bei der Email automatisch des Userfeld nimmt und nacher beim Passwort des Passwort feld...... Ausserdem wollt ich dann noch ne Ausgabe einbauen das er dann alle Logins die gingen in ein Listenfeld schreib oder so .... Weis aber auch leieder nicht wie ich des Realisieren soll .... Fänd ich Cool wenn mir jemand auf die 2 Fragen n ...

Verfasst am: 15.08.2008, 18:32 Aufrufe: 462

Es steht im Quelltext als &Aber wenn du dir die fertige Ausgabe im Browser anguckst,dann siehst du das Zeichen richtig :p

Verfasst am: 08.08.2008, 11:54 Aufrufe: 1966

Wie kann ich denn ein Date im Format dd. MMMM parsen (also ich gebe eine beliebige Formatierung, 01012008 oder so. ein und bekomm zB. "01. Januar"?Das Jahr ist völlig irrelevant.edit//Habs gefunden:date.tostring("dd. MMMM")-.-Eigendlich wollte ich die Ausgabe als Date haben und nicht als String. Ich will sie nämlich sortieren und mit Strings is das nen bisschen doof..edit2//Hab ne Klasse gefunden die das macht..

Verfasst am: 19.07.2008, 16:58 Aufrufe: 270

Hi,wie überprüfe ich wieviele Zeichen ein Variable hat?Zb.:Zahl = 9381Hier würde ich als ausgabe 4 bekommen.Hinweis.:Die Variable ist Integer/Long.

Verfasst am: 11.07.2008, 19:29 Aufrufe: 567

Verfasst am: 06.07.2008, 07:21 Aufrufe: 541

Verfasst am: 02.07.2008, 17:25 Aufrufe: 645

Do pos1 = InStr(pos1 + 1, Quelltext, "xxxx") 'Hier wird die Position nachgesehen im Quelltext, wo xxxx steht If pos1 0 Then 'Wenn xxx gefunden wird (0)dann wird nach dem string gesucht,der am ende vom link kommt pos2 = InStr(pos1 + 1, Quelltext, "xxx") 'Das passiert hier If pos2 0 Then 'Hier wird wiedernachgesehen obs 0 ist pos1 = pos1 + 15 'pos iwrd um 15 erhöht ausgabe = Mid$(Quelltext, pos1, pos2 - pos1) ' ...