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
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
Code:
VB.NET-Quellcode
- Imports System.IO
- Public Class Form6
- Dim intro_i As Integer = 0
- Dim intro_array As Char()
- Dim Text1_i As Integer = 0
- Dim Text1_array As Char()
- Dim intro_ii As String = 0
- Dim Intro_arrayy As Char()
- Dim Text2_i As Integer = 0
- Dim Text2_array As Char()
- Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Form4.Close()
- Form3.Close()
- Label6.Show()
- Label7.Show()
- Label2.Show()
- Label3.Show()
- Dim Name As String = SplashScreen1.dein_Name
- Speech("Ahh, du bist wach " & Name & "!" & vbCrLf &
- "Du hast ganz schön komische Geräusche gemacht, beim Schlafen!", 10)
- End Sub
- Private Sub Cmdd_a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdd_a.Click
- Dim Textnr As Integer
- If Textnr = 0 Then
- Label1.Text = ""
- cmdd_a.Enabled = False
- cmdd_b.Enabled = False
- cmdd_c.Enabled = False
- cmdd_d.Enabled = False
- cmdd_a.Text = "..."
- cmdd_b.Text = "..."
- cmdd_c.Text = "..."
- cmdd_d.Text = "..."
- Speech2("Das war bestimmt Arion! er ist nett, du wirst ihn früh genug noch kennen Lernen ;)", 10)
- Textnr = 1
- If Textnr = 1 Then
- End If
- ElseIf Textnr = 1 Then
- Label1.Text = ""
- cmdd_a.Enabled = False
- cmdd_b.Enabled = False
- cmdd_c.Enabled = False
- cmdd_d.Enabled = False
- cmdd_a.Text = "..."
- cmdd_b.Text = "..."
- cmdd_c.Text = "..."
- cmdd_d.Text = "..."
- Speech3("Das ist schön! ;) willst du etwas zu essen haben?", 10)
- Textnr = 2
- End If
- End Sub
- Private Sub Cmdd_b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdd_b.Click
- Dim Textnr As Integer
- If Textnr = 0 Then
- Label1.Text = ""
- cmdd_a.Enabled = False
- cmdd_b.Enabled = False
- cmdd_c.Enabled = False
- cmdd_d.Enabled = False
- cmdd_a.Text = "..."
- cmdd_b.Text = "..."
- cmdd_c.Text = "..."
- cmdd_d.Text = "..."
- Speech2("Ach nichts wichtiges! was war den Los ? du hattest ertwas von einer Person geredet?", 10)
- Textnr = 1
- ElseIf Textnr = 1 Then
- Label1.Text = ""
- cmdd_a.Enabled = False
- cmdd_b.Enabled = False
- cmdd_c.Enabled = False
- cmdd_d.Enabled = False
- cmdd_a.Text = "..."
- cmdd_b.Text = "..."
- cmdd_c.Text = "..."
- cmdd_d.Text = "..."
- Speech3("Das war bestimmt Arion! er ist nett, du wirst ihn früh genug noch kennen Lernen ;)", 10)
- Textnr = 2
- End If
- End Sub
- Private Sub Cmdd_c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdd_c.Click
- Dim Textnr As Integer
- If Textnr = 0 Then
- Label1.Text = ""
- cmdd_a.Enabled = False
- cmdd_b.Enabled = False
- cmdd_c.Enabled = False
- cmdd_d.Enabled = False
- cmdd_a.Text = "..."
- cmdd_b.Text = "..."
- cmdd_c.Text = "..."
- cmdd_d.Text = "..."
- Speech2("Ahh okay! aber du hattest etwas von einer Person geredet! welche Person ?", 10)
- Textnr = 1
- ElseIf Textnr = 1 Then
- Label1.Text = ""
- cmdd_a.Enabled = False
- cmdd_b.Enabled = False
- cmdd_c.Enabled = False
- cmdd_d.Enabled = False
- cmdd_a.Text = "..."
- cmdd_b.Text = "..."
- cmdd_c.Text = "..."
- cmdd_d.Text = "..."
- Speech3("Das war bestimmt Arion! er ist nett, du wirst ihn früh genug noch kennen Lernen ;)", 10)
- Textnr = 2
- End If
- End Sub
- Private Sub Intro_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles intro_1.Tick
- If intro_i < intro_array.Length Then
- Label1.Text = Label1.Text & intro_array(intro_i)
- intro_i = intro_i + 1
- If intro_i = intro_array.Length Then
- Intro_1.Stop()
- cmdd_a.Enabled = True
- cmdd_b.Enabled = True
- cmdd_c.Enabled = True
- cmdd_d.Enabled = False
- cmdd_a.Text = "Ich habe eine komische Person gesehen, sie
- hat mir gesagt, das du eine Freundin bis und ich dir vertrauen kann!"
- cmdd_b.Text = "Was habe ich den so gesagt ?"
- cmdd_c.Text = "Es ist alles in Ordnung!"
- cmdd_d.Text = "..."
- End If
- Else
- End If
- End Sub
- Public Function Speech(ByVal text As String, ByVal speed As Integer)
- Intro_1.Interval = speed
- intro_array = text.ToCharArray()
- Intro_1.Start()
- Return 0
- End Function
- Public Function Speech2(ByVal text As String, ByVal speed As Integer)
- Text_1.Interval = speed
- Text1_array = text.ToCharArray()
- Text_1.Start()
- Return 0
- End Function
- Public Function Speech3(ByVal text As String, ByVal speed As Integer)
- Text_2.Interval = speed
- Text2_array = text.ToCharArray()
- Text_2.Start()
- Return 0
- End Function
- Private Sub Text_1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text_1.Tick
- If Text1_i < Text1_array.Length Then
- Label1.Text = Label1.Text & Text1_array(Text1_i)
- Text1_i = Text1_i + 1
- If Text1_i = Text1_array.Length Then
- Text_1.Stop()
- End If
- Else
- End If
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Form2.Show()
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- MsgBox("Diese Funktion steht noch nicht zur verfügung!")
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- End
- End Sub
- Private Sub intro_2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles intro_2.Tick
- If intro_ii < Intro_arrayy.Length Then
- Label1.Text = Label1.Text & Intro_arrayy(intro_ii)
- intro_ii = intro_ii + 1
- If intro_ii = Intro_arrayy.Length Then
- intro_2.Stop()
- cmdd_a.Enabled = True
- cmdd_b.Enabled = True
- cmdd_c.Enabled = True
- cmdd_d.Enabled = False
- cmdd_a.Text = "Ich habe eine komische Person gesehen, sie
- hat mir gesagt, das du eine Freundin bis und ich dir vertrauen kann!"
- cmdd_b.Text = "Was habe ich den so gesagt ?"
- cmdd_c.Text = "Es ist alles in Ordnung!"
- cmdd_d.Text = "..."
- End If
- Else
- End If
- End Sub
- Private Sub Text_2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text_2.Tick
- If Text2_i < Text2_array.Length Then
- Label1.Text = Label1.Text & Text2_array(Text1_i)
- Text2_i = Text2_i + 1
- If Text2_i = Text2_array.Length Then
- Text_2.Stop()
- End If
- Else
- End If
- End Sub
- 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“ ()