| |
![zurück](../images/b_zurueck.gif)
VB.NET - Ein- und UmsteigerRe: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | | ![](../images/trans.gif) | Autor: Sloorg | Datum: 23.07.14 22:41 |
| OK!
Aber is och noch nicht ganz fertig – jetzt wird zwar der Name ausgegeben, aber das Gewicht nicht mehr: Dim dblLength As Double = Nothing
Dim dblGewicht As Double = Nothing
Dim dblFaktor As Double = Nothing
Dim dblIdealgewicht As Double = Nothing
Dim dblDifference As Double = Nothing
Dim strTextErgebnisGewicht As String = Nothing
Dim strTextGewicht As String = Nothing
Dim strTextAnrede As String = Nothing
Const FAKTOR_MANN As Double = 0.9
Const FAKTOR_FRAU As Double = 0.85
If Me.RadioButton_Mann.Checked = True Then
'Wenn der RadioButton für männlich ausgewäht ist,
'dann den Wert für männlich zuweisen
dblFaktor = FAKTOR_MANN
strTextAnrede = "Hallo Herr " & Me.TextBox_Name.Text & ","
Else
'Andernfalls den Wert für weiblich zuweisen
dblFaktor = FAKTOR_FRAU
strTextAnrede = "Hallo Frau/Frl. " & Me.TextBox_Name.Text & ","
End If
'Wert aus der TextBox für Größe nach Double konvertieren
'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein
' sollte),
'dann sofort zum Fehlerausgang.
If Helper.ConvertTextToDouble(Me.TextBox_Size.Text, dblLength) = False _
Then Goto ErrorExit
'--->>
'--->>
'Wert aus der TextBox für Gewicht nach Double konvertieren
'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein
' sollte),
'dann sofort zum Fehlerausgang.
If Helper.ConvertTextToDouble(Me.TextBox_Gewicht.Text, dblGewicht) = _
False Then Goto ErrorExit
'--->>
'--->>
'Idealgewicht berechnen
dblIdealgewicht = Berechnung.Calculate_Idealgewicht(dblLength, _
dblFaktor)
'Differenz zwischen Gewicht und Idealgewicht ausrechnen
dblDifference = dblGewicht - dblIdealgewicht
'Text für Gewicht zusammensetzen
strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & _
" kg" & " - Ihr " & _
"Gewicht: " & CStr(dblGewicht.ToString) & " kg"
Select Case dblDifference
Case Is < -0.5
strTextErgebnisGewicht = "Sie haben Untergewicht."
Case Is > 0.5
strTextErgebnisGewicht = "Sie haben Übergewicht."
Case Else
strTextErgebnisGewicht = "Sie haben Normalgewicht."
End Select
'Formular anzeigen und Werte einfüllen.
Me.ShowErgebnis(strTextAnrede, strTextGewicht, strTextErgebnisGewicht)
'Muss rein, damit nicht in den Fehlerausgang reingelaufen wird.
Exit Sub
'Fehlerausgang
ErrorExit:
'Hier kann noch eine Meldung eingebaut werden, falls benötigt.
End Sub
Private Sub ShowErgebnis(ByVal strTextAnrede As String, ByVal _
strTextGewicht As String, ByVal strTextErgebnisGewicht As String)
Ergebnis.Show()
'Sofort nach dem Anzeigen des Formulars dieses weiter nach rechts
' rücken,
'damit das Eingabeformular nicht überdeckt wird.
Ergebnis.Location = New Point(Me.Location.X + Me.Width + 20, _
Me.Location.Y)
Ergebnis.Label_Name.Text = strTextAnrede
Ergebnis.Label_Gewicht.Text = strTextGewicht
Ergebnis.Label_Ergebnis_Gewicht.Text = strTextErgebnisGewicht
If Me.RadioButton_Frau.Checked = True Then
Ergebnis.BackColor = Color.Salmon
Ergebnis.Label_Name.BackColor = Color.Salmon
Ergebnis.Label_Gewicht.BackColor = Color.Salmon
Ergebnis.Label_Ergebnis_Gewicht.BackColor = Color.Salmon
Else
Ergebnis.BackColor = Color.LightBlue
Ergebnis.Label_Name.BackColor = Color.LightBlue
Ergebnis.Label_Gewicht.BackColor = Color.LightBlue
Ergebnis.Label_Ergebnis_Gewicht.BackColor = Color.LightBlue
End If
End Sub Wenn ich hier & Gewicht einfüge, krieg ich ne Fehlermeldung:
'Text für Gewicht zusammensetzen
strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & _
" kg" & " - Ihr " & _
"Gewicht: " & Gewicht CStr(dblGewicht.ToString) & " kg" So auch:
strTextGewicht = "Ihr Idealgewicht beträgt: " & CStr(dblIdealgewicht) & " kg" & _
" - Ihr " & _
"Gewicht: " & CStr(dblGewicht.ToString) & Gewicht & " kg" Hat vllt. jmd. ne Lösung? Merci! ![](../images/smilies/smiley23.gif) | ![](../images/trans.gif) |
![](../images/forum/m.gif) 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 4.596 | Sloorg | 18.07.14 02:45 | ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.281 | Kuno60 | 18.07.14 13:40 | ![](../images/forum/i.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.284 | effeff | 18.07.14 13:49 | ![](../images/forum/i.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.102 | Sloorg | 19.07.14 13:56 | ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.262 | Sloorg | 20.07.14 01:57 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.183 | Manfred X | 20.07.14 11:04 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.176 | Sloorg | 20.07.14 21:15 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.100 | effeff | 21.07.14 11:21 | ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.254 | effeff | 18.07.14 13:45 | ![](../images/forum/i.gif) ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.184 | Kuno60 | 18.07.14 14:07 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.194 | DaveS | 18.07.14 18:36 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.270 | Kuno60 | 18.07.14 20:18 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.146 | DaveS | 18.07.14 20:29 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.182 | DaveS | 18.07.14 20:31 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.154 | Kuno60 | 18.07.14 20:52 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.144 | DaveS | 18.07.14 20:48 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.212 | Kuno60 | 18.07.14 21:03 | ![](../images/forum/i.gif) ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.101 | effeff | 19.07.14 18:29 | ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.149 | Sloorg | 19.07.14 14:03 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.085 | sv00010 | 19.07.14 16:54 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.131 | cookstdu | 19.07.14 18:00 | ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.146 | sv00010 | 18.07.14 21:14 | ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.145 | sv00010 | 20.07.14 10:14 | ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.081 | sv00010 | 20.07.14 12:25 | ![](../images/forum/i.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.104 | DaveS | 20.07.14 12:44 | ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.139 | Manfred X | 20.07.14 13:02 | ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.183 | sv00010 | 20.07.14 18:59 | ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.117 | Sloorg | 20.07.14 20:38 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.089 | sv00010 | 20.07.14 20:55 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.061 | Sloorg | 20.07.14 21:12 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.066 | Manfred X | 20.07.14 21:13 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.059 | Sloorg | 22.07.14 05:48 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.123 | effeff | 22.07.14 09:36 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.176 | Sloorg | 22.07.14 17:07 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.092 | Sloorg | 22.07.14 17:14 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.180 | sv00010 | 22.07.14 18:12 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.077 | Sloorg | 22.07.14 23:50 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.162 | sv00010 | 23.07.14 07:16 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.100 | Sloorg | 23.07.14 07:57 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.163 | sv00010 | 23.07.14 08:35 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.155 | Sloorg | 23.07.14 22:41 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.119 | sv00010 | 24.07.14 05:58 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.138 | Sloorg | 24.07.14 18:03 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.078 | sv00010 | 24.07.14 19:51 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.109 | Sloorg | 25.07.14 03:55 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.167 | Sloorg | 23.07.14 00:36 | ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.098 | Sloorg | 26.07.14 02:18 |
![](../images/48x48/info.gif) | 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 |
![nach oben](../images/b_top.gif) ![zurück](../images/b_zurueck.gif) |
|
sevZIP40 Pro DLL ![sevZIP 4.0 Pro für VB/VBA und VB.NET](../images/werbung/sevzip30_100x100.jpg)
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 InfosTipp des Monats TOP Entwickler-Paket ![Developer CD f?r VB](../images/werbung/devcdvb_100x100.jpg)
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|