Hallo alle zusammen!
ich will mein Button 2 mal drücken können, das er aber beim 2 mal drücken etwas anderes macht und dabei noch drauf achtet was in der TextBox1 steht
Spoiler anzeigen
das mit den Button4 unten geht nur beim ersten mal!
Hilfe
MFG
nawiat
ich will mein Button 2 mal drücken können, das er aber beim 2 mal drücken etwas anderes macht und dabei noch drauf achtet was in der TextBox1 steht
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Dim intro_i As Integer = 0
- Dim intro_array As Char()
- Dim intro_ii As Integer = 0
- Dim intro_arrayy As Char()
- Dim intro_iii As Integer = 0
- Dim intro_arrayyy As Char()
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Tutorial.Close()
- Dim Name As String = SplashScreen1.dein_Name
- Speech(" " & Name & ", Du findest dich in eine Leeren Haus wieder, Was machst du jetzt?" & vbNewLine & "" & vbNewLine & "1. schau dich in den Haus genauer um!" & vbNewLine & "2. geh nach drausen!", 10)
- End Sub
- Private Sub Text1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.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
- Text1.Stop()
- Button2.Visible = True
- End If
- Else
- End If
- End Sub
- Private Sub Text2_Tick(sender As System.Object, e As System.EventArgs) Handles Text2.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
- Text2.Stop()
- End If
- Else
- End If
- End Sub
- Private Sub Text3_Tick(sender As System.Object, e As System.EventArgs) Handles Text3.Tick
- If intro_iii < intro_arrayyy.Length Then
- Label1.Text = Label1.Text & intro_arrayyy(intro_iii)
- intro_iii = intro_iii + 1
- If intro_iii = intro_arrayyy.Length Then
- Text3.Stop()
- End If
- Else
- End If
- End Sub
- Public Function Speech(ByVal text As String, ByVal speed As Integer)
- Text1.Interval = speed
- intro_array = text.ToCharArray()
- Text1.Start()
- Return 0
- End Function
- Public Function Speech2(ByVal text As String, ByVal speed As Integer)
- Text2.Interval = speed
- intro_arrayy = text.ToCharArray()
- Text2.Start()
- Return 0
- End Function
- Public Function Speech3(ByVal text As String, ByVal speed As Integer)
- Text3.Interval = speed
- intro_arrayy = text.ToCharArray()
- Text3.Start()
- Return 0
- End Function
- Private Sub Antwort1()
- Speech2("" & vbNewLine & "" & vbNewLine & "Du findest deinen Vater nieder gestochen auf den Boden wieder! an den Messer in seiner Brust ist ein Brief!", 10)
- End Sub
- Private Sub Antwort2()
- Speech3("" & vbNewLine & "" & vbNewLine & "willst du dich nicht erstmal im haus umschauen?" & vbNewLine & "" & vbNewLine & "1. Ja", 10)
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- End
- End Sub
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- MsgBox("Diese Option steht in dieser Version des Spieles nicht zur verfügung!")
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- MsgBox("Diese Option steht in dieser Version des Spieles nicht zur verfügung!")
- End Sub
- Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
- End Sub
- Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
- Dim Textnr As Integer = 0
- If Textnr = 0 Then
- TextBox1.Text = "1"
- Antwort1()
- TextBox1.ResetText()
- Textnr = 1
- ElseIf Textnr = 1 Then
- TextBox1.Text = "2"
- Antwort2()
- Textnr = 2
- End If
- End Sub
- End Class
das mit den Button4 unten geht nur beim ersten mal!
Hilfe
MFG
nawiat