Visual Basic Forum

Verfasst am: 10.05.2012, 05:47 Aufrufe: 179

HI ich weis zwar nicht genau wofür du es brauchst aber wenn ich irgendwofür ein dauer berechnen möchte sprich wenn ich z.b. wissen will wie lange die prozedur dauert zum optimieren oder was auch immer verwende ich Private Declare Function GetTickCount Lib "kernel32.dll" () As Long Start = GetTickCount() Prozedur Ende = GetTickCount() dauer = Ende - Start und dann noch ...

Verfasst am: 13.01.2012, 19:53 Aufrufe: 176

berechnen... das verhältnis zwischen x und y ist ja solange du geradeaus fährst linear und ändert sich im gleichen verhältnis

Verfasst am: 27.07.2011, 11:29 Aufrufe: 805

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: 15.03.2011, 10:18 Aufrufe: 344

Hallo ich muss für erhaltene Daten die Häufigkeitsverteilung berechnen. dafür muss ich ein Makro in Excel das so programmieren dass es nach dem klicken des Buttons berechnet bzw das Ergebnis an die verschiedenen Zellen adressiert wird. ich habe es zuerst mit vielen If ... ElseIf programmiert und jetzt muss ich das Programm durch anderes Algorithmus verkürzen. ich habe hier das Original Programm dass ich am Anfang pro ...

Verfasst am: 27.12.2010, 00:58 Aufrufe: 796

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 Zeitintervall, es wird jede Sek. gemessen). Diesen Mittelwert muss das Programm berechnen, in eine Formel eingeben und die Leistung berechnen. Die anderen Variablen der Formel sollen vorher im Programm eingegeben werden (Fläche, Luftdichte und eine Kostante). Daraus bere ...

Verfasst am: 07.10.2010, 12:00 Aufrufe: 600

naja wirklich geholfen hat das nicht Sad

. will ja die feiertage nicht berechnen. hab die feiertage erstmal in ne tabelle eingetragen. wenn bei einer differenz eines dieser daten auftaucht soll der mir sofort -1 bei der differenz ausgeben. das muss ich irgendwie nur noch in richtiger Syntax verfassen, weis aber nicht wie Sad

hab irgendwo was gelesen mit value length und da soll dann nen sql gemacht werden fü ...

Verfasst am: 31.08.2010, 22:18 Aufrufe: 530

... G=de&id=QQoqlugyzTyPJEHJQBRsAxahDLgHZr&d=280370094%2E1283289223&action=fullscreen&URL=http%3A%2F%2Fservice%2Egmx%2Enet%2Fde%2Fcgi%2Fdfsimg?LANG%3Dde%26id%3DQQoqlugyzTyPJEHJQBRsAxahDLgHZr%26d%3D280370094%252E1283289223%26folder=%252F%26file=puzzle2%252Ejpg%26f=fullscreen Ich habe vorgefertigte Figuren, die alle in eine Form passen sollen. Der Computer soll mir die verschiedenen Muster berechnen ...

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: 22.06.2010, 15:55 Aufrufe: 358

hi ich muss in vb6 ein programm erstellen welches den schnellstmöglichen weg einer slalomfahrt berechnen soll. Die Pylonen stehen alle auf einer linie und man kann den abstand zwischen den pylonen frei verändern. ich arbeite jetzt schon ziemlich lang daran habe jedoch keine idee wie ich das ganze umsetzen soll. da jedoch der abgabetermin für dieses projekt immer näher kommt steigt mein stresslevel enorm. also wenn ...

Verfasst am: 08.06.2010, 21:39 Aufrufe: 634

Ich verwende einen VB Code um aus 2 NMEA Koordinaten die Distanz zu berechnen. Das ganze funktioniert auch sehr gut. Jetzt habe ich zwei Koordinaten, wo ich aber einen viel zu großen Wert bekomme. Die Koordinaten lauten: Breite start: 46.999913 Länge start: 15.492768 Breite Ende: 47.000023 Länge Ende: 15.492642 Wenn ich diese Zahlen z.B. mit der Webseite http://www.mountainbiker.ch/inhalt/distanz-berech ...

Verfasst am: 24.03.2010, 00:02 Aufrufe: 605

