Visual Basic Forum

Verfasst am: 17.09.2011, 10:31 Aufrufe: 212

Wenn ich eines meiner Ergebnisse (Nr. Cool

jetzt weiterverwenden will, bekomme ich aber folgende Meldung: "Beim Umwandeln aus einer Zahl muss der Wert eine Zahl sein, die kleiner als unendlich ist." Ich verstehe nur nicht warum, da ich die gleiche Logik verwende wie bei den vorherigen Berechnungen. Hier mein Code: Private Sub cmdBerechnen_Click(ByVal sender As Object, ByVal e As System.EventArgs ...

Verfasst am: 17.01.2011, 13:07 Aufrufe: 358

hi an alle, ich habe noch nicht all zu viel erfahrung mit vba und soll eine preiszuordnung mit anschließender berechnung durchführen. ich weiß nur nur nicht wie ich aus der zuordnungstabelle die preise zur berechnung überführe. 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 ...

Verfasst am: 22.12.2010, 14:01 Aufrufe: 898

Verfasst am: 07.10.2010, 07:05 Aufrufe: 600

SetValue(differenz_tage) If node_diff.MoveToAttribute("nil", " http://www.w3.org/2001/XMLSchema-instance") Then node_diff.DeleteSelf() End If Catch ex As Exception 'keine Aktion, Berechnung abbrechen End Try End If End Sub End Class End Names ...

Verfasst am: 27.07.2010, 10:24 Aufrufe: 328

ja dann drehs ganz einfach um und mache die berechnung bevor du der dialog erscheint ich mein wenns nicht viel länger als 2 sek dauert wirds kaum auffallen weil ja sowiso alles leute windows gewohnt sind Wink

edit: mir is nochwas eingefallen weil du sagtest dass es mit der form verschwimmt lass den dialog anzeigen... ok drücken und dann legste eine halbe sekunde wartezeit ein dass muss reichen um den ...

Verfasst am: 27.07.2010, 08:53 Aufrufe: 328

WriteLine() sw.Close() savetxt(sfd.FileName) Else MsgBox("Abbruch") End If End Sub Private Sub savetxt(ByVal datei) ... Berechnung ... Dim fs As New FileStream(datei, FileMode.Create) Dim sw As New StreamWriter(fs) sw.WriteLine( ...

Verfasst am: 28.06.2010, 21:51 Aufrufe: 504

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) Line Input #2, Data 'prüfen ob beginn erreicht ist If Left(Data, 8) = "$Version" Then i = 1 End If If Left(Data, 6) = "$GPRMC" Then i ...

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: 31.05.2010, 13:02 Aufrufe: 737

Hallo community, nach über 5 Stunden verzweifelter Suche habe ich mich jetzt dazu entschlossen mein Problem mal in ein Forum zu setzen. Mein Vorhaben: In einem Form sind 4 ComboBoxen mit je 4 items (Indizes 0 bis 3), wo der Anwender angeben soll, welche Gliedmaßen ihm amputiert werden (für die Berechnung des BMI). In meiner Datenbank stickman_db.accdb (Acsess 2007 Datenbankdatei) gibt es die Felder ID, Arm1 ...

Verfasst am: 01.02.2010, 07:41 Aufrufe: 810

Hallo, ich möchte ein Programm erstellen welches mit Hilfe in einer Datenbank hinterlegten Werten einen Ablauf bestimmter Berechnungen / Vergleiche durchführt. Ich habe das "Vorbild" als Excel Tabelle vorliegen in welcher gerechnent / verglichen wird und aus den Ergebnissen eine neue Tabelle erstellt wird. Das Problem ist zwar, von der rechnerischen Seite, nicht gerade komplex, jedoch wird es in Excel sc ...

Verfasst am: 20.07.2009, 16:21 Aufrufe: 1237

range("A2").Value = Text11.range("b2").Value = Text40.range("c2").Value = Text43End With'Ausgabe der Berechnung bzw. Diagramm aus Excel Tabelle im Ole2 Feld'OLE2.CreateEmbed "k:WMK_M_1.1diagramm.xls", "ExcelWorksheet"'Sichtbarkeit der Excel Anwendung'Excel.Visible = FalseEnd Sub__________________________________________________ ____Irgendwie muss ich da doch auf Worksheet(Diagramm1) zuweisen können bei OLE2, jedoch b ...

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

Ich möchte euch hier ein paar Tipps zeigen, wie man sein Visual Basic Programm optimieren kann.Ich denke jeder hat schon mal bemerkt, das VB schnell an seine Grenzen stößt.Besonders bei aufwendigeren Berechnungen kann es mit in VB geschriebenen Programmen sehr langwierig werden.Es ist aber möglich noch einiges an Geschwindigkeit rauszuholen, und ich halte das für ein sehr wichtiges Thema, da VB sowieso viel langsamer ...

Verfasst am: 05.08.2008, 07:52 Aufrufe: 750

Language = "VBScript" Dim Formel As String Dim Muster As String = "^([0-9s-+*/()]+)$" Dim Regex As New Regex("") Formel = TextBox1.Text If Regex.IsMatch(Formel, Muster) Then Try 'Berechnung durchfuehren Label1.Text = SC.Eval(Formel).

Verfasst am: 21.05.2008, 16:16 Aufrufe: 2540

Mit VB wirst du da nicht viel rechen können, da musst du halt auf C++ gehen, der dir mehr Möglichkeiten in Bezug auf Datentypen liefert. Da ist bei VB schon relativ schnell Schluss. Bis n=170 kannst du noch rechnen, da das noch in Double aufgenommen werden kann. Weiter wirst du mit der normalen Berechnung nichtkommen. Und das Ergebnis aus der Stirling Formel kann man auch nicht weiterverwenden, da das in keinen Daten ...

Verfasst am: 21.05.2008, 00:24 Aufrufe: 2540

lol 8*10^-31 ist aber klein, nicht groß :DHmm, schon mal probiert ob ULong reicht(64Bit)? Ansonsten sind eigentlich alle Datentypen an gewisse Grenzen gebunden. Ansonsten einfach mal mit Objectvariablen probieren, kA. Ansonsten kenne ich keine Möglichkeit in VB.NET, da würde die C++ wahrscheinlich mehr Freiraum lassen.Nur nebenbei, auf Geschwinigkeitswunder darftst du bei deiner Berechnung allerdings nicht hoffen :wi ...

Verfasst am: 10.05.2008, 15:12 Aufrufe: 2761

Ich möchte euch hier ein paar Tipps zeigen, wie man sein Visual Basic Programm optimieren kann. Ich denke jeder hat schon mal bemerkt, das VB schnell an seine Grenzen stößt. Besonders bei aufwendigeren Berechnungen kann es mit in VB geschriebenen Programmen sehr langwierig werden. Es ist aber möglich noch einiges an Geschwindigkeit rauszuholen, und ich halte das für ein sehr wichtiges Thema, da VB sowieso vi ...

Verfasst am: 01.05.2008, 09:41 Aufrufe: 704

Nicht zu viel erwarten :pHehe also ich habe das in VB.NET geschrieben.Wäre nett wenn sich das wer ansehen könnte :pIrgendwas mit der Berechnung funktioniert nicht..Ich hab 3 Variablen und ich will nur die kleinste die anderen nicht...Also wer Zeit hat:http://downloads.xargon.ch/andy/Ogame.rarMFG

Verfasst am: 22.04.2008, 22:22 Aufrufe: 295

... dem man gleichungen lösen kann. so hatte mir gedacht Dim X as Double Private Sub Command1_Click() text1=text2 End Sub ok, aber da kommt dann nur wahr oder falsch wie kann ich denn die beiden Textfenster so programmieren, dass sie auf knopfdruck da steht text1=x text2=Ergebnis also die form soll halt aussehen nen label 2textboxen (dazwischen ein = zeichen (=noch ein label) und 2commandbutton c1: Berechnung ...

Verfasst am: 20.04.2008, 17:25 Aufrufe: 1634

Integer ist nicht für solch große Zahlen ausgelegt, für solch große Zahlen kannst du Decimal, Double oder Object nehmen. Wobei du dann bei extrem großen Zahlen ein langsamere Berechnung hast.

Verfasst am: 20.04.2008, 17:10 Aufrufe: 1634

... al 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 berechnen die nächsthöhere Fakultät Temp *= Crnt 'Berechnung ...

Verfasst am: 20.04.2008, 15:15 Aufrufe: 1430

Gab ja schon lange nichts mehr von mir:D Tja und es ist eine Youtube Downloader geworden.Hier mal ein kleines BildNaja, gibt nicht viel zu erklären. Ich hab diesesmal das Downloaden in einen externen Thread gepackt, damit die Oberfläche nicht einfriert. Die Geschwindigkeitsanzeige ist kein Richtwert, dafür ist die Berechnung zu schlecht. Soll nur so eine grobe Orientierung sein. Die Dateigröße, die übertragenen Daten ...

Verfasst am: 08.01.2008, 21:53 Aufrufe: 332

Sub BMIrechner() Const DEF_TITEL = "Berechnung Ihres BMI" 'Konstante des Titels Const DEF_MSG_EINGABE = "Geben Sie ihr Gewicht ein: " ' Konstante Gewichtstext Const DEF_MSG_EINGABE2 = "Geben Sie ihre Körpergröße ein (in Meter): " 'Konstante Größetext Const DEF_MSG_RESULT = "Ihr Körpergewicht: " 'Konstante End_Gew ...

Verfasst am: 01.12.2007, 17:35 Aufrufe: 351

Soweit klappt auch alles wunderbar, Plus, Minus, alles kein Problem. Jetzt hätt ich aber noch ein paar Fragen, die mich interessieren würden: 1) Wie kann ich die Funktionen von Buttons ändern? Quasi ein "Change-button", der die Beschriftung und die Funktion von anderen ändert. 2) Berechnung mit anschließendem Ergebnis. Würde gerne eine Berechnung des Quadrats einer Zahl Anstellen, doch muss ich mo ...

Verfasst am: 19.08.2007, 16:33 Aufrufe: 1271

For a = 1 To Screen.Width / Screen.TwipsPerPixelX For b = 1 To Screen.Height / Screen.TwipsPerPixelY Farbe = GetPixel(wdc, a, b) Next Next a Du solltest die Berechnung von "Screen.Width / Screen.TwipsPerPixelX" und auch die von Y in jeweils eine Variable übergeben. Natürlich vor der Schleife. Aber schneller wird es mit dieser Methode schätze ich nicht mehr geh ...

Verfasst am: 30.09.2003, 16:18 Aufrufe: 376

Hi... ich habe hier ein VB Programm, das mir die Teilflächen einer Kugeloberfläche nach vorherigen gewissen Eingaben errechnet. Die Berechnung ist aber falsch... müssten ein paar Zeilen verbessert werden.... das hier ist die zu verändernde file - http://www.geocities.com/mistert77/Berech.frm.txt also... das ganze ist eine Berechnung für einen Antennengewinn. Um eine räumliche Abstrahlcharakteristik aufnehme ...

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: 04.07.2003, 16:25 Aufrufe: 325

Verfasst am: 19.06.2003, 01:52 Aufrufe: 325

Hallo, Ich versuch den 5 Textboxen beizubringen sich zu melden wenn die Felder leer sind. Es sin 5 txtboxen und die müssen ausgefüllt sein, sonst darf der die Berechnung nicht durchführen, wenn ich auf die cmdBerechung klicke. Wie geht das ?

Verfasst am: 25.12.2002, 13:29 Aufrufe: 315

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 Datum eingeben aber die Berechnung läuf ...