Visual Basic Forum

Verfasst am: 14.12.2011, 08:28 Aufrufe: 275

hi versuche die eingegeben zahl einzulesen die länge zu ermitteln und wenn sie kürzer als z.b 6 stellen ist den rest mit leerzeichen auffüllen lg

Verfasst am: 20.10.2011, 18:43 Aufrufe: 162

#include <iostream> using namespace std; int main() { int Eingabe; int Quadrat; cout << "Geben Sie eine Zahl ein: "; cin >> Eingabe; Quadrat = Eingabe * Eingabe; cout << "Die Quadratzahl lautet " << Quadrat << endl; } Da soll das Fenster aufgehen ich kann eine Zahl eiingeben enter drücken und dann sol die Zahl mit sich selbst mahl geno ...

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, 09:32 Aufrufe: 279

Hallo, Du kannst folgendes machen: Private Sub Text1_GotFocus() Text1.Text = "" End Sub Damit wird der Text in der TextBox gelöscht, sobald die TextBox den Focus bekommt um eine neue Zahl einzugeben. Gruß

Verfasst am: 17.08.2011, 09:08 Aufrufe: 279

achso dann schonmal vielen dank werd es nachher zuhause mal ausprobieren. hab aber gleich noch ne frage: wie mache ich das wenn ich in die textbox eine zahl eingeben will, der Text der bereits in der Textbox steht verschwindet ? geht das irgendwie mit "Clear"

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: 14.06.2011, 22:25 Aufrufe: 520

Verfasst am: 23.03.2011, 18:02 Aufrufe: 328

Hier ein MsgCreator von mir. Bei Typ muss man die Zahl, also wie die msgbox aussehen soll, angeben. Die Überschrift kann man leider NICHT auswählen sorry. _______________________ Screenshot: Download: http://www.mediafire.com/?07tdd72l65x1xbm

Verfasst am: 04.02.2011, 21:35 Aufrufe: 483