Ich habe folgenden Code ausprobiert um eine Distanz von zwei Längengraden herauszubekommen: private function distanz() As Single Dim breite_neu As Single Dim laenge_neu As Single Dim laenge_alt As Single Dim breite_alt As Single Dim e As Single breite_alt = 54.7710609436035 breite_neu = 54.77081 laenge_alt = 15.4377298355103 laenge_neu = 15.43747 e = ArcCos(Sin(breite_neu) * Sin(breite_alt) + Cos(b ...

Verfasst am: 09.02.2010, 12:51 Aufrufe: 701

moin ich habe eine aufgabe undzwar soll ich ein Programm schreiben das den Benzin Verbrauch pro 100km und die daraus enstehen kosten für die lezte Tankperiode also die zeit zwischen der lezten und der derzeitigen Tanken berechnet. Lösen wollte ich es do die zahlen sollen in die TextBoxen eingetragen werden und mit einem klick auf den butten soll das ergebniss in einem label angezeigt werden. das Problem is nur ...

Verfasst am: 02.11.2009, 23:13 Aufrufe: 596

Verfasst am: 30.10.2009, 09:44 Aufrufe: 640

Hi Leute, ich brauche bis Dezember ein Programm, dass folgendes beherrscht: - Auswahl von Zinsberechnungen über Menü - 1. Kreditlaufzeit Eingabe (über Dialog) der Kreditsumme, monatl. Rate, Tilgung, Anzeige des Tilgungsverlaufes auf Excelblatt Tilgung monatsgenau berechnen - 2. Restsumme eines Kredites Eingabe (über Dialog) der Kreditsumme, monatl. Rate, Tilgung, Laufzeit Anzeige des Restsumme, der Summier ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) 'Schleife für iLoops For i = 1 To iLoops fShredd ...

Verfasst am: 15.06.2009, 18:47 Aufrufe: 790

Es hat zwar keinen richtigen Namen, aber es soll einen Rechner darstellen. Aber keinen gewöhnlichen 0 8 15 Rechner, sondern mit dem Rechner könnt ihr neben den Grundrechenarten auch Wurzeln ausrechnen. Desweiteren kann man Rechtecke berechnen, Flächeninhalt eines Kreises oder auch den Flächeninhalt eines Kegelstumpfes etc.Schaut es auch einfach mal an und gebt mir ein Feedback.Link: Download 22KB - RechnerMfGMarduk : ...

Verfasst am: 13.06.2009, 13:56 Aufrufe: 1619

Klicke ich nun den Button "Berechnen" so soll die Applikation mir anhand der SubItem Einträge "Stunden" die gesamt Stunden sowie auch den gesamt Verdienst berechnen, was ich wie folgt löse: Dim ArbeitsStundenGes As Integer Dim VerdienstGes As Integer Dim VerdienstProStunde As Integer = "7" Dim InhaltListView As Integer For Counter As Integer = ...

Verfasst am: 10.04.2009, 08:23 Aufrufe: 2098

Black End If Next Punkte = 0 Label2.Text = Punkte End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Berechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Berechnen.Click Punkte = 0 Dim tbs As Cont ...

Verfasst am: 30.07.2008, 18:04 Aufrufe: 601

Verfasst am: 07.06.2008, 11:37 Aufrufe: 1131

Hallo, ich muss ein Programm schreiben, mit dem man den Mittelwert berechnen kann. Aber immer wenn ich das Programm ausführen will, krieg ich ne Meldung "Laufzeitfehler 6 Überlauf" Vlt könnte mir da jemand helfen. Hier mal der Code: Option Explicit Private Const nmax As Integer = 100 Private L(nmax) As Double, n As Long, no(100) As Double, i As Long, v(nmax) As Single Private Sub cmdBerechnen_Click() Dim summe As ...

Verfasst am: 04.06.2008, 17:48 Aufrufe: 2842

mann kann keine 9,5 h arbeiten Wink

und ja was man vl machen könnte... dass der button berechnen eigentlich nach jedem start des progs und nach jedem eintrag automatisch dass macht was er sollte und aja wichtig wäre noch dass du die daten in eine datei speicherst und beim laden wieder einließt ich hoffe bin da jetzt nicht zu streng aber ja dass ist mir so aufgefallen aber wäre nett wenn du den lohnrechner erweitern ...

Verfasst am: 21.05.2008, 14:54 Aufrufe: 2540

Verfasst am: 19.05.2008, 18:12 Aufrufe: 886

Verfasst am: 06.05.2008, 19:11 Aufrufe: 1913

Beim Upload kannst du genauso verfahren. Musst dann halt ab und zu mal den Freehoster entrümpeln. Allerdings sollte deine Testdatei ausreichend groß sein. Denn zb. eine 16000er Leitung lädt in der Sekunde theoretisch 2MB runter. Da lässt sich nicht großartig der Durchschnitt berechnen. Musst halt ein bisschen variiren. Am Ende überträgst du dann eben das Ergebnis zurück an dein Programm.Kennt VB6 keine Ping-Klasse/Fu ...

Verfasst am: 03.05.2008, 15:44 Aufrufe: 601

Name: CalculateSizeFunktion: Wandelt Größenangaben (Bytes) um in KB, MB etc.Rückgabe: String (Beispiel: "17,25MB" Beschreibung:Mit Filelen() oder LOF() kann man die Größe einer Datei ermitteln.In beiden Fällen bekommt man die Größe in Bytes zurück.Die Funktion CalculateSize soll euch nun helfen, einfach und schnell die Größe als lesbares Format darstellen zu können.Code:Visual Basic: [code]Public Functio ...

Verfasst am: 21.04.2008, 19:54 Aufrufe: 2307

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) ...

Verfasst am: 20.04.2008, 17:10 Aufrufe: 1634

Habe bereits diese beiden Funktionen gefunden: Private Function FakIter(ByVal n As Integer) As Integer Dim Temp As Integer = 1 'die Fakultät von 0 als Ausgangspunkt Dim Crnt As Integer = 0 'zurzeit berechnen wir die Fakultät von 0 (Crnt = Current = zurzeit) Do While Crnt < n 'die gewünschte Fakultät ist noch nicht erreicht Crnt += 1 'wir be ...

Verfasst am: 17.04.2008, 12:53 Aufrufe: 1921

... And &HFF) Xor Bytes(i) nResult = (((nResult And &HFFFFFF00) &H100) And 16777215) _ Xor nCRC32LookUp(Index) Next i CRC32 = Not (nResult) End Function ' CRC32-Checksumme einer Datei berechnen ...

