Visual Basic Forum

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: 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: 16.09.2010, 07:03 Aufrufe: 1346

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 integer deklarieren warum?: Integer hat die obergrenze mit 32767 das heist sobald du eine ID eingibst die größer ist -> Fehler (Überlauf) weiters wenn du z.

Verfasst am: 05.08.2010, 08:47 Aufrufe: 1030

Verfasst am: 30.07.2010, 23:14 Aufrufe: 592

Hallo! ich möchte das der User keine IP eingibt in der einer der blöcke größer als 255 ist (weil es ja nicht höher geht), zur fehlervermeidung. Das ganze sieht dann so aus: Dim Max() As String Dim IP As String IP = txtip.Text Max() = Split(IP, ".") If Max(0) Or Max(1) Or Max(2) Or Max(3) > 255 Then MsgBox "IP cannot be bigger the ...

Verfasst am: 10.02.2010, 16:11 Aufrufe: 501

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: 501

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: 10.02.2010, 12:48 Aufrufe: 501

Text = (" du Blöde Banane !!!!!!!") Else Label3.Text = (" Alles im Grünen Bereich ") End If gross und klein sind beides double speicher jetzt hab ich das problem egal was in gross oder klein drinne ist es kommt immer du Blöde Banane im Label3.text :S auch wenn gross und klein eigentlich größer als 0 sind :S was könnte ich falsch gemacht habe ...

Verfasst am: 20.11.2009, 16:00 Aufrufe: 444

Servus, habe folgendes Problem: Ich muss aus der Zeile: ors.Filter = "PST_Nr >100 " noch < 300 dazufügen. Also der Filter muss zwischen 100 und 300 wirken. Ich habe bereits eine Menge ausprobiert + & AND aber irgendwie geht das nicht. Geht das überhaupt mit ors und Filter? Danke für jede Hilfe! crisi

Verfasst am: 29.07.2009, 11:46 Aufrufe: 1510

Update: Wenn man in der Combobox eine MAC gewählt hat wurde bei manchen was falsches in der Textbox links daneben angezeigt. Das hab ich geändert. Das nächste Update fällt dann größer aus.

Verfasst am: 25.05.2009, 13:41 Aufrufe: 512

Clear End Sub _______________________ So was meine fragen sind : - Größte zu kleinste Zahl heraussuchen(in 2 Label) - Zahlen Aufsteigend Sortieren - Zahlen anzeigen, die größes als 15 und kleiner als 25 sind - 2 zahlen Tauschen Danke schonmal für die hilfe Wink

ps.: habe das mal probiert mit dem größer als 15 und kleiner als 25 doch es werden nur nullen angezeigt. Private Sub Command4_Click() Fo ...

Verfasst am: 08.04.2009, 23:24 Aufrufe: 906

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 Trennzeichen (was den Traffic ja nur größer macht). Also wie ...

Verfasst am: 06.04.2009, 18:25 Aufrufe: 854

Verfasst am: 10.09.2008, 14:34 Aufrufe: 1179

IsNumeric() und Operatoren (Kleiner 10, größer -1).Dann einfach in die dazugehörige Keycode-Konstante umwandeln.

Verfasst am: 11.07.2008, 18:54 Aufrufe: 1737

Das hat einen ganz einfachen Grund warum die Datei 12 Byte größer wird obwohl du nur 10 Byte anhängst:Wenn du die Datei mit Append öffnest,dann wird beim reinschreiben immer eine neue Zeile begonnen. Ein Zeilenumbruch ist immer 2 Byte groß (zumindest bei Windows).

Verfasst am: 11.07.2008, 17:04 Aufrufe: 1737

das meinte ich nicht, ich meinte:woher weiß ich wie griß ein bestimmter string ist in bytes?bsp: wenn man "1234567890" anhängt, is die datei 12 bytes (oder bits:confused:) größer, obwohl es nur 10 zeichen sind

Verfasst am: 04.07.2008, 16:33 Aufrufe: 3310

FontStrikethru 'Font Durch Streichen Errhandler: 'Prozedur verlassen, wenn der Anwender auf Abbrechen klickt End Sub Private Sub Laden_code_Click() Dim input_data As String 'Variable Deklarieren cdl.ShowOpen 'Hier rufen wir das Dialog zum Laden auf! If cdl.FileName "" Then 'Wenn das was du Ausgewählt hast Größer & kleiner als Nichts ist, dann Öffne di ...

