Problem mit While-schleife

  • VB6

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Major.

    Problem mit While-schleife

    Hi@all:

    Ich habe folgendes Problem.
    Ich hab ne Anwendung in der alle 60 sekunden in einem Label die Caption geändert wird.
    Nun will ich aber überprüfen welcher Monat drinsteht als Caption und dementsprechend ein Bild in ein Imagefeld laden.
    Doch ich habe mit der While-schleife so meine Probleme jedesmal wenn der nächste Monat kommt, hängt sich das Programm auf.
    Hie rmal de Source:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim monate As Integer
    3. Dim mond As Integer
    5. Private Sub cmd_ende_Click()
    6. End
    7. End Sub
    11. Private Sub timer_monat_Timer()
    12. timer_monat.Interval = 1000
    13. monate = monate + 1
    16. If monate = 5 Then
    17. Select Case lbl_monat.Caption
    18. Case "Jänner": lbl_monat.Caption = "Februar"
    19. Case "Februar": lbl_monat.Caption = "März"
    20. Case "März": lbl_monat.Caption = "April"
    21. Case "April": lbl_monat.Caption = "Mai"
    22. Case "Mai": lbl_monat.Caption = "Juni"
    23. Case "Juni": lbl_monat.Caption = "Juli"
    24. Case "Juli": lbl_monat.Caption = "August"
    25. Case "August": lbl_monat.Caption = "September"
    26. Case "September": lbl_monat.Caption = "Oktober"
    27. Case "Oktober": lbl_monat.Caption = "November"
    28. Case "Dezember": lbl_monat.Caption = "Dezember"
    29. End Select
    30. monate = 0
    31. End If
    32. While monate < 5
    33. If lbl_monat.Caption = "Jänner" Then
    34. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    35. If lbl_monat.Caption = "Februar" Then
    36. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    37. If lbl_monat.Caption = "März" Then
    38. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    39. If lbl_monat.Caption = "April" Then
    40. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    41. If lbl_monat.Caption = "Mai" Then
    42. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    43. If lbl_monat.Caption = "Juni" Then
    44. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    45. If lbl_monat.Caption = "juli" Then
    46. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    47. If lbl_monat.Caption = "August" Then
    48. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    49. If lbl_monat.Caption = "September" Then
    50. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    51. If lbl_monat.Caption = "Oktober" Then
    52. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    53. If lbl_monat.Caption = "November" Then
    54. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    55. If lbl_monat.Caption = "Dezember" Then
    56. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    57. End If
    58. End If
    59. End If
    60. End If
    61. End If
    62. End If
    63. End If
    64. End If
    65. End If
    66. End If
    67. End If
    68. End If
    69. Wend
    70. End Sub


    Was stimmt bei der Schleife nicht?

    Ich hoffe ihr könnt mir helfen.

    ähm, damit monate 5 WERDEN, musst du sie erstmal vergrößern

    Visual Basic-Quellcode

    1. monate = monate + 1


    da du es nicht tust komm er nichtmal aus While raus, denke ich mal ;)

    EDIT//Ersetze mal

    Visual Basic-Quellcode

    1. While monate < 5
    durch

    Visual Basic-Quellcode

    1. If monate < 5 Then


    mal gucken, was rauskommt ;)

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

    Original von Nikolai
    ähm, damit monate 5 WERDEN, musst du sie erstmal vergrößern

    Visual Basic-Quellcode

    1. monate = monate + 1


    da du es nicht tust komm er nichtmal aus While raus, denke ich mal ;)


    öhm..das tu ich doch
    ?(

    SO jez bricht er nicht ab oder hängt sich auf, aber ide bilder werden nicht geladen.

    RE: Problem mit While-schleife

    Original von Major

    Visual Basic-Quellcode

    1. While monate < 5
    2. If lbl_monat.Caption = "Jänner" Then
    3. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    4. If lbl_monat.Caption = "Februar" Then
    5. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    6. If lbl_monat.Caption = "März" Then
    7. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    8. If lbl_monat.Caption = "April" Then
    9. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    10. If lbl_monat.Caption = "Mai" Then
    11. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    12. If lbl_monat.Caption = "Juni" Then
    13. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    14. If lbl_monat.Caption = "juli" Then
    15. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    16. If lbl_monat.Caption = "August" Then
    17. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    18. If lbl_monat.Caption = "September" Then
    19. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    20. If lbl_monat.Caption = "Oktober" Then
    21. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    22. If lbl_monat.Caption = "November" Then
    23. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    24. If lbl_monat.Caption = "Dezember" Then
    25. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    26. End If
    27. End If
    28. End If
    29. End If
    30. End If
    31. End If
    32. End If
    33. End If
    34. End If
    35. End If
    36. End If
    37. End If
    38. Wend


    guck mal, z.B. monate ist gleich 0

    dann geht er in die schleife rein

    und macht solange monate kleiner als 0 sind

    und monate werden IN DER SCHLEIFE nicht verändert, das heißt er läuft endlos!!!

    Hallo,
    Ok ich hab den Code mal getestet. bei mir hat es sich gleich beim Start aufgehängt. Das Problem ist dein While denke ich. Das While ist ja im Timer selbst drin. Versuch es mal ohne das. Bau notfalls dafür noch einen 2. Timer ein. Während While läuft kann die Anwendung nicht aktualisiert werden. Das heißt, auch der Timer bleibt stehen.

    Versuch es mal so:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim monate As Integer
    3. Dim mond As Integer
    5. Private Sub cmd_ende_Click()
    6. End
    7. End Sub
    11. Private Sub timer_monat_Timer()
    12. timer_monat.Interval = 1000
    13. monate = monate + 1
    16. If monate = 5 Then
    17. Select Case lbl_monat.Caption
    18. Case "Jänner": lbl_monat.Caption = "Februar"
    19. Case "Februar": lbl_monat.Caption = "März"
    20. Case "März": lbl_monat.Caption = "April"
    21. Case "April": lbl_monat.Caption = "Mai"
    22. Case "Mai": lbl_monat.Caption = "Juni"
    23. Case "Juni": lbl_monat.Caption = "Juli"
    24. Case "Juli": lbl_monat.Caption = "August"
    25. Case "August": lbl_monat.Caption = "September"
    26. Case "September": lbl_monat.Caption = "Oktober"
    27. Case "Oktober": lbl_monat.Caption = "November"
    28. Case "Dezember": lbl_monat.Caption = "Dezember"
    29. End Select
    30. monate = 0
    31. End If
    32. if monate < 5 Then
    33. If lbl_monat.Caption = "Jänner" Then
    34. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    35. If lbl_monat.Caption = "Februar" Then
    36. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    37. If lbl_monat.Caption = "März" Then
    38. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    39. If lbl_monat.Caption = "April" Then
    40. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    41. If lbl_monat.Caption = "Mai" Then
    42. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    43. If lbl_monat.Caption = "Juni" Then
    44. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    45. If lbl_monat.Caption = "juli" Then
    46. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    47. If lbl_monat.Caption = "August" Then
    48. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    49. If lbl_monat.Caption = "September" Then
    50. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    51. If lbl_monat.Caption = "Oktober" Then
    52. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    53. If lbl_monat.Caption = "November" Then
    54. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    55. If lbl_monat.Caption = "Dezember" Then
    56. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    57. End If
    58. End If
    59. End If
    60. End If
    61. End If
    62. End If
    63. End If
    64. End If
    65. End If
    66. End If
    67. End If
    68. End If
    69. End If
    70. End Sub


    Gruß
    ~blaze~

    Das kann auch nicht gehen, wenn lbl_monat.Caption = "Jänner" ist, kann es nicht auch gleichzeitig "Februar" sein, du darfst die If-Anweisungen also nicht verschachtelt, sondern mit elseif oder jeder if für sich.
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Den meinem und dem Agent Tipps zu folge...

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim monate As Integer
    3. Dim mond As Integer
    5. Private Sub cmd_ende_Click()
    6. End
    7. End Sub
    11. Private Sub timer_monat_Timer()
    12. timer_monat.Interval = 1000
    13. monate = monate + 1
    16. If monate = 5 Then
    17. Select Case lbl_monat.Caption
    18. Case "Jänner": lbl_monat.Caption = "Februar"
    19. Case "Februar": lbl_monat.Caption = "März"
    20. Case "März": lbl_monat.Caption = "April"
    21. Case "April": lbl_monat.Caption = "Mai"
    22. Case "Mai": lbl_monat.Caption = "Juni"
    23. Case "Juni": lbl_monat.Caption = "Juli"
    24. Case "Juli": lbl_monat.Caption = "August"
    25. Case "August": lbl_monat.Caption = "September"
    26. Case "September": lbl_monat.Caption = "Oktober"
    27. Case "Oktober": lbl_monat.Caption = "November"
    28. Case "Dezember": lbl_monat.Caption = "Dezember"
    29. End Select
    30. monate = 0
    31. End If
    32. If monate < 5 Then
    33. If lbl_monat.Caption = "Jänner" Then
    34. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    35. ElseIf lbl_monat.Caption = "Februar" Then
    36. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    37. ElseIf lbl_monat.Caption = "März" Then
    38. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    39. ElseIf lbl_monat.Caption = "April" Then
    40. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    41. ElseIf lbl_monat.Caption = "Mai" Then
    42. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    43. ElseIf lbl_monat.Caption = "Juni" Then
    44. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    45. ElseIf lbl_monat.Caption = "juli" Then
    46. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    47. ElseIf lbl_monat.Caption = "August" Then
    48. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    49. ElseIf lbl_monat.Caption = "September" Then
    50. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    51. ElseIf lbl_monat.Caption = "Oktober" Then
    52. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    53. ElseIf lbl_monat.Caption = "November" Then
    54. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    55. ElseIf lbl_monat.Caption = "Dezember" Then
    56. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    57. End If
    58. End If
    59. End Sub

    oder benutzte am besten die Select Case Funktion ^^

    Also:

    Visual Basic-Quellcode

    1. Select Case lbl_monat.Caption
    3. Case "Jänner"
    4. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    6. Case "Februar"
    7. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    9. Case "März"
    10. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    12. Case "April"
    13. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    15. Case "Mai"
    16. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\CLOUD.ICO")
    17. Case "Juni"
    19. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    21. Case "Juli"
    22. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    24. Case "August"
    25. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SUN.ICO")
    27. Case "September"
    28. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    30. Case "Oktover"
    31. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    33. Case "November"
    34. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\RAIN.ICO")
    36. Case "Dezember"
    37. img_wetter.Picture = LoadPicture("C:\Dokumente und Einstellungen\Max@Home\Eigene Dateien\Programmieren\VB\TEst\Icons\SNOW.ICO")
    39. End Select


    Vielleicht kannst du auch noch z.B. statt Case "Jänner" und Case "Dezember" Case "Jänner" And "Dezember" einsetzen. Da weiß ich allerdings nicht ob es funktioniert ^^

    Gruß
    ~blaze~

Facebook
Telefonspende