Problem NumericUpDown und Würfeln

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Problem NumericUpDown und Würfeln

    Hallo ich habe ein Problemchen mit NumericUpDown!

    Da ich ein Neuling in VB bin und mein Mentor derzeit im Urlaub ist, hoffe ich hier einige gute Hilfestellungen zu bekommen!

    Die Anwendung soll zeitversetzt senden, jedoch klappt das nicht

    Vielen Dank schon mal im Vorraus

    VB.NET-Quellcode

    1. Imports System.NetImports System.Text.RegularExpressionsImports System.IOImports System.TextImports System.ThreadingImports System.Net.SocketsPublic Class Form1 Public streamreader As StreamReader Public streamwriter As StreamWriter
    2. Public Sub Receive() streamwriter.WriteLine("") streamwriter.Flush() streamwriter.WriteLine("2" & vbNullChar & "test") streamwriter.Flush() While streamreader IsNot Nothing Dim Line As String = streamreader.ReadLine TextBox2.Text = Line.Replace(vbNullChar, "\0") End While End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim tcpClient As New Sockets.TcpClient("127.0.0.1", 34) streamreader = New StreamReader(tcpClient.GetStream(), Encoding.UTF8) streamwriter = New StreamWriter(tcpClient.GetStream(), Encoding.UTF8) Dim ReceiveThread = New Thread(New ThreadStart(AddressOf Me.Receive)) ReceiveThread.Start() End Sub Public Sub Invisible_Message(ByVal channel As String, ByVal nick As String, ByVal text As String) streamwriter.WriteLine(("1" & vbNullChar & "e" & vbNullChar & nick & vbNullChar & channel & vbNullChar & text)) streamwriter.Flush() End Sub Public Sub sendtexttochannel(ByVal channel As String, ByVal text As String) streamwriter.WriteLine(("0" & vbNullChar & "e" & vbNullChar & channel & vbNullChar & text)) streamwriter.Flush() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckForIllegalCrossThreadCalls = False End Sub Private Sub form_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.FormClosing System.Environment.Exit(0) End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged Dim i As Random = New Random() Dim delay As Integer = i.Next(NumericUpDown1.Value, NumericUpDown2.Value) If TextBox2.Text.Contains("Die Anmeldung für") Then sendtexttochannel(TextBoxChannel.Text, "/d +") End If If TextBox2.Text.Contains("Wer über °RR20°_- 5 -_°r° würfelt, scheidet aus...") Then TextBox3.Text = "5" Thread.Sleep(delay)
    3. sendtexttochannel(TextBoxChannel.Text, "/d 4") sendtexttochannel(TextBoxChannel.Text, "/d 6") End If If TextBox2.Text.Contains("Wer über °RR20°_- 6 -_°r° würfelt, scheidet aus...") Then TextBox3.Text = "6" Thread.Sleep(delay)
    4. sendtexttochannel(TextBoxChannel.Text, "/d 6") sendtexttochannel(TextBoxChannel.Text, "/d 8") End If If TextBox2.Text.Contains("Wer über °RR20°_- 7 -_°r° würfelt, scheidet aus...") Then TextBox3.Text = "7" Thread.Sleep(delay)
    5. sendtexttochannel(TextBoxChannel.Text, "/d 6") sendtexttochannel(TextBoxChannel.Text, "/d 8") End If If TextBox2.Text.Contains("Wer über °RR20°_- 8 -_°r° würfelt, scheidet aus...") Then TextBox3.Text = "8" Thread.Sleep(delay)
    6. sendtexttochannel(TextBoxChannel.Text, "/d w8") sendtexttochannel(TextBoxChannel.Text, "/d w10") End If If TextBox2.Text.Contains("Wer über °RR20°_- 9 -_°r° würfelt, scheidet aus...") Then TextBox3.Text = "9" Thread.Sleep(delay)
    7. sendtexttochannel(TextBoxChannel.Text, "/d w8") sendtexttochannel(TextBoxChannel.Text, "/d w10") End If If TextBox2.Text.Contains("Wer über °RR20°_- 10 -_°r° würfelt, scheidet aus...") Then TextBox3.Text = "10" Thread.Sleep(delay)
    8. sendtexttochannel(TextBoxChannel.Text, "/d w10") sendtexttochannel(TextBoxChannel.Text, "/d w12") End If End Sub
    9. Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged Dim i As Random = New Random() Dim delay As Integer = i.Next(NumericUpDown1.Value, NumericUpDown2.Value) End Sub
    10. Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged Dim i As Random = New Random() Dim delay As Integer = i.Next(NumericUpDown1.Value, NumericUpDown2.Value) End SubEnd Class