Moin Leute, first-off - ich bin gerade frisch in VBA drin, das vorab ^^ Also, ich habe ne kleine Tabelle und einen Button der nen bestimmten Zellbereich löschen soll. z.B. In A1:110 stehen Zahlen, von 1 bis 10. Jetzt steht nin A1:G1 Zeug drin, was gelöscht werden soll wenn der User auf den Button drückt. Ich habs bisher so gemacht: Sub DASALoeschen() Loeschen = InputBox("Welch ...

Verfasst am: 03.02.2011, 18:53 Aufrufe: 480

Hallo, ich habe folgendes Problem Ich habe Checkbox und Anzhalfelder... Checke ich Checkbox1 wird in der Listbox z.b. "Hallo" angezeit Trage ich nun in das dazugehörige Anzahlfeld 5 ein, steht in der Listbox "Hallo x5" Folgender Code: If IsNumeric(TextBox2.Text) Then ListBox1.Items.Item(0) = ("Hallo x" & TextBox2.Text) Nun zu dem Problem: Ich habe ca. 15 Checkboxen und dazug ...

Verfasst am: 03.11.2010, 21:03 Aufrufe: 714

hallo ich möchte ein form erstellen mit der ich Textdokument mit dem von mir in der textbox angegebenen namen start zahl und endzahl zum beispiel: aerox1 aerox2 aerox3 aerox4 aerox5 aerox6 aerox7 aerox8 aerox9 aerox10 also soviele wie ich möchte es sollte dann das textdokument auf dem destop erstellen bitte um hilfe bin noch nicht so fit mit visual basic danke im vorraus

Verfasst am: 03.11.2010, 14:13 Aufrufe: 1160

für den fall dass du wirklich einen taschenrehner schreibst ist mir grad folgendes eingefallen... 'weise deinen buttons einen index zu... von 0 beginnend private sub button1_Keydown(keycode as integer, Index as integer) 'oder wie auch immer if keycode <= 105 and keycode >= 96 then 'zahl 0 bist zahl 9 call button1(keycode - 96) end if end sub vorab... ich kann ei ...

Verfasst am: 07.10.2010, 05:46 Aufrufe: 561

Die Zahlen lassen sich nun eingeben, jetzt gehts nur noch darum, die eingegebene Zahl mit der Spalte A in einem Excel File zu suchen, wenn vorhanden IO. gruß andy

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: 22.09.2010, 08:35 Aufrufe: 812

Picture = Picture18(2).Picture If Picture19(Gegner).Left > -500 Then Picture19(Gegner).Picture = Picture18(0).Picture wenn jetzt pic19.left großer als 9480 ist dann ist die zahl auch größer als - 500 Wink

klar oder und somit ist pic19.picture immer pic18(0).pic If Picture19(Gegner).Left => 9480 Then Picture19(Gegner).Picture = Picture18(2).Pi ...

Verfasst am: 04.08.2010, 08:38 Aufrufe: 1031

... For i = 0 To UBound(zwi) For j = 0 To UBound(zwi) If i = j Then GoTo 1 If zwi(i) = zwi(j) Then IsDbl = True Exit Function End If 1: Next Next End Function soll ich dir den code kommentieren oder kommst so klar?? lg edit: aja welche zahl ...

Verfasst am: 03.08.2010, 15:30 Aufrufe: 1031

... For i = 0 To UBound(zwi) For j = 0 To UBound(zwi) If i = j Then GoTo 1 If zwi(i) = zwi(j) Then IsDbl = True Exit Function End If 1: Next Next End Function soll ich dir den code kommentieren oder kommst so klar?? lg edit: aja welche zahl ...

Verfasst am: 03.08.2010, 15:00 Aufrufe: 1031

darf ich fragen woran du da grade proggst?? hallo, quantitativen Informationen! Könnte man die Zeilen die doppelte Zahlen haben nicht schon gleich entfernen bevor sie in die neue Datei geschrieben werden? Also ich meine: Sobald die beiden zeilen zeile1 und zeile2 verbunden werden wird geprüft, ob mind. eine Zahl gleich ist dann wird diese erst garnicht in die neue kombinier.txt übernommen ??? ...

Verfasst am: 03.08.2010, 14:31 Aufrufe: 1031

... 1 Open "C:\kombinier.txt" For Append As #2 For i = 0 To 12 For j = 0 To 12 Print #2, sStr(i) & " " & sStr(j) Next Next Close #2 Very Happy

Super, das kommt der Sache schon sehr sehr nahe. Danke danke danke Dir !!! Jetzt muss ich nur noch alle Zeilen löschen aus der kombinier.txt die in einer Zeile mind. eine gleiche Zahl ...

Verfasst am: 01.08.2010, 10:13 Aufrufe: 506

Hey, also ich bin neu hier also nicht übel nehmen wenn ich etwas falsch mache Smile

Also ich habe eine Frage: Ich hab einen Keygen mit Visual Basic erstellt. Er geht auch aber ich will das die ersten 4 Zahlen aus einer bestimmten Zahl bestehen und dann zufällige. Hier ein Beispiel: Ich will: 1234-1487-2650-1089-3540-9807 aber jetzt ist es so: 1247-9870-9850-1205-1203-9031 Ich hoffe ihr könnt mir helfen! Und ic ...

Verfasst am: 09.05.2010, 12:52 Aufrufe: 807

Hallo, ich bin neu hier im Board. Leider hab ich nirgends einen Thread zum Lösen eines solch einfachen Problems gefunden. Thematik: Bitte geben Sie eine Zahl ein: (Beíspiel 5) dann rechnet das Programm 1² + 2² + 3² + 4² + 5² = Ergebnis. Dieser Prozedur soll solange laufen bis der Benutzer die Zahl 0 eingibt. Dies hab ich ja bereits zum laufen gebracht. Nun aber das eigentliche Problem. Ich will eine Ab ...

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: 13.04.2010, 14:59 Aufrufe: 1181

Erstmal Hallo, Und zwar habe ein Problem mit Delphi und zwar es geht um steganographie ich wollte eine funktion schreiben die den buchstaben oder zahl was auch immer in einen ascci code umwandelt und dann in nen binärcode hier mal mein fortschritt. Leider komm ich grade nicht weiter. Als Info ihn Delphi bin ich noch Blutiger Anfänger ; ) var zeichen : integer; ergebnisbin : string; z: char; beg ...

Verfasst am: 23.03.2010, 23:24 Aufrufe: 593

Was nicht funkt ist der Range(hilf).activate befehl und evnt der Emptybefehl.Ich habe auch direkt mit Range("A"+str(i)) probiert aber es funkt auch nicht. Könnt ihr mir bitte weiterhelfen und wenn möglich noch verraten wie die Syntax lautet zu Prüfen ob statt ein Text eine Zahl Vorhanden ist. (Hab Microsoft Visual basic 6.5 version) Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt. ...

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: 10.02.2010, 16:11 Aufrufe: 502

b. If gross <= 0 Or klein <= 0 Then Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !") End If da hast wird weiter gearbeitet. wennst jetzt aber noch hinschreibst exit sub also If gross <= 0 Or klein <= 0 Then Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !") exit sub End If dann wird die ganze prozedur abgebrochen wenn die ...

