| |
VB.NET - Ein- und UmsteigerRe: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | | | Autor: Sloorg | Datum: 22.07.14 17:14 |
| PS: Hier zur Übersicht die ganze Seite:
Public Class Dateneingabe
Private Sub Dateneingabe_Load(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Me.Load
'Beim Laden des Formular den Radiobutton auf Männlich setzen
'(damit gleich am Anfang ein sinnvoller Wert vorausgewählt ist)
Me.RadioButton_Mann.Checked = True
End Sub
Private Sub TextBox_Name_TextChanged( ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles TextBox_Name.TextChanged
'Button_Calculate einstellen
Validierung.CheckAndSetButton_Calculate()
End Sub
Private Sub TextBox_Gewicht_TextChanged( ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles TextBox_Gewicht.TextChanged
'Button_Calculate einstellen
Validierung.CheckAndSetButton_Calculate()
End Sub
Private Sub TextBox_Size_TextChanged( ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles TextBox_Size.TextChanged
'Button_Calculate einstellen
Validierung.CheckAndSetButton_Calculate()
End Sub
Private Sub RadioButton_Mann_CheckedChanged( ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RadioButton_Mann.CheckedChanged
'Button_Calculate einstellen
Validierung.CheckAndSetButton_Calculate()
End Sub
Private Sub RadioButton_Frau_CheckedChanged( ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RadioButton_Frau.CheckedChanged
'Button_Calculate einstellen
Validierung.CheckAndSetButton_Calculate()
End Sub
Private Sub Button_Calculate_Click( ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button_Calculate.Click
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
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
Else
'Andernfalls den Wert für weiblich zuweisen
dblFaktor = FAKTOR_FRAU
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 = "Hallo " & "Ihr Idealgewicht: " & 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(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 strTextGewicht As String, ByVal _
strTextErgebnisGewicht As String)
Ergebnis.Show()
Ergebnis.Label_Gewicht.Text = strTextGewicht
Ergebnis.Label_Ergebnis_Gewicht.Text = strTextErgebnisGewicht
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class | |
2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 4.596 | Sloorg | 18.07.14 02:45 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.282 | Kuno60 | 18.07.14 13:40 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.285 | effeff | 18.07.14 13:49 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.102 | Sloorg | 19.07.14 13:56 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.262 | Sloorg | 20.07.14 01:57 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.183 | Manfred X | 20.07.14 11:04 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.176 | Sloorg | 20.07.14 21:15 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.100 | effeff | 21.07.14 11:21 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.254 | effeff | 18.07.14 13:45 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.184 | Kuno60 | 18.07.14 14:07 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.194 | DaveS | 18.07.14 18:36 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.270 | Kuno60 | 18.07.14 20:18 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.146 | DaveS | 18.07.14 20:29 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.182 | DaveS | 18.07.14 20:31 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.154 | Kuno60 | 18.07.14 20:52 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.144 | DaveS | 18.07.14 20:48 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.212 | Kuno60 | 18.07.14 21:03 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.101 | effeff | 19.07.14 18:29 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.149 | Sloorg | 19.07.14 14:03 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.085 | sv00010 | 19.07.14 16:54 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.131 | cookstdu | 19.07.14 18:00 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.146 | sv00010 | 18.07.14 21:14 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.145 | sv00010 | 20.07.14 10:14 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.081 | sv00010 | 20.07.14 12:25 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.105 | DaveS | 20.07.14 12:44 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.139 | Manfred X | 20.07.14 13:02 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.184 | sv00010 | 20.07.14 18:59 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.117 | Sloorg | 20.07.14 20:38 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.089 | sv00010 | 20.07.14 20:55 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.061 | Sloorg | 20.07.14 21:12 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.066 | Manfred X | 20.07.14 21:13 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.060 | Sloorg | 22.07.14 05:48 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.123 | effeff | 22.07.14 09:36 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.176 | Sloorg | 22.07.14 17:07 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.093 | Sloorg | 22.07.14 17:14 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.180 | sv00010 | 22.07.14 18:12 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.077 | Sloorg | 22.07.14 23:50 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.162 | sv00010 | 23.07.14 07:16 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.100 | Sloorg | 23.07.14 07:57 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.163 | sv00010 | 23.07.14 08:35 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.155 | Sloorg | 23.07.14 22:41 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.119 | sv00010 | 24.07.14 05:58 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.138 | Sloorg | 24.07.14 18:03 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.078 | sv00010 | 24.07.14 19:51 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.109 | Sloorg | 25.07.14 03:55 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.167 | Sloorg | 23.07.14 00:36 | Re: 2Forms: Dateneingabe in Form1, Ausgabe in Form2 | 3.098 | Sloorg | 26.07.14 02:18 |
| 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 |
|
|
Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|