Lebenszeitrechner macht mich verrückt

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von Cicero.

    Lebenszeitrechner macht mich verrückt

    Also hallo erstma :)


    Wir sollen in der Schule in Info was in VB programmiern und ich habe mich für einen Lebenszeitrechner entschieden, d.h. man gibt sein Geburtsdatum ein und er rechnet aus wie lang man schon lebt in Sekunden, Minuten, etc.

    Ich wöllte ihm jetzt mit If´s klar machen das Tage >1 und <31 und Monate <1 und >12 sein müssen! Ich wollte das dann so machen, dass wenn die Zahlen größer sind, der Boolean-Wert "prüf" auf false springt und nichts berechnet wird.

    Nur irgendwie klappt das nicht und er berechnet keine Eingaben mehr.


    Wenn ich die Beschränkungen auskommentiere, rechnet er zwar, setzt aber danach in alle Felder eine Null. Was mach ich falsch?

    In dem Zusammenhang habe ich noch 2 weitere Fragen:

    1.Ganz unten hab ich noch ne Checkbox, die die Felder Stunde und Minute und ihre Labels unsichtbar macht. Wie kann ich das wieder rückgangig machen, wenn man den Haken rausnimmt?

    2.Kann man i-wie ne Datenbank anlegen, damit das Programm beim Rechnen Schaltjahre und verschieden lange Monate berücksichtigt? Im Moment ist ein Monat 30 Tage und ein Jahr 365 Tage!



    Danke schonmal,

    Source Code kommt hier:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Ergebnis As Double 'Ergebnisvariable wird definiert
    3. Dim tage As Double 'Variable "tage" wird definiert
    4. Dim monat As Double 'Variable "monat" wird definiert
    5. Dim jahr As Double 'Variable "jahr" wird definiert
    6. Dim sekunde As Double 'Variable "sekunde" wird definiert
    7. Dim minute As Double 'Variable "minute" wird definiert
    8. Dim stunde As Double 'Variable "stunde" wird definiert
    9. Dim jahrdiff As Double 'Variable der Differenz aus der Eingabe "jahre" und dem aktuellen Datum wird definiert
    10. Dim monatdiff As Double 'Variable der Differenz aus der Eingabe "monat" und dem aktuellen Datum wird definiert
    11. Dim tagesdiff As Double 'Variable der Differenz aus der Eingabe "tage" und dem aktuellen Datum wird definiert
    12. Dim stundendiff As Double 'Variable der Differenz aus der Eingabe "stunden" und dem aktuellen Datum wird definiert
    13. Dim minutendiff As Double 'Variable der Differenz aus der Eingabe "minuten" und dem aktuellen Datum wird definiert
    14. Dim sekundendiff As Double 'Variable der Differenz aus der Eingabe "sekunden" und dem aktuellen Datum wird definiert
    15. Dim rechnen As New Process
    16. Dim prüf As Boolean
    17. Dim fail As Process
    20. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    21. Timer1.Start() 'Timer wird gestartet
    22. prüf = True
    23. End Sub
    25. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    27. If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
    28. prüf = False
    29. End If
    31. If prüf = False Then
    32. GoTo fail
    33. End If
    35. TextBox1.Text = tage 'Variablen bekommen Wert zugewiesen
    36. TextBox2.Text = monat
    37. TextBox3.Text = jahr
    38. TextBox5.Text = stunde
    39. TextBox6.Text = minute
    41. prüf = tage > 1
    42. prüf = tage < 31
    43. prüf = monat > 1
    44. prüf = monat < 12
    45. prüf = jahr < Format(Now, "yyyy")
    47. If prüf = False Then
    48. GoTo fail
    49. End If
    51. If prüf = True Then
    52. GoTo rechnen
    53. End If
    55. rechnen: If ComboBox1.Text = "Monat/e" Then 'Combobox wird auf Eintrag überprüft und Berechnung startet
    56. jahrdiff = (Format(Now, "yyyy") - jahr) 'Differenzen werden gebildet
    57. monatdiff = (Format(Now, "MM") - monat)
    58. Ergebnis = (jahrdiff * 12) + (monatdiff) ' Berechnung des Ergebnisses
    59. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)" ' Ergebnis wird in Textbox dargestellt, die eingeblendet wird
    60. TextBox4.Visible = True
    61. End If
    63. If ComboBox1.Text = "Tag/e" Then
    64. tage = TextBox1.Text
    65. monat = TextBox2.Text
    66. jahr = TextBox3.Text
    67. jahrdiff = (Format(Now, "yyyy") - jahr)
    68. monatdiff = (Format(Now, "MM") - monat)
    69. tagesdiff = (Format(Now, "dd") - tage)
    70. Ergebnis = (jahrdiff * 365) + (monatdiff * 30) + (tagesdiff)
    71. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    72. TextBox4.Visible = True
    73. End If
    75. If ComboBox1.Text = "Stunde/n" Then
    76. tage = TextBox1.Text
    77. monat = TextBox2.Text
    78. jahr = TextBox3.Text
    79. stunde = TextBox5.Text
    80. jahrdiff = (Format(Now, "yyyy") - jahr)
    81. monatdiff = (Format(Now, "MM") - monat)
    82. tagesdiff = (Format(Now, "dd") - tage)
    83. stundendiff = (Format(Now, "HH") - stunde)
    84. Ergebnis = ((jahrdiff * 8760) + (monatdiff * 720) + (tagesdiff * 24)) + (stundendiff)
    85. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    86. TextBox4.Visible = True
    87. End If
    89. If ComboBox1.Text = "Minute/n" Then
    90. tage = TextBox1.Text
    91. monat = TextBox2.Text
    92. jahr = TextBox3.Text
    93. stunde = TextBox5.Text
    94. minute = TextBox6.Text
    95. jahrdiff = (Format(Now, "yyyy") - jahr)
    96. monatdiff = (Format(Now, "MM") - monat)
    97. tagesdiff = (Format(Now, "dd") - tage)
    98. stundendiff = (Format(Now, "HH") - stunde)
    99. minutendiff = (Format(Now, "mm") - minute)
    100. Ergebnis = ((jahrdiff * 525600) + (monatdiff * 43200) + (tagesdiff * 1440) + (stundendiff * 60)) + (minutendiff)
    101. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    102. TextBox4.Visible = True
    103. End If
    105. If ComboBox1.Text = "Sekunden" Then
    106. Timer2.Start()
    107. End If
    109. fail: If prüf = False Then
    110. MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    111. End If
    113. End Sub
    115. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    116. Label6.Text = TimeOfDay ' Uhrzeit wird angezeigt
    117. Label7.Text = Format(Now, ("dd.MM.yyyy")) ' Datum wird angezeigt
    118. End Sub
    120. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    121. TextBox4.Visible = False 'Textbox wird verdeckt
    122. Timer2.Stop()
    123. End Sub
    125. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    126. TextBox4.Visible = False 'Textbox wird verdeckt
    127. Timer2.Stop()
    128. End Sub
    130. Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
    131. TextBox4.Visible = False 'Textbox wird verdeckt
    132. Timer2.Stop()
    133. End Sub
    135. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    136. Me.Hide() 'Hauptfenster wird versteckt
    137. AboutBox1.Show() 'About-Fenster wird gezeigt
    138. End Sub
    140. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    141. tage = TextBox1.Text
    142. monat = TextBox2.Text
    143. jahr = TextBox3.Text
    144. jahrdiff = (Format(Now, "yyyy") - jahr)
    145. monatdiff = (Format(Now, "MM") - monat)
    146. tagesdiff = (Format(Now, "dd") - tage)
    147. stundendiff = (Format(Now, "HH") - stunde)
    148. minutendiff = (Format(Now, "mm") - minute)
    149. sekundendiff = (Format(Now, "ss"))
    150. Ergebnis = (jahrdiff * 31536000) + (monatdiff * 2592000) + (tagesdiff * 86400) + (stundendiff * 360) + (minutendiff * 60) + sekundendiff
    151. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    152. TextBox4.Visible = True
    153. End Sub
    155. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    156. If CheckBox1.Enabled = True Then
    157. TextBox5.Visible = False
    158. TextBox6.Visible = False
    159. Label8.Visible = False
    160. Label9.Visible = False
    161. End If
    163. End Sub
    164. End Class
    [

    Außerdem ist dein Codestil nicht gerade wunderschön.
    GoTos sollte man überhaupt ganz weglassen und es wäre auch nicht schlecht für die Übersicht, wenn du deine Controls benennen würdest.
    Natürlich sind das nur Tipps und nichts Verpflichtendes, jedoch wirst du mit deinem Codestil bei größeren Projekten, falls es soweit kommen sollte, und anderen Leuten nicht gerade auf Begeisterung stoßen.

    haiyyu schrieb:

    Außerdem ist dein Codestil nicht gerade wunderschön.
    GoTos sollte man überhaupt ganz weglassen und es wäre auch nicht schlecht für die Übersicht, wenn du deine Controls benennen würdest.
    Natürlich sind das nur Tipps und nichts Verpflichtendes, jedoch wirst du mit deinem Codestil bei größeren Projekten, falls es soweit kommen sollte, und anderen Leuten nicht gerade auf Begeisterung stoßen.


    Danke schonmal für die Tipps! Bin noch nich solang dabei, wir machen das wie gesagt in der Schule. Was meinst du mit Controls benennen?

    Kann jmd. vllt ein Beispiel posten, wie man ausdrückt, dass etwas berechnet wird, wenn der Inhalt einer Textbox größer als 1 und kleiner als 31 ist?

    VB.NET-Quellcode

    1. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    2. Dim flag As Boolean = Not CheckBox1.Enabled
    3. TextBox5.Visible = flag
    4. TextBox6.Visible = flag
    5. Label8.Visible = flag
    6. Label9.Visible = flag
    7. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    VB.NET-Quellcode

    1. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    2. Dim flag As Boolean = Not CheckBox1.Enabled
    3. TextBox5.Visible = flag
    4. TextBox6.Visible = flag
    5. Label8.Visible = flag
    6. Label9.Visible = flag
    7. End Sub



    Das war für die Checkbox, oder was? Thx!

    Der Code sieht mittlerweile so aus:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Ergebnis As Double 'Ergebnisvariable wird definiert
    3. Dim tage As Double 'Variable "tage" wird definiert
    4. Dim monat As Double 'Variable "monat" wird definiert
    5. Dim jahr As Double 'Variable "jahr" wird definiert
    6. Dim sekunde As Double 'Variable "sekunde" wird definiert
    7. Dim minute As Double 'Variable "minute" wird definiert
    8. Dim stunde As Double 'Variable "stunde" wird definiert
    9. Dim jahrdiff As Double 'Variable der Differenz aus der Eingabe "jahre" und dem aktuellen Datum wird definiert
    10. Dim monatdiff As Double 'Variable der Differenz aus der Eingabe "monat" und dem aktuellen Datum wird definiert
    11. Dim tagesdiff As Double 'Variable der Differenz aus der Eingabe "tage" und dem aktuellen Datum wird definiert
    12. Dim stundendiff As Double 'Variable der Differenz aus der Eingabe "stunden" und dem aktuellen Datum wird definiert
    13. Dim minutendiff As Double 'Variable der Differenz aus der Eingabe "minuten" und dem aktuellen Datum wird definiert
    14. Dim sekundendiff As Double 'Variable der Differenz aus der Eingabe "sekunden" und dem aktuellen Datum wird definiert
    15. Dim prüf As Boolean
    18. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. Timer1.Start() 'Timer wird gestartet
    20. prüf = True
    21. CheckBox1.Checked = True
    22. End Sub
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    26. If ComboBox2.Text = "" Or ComboBox3.Text = "" Or MaskedTextBox1.Text = "" Then
    27. prüf = False
    28. End If
    30. If prüf = False Then
    31. MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    32. End If
    34. If prüf = True Then
    36. tage = ComboBox2.Text 'Variablen bekommen Wert zugewiesen
    37. monat = ComboBox3.Text
    38. jahr = MaskedTextBox1.Text
    40. If CheckBox1.Checked = True Then
    41. stunde = ComboBox4.Text
    42. minute = ComboBox5.Text
    43. End If
    45. If ComboBox1.Text = "Monat/e" Then 'Combobox wird auf Eintrag überprüft und Berechnung startet
    46. jahrdiff = (Format(Now, "yyyy") - jahr) 'Differenzen werden gebildet
    47. monatdiff = (Format(Now, "MM") - monat)
    48. Ergebnis = (jahrdiff * 12) + (monatdiff) ' Berechnung des Ergebnisses
    49. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)" ' Ergebnis wird in Textbox dargestellt, die eingeblendet wird
    50. TextBox4.Visible = True
    51. End If
    53. If ComboBox1.Text = "Tag/e" Then
    54. jahrdiff = (Format(Now, "yyyy") - jahr)
    55. monatdiff = (Format(Now, "MM") - monat)
    56. tagesdiff = (Format(Now, "dd") - tage)
    57. Ergebnis = (jahrdiff * 365) + (monatdiff * 30) + (tagesdiff)
    58. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    59. TextBox4.Visible = True
    60. End If
    62. If ComboBox1.Text = "Stunde/n" Then
    63. jahrdiff = (Format(Now, "yyyy") - jahr)
    64. monatdiff = (Format(Now, "MM") - monat)
    65. tagesdiff = (Format(Now, "dd") - tage)
    66. stundendiff = (Format(Now, "HH") - stunde)
    67. Ergebnis = ((jahrdiff * 8760) + (monatdiff * 720) + (tagesdiff * 24)) + (stundendiff)
    68. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    69. TextBox4.Visible = True
    70. End If
    72. If ComboBox1.Text = "Minute/n" Then
    73. jahrdiff = (Format(Now, "yyyy") - jahr)
    74. monatdiff = (Format(Now, "MM") - monat)
    75. tagesdiff = (Format(Now, "dd") - tage)
    76. stundendiff = (Format(Now, "HH") - stunde)
    77. minutendiff = (Format(Now, "mm") - minute)
    78. Ergebnis = ((jahrdiff * 525600) + (monatdiff * 43200) + (tagesdiff * 1440) + (stundendiff * 60)) + (minutendiff)
    79. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    80. TextBox4.Visible = True
    81. End If
    83. If ComboBox1.Text = "Sekunden" Then
    84. Timer2.Start()
    85. End If
    86. End If
    88. End Sub
    90. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    91. Label6.Text = TimeOfDay ' Uhrzeit wird angezeigt
    92. Label7.Text = Format(Now, ("dd.MM.yyyy")) ' Datum wird angezeigt
    93. End Sub
    95. Private Sub combobox2_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
    96. TextBox4.Visible = False 'Textbox wird verdeckt
    97. Timer2.Stop()
    98. End Sub
    100. Private Sub combobox3_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
    101. TextBox4.Visible = False 'Textbox wird verdeckt
    102. Timer2.Stop()
    103. End Sub
    105. Private Sub maskedtextbox4_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
    106. TextBox4.Visible = False 'Textbox wird verdeckt
    107. Timer2.Stop()
    108. End Sub
    109. Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
    110. TextBox4.Visible = False 'Textbox wird verdeckt
    111. Timer2.Stop()
    112. End Sub
    114. Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
    115. TextBox4.Visible = False 'Textbox wird verdeckt
    116. Timer2.Stop()
    117. End Sub
    119. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    120. Me.Hide() 'Hauptfenster wird versteckt
    121. AboutBox1.Show() 'About-Fenster wird gezeigt
    122. End Sub
    124. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    125. jahrdiff = (Format(Now, "yyyy") - jahr)
    126. monatdiff = (Format(Now, "MM") - monat)
    127. tagesdiff = (Format(Now, "dd") - tage)
    128. stundendiff = (Format(Now, "HH") - stunde)
    129. minutendiff = (Format(Now, "mm") - minute)
    130. sekundendiff = (Format(Now, "ss"))
    131. Ergebnis = (jahrdiff * 31536000) + (monatdiff * 2592000) + (tagesdiff * 86400) + (stundendiff * 360) + (minutendiff * 60) + sekundendiff
    132. TextBox4.Text = "Sie leben bereits " & Ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    133. TextBox4.Visible = True
    134. End Sub
    136. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    137. If CheckBox1.Checked = False Then
    138. ComboBox4.Visible = False
    139. ComboBox5.Visible = False
    140. Label8.Visible = False
    141. Label9.Visible = False
    142. End If
    144. If CheckBox1.Checked = True Then
    145. ComboBox4.Visible = True
    146. ComboBox5.Visible = True
    147. Label8.Visible = True
    148. Label9.Visible = True
    149. End If
    151. End Sub
    153. End Class


    Aber er rechnet schon wieder nich! "prüf" is immer falsch, egal was ich eingebe! Gibts nen anderen Weg?

    Danke!!! Du hast mir den Tag gerettet! PERFEKT!

    EDIT:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim bday As Date
    3. Dim akt As Date
    4. Dim ergebnis As Double
    5. Dim prüf As Boolean 'Prüfvariable wird definiert
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Timer1.Start() 'Timer wird gestartet
    10. prüf = True
    11. CheckBox1.Checked = False
    12. ComboBox4.Visible = False
    13. ComboBox5.Visible = False
    14. Label8.Visible = False
    15. Label9.Visible = False
    16. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. Timer2.Stop()
    21. If ComboBox2.Text = "" Or ComboBox3.Text = "" Or MaskedTextBox1.Text = "" Then
    22. prüf = False
    23. End If
    25. If prüf = False Then
    26. MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    27. ElseIf prüf = True Then
    29. bday = ComboBox2.Text & "." & ComboBox3.Text & "." & MaskedTextBox1.Text
    30. akt = Date.Now
    32. If ComboBox1.Text = "Sekunden" Then
    33. Timer2.Start()
    34. End If
    36. If ComboBox1.Text = "Minute/n" Then
    37. ergebnis = DateDiff(DateInterval.Minute, bday, akt)
    38. TextBox4.Text = ergebnis
    39. End If
    41. If ComboBox1.Text = "Stunde/n" Then
    42. ergebnis = DateDiff(DateInterval.Hour, bday, akt)
    43. TextBox4.Text = ergebnis
    44. End If
    45. If ComboBox1.Text = "Tag/e" Then
    46. ergebnis = DateDiff(DateInterval.Day, bday, akt)
    47. TextBox4.Text = ergebnis
    48. End If
    50. If ComboBox2.Text = "Kalenderwoche/n" Then
    51. ergebnis = DateDiff(DateInterval.WeekOfYear, bday, akt)
    52. TextBox4.Text = ergebnis
    53. End If
    55. If ComboBox1.Text = "Monate/n" Then
    56. ergebnis = DateDiff(DateInterval.Month, bday, akt)
    57. TextBox4.Text = ergebnis
    58. End If
    60. End If
    62. End Sub
    64. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    65. Label6.Text = TimeOfDay ' Uhrzeit wird angezeigt
    66. Label7.Text = Format(Now, ("dd.MM.yyyy")) ' Datum wird angezeigt
    67. End Sub
    69. Private Sub combobox2_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
    70. TextBox4.Visible = False 'Textbox wird verdeckt
    71. Timer2.Stop()
    72. End Sub
    74. Private Sub combobox3_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
    75. TextBox4.Visible = False 'Textbox wird verdeckt
    76. Timer2.Stop()
    77. End Sub
    79. Private Sub maskedtextbox4_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
    80. TextBox4.Visible = False 'Textbox wird verdeckt
    81. Timer2.Stop()
    82. End Sub
    83. Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
    84. TextBox4.Visible = False 'Textbox wird verdeckt
    85. Timer2.Stop()
    86. End Sub
    88. Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
    89. TextBox4.Visible = False 'Textbox wird verdeckt
    90. Timer2.Stop()
    91. End Sub
    93. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    94. Me.Hide() 'Hauptfenster wird versteckt
    95. AboutBox1.Show() 'About-Fenster wird gezeigt
    96. End Sub
    98. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    99. ergebnis = DateDiff(DateInterval.Second, bday, akt)
    100. TextBox4.Text = ergebnis
    101. End Sub
    103. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    104. If CheckBox1.Checked = False Then
    105. ComboBox4.Visible = False
    106. ComboBox5.Visible = False
    107. Label8.Visible = False
    108. Label9.Visible = False
    109. End If
    111. If CheckBox1.Checked = True Then
    112. ComboBox4.Visible = True
    113. ComboBox5.Visible = True
    114. Label8.Visible = True
    115. Label9.Visible = True
    116. End If
    118. End Sub
    120. End Class


    So sieht er aus! Aber er will schon wieder nicht rechnen!


    Kann mal jmd. nach nem Fehler kucken ("prüf" bleibt false obwohl die Bedingungen erfüllt sind) oder mir ne Alternative zu dem Boolean-Verfahren sagen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Cicero“ ()

    VB.NET-Quellcode

    1. If ComboBox2.Text = "" Or ComboBox3.Text = "" Or MaskedTextBox1.Text = "" Then
    2. prüf = False
    3. Else
    4. prüf = True
    5. End If



    so würde ich sagen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dp2k“ ()

    dp2k schrieb:

    VB.NET-Quellcode

    1. If ComboBox2.Text = "" Or ComboBox3.Text = "" Or MaskedTextBox1.Text = "" Then
    2. check = False
    3. Else
    4. check = True
    5. End If



    so würde ich sagen


    Klappt! Hier der Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim bday As Date
    3. Dim akt As Date
    4. Dim ergebnis As Double
    5. Dim check As Boolean = True 'Prüfvariable wird definiert
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Timer1.Start() 'Timer wird gestartet
    10. check = True
    11. CheckBox1.Checked = False
    12. ComboBox4.Visible = False
    13. ComboBox5.Visible = False
    14. Label8.Visible = False
    15. Label9.Visible = False
    16. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    20. If ComboBox2.Text = "" Or ComboBox3.Text = "" Or MaskedTextBox1.Text = "" Then
    21. check = False
    22. Else
    23. check = True
    24. End If
    26. If check = False Then
    27. MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    28. ElseIf check = True Then
    29. bday = ComboBox2.Text & "." & ComboBox3.Text & "." & MaskedTextBox1.Text
    30. akt = Date.Now
    32. If ComboBox1.Text = "Minute/n" Then
    33. ergebnis = DateDiff(DateInterval.Minute, bday, akt)
    34. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    35. End If
    37. If ComboBox1.Text = "Stunde/n" Then
    38. ergebnis = DateDiff(DateInterval.Hour, bday, akt)
    39. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    40. End If
    42. If ComboBox1.Text = "Tag/e" Then
    43. ergebnis = DateDiff(DateInterval.Day, bday, akt)
    44. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    45. End If
    47. If ComboBox2.Text = "Woche/n" Then
    48. ergebnis = DateDiff(DateInterval.WeekOfYear, bday, akt)
    49. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    50. End If
    52. If ComboBox1.Text = "Monat/e" Then
    53. ergebnis = DateDiff(DateInterval.Month, bday, akt)
    54. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    55. End If
    57. If ComboBox1.Text = "Sekunden" Then
    58. Timer2.Start()
    59. End If
    61. End If
    63. End Sub
    65. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    66. Label7.Text = Format(Now, ("dd.MM.yyyy HH:mm:ss")) ' Datum und Uhrzeit werden angezeigt
    67. End Sub
    69. Private Sub combobox1_mouseclick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    70. Timer2.Stop()
    71. TextBox4.Text = ""
    72. End Sub
    74. Private Sub combobox2_mouseclick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    75. Timer2.Stop()
    76. TextBox4.Text = ""
    77. End Sub
    79. Private Sub combobox3_mouseclick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    80. Timer2.Stop()
    81. TextBox4.Text = ""
    82. End Sub
    83. Private Sub ComboBox4_mouseclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
    84. Timer2.Stop()
    85. TextBox4.Text = ""
    86. End Sub
    88. Private Sub ComboBox5_mouseclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
    89. Timer2.Stop()
    90. TextBox4.Text = ""
    91. End Sub
    93. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    94. Me.Hide() 'Hauptfenster wird versteckt
    95. AboutBox1.Show() 'About-Fenster wird gezeigt
    96. End Sub
    98. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    99. ergebnis = DateDiff(DateInterval.Second, bday, akt)
    100. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    101. End Sub
    103. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    104. If CheckBox1.Checked = False Then
    105. ComboBox4.Visible = False
    106. ComboBox5.Visible = False
    107. Label8.Visible = False
    108. Label9.Visible = False
    109. End If
    111. If CheckBox1.Checked = True Then
    112. ComboBox4.Visible = True
    113. ComboBox5.Visible = True
    114. Label8.Visible = True
    115. Label9.Visible = True
    116. End If
    118. End Sub
    119. End Class


    Jetzt muss noch folgendes passieren:

    1. Wenn ich irgendeine Box anklicke muss der Timer stoppen und das Feld geleert werden! Das passiert jetzt noch nicht!
    2. Ich bräuchte jetzt nochmal Hilfe bei den Einschränkungen:
    Tag größer als 1 und kleiner als 31
    Monat größer als 1 und kleiner 12 (kann man das i-wie in den Boxen einstellen?wenn nein, bitte Code-Hilfe oder Code)
    Jahr nicht größer als das aktuelle
    Stunde größer als 0 und kleiner als 24
    Minute größer als 0 und kleiner als 60

    Danke schonmal!

    zu punkt 1.

    da fehlen die handles. (copy&Paste?)
    sollte so aussehen

    VB.NET-Quellcode

    1. Private Sub ComboBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    3. End Sub


    punkt 2.

    VB.NET-Quellcode

    1. if Tag < 1 and > 31 then
    3. end if

    Immer noch ein paar Probleme:

    1. Der Timer läuft nicht und die Box wird nicht geupdatet
    2. Wenn eine Zahl 0 oder <1 ist, gehts trotzdem weiter mit, ebenso wenn Monat UND Tag über dem Maximum liegen!

    Hat denn keiner ne Idee?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim bday As Date
    3. Dim akt As Date
    4. Dim ergebnis As Double
    5. Dim check As Boolean = True 'Prüfvariable wird definiert
    6. Dim tage As Integer
    7. Dim monat As Integer
    8. Dim jahr As Integer
    9. Dim stunde As Integer
    10. Dim minute As Integer
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. Timer1.Start() 'Timer wird gestartet
    16. check = True
    17. CheckBox1.Checked = False
    18. ComboBox4.Visible = False
    19. ComboBox5.Visible = False
    20. Label8.Visible = False
    21. Label9.Visible = False
    22. End Sub
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    26. If ComboBox2.Text = "" Or ComboBox3.Text = "" Or MaskedTextBox1.Text = "" Then
    27. check = False
    28. Else
    29. check = True
    30. End If
    32. If check = False Then
    33. MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    34. End If
    36. tage = ComboBox2.Text
    37. monat = ComboBox3.Text
    38. jahr = MaskedTextBox1.Text
    39. If CheckBox1.Checked = True Then
    40. stunde = ComboBox4.Text
    41. minute = ComboBox5.Text
    42. End If
    44. If check = True Then
    46. If tage < 31 And tage > 1 & monat < 12 And monat > 1 Then
    48. bday = ComboBox2.Text & "." & ComboBox3.Text & "." & MaskedTextBox1.Text
    49. akt = Date.Now
    51. If ComboBox1.Text = "Minute/n" Then
    52. ergebnis = DateDiff(DateInterval.Minute, bday, akt)
    53. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    54. End If
    56. If ComboBox1.Text = "Stunde/n" Then
    57. ergebnis = DateDiff(DateInterval.Hour, bday, akt)
    58. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    59. End If
    61. If ComboBox1.Text = "Tag/e" Then
    62. ergebnis = DateDiff(DateInterval.Day, bday, akt)
    63. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    64. End If
    66. If ComboBox1.Text = "Sekunden" Then
    67. Timer2.Start()
    68. End If
    69. Else : MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    70. End If
    71. End If
    72. End Sub
    74. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    75. Label7.Text = Format(Now, ("dd.MM.yyyy HH:mm:ss")) ' Datum und Uhrzeit werden angezeigt
    76. End Sub
    78. Private Sub combobox1_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    79. Timer2.Stop()
    80. TextBox4.Text = ""
    81. End Sub
    82. Private Sub combobox2_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    83. Timer2.Stop()
    84. TextBox4.Text = ""
    85. End Sub
    87. Private Sub combobox3_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    88. Timer2.Stop()
    89. TextBox4.Text = ""
    90. End Sub
    91. Private Sub ComboBox4_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    92. Timer2.Stop()
    93. TextBox4.Text = ""
    94. End Sub
    96. Private Sub ComboBox5_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    97. Timer2.Stop()
    98. TextBox4.Text = ""
    99. End Sub
    101. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    102. Me.Hide() 'Hauptfenster wird versteckt
    103. AboutBox1.Show() 'About-Fenster wird gezeigt
    104. End Sub
    106. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    107. ergebnis = DateDiff(DateInterval.Second, bday, akt)
    108. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    109. End Sub
    111. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    112. If CheckBox1.Checked = False Then
    113. ComboBox4.Visible = False
    114. ComboBox5.Visible = False
    115. Label8.Visible = False
    116. Label9.Visible = False
    117. End If
    119. If CheckBox1.Checked = True Then
    120. ComboBox4.Visible = True
    121. ComboBox5.Visible = True
    122. Label8.Visible = True
    123. Label9.Visible = True
    124. End If
    126. End Sub
    127. End Class

    Vitox schrieb:

    des mit den Einschränkungen geht, indem du einfach eein NumericUpDown nimmsch, dem du im FormLoad Event das zugehörige Maximum und Minimum zuordnesch

    gruß Vitox

    Das sieht schonmal gut aus! Danke!

    Kannst du mal nach dem Timer schauen?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim bday As Date
    3. Dim akt As Date
    4. Dim ergebnis As Double
    5. Dim check As Boolean = True 'Prüfvariable wird definiert
    6. Dim tage As Integer
    7. Dim monat As Integer
    8. Dim jahr As Integer
    9. Dim stunde As Integer
    10. Dim minute As Integer
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. check = True
    16. CheckBox1.Checked = False
    17. NumericUpDown4.Visible = False
    18. NumericUpDown5.Visible = False
    19. Label8.Visible = False
    20. Label9.Visible = False
    21. NumericUpDown1.Maximum = 31
    22. NumericUpDown1.Minimum = 1
    24. End Sub
    26. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    28. If NumericUpDown1.Text = "" Or NumericUpDown2.Text = "" Or NumericUpDown3.Text = "" Then
    29. check = False
    30. Else
    31. check = True
    32. End If
    34. If check = False Then
    35. MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    36. End If
    38. tage = NumericUpDown1.Text
    39. monat = NumericUpDown2.Text
    40. jahr = NumericUpDown3.Text
    41. If CheckBox1.Checked = True Then
    42. stunde = NumericUpDown4.Text
    43. minute = NumericUpDown5.Text
    44. End If
    46. If check = True Then
    48. bday = NumericUpDown1.Text & "." & NumericUpDown2.Text & "." & NumericUpDown3.Text
    49. akt = Date.Now
    51. If ComboBox1.Text = "Minute/n" Then
    52. ergebnis = DateDiff(DateInterval.Minute, bday, akt)
    53. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    54. End If
    56. If ComboBox1.Text = "Stunde/n" Then
    57. ergebnis = DateDiff(DateInterval.Hour, bday, akt)
    58. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    59. End If
    61. If ComboBox1.Text = "Tag/e" Then
    62. ergebnis = DateDiff(DateInterval.Day, bday, akt)
    63. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    64. End If
    66. If ComboBox1.Text = "Sekunden" Then
    67. Timer2.Start()
    68. End If
    69. Else : MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    70. End If
    71. End Sub
    73. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    74. Label7.Text = Format(Now, ("dd.MM.yyyy HH:mm:ss")) ' Datum und Uhrzeit werden angezeigt
    75. End Sub
    77. Private Sub combobox1_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    78. Timer2.Stop()
    79. TextBox4.Text = ""
    80. End Sub
    81. Private Sub combobox2_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    82. Timer2.Stop()
    83. TextBox4.Text = ""
    84. End Sub
    86. Private Sub combobox3_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    87. Timer2.Stop()
    88. TextBox4.Text = ""
    89. End Sub
    90. Private Sub ComboBox4_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    91. Timer2.Stop()
    92. TextBox4.Text = ""
    93. End Sub
    95. Private Sub ComboBox5_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    96. Timer2.Stop()
    97. TextBox4.Text = ""
    98. End Sub
    100. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    101. Me.Hide() 'Hauptfenster wird versteckt
    102. AboutBox1.Show() 'About-Fenster wird gezeigt
    103. End Sub
    105. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    106. ergebnis = DateDiff(DateInterval.Second, bday, akt)
    107. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    108. End Sub
    110. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    111. If CheckBox1.Checked = False Then
    112. NumericUpDown4.Visible = False
    113. NumericUpDown5.Visible = False
    114. Label8.Visible = False
    115. Label9.Visible = False
    116. End If
    118. If CheckBox1.Checked = True Then
    119. NumericUpDown4.Visible = True
    120. NumericUpDown5.Visible = True
    121. Label8.Visible = True
    122. Label9.Visible = True
    123. End If
    125. End Sub
    127. Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
    128. Me.Show()
    129. End Sub
    130. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Cicero“ ()

    Kann bitte nochmal jemand schauen, warum die Textbox4 nicht vom Timer 2 geupdated wird?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim bday As Date
    3. Dim akt As Date
    4. Dim ergebnis As Double
    5. Dim check As Boolean = True 'Prüfvariable wird definiert
    6. Dim tage As Integer
    7. Dim monat As Integer
    8. Dim jahr As Integer
    9. Dim stunde As Integer
    10. Dim minute As Integer
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. check = True
    16. CheckBox1.Checked = False
    17. NumericUpDown4.Visible = False
    18. NumericUpDown5.Visible = False
    19. Label8.Visible = False
    20. Label9.Visible = False
    22. NumericUpDown1.Minimum = 1
    23. NumericUpDown1.Maximum = 31
    24. NumericUpDown2.Minimum = 1
    25. NumericUpDown2.Maximum = 12
    26. NumericUpDown3.Minimum = 1901
    27. NumericUpDown3.Maximum = Format(Now, "yyyy")
    28. NumericUpDown4.Minimum = 0
    29. NumericUpDown4.Maximum = 23
    30. NumericUpDown5.Minimum = 0
    31. NumericUpDown5.Maximum = 59
    33. End Sub
    35. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. If NumericUpDown1.Text = "" Or NumericUpDown2.Text = "" Or NumericUpDown3.Text = "" Then
    38. check = False
    39. Else
    40. check = True
    41. End If
    43. If check = False Then
    44. MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    45. End If
    47. tage = NumericUpDown1.Text
    48. monat = NumericUpDown2.Text
    49. jahr = NumericUpDown3.Text
    50. If CheckBox1.Checked = True Then
    51. stunde = NumericUpDown4.Text
    52. minute = NumericUpDown5.Text
    53. End If
    55. If check = True Then
    57. bday = NumericUpDown1.Text & "." & NumericUpDown2.Text & "." & NumericUpDown3.Text & " " & NumericUpDown4.TextAlign & ":" & NumericUpDown5.Text
    58. akt = Date.Now
    60. If ComboBox1.Text = "Minute/n" Then
    61. ergebnis = DateDiff(DateInterval.Minute, bday, akt)
    62. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    63. End If
    65. If ComboBox1.Text = "Stunde/n" Then
    66. ergebnis = DateDiff(DateInterval.Hour, bday, akt)
    67. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    68. End If
    70. If ComboBox1.Text = "Tag/e" Then
    71. ergebnis = DateDiff(DateInterval.Day, bday, akt)
    72. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    73. End If
    75. If ComboBox1.Text = "Monat/e" Then
    76. ergebnis = DateDiff(DateInterval.WeekOfYear, bday, akt)
    77. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    78. End If
    80. If ComboBox1.Text = "Sekunden" Then
    81. Timer2.Start()
    82. End If
    83. Else : MsgBox("Es konnte keine Berechnung gestartet werden!Überprüfen sie ihre Eingaben!", MsgBoxStyle.Critical, "Failure")
    84. End If
    85. End Sub
    87. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    88. Label7.Text = Format(Now, ("dd.MM.yyyy HH:mm:ss")) ' Datum und Uhrzeit werden angezeigt
    89. End Sub
    91. Private Sub combobox1_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    92. Timer2.Stop()
    93. TextBox4.Text = ""
    94. End Sub
    95. Private Sub combobox2_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    96. Timer2.Stop()
    97. TextBox4.Text = ""
    98. End Sub
    100. Private Sub combobox3_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    101. Timer2.Stop()
    102. TextBox4.Text = ""
    103. End Sub
    104. Private Sub ComboBox4_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    105. Timer2.Stop()
    106. TextBox4.Text = ""
    107. End Sub
    109. Private Sub ComboBox5_mouseclick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseClick
    110. Timer2.Stop()
    111. TextBox4.Text = ""
    112. End Sub
    114. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    115. Me.Hide() 'Hauptfenster wird versteckt
    116. AboutBox1.Show() 'About-Fenster wird gezeigt
    117. End Sub
    119. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    120. ergebnis = DateDiff(DateInterval.Second, bday, akt)
    121. TextBox4.Text = "Sie leben bereits " & ergebnis & " " & ComboBox1.Text & "! Herzlichen Glückwunsch :)"
    122. End Sub
    124. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    125. If CheckBox1.Checked = False Then
    126. NumericUpDown4.Visible = False
    127. NumericUpDown5.Visible = False
    128. Label8.Visible = False
    129. Label9.Visible = False
    130. End If
    132. If CheckBox1.Checked = True Then
    133. NumericUpDown4.Visible = True
    134. NumericUpDown5.Visible = True
    135. Label8.Visible = True
    136. Label9.Visible = True
    137. End If
    139. End Sub
    141. Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
    142. Me.Show()
    143. End Sub
    144. End Class