Verfasst am: 10.02.2010, 15:11 Aufrufe: 502

Text If gross <= 0 Or klein <= 0 Then Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !") End If If gross > 0 And klein > 0 Then Label3.Text = (" Alles im Grünen Bereich ") End If If gross < klein Then zwischen = gross gross = klein kl ...

Verfasst am: 18.01.2010, 20:33 Aufrufe: 387

Verfasst am: 08.12.2009, 01:02 Aufrufe: 3158

Hallo ich habe mit textboxen rechnen lassen so dass das ergebnis am schluss in textbox3 ausgegeben wurde. das ergebnis ist meist eine zahl wie 2,12345678. ich will das ergebnis aus textbox3 gerundet in textbox5 ausgeben lasse. dass dann also in der textbox3 2,12345678 steht und drunter in der textbox5 2,12. kann mir dafür mal jemand den code schreiben und kopieren? ich bin nicht gut in visual basic also ...

Verfasst am: 01.12.2009, 12:27 Aufrufe: 808

... as Fach Bauinfo, leider kann ich mit den Vorlesungen und den Scripten nicht viel anfangen da ich totaler noob im Berreich der Informatik bin. Ich muss für die Schule ein Programm erstellen das mir die y Werte für Funktionen in einer Tabelle ausgibt Meine Angaben: -Oberfläche siehe unten -a,b,xmin,xmax und teilung sollen vom Benutzer eigegeben werden können -Division durch null, Wurzel aus negativer Zahl ...

Verfasst am: 25.11.2009, 18:19 Aufrufe: 757

MAPIFolder Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items Dim objEMail As Outlook.MailItem Dim Befehl ' Variable um den im Betreff erhaltenen Befehl zu Speichern Dim Zahl ' Variable um zu zählen wie viele neue Emails reingekommen sind (So viele Male müsste dann das Script ausgeführt werden) Set objOutlook = New Outlook.Application Set objNameSpace = objOutlook.GetNamespace("MAPI") ...

Verfasst am: 25.11.2009, 01:00 Aufrufe: 2239

Verfasst am: 21.11.2009, 09:34 Aufrufe: 444

Verfasst am: 23.09.2009, 16:48 Aufrufe: 775

ich hab des mal geproggt ihr könnt des ja mal testen RatespielTimerMusicPlayerFileSender ein progg um dateien auf nen ftp server zu ladn oder wie ich auf meinen ipod Very Happy

Verfasst am: 08.09.2009, 08:58 Aufrufe: 465

Hallo! Ich schreibe grade ein Programm, wo ich aus einer Textdatei eine Zahl auslesen, die folgendermaßen aussieht: 000000. Dann erstelle ich eine Datei mit diesem Namen. Anschließend soll die Zahl in der Textdatei erhöht werden, im Sinne von 000001, 000002, 000003 .... usw. Nun wenn ich die Zahl aber +1 rechne (egal, mit welchem Dateityp die Zahl deklariert ist), speichert er die Zahl im Sinne von: 000000 -> 1 ...

Verfasst am: 06.09.2009, 19:08 Aufrufe: 472

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 Groesse=%Groesse%/1 if "%Groesse%"=="%Dateigroesse%" type "j:\testok.txt" if not "%Groesse%"=="%Dateigroesse%" type "j:\testmist.txt Kan ...

Verfasst am: 01.08.2009, 18:48 Aufrufe: 996

text = "" then msgbox "Gib bitte deine größe an" Exit sub '<------ dann springt vb automatisch zum ende endif klar? und dann wenn du die größe eingegeben hast entfällt das ja und es kann die rechnung ausgeführt werden wenn ich dir noch einen tipp geben darf um fehler vorzubeugen... If IsNumeric(txt_größe.Text) = False Then 'wenn die eingabe keine zahl ist mach ...

Verfasst am: 15.07.2009, 08:54 Aufrufe: 1003

Hallo, ich möchte eine Funktion schreiben mit der ich nachschaue welcher RadioButton ausgewählt wurde und dem entsprechend soll dann eine Zahl übergeben werden. Leider weiß ich nicht genau wie ich das anstellen soll. Mir fehlt eine Variable. Ich hoffe mir kann jemand helfen. Hier mal der Code den ich schon habe: Function Tage() As Integer Select Case [b](was müsste hier her? ...

Verfasst am: 21.06.2009, 17:47 Aufrufe: 1141

Bei den Parametern von GetPixel steht ByVal hdc as Long, als Argument gibtst du aber ein Control, besser gesagt eine Picturebox an, keine Zahl. Schau mal nach ob du falsch kopiert hast, wenn nicht, ist mit hdc etwas anderes gemeint.

Verfasst am: 17.06.2009, 13:26 Aufrufe: 698

... me As String, ByVal lpWindowName As String) As Integer Private Sub Change_Window_State(Bvyal Name as String, Byval State Integer) Dim lngHandle As Integer lngHandle = FindWindow(vbNullString, Name) ShowWindow(lngHandle, State) End Sub Beispiel: Dieser Code versteckt das Fenster mit dem Namen "Arbeitsplatz". Die Zahl ...

