Directx Vertice

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von BlackNetworkBit.

    Directx Vertice

    Hi leute ich habe ein kleines problem den ich mache grade meinen eigenen obj loader ich bin
    fast fertig mit dem laden der Vectoren aber ich kann sie nicht anzeigen lassen ...
    ich habe folgenden Code
    sorry wegen der formatierung editor ist grade weg :omg:


    VB.NET-Quellcode

    1. Public Class loader_obj
    2. Public Normal As Vector3()
    3. Public vertrexe As CustomVertex()
    4. Public texturevertext As VertexTextureCoordinate()
    5. Public test() As CustomVertex.PositionColored
    6. Public f_feld, v_feld, object_name, obj_file, mtl_name As String
    7. Public f_felder(9999), v_felder(9999) As String
    8. Public counter_f, counter_v As Integer
    9. Public Vertice(99999) As Vector3
    10. Public list_of(99999) As list_of_Vertice
    11. Public position As Vector3
    12. Public Function OBJ_Loader(ByVal file As String, ByVal pos As Vector3) As String
    13. position = pos
    14. Dim backloop As String = ""
    15. Try
    16. Split_to_Variablen(file)
    17. Dim tr(counter_v) As Vector3
    18. Vertice = tr
    19. For i = 1 To counter_v
    20. Dim ste() As String = v_felder(i).Split(" ")
    21. If position.Z > 0 Then
    22. Vertice(i) = New Vector3(Double.Parse(ste(1)), Double.Parse(ste(2)), Double.Parse(ste(3)) + position.Z)
    23. End If
    24. If position.Z < 0 Then
    25. Vertice(i) = New Vector3(Double.Parse(ste(1)), Double.Parse(ste(2)), Double.Parse(ste(3)) - position.Z)
    26. End If
    27. If position.X > 0 Then
    28. Vertice(i) = New Vector3(Double.Parse(ste(1)) + position.X, Double.Parse(ste(2)), Double.Parse(ste(3)))
    29. End If
    30. If position.X < 0 Then
    31. Vertice(i) = New Vector3(Double.Parse(ste(1)) - position.X, Double.Parse(ste(2)), Double.Parse(ste(3)))
    32. End If
    33. If position.Y > 0 Then
    34. Vertice(i) = New Vector3(Double.Parse(ste(1)), Double.Parse(ste(2)) + position.Y, Double.Parse(ste(3)))
    35. End If
    36. If position.Y < 0 Then
    37. Vertice(i) = New Vector3(Double.Parse(ste(1)), Double.Parse(ste(2)) - position.Y, Double.Parse(ste(3)))
    38. End If
    39. Next
    40. Dim vrt As Integer = 0
    41. For i = 0 To counter_f
    42. f_felder(i) = f_felder(i).Remove(0, 1)
    43. f_felder(i) = f_felder(i).Replace(" ", "_")
    44. Dim ste() As String = f_felder(i).Split("_")
    45. list_of(i) = New list_of_Vertice(Vertice(Integer.Parse(ste(0))), Vertice(Integer.Parse(ste(1))), Vertice(Integer.Parse(ste(2))), Vertice(Integer.Parse(ste(3))))
    46. Next
    47. test = New CustomVertex.PositionColored(0 To counter_f * counter_f) {}
    48. Dim loader As Integer = 0
    49. For z = 0 To counter_f
    50. For i = 0 To 3
    51. Try
    52. test(loader) = New CustomVertex.PositionColored
    53. test(loader).Position = list_of(z).vertice(i)
    54. test(loader).Color = Color.Silver.ToArgb
    55. loader += 1
    56. Catch ex As Exception
    57. MsgBox(loader & " " & counter_f * counter_f & vbNewLine & ex.ToString)
    58. End Try
    60. Next
    61. Next
    62. Catch ex As Exception
    63. MsgBox(ex.ToString)
    64. End Try
    65. Return backloop
    66. End Function 'achtung der name des objectes darf nicht "o" oder "v" in den namen haben
    67. Function Del_char_of_index(ByVal text As String, ByVal count As Integer, ByVal ch As Char) As String
    68. Dim backloop As String = ""
    69. Dim che() As Char = text
    70. If che(count) = ch Then
    71. backloop = Delect_char(text, count)
    72. Else
    73. backloop = text
    74. End If
    75. Return backloop
    76. End Function
    77. Function Split_to_Variablen(ByVal file As String) As String
    78. obj_file = file
    79. mtl_name = name_of_file(file)
    80. Dim backloop As String = ""
    81. Dim st As String = My.Computer.FileSystem.ReadAllText(file)
    82. st = st.Remove(0, 71)
    83. st = st.Replace(".", ",")
    84. object_name = To_next_char(st, "o", "v")
    85. st = st.Remove(0, To_next_char_count(st, "o", "v"))
    86. st &= ";"
    87. v_feld = st.Remove(Char_Position(st, "u"), To_next_char_count(st, "u", ";") + 1)
    88. st = st.Replace(";", "")
    89. f_feld = st.Remove(0, Char_Position(st, "f") + 3)
    90. v_felder = v_string_Split(v_feld)
    91. f_felder = f_string_Split(f_feld)
    92. Return backloop
    93. End Function
    94. Function v_string_Split(ByVal text As String) As String()
    95. Dim backloop(99999) As String
    96. Try
    97. Dim backloop1(99999) As String
    98. Dim counter As Integer = 0
    99. text = text.Replace("v", ":v")
    100. Dim ch() As Char = text
    101. For i = 0 To ch.Count - 1
    102. If ch(i) = ":" Then
    103. counter += 1
    104. End If
    105. Next
    106. text = Delect_char(text, 0)
    107. For i = 1 To counter
    108. 'MsgBox(i)
    109. If i = counter Then
    110. backloop1(i) = text
    111. backloop1(i) = backloop1(i).Replace(":v", "")
    112. Else
    113. backloop1(i) = To_next_char(text, "v", ":v")
    114. End If
    115. text = Delect_char(text, 0)
    116. text = text.Remove(0, Char_Position(text, ":"))
    117. Next
    118. counter_v = counter
    119. backloop = backloop1
    120. Catch ex As Exception
    121. MsgBox(ex.ToString)
    122. End Try
    123. Return backloop
    124. End Function
    125. Function f_string_Split(ByVal text As String) As String()
    126. Dim backloop(99999) As String
    127. Try
    128. Dim backloop1(99999) As String
    129. Dim counter As Integer = 0
    130. text = text.Replace("f", ":f")
    131. Dim ch() As Char = text
    132. For i = 0 To ch.Count - 1
    133. If ch(i) = ":" Then
    134. counter += 1
    135. End If
    136. Next
    137. text = Delect_char(text, 0)
    138. For i = 0 To counter - 1
    139. 'MsgBox(i)
    140. If i = counter - 1 Then
    141. backloop1(i) = text
    142. backloop1(i) = backloop1(i).Replace(":f", "")
    143. Else
    144. backloop1(i) = To_next_char(text, "f", ":f")
    145. End If
    146. text = Delect_char(text, 0)
    147. text = text.Remove(0, Char_Position(text, ":"))
    148. Next
    149. f_feld = f_feld.Replace("f", "")
    150. counter_f = counter - 1
    151. backloop = backloop1
    152. Catch ex As Exception
    153. MsgBox(ex.ToString)
    154. End Try
    155. Return backloop
    156. End Function
    157. Function Delect_char(ByVal text As String, ByVal count As Integer) As String
    158. Dim backloop As String = ""
    159. Dim l() As Char = text
    160. l(count) = ""
    161. backloop = l
    162. Return backloop
    163. End Function
    164. Function Char_Position(ByVal text As String, ByVal pos_char As Char) As Integer
    165. Dim backloop As Integer = 0
    166. Try
    167. Dim th() As Char = text
    168. For i = 0 To text.Length - 2
    169. If th(i) = pos_char Then
    170. backloop = i
    171. GoTo ent
    172. End If
    173. Next
    174. Catch ex As Exception
    175. MsgBox(ex.ToString & "2")
    176. End Try
    177. ent:
    178. Return backloop
    179. End Function
    180. Function To_next_char_count(ByVal text As String, ByVal start_char As Char, ByVal ende_char As Char) As Integer
    181. Dim backloop As Integer = 0
    182. Dim z() As Char = text
    183. For i = 0 To text.Length
    184. If z(i) = start_char Then
    185. For r = i To text.Length
    186. If z(r) = ende_char Then
    187. GoTo ent
    188. Else
    189. backloop += 1
    190. End If
    191. Next
    192. End If
    193. Next
    194. ent:
    195. Return backloop
    196. End Function
    197. Function To_next_char(ByVal text As String, ByVal start_char As Char, ByVal ende_char As Char) As String
    198. Dim backloop As String = ""
    199. Dim z() As Char = text
    200. Dim l As Byte = 0
    201. For i = 0 To text.Length
    202. If z(i) = start_char Then
    203. For r = i To text.Length
    204. If z(r) = ende_char Then
    205. GoTo ent
    206. Else
    207. If l = 0 Then
    208. l = 1
    209. Else
    210. backloop &= z(r)
    211. End If
    213. End If
    214. Next
    215. End If
    216. Next
    217. ent:
    218. Return backloop
    219. End Function
    220. Function name_of_file(ByVal file As String) As String
    221. Dim fr As Boolean = False
    222. Dim vt() As String = file.Split("\")
    223. Dim ch() As Char = vt(vt.Count - 1)
    224. Dim bg As String = ch
    225. Dim gr() As String = bg.Split(".")
    226. Dim lerz As String = ""
    227. Dim elee As Boolean = False
    228. Try
    229. lerz = gr(gr.Count - 2)
    230. Catch ex As Exception
    231. lerz = file
    232. End Try
    233. If elee = False Then
    234. If gr.Count > 2 Then
    235. lerz = ""
    236. For i = 0 To gr.Count - 2
    237. If i = gr.Count - 2 Then
    238. lerz &= gr(i)
    239. Else
    240. lerz &= gr(i) & "."
    241. End If
    242. Next
    243. End If
    244. End If
    245. Return lerz
    246. End Function
    247. Public Class list_of_Vertice
    248. Public vertice(3) As Vector3
    249. Public Sub New(ByVal v1 As Vector3, ByVal v2 As Vector3, ByVal v3 As Vector3, ByVal v4 As Vector3)
    250. vertice(0) = v1
    251. vertice(1) = v2
    252. vertice(2) = v3
    253. vertice(3) = v4
    254. End Sub
    255. End Class
    256. End Class


    ich kann sie nicht mit :

    VB.NET-Quellcode

    1. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, Obj_loader.test)


    anzeigen lassen was mache ich falsch ( ich habe alles richtig defieniert)#

    mfg blacknetworkbit

    Edit by ~blaze~:
    *vb-Tag eingefügtt, Thema aus Hauptforum verschoben*
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „~blaze~“ ()

    device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, Obj_loader.test)

    Interessant, du willst ein komplettes Objekt zeichnen, aber nur 1 Face...
    Wie wärs mit Vertice Count/3?! Vlt. guckst du das Objekt von hinten kann -> CullMode mal auf None...
    sicher, dass die Kamera außerdem richtig positioniert ist?!
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    kannst du mir ein code schnippsel zum nachdenken geben .
    ich glaube die kamera ist richtig gesetzt ...
    naja mal sehen danke für deine antwort
    mfg blacknetworkbit
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

Facebook
Telefonspende