Verfasst am: 02.07.2008, 15:27 Aufrufe: 4311

Text 'und Hier schreiben wir das was in der RichtextBox steht in die DateiClose #1 'Das dürfte jeder wissen[/code] Klickt jetzt auf Laden und fügt Diesen code ein Code:Visual Basic: [code]Dim input_data As String 'Variable Deklarierencdl.ShowOpen 'Hier rufen wir das Dialog zum Laden auf!If cdl.FileName "" Then 'Wenn das was du Ausgewählt hast Größer & kleiner als Nichts ist, dann Öffne die dateiOpen cdl.FileNa ...

Verfasst am: 12.05.2008, 21:58 Aufrufe: 1071

Naja, ich meine der SQL-Server muss die Anfragen ja auch alle bewältigen, dadurch wird dein Code auch aufgehalten. Von daher, wäre der Zeitunterschied auch nicht größer. Das wäre in meinen Augen die optimalste in Bezug auf Sicherheit. Ne Überlegung wäre vielleicht noch, deine Anfragen auf zwei SQL-Server aufzuteilen, dann wäre die Last bei einem Server nicht so hoch.

Verfasst am: 05.05.2008, 13:27 Aufrufe: 1106

Erstmal THX!Geht das wie beim Download Async auch mit Uplaod Async?//edit:ich habs jezz hinbekommen, mit der Progressbar, hab einfach mit dem event handler gemacht, deshalb schon mal thx.Jetzt versuche ich allerdings ne Datei (30 MB ) hochzuladen, aber dabei hängt sich das prog immer im debug auf. Weiss einer warum? Und im FTP ist die Datei dann, je nachdem, wann man den Prozess terminated hat auch größer oder kleine ...

Verfasst am: 02.04.2008, 16:07 Aufrufe: 870

Hey how, hat jemand von Euch eine Ahnung, wie ich einen Button, Grafik, ... auf meiner Form platziere, mit dessen Hilfe ich die Form Größer ziehen kann? Also so eine Art resize bei drag and drop eines Elements auf der Form. Ach so: Das ganze hat keinen Fensterrahmen. Sonst bräuchte ich diese Funktion ja net Wink

Gruß, Patrick

Verfasst am: 29.03.2008, 19:39 Aufrufe: 837

http://nopaste.dbhost.info/index.php?id=6d9c6e5505 Um die P-ID von XFire herauszubekommen, benutzt du nun folgenden Code: Dim lPID As Long lPID = FindProcessId("xfire.exe") Dann überprüfst du ob eine Prozess-ID in der Variable steht (größer als -1). Also ob die Anwendung gerade läuft. If lPID > -1 Then MsgBox "XFire läuft." Else MsgBox "XFire läuft nicht." End ...

Verfasst am: 20.03.2008, 13:01 Aufrufe: 655

Gegen eine Erkennung welche Bereiche sich verändert haben und dann nur diese zu übertragen spricht ja nichts und ich hab auch nichts dagegen gesagt. Und das ist ja wohl Blödsinn, dass es umständlicher ist, mehr Zeit kostet und das Programm größer macht. In Vergleich zu was? Zu der JPG Kompression die man einbauen muß, der automatischen Erkennung und der längeren Übertragung? Probier einfach aus was du mache ...

Verfasst am: 20.03.2008, 12:32 Aufrufe: 655

ist aber umständlicher, braucht mehr zeit und macht programm größer...

Verfasst am: 14.03.2008, 20:15 Aufrufe: 390

Also c0re, ich habe bei deinem crypter gesehen, dass du den maximieren Button gedsiabled hast, aber bei mir lässt sich die Form noch vergrößern, das heißt wenn man mit dem zeiger über den äußersten rand des programmes fährt erscheint so ein kleiner schwarzer pfeil, mitdem man die form größer ziehen kann, soviel man will. Wie macht man das weg? also das das nichtmehr geht?

Verfasst am: 17.02.2008, 19:06 Aufrufe: 280

Ach? Und wo hab ich gesagt, dass das bei einem normalen Button anders wäre? Aber wenn wir schon bei dem Thema sind. Bei mir nimmt ein Button sehr wohl auch größere Formate an und zeigt sie auch größer an. Und es kommt halt auf die Komponente an was sie unterstützt.

Verfasst am: 04.02.2008, 17:10 Aufrufe: 629