Verfasst am: 15.06.2009, 17:59 Aufrufe: 1893

For i = 1 To txtzeile.Text line = sr.ReadLine() NextAusgabe: je nach dem welche Zahl ihr eingegeben habt.Also wie ihr seht kann man "schwierige" Probleme, mit einfachen Mitteln lösenBis zum nächsten maleuer MardukDieses Tutorial wurde von Marduk geschrieben!

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

Ein gutes Beispiel dazu, ist die "Challenge Nr. 1" in der Sektion "Free coding".Die Aufgabe lautet: Ihr schreibt ein Programm, dass alle ungeraden Zahlen bis 100.000 in einer Listbox ausgibt.Und die Lösung, die dazu gepostet wurde lautet so:Private Sub Form_Load() For i = 1 To 100000 If i Mod 2 <> 0 Then ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

Aber was ist das * 100???Hier bestimmen wir, dass die Variable options genau 100Bytes lang ist.Versucht euch das so vorzustellen, das options ein Koffer ist, indem ihr 100 Sachen reinpacken könnt.Wenn ihr sehr viele Informationen reinpacken wollt, kann es sein, das euer Koffer zu klein ist.Das ist aber kein Problem. Ihr müßt dann halt nur eine größere Zahl hinschreiben.In 100Bytes passt aber schon sehr viel hinein.2. ...

Verfasst am: 15.06.2009, 11:29 Aufrufe: 676

Beschreibung:Diese Funktion gibt eine Zufallszahl zwischen dem minimalen und maximalen Wert aus.Funktion:Private Function GenerateRndNumber(ByVal [Min] As Int16, _ ByVal [Max] As Int16) As Int16 Try & ...

Verfasst am: 09.06.2009, 21:12 Aufrufe: 1211

Verfasst am: 25.05.2009, 13:41 Aufrufe: 512

Verfasst am: 03.05.2009, 12:38 Aufrufe: 2362

Optionen: dbBinary: BINARY dbBoolean: BIT dbByte: BYTE dbCurrency: CURRENCY dbDate: DATE dbDecimal: DECIMAL dbDouble: DOUBLE dbGUID: GUID dbInteger: SMALLINT dbLong: INT dbLongBinary: LONGBINARY dbMemo: MEMO dbSingle: SINGLE dbText: TEXT dbLong in unserem Fall, da die Db für jeden Eintrag eine eindeutige Zahl ers ...

Verfasst am: 15.04.2009, 13:30 Aufrufe: 686

also probiere es noch einmal Smile

: ich habe eine textbox (textbox1) und 3 label (Label1, Label2, Label3). Nun will ich in die Textbox entweder die Zahl 1 2 oder 3 eingeben können und je nach der Zahl soll das Programm dann die Zahl im richtigen Label anzeigen. ( wenn 1 dann Label1 usw) ich weiss ich könnte das einfach mache mit einer Schlaufe mit 3 if-Anweisungen. Ich suche aber eine Möglichkeit dass so zu mache ...

Verfasst am: 09.04.2009, 10:06 Aufrufe: 906

Speicher ich jetzt jedes Pixel in einen neuen Element ab? Dann hab ich ja später tausende Elemente. Schick ich dann jedes Element einzeln? Das Problem ist doch wenn ich alles auf einmal schicke, das auf der anderen Seite ich nur den "zusammengeschmissenen" Haufen von Pixel hab. Zb kommt doch dann sowas in der Art heraus: 102530110 Jetzt weiß ich aber zb nicht ob das erste Pixel die Zahl 1 ...

Verfasst am: 08.04.2009, 23:24 Aufrufe: 906

Bin schnell draufgestoßen das man alle Pixel XOR'en soll. Ich habe es soweit verstanden das wenn ich 2 gleiche Werte XOR'e, ich als Ergebnis 0 erhalte, wenn ich 2 unterschiedliche Zahlen XOR'e bekomm ich eine bestimmte Zahl heraus. Soweit so gut; aber wie speicher ich die Menge an Zahlen denn ab? Ich kann ja nicht alles in eine String-Variable packen und dann versenden, dann bräuchte ich ja immer ein Tre ...