Function zu Function

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Function zu Function

    Hi Leute ! ich habe ein Text game erstellt aber komme einfach nicht weiter, ich will, dass ein neuer Text abgespielt wird nachdem ich auf den Button geklickt habe!

    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form6
    3. Dim intro_i As Integer = 0
    4. Dim intro_array As Char()
    5. Dim Text1_i As Integer = 0
    6. Dim Text1_array As Char()
    8. Dim intro_ii As String = 0
    9. Dim Intro_arrayy As Char()
    10. Dim Text2_i As Integer = 0
    11. Dim Text2_array As Char()
    15. Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. Form4.Close()
    17. Form3.Close()
    18. Label6.Show()
    19. Label7.Show()
    20. Label2.Show()
    21. Label3.Show()
    23. Dim Name As String = SplashScreen1.dein_Name
    25. Speech("Ahh, du bist wach " & Name & "!" & vbCrLf &
    26. "Du hast ganz schön komische Geräusche gemacht, beim Schlafen!", 10)
    28. End Sub
    30. Private Sub Cmdd_a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdd_a.Click
    31. Dim Textnr As Integer
    33. If Textnr = 0 Then
    34. Label1.Text = ""
    35. cmdd_a.Enabled = False
    36. cmdd_b.Enabled = False
    37. cmdd_c.Enabled = False
    38. cmdd_d.Enabled = False
    39. cmdd_a.Text = "..."
    40. cmdd_b.Text = "..."
    41. cmdd_c.Text = "..."
    42. cmdd_d.Text = "..."
    43. Speech2("Das war bestimmt Arion! er ist nett, du wirst ihn früh genug noch kennen Lernen ;)", 10)
    44. Textnr = 1
    45. If Textnr = 1 Then
    46. End If
    48. ElseIf Textnr = 1 Then
    49. Label1.Text = ""
    50. cmdd_a.Enabled = False
    51. cmdd_b.Enabled = False
    52. cmdd_c.Enabled = False
    53. cmdd_d.Enabled = False
    54. cmdd_a.Text = "..."
    55. cmdd_b.Text = "..."
    56. cmdd_c.Text = "..."
    57. cmdd_d.Text = "..."
    58. Speech3("Das ist schön! ;) willst du etwas zu essen haben?", 10)
    59. Textnr = 2
    60. End If
    62. End Sub
    64. Private Sub Cmdd_b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdd_b.Click
    65. Dim Textnr As Integer
    67. If Textnr = 0 Then
    68. Label1.Text = ""
    69. cmdd_a.Enabled = False
    70. cmdd_b.Enabled = False
    71. cmdd_c.Enabled = False
    72. cmdd_d.Enabled = False
    73. cmdd_a.Text = "..."
    74. cmdd_b.Text = "..."
    75. cmdd_c.Text = "..."
    76. cmdd_d.Text = "..."
    77. Speech2("Ach nichts wichtiges! was war den Los ? du hattest ertwas von einer Person geredet?", 10)
    78. Textnr = 1
    80. ElseIf Textnr = 1 Then
    81. Label1.Text = ""
    82. cmdd_a.Enabled = False
    83. cmdd_b.Enabled = False
    84. cmdd_c.Enabled = False
    85. cmdd_d.Enabled = False
    86. cmdd_a.Text = "..."
    87. cmdd_b.Text = "..."
    88. cmdd_c.Text = "..."
    89. cmdd_d.Text = "..."
    90. Speech3("Das war bestimmt Arion! er ist nett, du wirst ihn früh genug noch kennen Lernen ;)", 10)
    91. Textnr = 2
    92. End If
    94. End Sub
    96. Private Sub Cmdd_c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdd_c.Click
    97. Dim Textnr As Integer
    99. If Textnr = 0 Then
    100. Label1.Text = ""
    101. cmdd_a.Enabled = False
    102. cmdd_b.Enabled = False
    103. cmdd_c.Enabled = False
    104. cmdd_d.Enabled = False
    105. cmdd_a.Text = "..."
    106. cmdd_b.Text = "..."
    107. cmdd_c.Text = "..."
    108. cmdd_d.Text = "..."
    109. Speech2("Ahh okay! aber du hattest etwas von einer Person geredet! welche Person ?", 10)
    110. Textnr = 1
    112. ElseIf Textnr = 1 Then
    113. Label1.Text = ""
    114. cmdd_a.Enabled = False
    115. cmdd_b.Enabled = False
    116. cmdd_c.Enabled = False
    117. cmdd_d.Enabled = False
    118. cmdd_a.Text = "..."
    119. cmdd_b.Text = "..."
    120. cmdd_c.Text = "..."
    121. cmdd_d.Text = "..."
    122. Speech3("Das war bestimmt Arion! er ist nett, du wirst ihn früh genug noch kennen Lernen ;)", 10)
    123. Textnr = 2
    124. End If
    126. End Sub
    128. Private Sub Intro_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles intro_1.Tick
    130. If intro_i < intro_array.Length Then
    131. Label1.Text = Label1.Text & intro_array(intro_i)
    132. intro_i = intro_i + 1
    133. If intro_i = intro_array.Length Then
    134. Intro_1.Stop()
    135. cmdd_a.Enabled = True
    136. cmdd_b.Enabled = True
    137. cmdd_c.Enabled = True
    138. cmdd_d.Enabled = False
    140. cmdd_a.Text = "Ich habe eine komische Person gesehen, sie
    141. hat mir gesagt, das du eine Freundin bis und ich dir vertrauen kann!"
    142. cmdd_b.Text = "Was habe ich den so gesagt ?"
    143. cmdd_c.Text = "Es ist alles in Ordnung!"
    144. cmdd_d.Text = "..."
    145. End If
    146. Else
    147. End If
    149. End Sub
    151. Public Function Speech(ByVal text As String, ByVal speed As Integer)
    153. Intro_1.Interval = speed
    154. intro_array = text.ToCharArray()
    155. Intro_1.Start()
    156. Return 0
    158. End Function
    160. Public Function Speech2(ByVal text As String, ByVal speed As Integer)
    162. Text_1.Interval = speed
    163. Text1_array = text.ToCharArray()
    164. Text_1.Start()
    165. Return 0
    167. End Function
    169. Public Function Speech3(ByVal text As String, ByVal speed As Integer)
    171. Text_2.Interval = speed
    172. Text2_array = text.ToCharArray()
    173. Text_2.Start()
    174. Return 0
    176. End Function
    179. Private Sub Text_1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text_1.Tick
    180. If Text1_i < Text1_array.Length Then
    181. Label1.Text = Label1.Text & Text1_array(Text1_i)
    182. Text1_i = Text1_i + 1
    183. If Text1_i = Text1_array.Length Then
    184. Text_1.Stop()
    186. End If
    187. Else
    188. End If
    189. End Sub
    191. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    192. Form2.Show()
    194. End Sub
    196. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    197. MsgBox("Diese Funktion steht noch nicht zur verfügung!")
    199. End Sub
    201. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    202. End
    204. End Sub
    206. Private Sub intro_2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles intro_2.Tick
    208. If intro_ii < Intro_arrayy.Length Then
    209. Label1.Text = Label1.Text & Intro_arrayy(intro_ii)
    210. intro_ii = intro_ii + 1
    211. If intro_ii = Intro_arrayy.Length Then
    212. intro_2.Stop()
    213. cmdd_a.Enabled = True
    214. cmdd_b.Enabled = True
    215. cmdd_c.Enabled = True
    216. cmdd_d.Enabled = False
    218. cmdd_a.Text = "Ich habe eine komische Person gesehen, sie
    219. hat mir gesagt, das du eine Freundin bis und ich dir vertrauen kann!"
    220. cmdd_b.Text = "Was habe ich den so gesagt ?"
    221. cmdd_c.Text = "Es ist alles in Ordnung!"
    222. cmdd_d.Text = "..."
    223. End If
    224. Else
    225. End If
    227. End Sub
    229. Private Sub Text_2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text_2.Tick
    231. If Text2_i < Text2_array.Length Then
    232. Label1.Text = Label1.Text & Text2_array(Text1_i)
    233. Text2_i = Text2_i + 1
    234. If Text2_i = Text2_array.Length Then
    235. Text_2.Stop()
    237. End If
    238. Else
    239. End If
    240. End Sub
    241. End Class




    So sieht es bis jetzt aus! es Klappt auch aber Text_2 und Intro_2 und Speech3 gehen nicht! ich will halt das es immer so weiter geht mit den Fragen und Antworten

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

    Du scheinst ja intensiv zwischen mehreren Formen hin- und her zu springen.
    Gugst Du hier.
    ---
    Editiere bitte Deinen obigen Beitrag, markiere den Quellcode nebst [ VB ] und pack das ganze in einen Expander [ + ] neben dem [ VB ]-Tag.
    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!

    nawiat schrieb:

    Also soll ich
    Was geht nicht?
    Codeproblem?
    Exception?
    sonstiges Problem?
    Was Du sollst, sollte nicht unser Problem sein, sondern Deins. :S
    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!

Facebook
Telefonspende