Verfasst am: 17.02.2008, 11:18 Aufrufe: 1392

If Not bCRC32Init Then CRC32_Init nSize = UBound(Bytes) For i = 0 To nSize Index = (nResult And &HFF) Xor Bytes(i) nResult = (((nResult And &HFFFFFF00) \ &H100) And 16777215) _ Xor nCRC32LookUp(Index) Next i CRC32 = Not (nResult) End Function ' CRC32-Checksumme einer Datei berechnen Public Function CR ...

Verfasst am: 08.01.2008, 21:53 Aufrufe: 332

00") 'Formatierung auf 2 Stellen MsgBox DEF_MSG_RESULT & nEingabe & vbCrLf & _ DEF_MSG_RESULT2 & nEingabe2 & vbCrLf & _ ("Daraus lässt sich folgender BMI berechnen: " & nBerechnung), vbInformation End Sub Mir wurde beigebracht die Sachen in Office XP unter der Visual Basic Plattform zu scripten, wie kriege ...

Verfasst am: 06.01.2008, 14:30 Aufrufe: 1143

... l News aus einem RSS Feed auszulesen ist nicht so einfach, ich habe für mein Programm ein extra einfaches Dateiformat gewählt. Die Idee mit der Checksumme ist gut, nur wenn der Server wirklich gehackt würde wäre es ein leichtes für den Hacker die Checksumme zu ändern. Ich schaue mal ob ich sie einbaue, wie ich gesehen habe hat die MD5 Klasse die ich habe eine Funktion um die Checksumme einer Datei zu berechnen ...

Verfasst am: 17.10.2007, 02:02 Aufrufe: 514

Ich habe ein Programm gemacht, dass den Benzinverbrauch auf 100 Kilometer ausrechnet. Es müssen die gefahrenen KM und das verbrauchte Benzin eingegeben werden. Das Prog funzt ja auch, aber nur wenn die Daten eingetragen sind. Wenn ich nichts eintrage und dann auf Berechnen klicke, kommt ein Laufzeitfehler, Datentypen unverträglich. Vielleicht könnte mir bitte jemand den Source optimieren, damit ich das besse ...

Verfasst am: 05.10.2007, 11:08 Aufrufe: 1616

