Auto verschwindet, wieso?

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Feuerangriff.

    Auto verschwindet, wieso?

    Hey Leute,

    ich habe ein Programm gemacht, wo Autos auf einer Straße fahren und dann bei einer Ampel bei Rot halten und so und auch Anfahren (Beschleunigen etc.). Funktioniert auch alles super nur habe ich ein Problem:
    Ich habe dem Auto ein PNG Hintergrundbild gegeben, was auch an manchen Stellen transparent ist. Wenn ich jetzt die BackColor des Panels (= das Auto) ändere (so, dass dann an den transparenten Stellen die ausgewählte BackColor ist) dann sehe ich das Auto nicht mehr, egal was für eine Farbe ich nehme. Ich muss dann immer mit Strg+Z solange zurückmachen, bis das wieder so ist wie jetzt (BackColor=weiß). Selbst wenn ich die BackColor auf Weiß stelle (so wie es jetzt ist) dann sieht man das Auto auch nicht mehr.

    Ich habe in einem Textfeld immer die aktuelle Position stehen (also x und y). Wenn das Auto nicht mehr zu sehen ist, dann bewegt es sich aber. Also daran kann es nicht liegen.

    Hoffe ihr könnt mir helfen, wenn jemand mein Problem nicht verstanden hat, dann bitte schreiben.


    -------------------------------------------------------
    EDIT: Ich habe das Projekt mal hochgeladen, ihr könnt es euch hier runterladen:
    RapidShare: 1-CLICK Web hosting - Easy Filehosting

    Ok hier:

    Die Comments nach End Sub sind dazu da, das man sieht, was dadrüber alles gemacht wurde

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim iLeft As Integer
    3. Dim iRight As Integer
    6. '******Allgemeine Einstellungen******'
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. PkWLeft.Location = New Point(-PkWLeft.Size.Width, 190)
    10. PkWRight.Location = New Point(-PkWRight.Size.Width, PkWRight.Location.Y)
    11. iLeft = PkWLeft.Location.X
    12. iRight = PkWRight.Location.X
    14. End Sub ' Pkws für ersten Start positionieren und Variablen zuweisen
    16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    17. If PkWLeftTimer.Enabled = True Then
    18. PkWLeftTimer.Enabled = False
    19. Else
    20. PkWLeftTimer.Enabled = True
    21. End If
    22. End Sub ' Button Pkw Left programmieren
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    25. If AmpelLeftTimer.Enabled = True Then
    26. AmpelLeftTimer.Enabled = False
    28. ElseIf AmpelLeftTimer.Enabled = False Then
    29. AmpelLeftTimer.Enabled = True
    30. End If
    31. End Sub ' Button Ampel Left programmieren
    33. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    34. If PkWRightTimer.Enabled = True Then
    35. PkWRightTimer.Enabled = False
    36. Else
    37. PkWRightTimer.Enabled = True
    38. End If
    39. End Sub ' Button Pkw Right programmieren
    41. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    42. If AmpelRightTimer.Enabled = True Then
    43. AmpelRightTimer.Enabled = False
    45. Else
    46. AmpelRightTimer.Enabled = True
    47. End If
    48. End Sub ' Button Ampel Right porgrammieren
    55. '************Pkw1*************'
    57. Private Sub AmpelLeftTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AmpelLeftTimer.Tick
    58. If AmpelLeftFarbe.BackColor = Color.Red Then
    59. AmpelLeftFarbe.BackColor = Color.Green
    60. AmpelLeftTimer.Interval = 5000
    62. ElseIf AmpelLeftFarbe.BackColor = Color.Green Then
    63. AmpelLeftFarbe.BackColor = Color.Orange
    64. AmpelLeftTimer.Interval = 1000
    66. ElseIf AmpelLeftFarbe.BackColor = Color.Orange Then
    67. AmpelLeftFarbe.BackColor = Color.Red
    68. AmpelLeftTimer.Interval = 3000
    69. End If
    70. End Sub ' Ampeln programmieren
    72. Private Sub PkWLeftTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PkWLeftTimer.Tick
    73. PkWLeft.Location = New Point(iLeft, 190)
    74. iLeft += 1
    77. If PkWLeft.Location.X = Straße.Size.Width Then
    78. iLeft = -PkWLeft.Size.Width
    79. End If
    80. End Sub ' PkW Bewegen
    82. Private Sub ControlAmpelLeftTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlAmpelLeftTimer.Tick
    83. TextBox1.Text = PkWLeft.Location.X
    84. TextBox2.Text = PkWLeft.Location.Y
    86. If AmpelLeftFarbe.BackColor = Color.Red And PkWLeft.Location.X = AmpelLeftBackground.Location.X - 120 Then
    87. PkWLeftTimer.Enabled = False
    89. ElseIf AmpelLeftFarbe.BackColor = Color.Green And PkWLeft.Location.X = AmpelLeftBackground.Location.X - 120 Then
    90. PkWLeftTimer.Enabled = True
    91. End If
    92. End Sub ' Wenn Ampel Rot ist, dann halten
    94. Private Sub ControlPkWLeftTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlPkWLeftTimer.Tick
    95. If AmpelLeftFarbe.BackColor = Color.Red And PkWLeft.Location.X < AmpelLeftBackground.Location.X - 120 And PkWLeft.Location.X >= AmpelLeftBackground.Location.X - 150 And PkWLeftTimer.Interval < 1000 Then
    96. PkWLeftTimer.Interval += 10
    99. ElseIf PkWLeftTimer.Interval > 1 And PkWLeft.Location.X <> AmpelLeftBackground.Location.X - 120 Then
    100. PkWLeftTimer.Interval -= 10
    102. End If
    103. End Sub ' Bei rot langsamer werden und bei grün schneller werden
    111. '************PkW2************'
    113. Private Sub AmpelRightTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AmpelRightTimer.Tick
    114. If AmpelRightFarbe.BackColor = Color.Red Then
    115. AmpelRightFarbe.BackColor = Color.Green
    116. AmpelRightTimer.Interval = 5000
    118. ElseIf AmpelRightFarbe.BackColor = Color.Green Then
    119. AmpelRightFarbe.BackColor = Color.Orange
    120. AmpelRightTimer.Interval = 1000
    122. ElseIf AmpelRightFarbe.BackColor = Color.Orange Then
    123. AmpelRightFarbe.BackColor = Color.Red
    124. AmpelRightTimer.Interval = 3000
    125. End If
    126. End Sub ' Ampeln programmieren
    128. Private Sub PkWRightTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PkWRightTimer.Tick
    129. PkWRight.Location = New Point(iRight, PkWRight.Location.Y)
    130. iRight -= 1
    132. If PkWRight.Location.X = -PkWRight.Size.Width Then
    133. iRight = PkWRight.Size.Width + Straße.Size.Width
    134. End If
    135. End Sub ' PkW Bewegen
    137. Private Sub ControlAmpelRightTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlAmpelRightTimer.Tick
    138. TextBox4.Text = PkWRight.Location.X
    139. TextBox3.Text = PkWRight.Location.Y
    141. If AmpelRightFarbe.BackColor = Color.Red And PkWRight.Location.X = AmpelRightBackground.Location.X + 120 Then
    142. PkWRightTimer.Enabled = False
    144. ElseIf AmpelRightFarbe.BackColor = Color.Green And PkWRight.Location.X = AmpelRightBackground.Location.X + 120 Then
    145. PkWRightTimer.Enabled = True
    146. End If
    147. End Sub ' Wenn Ampel Rot ist, dann halten
    149. Private Sub ControlPkWRightTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlPkWRightTimer.Tick
    150. If AmpelRightFarbe.BackColor = Color.Red And PkWRight.Location.X > AmpelRightBackground.Location.X + 120 And PkWRight.Location.X <= AmpelRightBackground.Location.X + 150 Then
    151. PkWRightTimer.Interval += 10
    154. ElseIf PkWRightTimer.Interval > 1 And PkWRight.Location.X <> AmpelRightBackground.Location.X + 120 Then
    155. PkWRightTimer.Interval -= 10
    157. End If
    158. End Sub ' Bei rot langsamer werden und bei grün schneller werden
    159. End Class



    Aber ich würde dir raten, das projekt einfach herunterzuladen

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. If PkWLeftTimer.Enabled = True Then
    3. PkWLeftTimer.Enabled = False
    4. Else
    5. PkWLeftTimer.Enabled = True
    6. End If
    7. End Sub ' Button Pkw Left programmieren
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. If AmpelLeftTimer.Enabled = True Then
    11. AmpelLeftTimer.Enabled = False
    13. ElseIf AmpelLeftTimer.Enabled = False Then
    14. AmpelLeftTimer.Enabled = True
    15. End If
    16. End Sub ' Button Ampel Left programmieren
    18. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    19. If PkWRightTimer.Enabled = True Then
    20. PkWRightTimer.Enabled = False
    21. Else
    22. PkWRightTimer.Enabled = True
    23. End If
    24. End Sub ' Button Pkw Right programmieren
    26. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    27. If AmpelRightTimer.Enabled = True Then
    28. AmpelRightTimer.Enabled = False
    30. Else
    31. AmpelRightTimer.Enabled = True
    32. End If
    33. End Sub ' Button Ampel Right porgrammieren

    mach aus dem, bitte mal follgendes:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. PkWLeftTimer.Enabled = Not PkWLeftTimer.Enabled
    3. End Sub ' Button Pkw Left programmieren
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. AmpelLeftTimer.Enabled = Not AmpelLeftTimer.Enabled
    7. End Sub ' Button Ampel Left programmieren
    9. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    10. PkWRightTimer.Enabled = Not PkWRightTimer.Enabled
    11. End Sub ' Button Pkw Right programmieren
    13. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    14. AmpelRightTimer.Enabled = Not AmpelRightTimer.Enabled
    15. End Sub ' Button Ampel Right porgrammieren
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    danke, aber das hilft mir bei mienem problem auch net weiter


    ------------------------------------------------------------
    EDIT: Ich habs jetzt iwie geschafft das rechte Auto transparent zu machen, aber das linke geht immer noch net, das verschwindet dann immer

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Feuerangriff“ ()

Facebook