Es gibt nur ein Problem mit der maximalen Größe: Die Funktion erwartet die Größenangaben in Pixel, Screen.Width und Screen.Height geben aber die Bildschirm Größe in Twips zurück, man kann das Fenster also wesentlich größer machen als den Bildschirm (bei mir 15 mal weil bei mir 1 Pixel 15 Twips entspricht). Bei dem Funktionsaufruf müsste also stehen: 'Form limitieren '####################### Dim R As SIZEPAR W ...

Verfasst am: 20.12.2007, 19:24 Aufrufe: 592

If Format(Time, "HHMMSS") > 222222 also Time ist die aktuelle systemzeit beispielsweise 19:11:12, also im format HH:MM:SS der befehl format(time, "HHMMSS") macht jetzt 19:11:12 zu 191112 vom typ integer oder long. ein guter wert zu rechnen , also schauen wir einfach ob diese zahl größer ist als die uhrzeit die wir wollen. das timer event prüft das jetzt jede halbe sekunde ob ...

Verfasst am: 20.12.2007, 10:13 Aufrufe: 689

Hallo! Ich möchte ein screenshot geschickt bekomenn per Winsock. Das funktioniert ganz gut! Nur dass die datei immer größer wird, da die bytes von dem neuen screenshot einfach angehängt werden Sad

Also möchte ich die irgendwie durch nummerieren. Also ungefähr so : App.Path & "/downloads/" & "pic_" & Winsock1.RemoteHostIP & "1" & ".bmp" Danach hal ...

Verfasst am: 18.11.2007, 16:56 Aufrufe: 1994

Verfasst am: 09.11.2007, 14:16 Aufrufe: 351

Die Lösung die Hamatro genannt hat ist möglich, aber eigentlich sehr unsauber. Wenn man das so macht und man dann versucht die Form kleiner zu machen dann flackert die Form weil sie kleiner wird und dann direkt wieder größer. Ich habe diese Lösung auch schon verwendet weil mir die saubere Lösung zu umständlich war, aber die saubere Lösung findet ihr .

Verfasst am: 08.11.2007, 22:10 Aufrufe: 216

wo stelle ich aus das man mit der maus das fenster groß ziehen kann ?

Verfasst am: 01.11.2007, 19:35 Aufrufe: 470

Also ich habe eine kurze frage, wie kann ich die leiste oben wo man schließen und minimieren kann, verändern ? Wie kann ich diese kleiner oder größer machen ? + Wie kann ich das machen, das man mein Projekt nicht ziehen kann, also das es feste maße hat ?

Verfasst am: 19.10.2007, 12:23 Aufrufe: 1616

Wenn Randomize ohne Argumente aufgerufen wird verändert sie den Wert auf die System zeit. Wie oben bereits geschrieben gibt die Funktion Werte zwischen 0 und 1 zurück. Da wir aber andere Werte haben wollen und keine Komma Zahlen müssen wir diese Werte umrechnen. Um eine Zahl die größer als 1 zu herauszubekommen muss man die Zahl mit dem Maximalen Wert Multiplizieren. Dabei kommt dann eine Komma Zahl zwischen 0 und ...

Verfasst am: 22.09.2007, 13:36 Aufrufe: 1853

Verfasst am: 13.09.2007, 16:23 Aufrufe: 623

Man muss erst alle Programme minimieren um wieder an das Chat Fenster zu gelangen wenn man zwischendurch was anderes gemacht hat. Und das Fenster ist mir zu klein, entweder frei skalierbar oder größer. Noch ein kleiner Fehler: Wenn ich die Verbindung beim Client trenne, dann wird zwar das Fenster beim Server locked, aber nicht beim Client, und wenn man jetzt versucht ne Nachricht zu senden gehts natürlich nicht.

Verfasst am: 10.09.2007, 16:53 Aufrufe: 1294

Aber ich geh mal davon aus, das bei FindItem ein eigener Algo benutzt wird, damit nicht jede Zeile extra überprüft werden muß. So ein Algo könnte z.B. so aussehen: Man überprüft ob der Eintrag in der Mitte des ListViews vom Wert größer oder kleiner ist als der gesuchte Eintrag. Wenn er größer ist, dann macht man das selbe mit der ersten Hälfte des Lv's nochmal. Usw usw. Wenn er kleiner ist, dann macht m ...

Verfasst am: 30.08.2007, 19:22 Aufrufe: 1901

