Сравнение элементов с текстом в поле

Проблема сравнения текста в кнопке с текстом в текстовом документе,
Условие не выполняется

0

Rav26, а где next
ну а так наверное правильней
Добавлено через 23 минуты
Rav26, пробуй
но если в answers.txt там одна строка то не выйдет

0

Rav26, можно просто проверить, есть ли это значение в массиве
Вопрос в другом, какой текст у button3, что находится в answers.txt и почему цикл от 1 до 16?

0

наверно так точнее будет

0

16 потому что, у меня правильных ответов 15. Создаю игру кто хочет стать миллионером, 15 вопросов и 15 ответов на них. В одном текстовом документе вопросы и варианты ответов, а в другом правильные ответы.

0

так какой подошел пример?

0

условие всё равно не выполняется

Добавлено через 1 минуту
закрашивается в зеленый даже если условие не выполняется

0

текстовый файл записан по строчно или одной строкой?
попробуй вместо UTF8 поставить Default

0

записан построчно, default ставил, не сработало

0

Создай переменную типа byte
потом проверку
при каждом вопросе прибавляй к ней +1. А то идет проверка всего массива. И ответ есть значит красит в Зеленый

0

Спасибо за отзыв к проблеме, попробовал таким образом как вы описали, но увы не сработало. Для интереса сравнил с прямым текстом с правильным ответом : answers(1)=Button3.text, до условия выставил MSgbox(answers(0)), вывод был корректный , но условие не выполнилось((

0

так если Msgbox(answers(0)) верно
так в answers(1)=Button3.text почему цифра 1 тоже ставь 0
в Msgbox выводите значение под номером 0 , а проверяете под номером 1

0

Rav26, в ответах текст в том же регистре, что и на кнопке?

0

да, проверял я answers(0), не дурак. Ответ на тексте и текст на кнопке совпадает, скопировал всё

Добавлено через 24 минуты
MsgBox(answers(0))
If answers(0) = Button3.Text Then

0

Rav26, Странно что у тебя не выполняется код. Если взять ответ в посте 4 то все нормально работает

0

Возможно сравнение не срабатывает потому, что в answers(i) содержаться спецсимволы, например vbCrLf.

Добавлено через 5 минут
Хотя по докам завершающих символов в результирующих строках IO.File.ReadAllLines быть не должно.

0

Rav26, пришлите файл с ответами

0

Вот

Вложения

	1.txt (531 байт, 10 просмотров)
	answers.txt (142 байт, 4 просмотров)

0

Rav26, ну, с тем кодом, что я кидал все отрабатывает нормально, видимо косяк где-то в другом месте, если нет ничего секретного в проекте, то кидай его сюда, так будет проще разобраться

0

Public Class Form2
Public podscazka1, podscazka2, podscazka3, score, chislo As Integer,
f1() As String = IO.File.ReadAllLines("C:\Users\ravil\Des ktop\Курсовая работа\1.txt ", System.Text.Encoding.Default),
Hard() As String = IO.File.ReadAllLines("C:\Users\ravil\Des ktop\Курсовая работа\Level.txt ", System.Text.Encoding.Default),
answers() As String = IO.File.ReadAllLines("C:\Users\ravil\Des ktop\Курсовая работа\answers.txt ", System.Text.Encoding.UTF8)
Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Proverka1 As String
Dim i As Integer
Me.Text = "Первый вопрос"
Label6.Text = "Играет:" + Form1.name
Label1.Text = Hard(0)
For i = 0 To 20
Proverka1 = f1(i)
If Proverka1.Contains(Label1.Text) Then
TextBox1.Text = f1(i)
Button1.Text = f1(i + 1)
Button2.Text = f1(i + 2)
Button3.Text = f1(i + 3)
Button4.Text = f1(i + 4)
Exit For
End If
Next i
score = Val(Label1.Text)
Label1.Text = Val(Label1.Text) + 1
IO.File.WriteAllText("C:\Users\ravil\Des ktop\Курсовая работа\Level.txt", "")
IO.File.AppendAllLines("C:\Users\ravil\D esktop\Курсовая работа\Level.txt", {Label1.Text}, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Proverka2 As String
For i = 1 To 16
Proverka2 = answers(i)
If Proverka2 = Button1.Text Then
Button1.BackColor = Color.Green
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button8.Visible = True
Button8.Text = "Вперёд"
Exit For
Else
Button1.BackColor = Color.Red
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button8.Visible = True
Button8.Text = "Итоги"
Exit For
End If
Next i
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Proverka2 As String
For i = 1 To 16
Proverka2 = answers(i)
If answers(i) = (Button2.Text) Then
Button2.BackColor = Color.Green
Button1.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button8.Visible = True
Button8.Text = "Вперёд"
Exit For
Else
Button2.BackColor = Color.Red
Button1.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button8.Visible = True
Button8.Text = "Итоги"
Exit For
End If
Next i
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim Proverka2 As String
For i = 0 To 16
Proverka2 = answers(i)
If Proverka2 = Button3.Text Then
Button3.BackColor = Color.Green
Button1.Enabled = False
Button2.Enabled = False
Button4.Enabled = False
Button8.Visible = True
Button8.Text = "Вперёд"
score = Val(Label1.Text) + 1
Exit For
End If
Next i
If score = Val(Label1.Text) Then
Button3.BackColor = Color.Red
Button1.Enabled = False
Button2.Enabled = False
Button4.Enabled = False
Button8.Visible = True
Button8.Text = "Итоги"
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim Proverka2 As String
For i = 1 To 16
Proverka2 = answers(i)
If Proverka2 = Button4.Text Then
Button4.BackColor = Color.Green
Button2.Enabled = False
Button3.Enabled = False
Button1.Enabled = False
Button8.Visible = True
Button8.Text = "Вперёд"
score = 2
Exit For
Else
Button4.BackColor = Color.Red
Button2.Enabled = False
Button3.Enabled = False
Button1.Enabled = False
Button8.Visible = True
Button8.Text = "Итоги"
score = 1
Exit For
End If
Next i
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
For i = 1 To 16
If Button1.Text = answers(i) Then
Button2.Dispose()
Button4.Dispose()
Exit For
End If
If Button2.Text = answers(i) Then
Button3.Dispose()
Button4.Dispose()
Exit For
End If
If Button3.Text = answers(i) Then
Button4.Dispose()
Button1.Dispose()
Exit For
End If
If Button4.Text = answers(i) Then
Button1.Dispose()
Button2.Dispose()
Exit For
End If
Next i
podscazka1 = 1
Button5.Dispose()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Button3.BackColor = Color.Blue
podscazka2 = 1
Button6.Dispose()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
chislo = Int(4 * Rnd()) + 1
If chislo = 1 Then Button1.BackColor = Color.Gold
If chislo = 2 Then Button2.BackColor = Color.Gold
If chislo = 3 Then Button3.BackColor = Color.Gold
If chislo = 4 Then Button4.BackColor = Color.Gold
podscazka3 = 1
Button7.Enabled = False
Button7.Dispose()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim frm = New Form2
frm.Show()
Me.Close()
End Sub
End Class
код я не оптимизировал, ещё поэтому такая каша

0