Ein 2D-Karten-Renderer?

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von PhoenixBlaster.

    @Quadsoft:: Selbst wenn Du ihm diesen Code in VB.NET vorsetzt, guckt er wie ein ..... (von der Zensur gestrichen). :D
    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!

    Dafür brauchst Du einen C#-VB-Translator.
    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!

    Hier mal eine Schritt-für-Schritt-Anleitung für dich:
    1. Öffne die Landscape2D.cs mit dem Editor
    2. Kopiere den Inhalt
    3. Füge ihn hier ein: developerfusion.com/tools/convert/csharp-to-vb/
    4. Drücke auf Convert to VB.NET
    Dann kriegst du den VB-Code angezeigt und kannst ihn in ein neues Projekt kopieren.

    @PhoenixBlaster:: Dies hier ist Dein Thread. Du bist hier der Ober-Moderator.
    Wir beantworten Fragen und machen Vorschläge.
    Die Arbeit aber musst Du selbst machen.
    Wenn Du hier nicht bald die Initiative ergreifst, wirst Du bei einigen Mitgliedern wohl auf der Ignore-Liste landen.
    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!

    Okay hab jetzt den C# Code aus Landscape2D.cs in VB konvertiert und habe das bekommen:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Linq
    3. Imports System.Text
    4. Imports System.Threading.Tasks
    5. Imports System.Drawing
    7. Class Landscape2D
    8. Public Shared Function GetLandscape(width As Integer, height As Integer) As Bitmap
    9. Dim bmp As New Bitmap(64, 64)
    11. Dim a As Double(,) = CalculateLandscape(2.5, 64 \ 7, 64)
    13. For i As Integer = 0 To 63
    14. For j As Integer = 0 To 63
    15. bmp.SetPixel(i, j, Mix(Color.Blue, Color.Green, CSng(Math.Abs(a(i, j) / 10))))
    16. Next
    17. Next
    19. Return bmp
    20. End Function
    22. Private Shared Function Mix(from As Color, [to] As Color, percent As Single) As Color
    24. If percent > 1 Then
    25. percent = 1
    26. End If
    27. Dim amountFrom As Single = 1.0F - percent
    29. Return Color.FromArgb(CInt(Math.Truncate(from.A * amountFrom + [to].A * percent)), CInt(Math.Truncate(from.R * amountFrom + [to].R * percent)), CInt(Math.Truncate(from.G * amountFrom + [to].G * percent)), CInt(Math.Truncate(from.B * amountFrom + [to].B * percent)))
    31. End Function
    34. Private Shared Function CalculateLandscape(dimension As Double, scaleFactor As Double, width As Integer) As Double(,)
    36. Dim a As Double(,) = New Double(width, width) {}
    38. Dim rand As New Random()
    40. ' Startkofinguration
    41. a(0, 0) = 1
    42. a(0, width) = 1
    43. a(width, 0) = 1
    44. a(width, width) = 1
    46. Dim divisionStage As Integer = 1
    47. Dim maxDivisionStage As Integer = width \ 2
    48. Dim x As Integer, y As Integer
    50. While divisionStage <= maxDivisionStage
    52. ' Mittelpunkte
    53. x = 0
    54. While x < width
    55. y = 0
    56. While y < width
    57. a(x + (width \ (2 * divisionStage)), y + (width \ (2 * divisionStage))) = a(x, y) + a(x, y + (width \ divisionStage)) + a(x + (width \ divisionStage), y) + a(x + (width \ divisionStage), y + (width \ divisionStage))
    58. a(x + (width \ (2 * divisionStage)), y + (width \ (2 * divisionStage))) /= 4
    59. If divisionStage > maxDivisionStage Then
    60. a(x + (width \ (2 * divisionStage)), y + (width \ (2 * divisionStage))) += (GetGauss(rand) * scaleFactor)
    61. End If
    62. y += width \ divisionStage
    63. End While
    64. x += width \ divisionStage
    65. End While
    69. scaleFactor *= Math.Pow(0.5, 3 - dimension)
    71. ' Seitenpunkte
    72. x = 0
    73. While x <= width
    74. y = 0
    75. While y <= width
    76. If x = y OrElse a(x, y) <> 0 Then
    77. Continue While
    78. End If
    80. If y = 0 Then
    81. a(x, y) = a(x - width \ (2 * divisionStage), y) + a(x + width \ (2 * divisionStage), y) + a(x, y + width \ (2 * divisionStage))
    82. a(x, y) /= 3
    83. a(x, y) += (GetGauss(rand) * scaleFactor)
    84. ElseIf y = width Then
    85. a(x, y) = a(x - width \ (2 * divisionStage), y) + a(x + width \ (2 * divisionStage), y) + a(x, y - width \ (2 * divisionStage))
    86. a(x, y) /= 3
    87. a(x, y) += (GetGauss(rand) * scaleFactor)
    88. ElseIf x = 0 Then
    89. a(x, y) = a(x, y - width \ (2 * divisionStage)) + a(x, y + width \ (2 * divisionStage)) + a(x + width \ (2 * divisionStage), y)
    90. a(x, y) /= 3
    91. a(x, y) += (GetGauss(rand) * scaleFactor)
    92. ElseIf x = width Then
    93. a(x, y) = a(x, y - width \ (2 * divisionStage)) + a(x, y + width \ (2 * divisionStage)) + a(x - width \ (2 * divisionStage), y)
    94. a(x, y) /= 3
    95. a(x, y) += (GetGauss(rand) * scaleFactor)
    96. Else
    97. a(x, y) = a(x, y - width \ (2 * divisionStage)) + a(x, y + width \ (2 * divisionStage)) + a(x - width \ (2 * divisionStage), y) + a(x + width \ (2 * divisionStage), y)
    98. a(x, y) /= 4
    99. a(x, y) += (GetGauss(rand) * scaleFactor)
    101. End If
    102. y += width \ (2 * divisionStage)
    103. End While
    104. x += width \ (2 * divisionStage)
    105. End While
    108. scaleFactor *= Math.Pow(0.5, 3 - dimension)
    111. divisionStage *= 2
    112. End While
    115. Return a
    116. End Function
    117. Private Shared Function GetGauss(rand As Random) As Double
    118. Dim res As Double = Math.Cos(2 * Math.PI * rand.NextDouble()) * Math.Sqrt(-2 * Math.Log(rand.NextDouble()))
    120. If rand.[Next](-1, 1) < 0 Then
    121. res *= -1
    122. End If
    123. Return res
    124. End Function
    127. End Class



    Könnt ihr mir vielleicht auch ein Anwendungsbeispiel geben. Zum Beispiel mit Button und Picturebox.

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