Flappy Square(Direct X)

    • VB.NET
    • .NET (FX) 3.0–3.5

      Flappy Square(Direct X)

      Flappy Square(Direct X)

      Ein einfach Testprojekt nach Mr.Flap (play.google.com/store/apps/details?id=com.mrflap).

      Screenshot:
      Spoiler anzeigen





      Quelltext:
      Spoiler anzeigen
      ​

      VB.NET-Quellcode

      1. ​
      2. Imports Microsoft.DirectX
      3. Imports Microsoft.DirectX.Direct3D
      4. Public Class Main
      5. Dim device As Device
      6. Dim pp As New PresentParameters
      7. Dim v(5) As CustomVertex.PositionNormalColored
      8. Dim x, y As Decimal
      9. Dim w As Decimal
      10. Public Sub New(ByVal Form As Form)
      11. 'DX Initialisiren
      12. Try
      13. Form.FormBorderStyle = Windows.Forms.FormBorderStyle.None
      14. Form.WindowState = FormWindowState.Maximized
      15. pp.Windowed = True
      16. pp.SwapEffect = SwapEffect.Discard
      17. device = New Device(0, DeviceType.Hardware, Form, CreateFlags.SoftwareVertexProcessing, pp)
      18. Catch ex As Exception
      19. MsgBox(ex.Message)
      20. End
      21. End Try
      22. Try
      23. 'Laden der Komponenten:
      25. 'Erstellen eines Queadrates
      26. v(0) = New CustomVertex.PositionNormalColored With {.X = -1, .Y = -1, .Z = 0, .Color = Color.White.ToArgb}
      27. v(1) = New CustomVertex.PositionNormalColored With {.X = 1, .Y = -1, .Z = 0, .Color = Color.White.ToArgb}
      28. v(2) = New CustomVertex.PositionNormalColored With {.X = -1, .Y = 1, .Z = 0, .Color = Color.White.ToArgb}
      29. v(3) = New CustomVertex.PositionNormalColored With {.X = 1, .Y = -1, .Z = 0, .Color = Color.White.ToArgb}
      30. v(4) = New CustomVertex.PositionNormalColored With {.X = 1, .Y = 1, .Z = 0, .Color = Color.White.ToArgb}
      31. v(5) = New CustomVertex.PositionNormalColored With {.X = -1, .Y = 1, .Z = 0, .Color = Color.White.ToArgb}
      33. x = 2
      34. device.RenderState.Lighting = False
      35. device.RenderState.CullMode = Cull.None
      36. Catch ex As Exception
      37. MsgBox(ex.Message)
      38. End Try
      39. End Sub
      40. Public Sub frame()
      41. device.Clear(ClearFlags.Target, Color.SkyBlue, 1, 0)
      42. device.BeginScene()
      43. 'Rendern
      44. device.Transform.Projection = Matrix.PerspectiveFovLH(Geometry.DegreeToRadian(45), pp.BackBufferWidth / pp.BackBufferHeight, 0.001, 5000)
      45. device.Transform.View = Matrix.LookAtLH(New Vector3(0, 0, -100), New Vector3(0, 0, 0), New Vector3(0, 1, 0))
      47. device.VertexFormat = CustomVertex.PositionNormalColored.Format
      49. 'Drehungs fortschritt
      50. w += 0.1
      51. If w = 10 Then
      52. w = 0
      53. End If
      55. 'Zeichnen und positioniren
      56. Dim px, py As Decimal
      57. Dim rot As Decimal = w / 100 * 360
      58. device.Transform.World = Matrix.Identity
      59. device.Transform.World *= Matrix.RotationZ(Geometry.DegreeToRadian(rot * -1))
      60. px = Math.Sin(Geometry.DegreeToRadian(rot)) * fx(w)
      61. py = Math.Cos(Geometry.DegreeToRadian(rot)) * fx(w)
      62. device.Transform.World *= Matrix.Translation(px, py, 0)
      63. device.DrawUserPrimitives(PrimitiveType.TriangleList, 2, v)
      65. 'Innenkreis
      66. For i = 0 To 360
      67. device.Transform.World = Matrix.Identity
      68. device.Transform.World *= Matrix.RotationZ(Geometry.DegreeToRadian(i))
      69. device.DrawUserPrimitives(PrimitiveType.TriangleList, 2, v)
      70. Next
      72. device.EndScene()
      73. device.Present()
      74. End Sub
      75. Public Sub click()
      76. y = fx(w) + 1
      77. x = w + 2
      78. End Sub
      79. Function fx(gx As Decimal)
      80. 'Quadratische Funktion für steig und fall mechanismus
      81. Dim erg As Decimal
      82. erg = -0.5 * ((gx - x) ^ 2) + y
      83. 'ausname fegen einsinken in den boden
      84. If erg < 2 Then
      85. erg = 2
      86. End If
      87. Return (erg)
      88. End Function
      89. End Class

      Spoiler anzeigen
      Bilder

      • flappy square.png

        9,16 kB, 1.920×1.080, 133 mal angesehen
      Dateien

      • flapy square.zip

        (81,06 kB, 109 mal heruntergeladen, zuletzt: )

    Facebook
    Telefonspende