Verfasst am: 14.08.2007, 15:51 Aufrufe: 2602

Ginge schon denke, dass man bei manchen Objekten wie das ListView die Größe anpasst, damit das Fenster nicht größer ist als der Bildschirm. Aber ich denke mal das ist viel zu aufwendig. Leichter wäre es wenn du einfach die Größe etwas verringerst. Z.B. das ListView etwas kleiner machen. Oder du ordnest die Sachen etwas anders an. edit// Hier noch paar Namen: AccountSafe AccSafe SecureIt AccProtect P ...

Verfasst am: 12.07.2007, 18:43 Aufrufe: 386

das dürfte nicht einfach sein, stell dir mal vor ,dein neues Icon wäre größer als das Alte.. dann würde ja ein Teil des Programms überschrieben, und was ist mit der Prüfsumme der .exe... also ich kann nur sources finden, die Icon aus Dlls und exes auslesen, also den umgekehreten weg gehen.. habe sowieso meine Zweifel obdas mitVB geht.. Aber frag mal ZiG, der hat sich daran glaub ich mal versucht..

Verfasst am: 17.06.2007, 14:50 Aufrufe: 499

Ich habe ein kleines Problem. Mein Programm öffnet alle 2,5 Sekunden 4 Dateien die nur ein paar kb groß sind, nur wird mein Programm immer größer d.h. im Arbeitspseicher... Gibt es eine möglichkeit die Überflüssigen Dateien oder was da gespeichert wird zu löschen?

Verfasst am: 11.06.2007, 16:15 Aufrufe: 651

... er "richtigen" Zahl umwandeln, indem Punkte entfernt werden sNewVersion = Replace(sNewVersion, ".", "") ' Objekt löschen Set VersionDownload = Nothing ' Wenn Version keine Zahl, dann ist was faul If Not IsNumeric(sNewVersion) Then MsgBox "Ungültige Datei auf Server!", vbCritical Else ' Ansonsten überprüfen, ob die neue Version als Zahl größer ...

Verfasst am: 01.06.2007, 15:46 Aufrufe: 839

Verfasst am: 30.05.2007, 19:04 Aufrufe: 588

Verfasst am: 04.05.2007, 21:12 Aufrufe: 656

Sonst bei bedingung kommt iwie sowas wie a="Test" oder a < 1000 aber das is doof. und wen if = 1000 bedeutet dann if = 500 ?? selber bug selber nonsense und if > 501 dein if soll größer 501 sein? WAS? ich versteh nix. ok egla ich mach vermutungen die dir helfen: If Bedingung Then Anweisung ElseIF AndereBedingung Anweiseung End IF suchst du sowas? oder eher IF Bedingung then Anweisung E ...

Verfasst am: 04.05.2007, 15:50 Aufrufe: 656

Verfasst am: 03.05.2007, 12:27 Aufrufe: 1162

blubb funktionietr immer noch nicht weil 0 > heißt größer als null Aber es steht keine zahl drin also ist die abfrage auf die null irgend wie unlogisch da ja keine zahl im textfeld steht. Der fehler kommt nur wenn nix in im feld steht und man rein schreiben will if otp_def.text = "" then otp_def.text = 0 bedeutet wenn text box leer setze eine 0 . problem man tip eine 5 kommt eine null ...

Verfasst am: 03.05.2007, 10:46 Aufrufe: 1162

If otp_def.text > 10000 Then Übersetzung: "Wenn otp_def.text größer als 10000 dann" Und du brauchst nur das schreiben: if otp_def_text < 1 then Hier müßtest du in der If Abfrage die otp_def textbox auf 1 setzen. Du kannst es aber auch so machen: if otp_def_text > 0 then So müßtest du den restlichen code in die If Abfrage schreiben. Der wird dann nur ausgeführt wenn in ...

Verfasst am: 22.03.2007, 21:25 Aufrufe: 2273

Verfasst am: 28.12.2006, 22:43 Aufrufe: 4677

Enabled = False oder stellt einfach das intervall größer, dann könnt ihr das programm in ruhe schließen, und euer pc stürtzt nicht ab^^ ich hab ein bisschen rumbebastelt, das ergebniss sah so aus: 10 Textboxen Stopp - Button und noch einen Button der den Text aus den Textboxen automatisch löscht Laughing

ich wollte eigentlich noch eine fortschrittsanzeige einbauen^^ sodass der flooder nach 100 mal schreib ...