Kriege Fehler nicht weg

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Phil_man.

    Kriege Fehler nicht weg

    Hi,
    Ich haben folgenden Fehler:

    Quellcode

    1. Fehler 1 Der Wert vom Typ "System.Random" kann nicht in "Double" konvertiert werden. C:\Dokumente und Einstellungen\a\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\Kopfrechentrainer\Form1.vb 18 13 Kopfrechentrainer


    Zu dem Code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim g As Double
    3. Dim c As Double
    4. Dim a As New Random
    5. Dim b As New Random
    6. Dim r As New Random
    7. Dim strArr() As String = {"+", "-", "*", "/"}
    8. Dim re As String
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Timer1.Start()
    12. End Sub
    14. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    15. a.Next(0, 100)
    16. b.Next(0, 100)
    17. re = strArr(r.Next(0, strArr.Length))
    18. c = a re b
    19. If c = g Then
    20. MsgBox("RICHTIG")
    21. End If
    22. End Sub
    23. End Class


    Hab mir ähnliche Sachen angeguckt, es aber net so richtig verstanden.

    Wozu DREI Randoms?
    Random ist ein GENERATOR, keine Variable.

    VB.NET-Quellcode

    1. Dim rn As New Random 'nue einer
    2. Dim rate As Integer = rn.Next(1, 100)
    3. Dim rate2 As Integer = rn.Next(1, 1000)
    4. Dim rate3 As Integer = rn.Next(234, 235425)
    5. Dim rate4 As Integer = rn.Next(2, 5)

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim rn As New Random
    3. Dim a As Double = rn.Next(0, 100)
    4. Dim b As Double = rn.Next(0, 100)
    5. Dim g As Double
    6. Dim c As Double
    7. Dim strArr() As String = {"+", "-", "*", "/"}
    8. Dim re As String
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Timer1.Start()
    12. End Sub
    14. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    15. re = strArr(rn.Next(0, strArr.Length))
    16. c = a re b
    17. If c = g Then
    18. MsgBox("RICHTIG")
    19. End If
    20. End Sub
    21. End Class


    jetzt habe ich nur noch das problem: zu

    VB.NET-Quellcode

    1. c = a re b
    Fehler:

    Quellcode

    1. End of -Anweisung erwartet

    Phil_man schrieb:


    Quellcode

    1. c = a re b

    so wird es nicht funktionieren. "re" liefert 0, 1, 2 oder 3 zurück!
    Du muss das ergebnis von "re" auswerten und entsprechende Rechenoperation durchführen:

    VB.NET-Quellcode

    1. Select Case re.Next(0, 3)
    2. Case Is = 0
    3. c = a + b
    4. Case Is = 1
    5. c = a - b
    6. Case Is = 2
    7. c = a * b
    8. Case Is = 3
    9. c = a / b
    10. End Select

    Also, ich habe noch ein kleines Problem. Wenn ich mir g und c ausgeben lasse, dann ist c zwar richtig doch g ist immer null egal ob etwas in der Box steht, wie behebe ich das Problem? Komme gerade nicht drauf :P

    EDIT: Code sieht jetzt so aus:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim rn As New Random
    3. Dim a As Double = rn.Next(0, 100)
    4. Dim b As Double = rn.Next(0, 100)
    5. Dim g As String
    6. Dim f As Double
    7. Dim c As Double
    8. Dim strArr() As String = {"+", "-", "*", "/"}
    9. Dim re As String
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. Timer1.Start()
    13. Dim re As String = "+"
    14. Select Case re
    15. Case "+"
    16. c = a + b
    17. Case "-"
    18. c = a - b
    19. Case "*"
    20. c = a * b
    21. Case "/"
    22. c = a / b
    23. End Select
    24. TextBox1.Text = a
    25. TextBox2.Text = re
    26. TextBox3.Text = b
    27. End Sub
    29. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    30. g = TextBox4.Text
    31. g = Val(f)
    32. MsgBox("c = " & c)
    33. MsgBox("f = " & f)
    34. If f = c Then
    35. MsgBox("FAIL")
    36. End If
    38. End Sub
    39. End Class

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

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim rn As New Random
    3. Dim a, b, f, c As Double
    4. Dim strArr() As String = {"+", "-", "*", "/"}
    5. Dim zufallsOperator As Integer
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. a = rn.Next(0, 100)
    9. b = rn.Next(0, 100)
    10. zufallsOperator = rn.Next(1, 4)
    12. Select Case strArr(zufallsOperator)
    13. Case "+"
    14. c = a + b
    15. Case "-"
    16. c = a - b
    17. Case "*"
    18. c = a * b
    19. Case "/"
    20. c = a / b
    21. End Select
    22. TextBox1.Text = a
    23. TextBox2.Text = strArr(zufallsOperator)
    24. TextBox3.Text = b
    25. End Sub
    27. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    28. f = Val(TextBox4.Text)
    29. MsgBox("c = " & c & " f= " & f)
    30. If f = c Then
    31. MsgBox("Richtig")
    32. Else
    33. MsgBox("FAIL")
    34. End If
    35. End Sub
    36. End Class

Facebook
Telefonspende