|
| |
VB.NET - Ein- und Umsteiger| Re: summieren von Textboxen und ergebniss als dezimahlzahl | |  | | Autor: Basti12345 | | Datum: 18.09.13 19:29 |
| ich bekomms leider nicht hin die bilder hochzuladen..ich verwende das allgemeine vb ja!
stell dir vor excell tabelle 1 zeile 2-15(gleiche spalte) sind verschiedene zahlen = faktoren zugeordnet..meinetwegen auch 2 bis 15!
textbox gibt die person die prozentzahl per userform ein. in textboxen 2 bis 15 erscheinen die faktoren multipliziert mit der prozentzahl(also bei 100 prozent die gleichen zahlen wie auf tabelle1) und auf textbox 16 dann schließlich die summe.Wichtig: als dezimahlzahl!
| |
| summieren von Textboxen und ergebniss als dezimahlzahl | | | | Autor: Basti12345 | | Datum: 18.09.13 16:47 |
| Hallo Liebe Programmierer,
Seit Stunden versuche ich mein Problem zu lösen. Bitte hilft mir doch weiter!! Also ich hab ca 16 Textboxen den ich eine Faktor zugewiesen habe. In der untersten Textbox soll die Summe der Textboxen als Dezimahlzahl stehen.
Ich hab alles versucht sei es cdbl addition oder textbox1.value+.... addition. leider stimmt die summe ganz unten nicht. in meiner ersten textbox wird der wert als prozent eingegeben. der wiederum ändert die faktoren der textboxen als auch ihre summe.
Sub addieren()
Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o As Double
For Z = 2 To 11
If Start.TextBox1.Value <> "" Then
wert = Start.TextBox1.Value / 100
Start.Controls("TextBox" & Z).Value = (Tabelle1.Cells(Z, 1) * wert)
w = Start.Controls("TextBox" & Z).Value
End If
Next Z
Start.TextBox40.Value = wert * 2500
For y = 12 To 15
If Start.TextBox1.Value <> "" Then
wert = Start.TextBox1.Value / 100
Start.Controls("TextBox" & y).Value = (Tabelle1.Cells(y, 1) * wert)
w = Start.Controls("TextBox" & y).Value
End If
Next y
a = Start.TextBox2.Value
b = Start.TextBox3.Value
c = Start.TextBox4.Value
d = Start.TextBox5.Value
e = Start.TextBox6.Value
f = Start.TextBox7.Value
g = Start.TextBox8.Value
h = Start.TextBox9.Value
i = Start.TextBox10.Value
j = Start.TextBox11.Value
k = Start.TextBox12.Value
l = Start.TextBox13.Value
m = Start.TextBox14.Value
n = Start.TextBox15.Value
o = a + b + c + d + e + f + g + h + i + j + k + l + m + n
Start.TextBox16.Value = o
o = Val(Start.TextBox2.Value) + Val(Start.TextBox3.Value) + Val( _
Start.TextBox4.Value) + Val(Start.TextBox5.Value) + Val(Start.TextBox6.Value) _
+ Val(Start.TextBox7.Value) + Val(Start.TextBox8.Value) + Val( _
Start.TextBox9.Value) + Val(Start.TextBox10.Value) + Val( _
Start.TextBox11.Value) + Val(Start.TextBox12.Value) + Val( _
Start.TextBox13.Value) + Val(Start.TextBox14.Value) + Val( _
Start.TextBox15.Value)
'o = CDbl(a) + CDbl(b) + CDbl(c) + CDbl(d) + CDbl(e) + CDbl(f) + CDbl(g) +
' CDbl(h) + CDbl(i) + CDbl(j) + CDbl(k) + CDbl(l) + CDbl(m) + CDbl(n)
Start.TextBox16.Value = o
End Sub | |
| Re: summieren von Textboxen und ergebniss als dezimahlzahl | | | | Autor: Manfred X | | Datum: 18.09.13 17:41 |
| Hallo!
Du postest Code, der nicht in Deinem Sinn funktioniert,
statt zu erklären, wie die zu berechnende Formel (Faktoren, Summanden???)
aussieht (=Gestaltung einer Function) und woher die jeweils
als Parameter einzusetzenden Werte kommen bzw. wie die ausgeprägt sind.
Insofern: Schwierig zu antworten ....
| |
| Re: summieren von Textboxen und ergebniss als dezimahlzahl | | | | Autor: Basti12345 | | Datum: 18.09.13 18:23 |
| Also...
In die textbox1 soll eine Zahl in Prozent eingetippt werden(via Userfom) mit der sich die Faktoren von textbox 2 bis 15 jeweils multiplizieren. In textbox 16 soll dann die Summe der textbpxen 2 bis 15 stehen. Evtl auch als Dezimalzahl sollte alles möglich sein. Vielen dank vorab. | |
| Re: summieren von Textboxen und ergebniss als dezimahlzahl | | | | Autor: Manfred X | | Datum: 18.09.13 18:43 |
| Und Du arbeitest mit VB.Net???
Ich versuch mal "allgemeines" VB.
Voraussetzung: Textboxen sind vorhanden und
Text-Eigenschaft jeweils korrekt mit num. Wert gefüllt.
Dim factor As Double, i As Integer, sum As Double
'Den Faktor umrechnen:
factor = 1
if IsNumeric(TextBox1.text) Then
factor = Val(TextBox1.Text) / 100
end if
'Summe bilden
sum = 0
For i = 2 To 15
sum = sum + Val(Controls("TextBox" & CStr(i)).Text)
Next i
'Multiplikation mit Faktor
textbox16.Text = CStr(sum * factor)
Beitrag wurde zuletzt am 18.09.13 um 18:45:54 editiert. | |
| Re: summieren von Textboxen und ergebniss als dezimahlzahl | | | | Autor: Basti12345 | | Datum: 18.09.13 19:21 |
| | es funktioniert leider nicht.. er meint sub oder function nicht definiert.. und controls leuchtet blau auf.. ich hab screenshots gemacht..ist es hier möglich bilder mithochzuladen. bin erst neu im forum | |
| Re: summieren von Textboxen und ergebniss als dezimahlzahl | | | | Autor: Manfred X | | Datum: 18.09.13 19:31 |
| Welche VB-Version verwendest Du?
VB.Net oder VBA (innerhalb von Office)?
Schreibe Sub ... End Sub um den geposteten Code
und Start.Controls (so wie in Deinem Code).
Sollen die per Prozentfaktor umgerechneten Werte
auch in den Textboxen angezeigt werden?
Nutze eventuell die Round-Funktion für die Darstellung.
| |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.