Mir ist die Methode viel zu aufwendig, dann muss man ja für jeden Möglichen Buchstaben eine Zeile Schreiben und man kann die Passwort Länge nicht so einfach Variieren. Bei der Methode die Zufallszahlen einzeln zusammen zuschreiben und somit die Länge nicht Dynamisch berechnen zu können frage ich mich manchmal wozu es Schleifen gibt. Wenn man das zusammensetzen des Passworts in einer For Schleife macht kann man die An ...

Verfasst am: 28.09.2007, 13:14 Aufrufe: 595

Da besteht folgendes problem,es kommen immer die selben zahlen beim programm start,in einer festen reihenfolge Sad

gibts einen anderen befehl?^^ Das ist immer dann wenn du nur rnd nimmst und nicht erst Randomize aufrufst. Du solltest immer das erste mal bevor du rnd aufrufst Randomize aufrufen, das liegt daran dass der Computer eigentlich keine Zufallszahlen Berechnen kann sondern diese aus irgendwelchen Zahlen be ...

Verfasst am: 19.09.2007, 14:55 Aufrufe: 3275

Die ersten beiden Zeilen fügst du ganz oben im Formular ein. Dann irgendwo anders (aber nicht in eine Sub) fügst du den Rest des Codes ein. Um einen MD5-hash zu berechnen nimmst du z.B. folgenden Code bei Button1.klick o.ä. dim strString as string = textbox1.text strString = MD5StringHash(strString )

Verfasst am: 10.07.2007, 18:49 Aufrufe: 1269

Es hat zwar keinen richtigen Namen, aber es soll einen Rechner darstellen. Aber keinen gewöhnlichen 0 8 15 Rechner, sondern mit dem Rechner könnt ihr neben den Grundrechenarten auch Wurzeln ausrechnen. Desweiteren kann man Rechtecke berechnen, Flächeninhalt eines Kreises oder auch den Flächeninhalt eines Kegelstumpfes etc. Schaut es auch einfach mal an und gebt mir ein Feedback. Preview: Link: MfG ...

Verfasst am: 30.05.2007, 17:57 Aufrufe: 503

Verfasst am: 19.03.2007, 01:20 Aufrufe: 552

Visible = False For i = 1 To Anzahl 'Nur Strings <> 0 werden in die Liste eingefügt If Len(IpArray(i)) <> 0 Then List1.AddItem (IpArray(i)) Next i List1.Visible = True ende = GetTickCount 'Zeit stoppen Label1.Caption = (ende - start) / 1000 'Zeitdifferenz berechnen und ausgeben End Sub @enco and thecoder Beat this! Wink

Ich glaub nicht, das ih ...

Verfasst am: 16.09.2003, 13:23 Aufrufe: 260

Verfasst am: 16.09.2003, 08:26 Aufrufe: 260

Hallo! Ich sollte von einigen Prozentwerten den Mittelwert berechnen. Da diese Werte wegen dem %-Zeichen nicht als Zahl gehandhabt wird, scheitert das Programm bei der Berechnung des Mittelwertes. Wie kann ich dies verhindern? Mit bestem Dank im Voraus Remo

Verfasst am: 05.04.2003, 15:28 Aufrufe: 399

Hi Habe folgende Aufgabe zu lösen!Wäre nett wenn mir jemand damit helfen könnte. Ich soll ein Programm schreiben, womit man die Bewegung zylindrischer Körper (Vollzylinder Hohlzylinder) auf schiefen Ebenen berechnen kann.Hierbei sollen verschiedene physikalischen Größen berechnet werden.Die Formel und der ganze physikalische Hintergrund ist mir klar. Mein problem ist das, es sollen Eingabfelder in der visual basic ...

Verfasst am: 25.12.2002, 13:29 Aufrufe: 315

Hallo und ein schönes Weihnachtfest. Als Laie habe ich folgendes Problem: Ich habe ein Textfeld (txt_geborenKind1) in dem das Geburtsdatum im Format tt.mm.jjjj eingetragen wird. In dem Labelfeld (Lbl_alterk1) soll dann das errechnete Alter im Format Zahl dreistellig dargestellt werden. Kann mir jemand helfen wie der Quelltext aussehen muss? Ich habe es schon mit der Funktion DateDiff versucht. Ich kann zwar das Dat ...

Verfasst am: 24.09.2002, 15:01 Aufrufe: 466