Das Bild - Das Spiel

    • VB.NET

    Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von TheMaxik.

      Das Bild - Das Spiel

      Wenn ich mal mit meinem Kumpel am PC sitze und kurz mal wohin muss, und der die Finger nicht vom PC lassen kann, hab ich ein Programm parat. Ziel ist es, auf das Bild zu klicken. Aber es ist(nahezu) unmöglich. Jedes mal wenn die Maus über das Bild geht, erscheint es woanders. So beschäftigt man heutzutage.

      Hier der Code:

      VB.NET-Quellcode

      1. Public Class Form1
      3. Dim Zahl As IntegerPrivate Sub Pic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic.MouseDown
      4. Dim B As New RandomDim C As Integer = B.Next(1, 1400)
      5. Dim D As New RandomDim F As Integer = B.Next(1, 500)
      6. Pic.Top = F
      7. Pic.Left = C
      8. End SubPrivate Sub Pic_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.MouseEnter
      9. Dim B As New RandomDim C As Integer = B.Next(1, 1400)
      10. Dim D As New RandomDim F As Integer = B.Next(1, 500)
      11. Pic.Top = F
      12. Pic.Left = C
      13. End Sub
      14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      15. Pic.Width = 100
      16. Pic.Height = 100
      17. End SubPrivate Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.Click
      18. End SubPrivate Sub Pic_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic.MouseHover
      19. Dim B As New RandomDim C As Integer = B.Next(1, 1400)
      20. Dim D As New RandomDim F As Integer = B.Next(1, 500)
      21. Pic.Top = F
      22. Pic.Left = CEnd Sub
      23. End Class




      Das Bild (hier als Resource verwendet) muss natürlich erstetzt werden, und die Bildschirmposotionen des Bildes (As Random) ans Bildschirmformat angepasst. Ich hab das gesamte Projekt angehängt.







      Das Projekt steht auf meiner Download-Website http://visual-basic.npage.de zu verfügung.

      poa formatier deinen code ma richtig :D


      Formatierter Code:


      VB.NET-Quellcode

      1. Public Class Form1
      3. Dim Zahl As Integer
      4. Private Sub Pic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic.MouseDown
      5. Dim B As New Random
      6. Dim C As Integer = B.Next(1, 1400)
      7. Dim D As New Random
      8. Dim F As Integer = B.Next(1, 500)
      9. Pic.Top = F
      10. Pic.Left = C
      11. End Sub
      12. Private Sub Pic_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.MouseEnter
      13. Dim B As New Random
      14. Dim C As Integer = B.Next(1, 1400)
      15. Dim D As New Random
      16. Dim F As Integer = B.Next(1, 500)
      17. Pic.Top = F
      18. Pic.Left = C
      19. End Sub
      20. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      21. Pic.Width = 100
      22. Pic.Height = 100
      23. End Sub
      24. Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.Click
      25. End Sub
      26. Private Sub Pic_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic.MouseHover
      27. Dim B As New Random
      28. Dim C As Integer = B.Next(1, 1400)
      29. Dim D As New Random
      30. Dim F As Integer = B.Next(1, 500)
      31. Pic.Top = F
      32. Pic.Left = C
      33. End Sub
      34. End Class
      "I think Microsoft has abused the Windows brand so much that it has lost its cachet."
      Paul Thurrott

      mottzi schrieb:

      poa formatier deinen code ma richtig :D


      Formatierter Code


      poa formatier deinen code ma richtig :D


      noch mehr formatierter Code:

      VB.NET-Quellcode

      1. Public Class Form1
      3. Dim Zahl As Integer
      5. Private Sub Pic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic.MouseDown
      6. Dim B As New Random
      7. Dim C As Integer = B.Next(1, 1400)
      8. Dim D As New Random
      9. Dim F As Integer = D.Next(1, 500) 'Ursprüngliches B durch D ersetzt
      10. Pic.Top = F
      11. Pic.Left = C
      12. End Sub
      14. Private Sub Pic_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.MouseEnter
      15. Dim B As New Random
      16. Dim C As Integer = B.Next(1, 1400)
      17. Dim D As New Random
      18. Dim F As Integer = B.Next(1, 500)
      19. Pic.Top = F
      20. Pic.Left = C
      21. End Sub
      23. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      24. Pic.Width = 100
      25. Pic.Height = 100
      26. End Sub
      28. Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.Click
      29. 'Leere Prozedur?
      30. End Sub
      32. Private Sub Pic_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic.MouseHover
      33. Dim B As New Random
      34. Dim C As Integer = B.Next(1, 1400)
      35. Dim D As New Random
      36. Dim F As Integer = D.Next(1, 500) 'Ursprüngliches B durch D ersetzt
      37. Pic.Top = F
      38. Pic.Left = C
      39. End Sub
      40. End Class


      Nee scherz, besser wäre das:

      VB.NET-Quellcode

      1. Public Class Form1
      3. 'Integer 'zahl' wegen nichtverwendung entfernt
      5. Private Sub Pic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic.MouseDown
      6. MovePictureBox(pic)
      7. End Sub
      9. Private Sub Pic_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.MouseEnter
      10. MovePictureBox(pic)
      11. End Sub
      13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      14. Pic.Width = 100
      15. Pic.Height = 100
      16. End Sub
      18. Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic.Click
      19. MovePictureBox(pic)
      20. End Sub
      22. Private Sub Pic_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic.MouseHover
      23. MovePictureBox(pic)
      24. End Sub
      26. Private Sub MovePictureBox(pbx as Picturebox)
      27. Dim B As New Random
      28. Dim C As Integer = B.Next(1, 1400)
      29. Dim D As New Random
      30. Dim F As Integer = D.Next(1, 500) 'Ursprüngliches B durch D ersetzt
      31. pbx.Top = F
      32. pbx.Left = C
      33. End Sub
      35. End Class


      das kann eewig so weiter gehen ;D
      Von meinem iPhone gesendet

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

      Was kramst du denn für alte Themen hervor? :D

      VB.NET-Quellcode

      1. Private Sub MovePictureBox(pbx as Picturebox)
      2. Dim B As New Random
      3. Dim C As Integer = B.Next(1, 1400)
      4. Dim D As New Random
      5. Dim F As Integer = D.Next(1, 500) 'Ursprüngliches B durch D ersetzt
      6. pbx.Top = F
      7. pbx.Left = C
      8. End Sub
      Könnte es nicht passieren, dass die pb außerhalb der Form "landen" könnte?