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

@Rav26 · Регистрация: 12.02.2020

Студворк — интернет-сервис помощи студентам

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

VB.NET
1
2
3
4
5
6
   answers() As String = IO.File.ReadAllLines("C:\Users\ravil\Desktop\Курсовая работа\answers.txt ", System.Text.Encoding.UTF8)
Dim Proverka2 As String
        For i = 1 To 16
            Proverka2 = answers(i)
            If Proverka2 = Button3.Text Then
                Button3.BackColor = Color.Green

Условие не выполняется

@Pro100Daniel · 08.04.2020, 11:51

Rav26, Жесть )))

@MrCrown · 08.04.2020, 11:53

Rav26, скиньте проект целиком, как вас просили. Вряд ли кому-то будет интересно моделировать эту, как вы правильно выразились, "кашу". То, что сразу бросается в глаза: зачем вы уничтожаете кнопки, если используете их текст как данные (что уже само по себе неправильно).

@Pro100Daniel · 08.04.2020, 12:01

Rav26, Создаете Класс

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Class ClassButt
    Public name_Butt As String
    Public inx_Butt As String
    Public ckop As Button
    Public name As Label
 
    Public Sub add(levo As Integer, visota As Integer)
        ckop = New Button
        ckop.Left = levo
        ckop.Top = visota
        ckop.Height = 372
        ckop.Width = 48
 
        ckop.FlatStyle = FlatStyle.Popup
        ckop.Visible = True
        ckop.Image = My.Resources._11
 
        nam = New Label
        nam.Left = levo + 15
        nam.Top = visota + 320
        nam.Visible = True
        nam.AutoSize = True
        nam.BackColor = Color.Transparent
        nam.ForeColor = Color.Green
        nam.Text = 0
        nam.Font = New System.Drawing.Font("Microsoft Sans Serif", 14, FontStyle.Bold)
        Fest_form.Panel1.Controls.Add(nam)
        nam.BringToFront()
 
 
        AddHandler ckop.MouseMove, AddressOf ckop_MouseMove
 
    End Sub
    Private Sub ckop_MouseMove(ByVal send As Button, ByVal e As MouseEventArgs)
 
    End Sub
End Class

Uswer · 08.04.2020, 12:02

Содержание файла 1.txt прям напрашивается под структуру XML.
Структурно прога сделана ужасно. То, что происходит в Form.Load зачем?
Я сделал бы так:
1. в Form.Load грузим вопросы и ответы в массив структур. Структура содержит: вопрос, варианты ответов и номер правильного ответа. Затем запускаем процесс опроса. Устанавливаем счётчик вопросов на 1. Выполняем п.2.
2. обновляем форму (отдельной процедурой) из массива структур меняя текст в 4-х кнопках (кнопки ответов) и текст вопроса основываясь на текущем значении счётчика вопросов. Ждём клика по кнопкам.
3. в обработчике (один на все 4) клика по кнопкам ответов выполняем проверку правильности ответа, т.е. если номер (хранимый либо в Tag, либо в Name) кнопки совпал с номером правильного ответа, то увеличиваем общее число правильных ответов. Увеличиваем счётчик вопросов. Вызываем обновление формы (выполняем п.2). Или выполняем подведение итогов при достижении конца массива вопросов выполнив п.4. По результатам проверки ответа можно, например помигать цветом кнопки (используя таймер) или ещё как нибудь указать на правильность/неправильность ответа.
4. при клике по служебным (не вопросным) кнопкам выполняем подведение итогов и запись результатов в файл.

@Orlangur · 08.04.2020, 12:26

Rav26, собрал из каши проект, вставил проверку как я присылал, все работает, в итоге вопрос, почему вы говорите что ничего не работает, если даже не испытывали то, что вам предложили?

@January29 · 08.04.2020, 20:52

Rav26, вот пример на первую кнопку. Дальше также для каждой кнопки согласно твоего кода.
как то так

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 Dim i As Integer = 0 ' первый ответ, !второй +1 и т.д. и т.п.
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If answers(i) = Button1.Text Then 
    ' или так
     'If answers(i).Contains(Button1.Text) Then
            Button1.BackColor = Color.Green
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button8.Visible = True
            Button8.Text = "Вперёд"
            i += 1
        Else
            Button1.BackColor = Color.Red
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button8.Visible = True
            Button8.Text = "Итоги"
            i = 0
        End If
    End Sub

Добавлено через 18 минут
или так

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim i As Integer = 0 ' первый ответ. Второй +1 и т.д. и т.п.
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If answers(i) = Button1.Text Then ' ИЛИ If answers(i).Contains(Button1.Text) Then
            Button1.BackColor = Color.Green
            Button8.Visible = True
            Button8.Text = "Вперёд"
            i += 1
        Else
            Button1.BackColor = Color.Red
            Button8.Visible = True
            Button8.Text = "Итоги"
            i = 0
        End If
        YouAnswer()
    End Sub
    Function YouAnswer()
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Return Me
    End Function

Добавлено через 18 минут
чуть сокращенный

Кликните здесь для просмотра всего текста

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim i As Integer = 0 ' первый ответ. Второй +1 и т.д. и т.п.
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If answers(i) = Button1.Text Then ' ИЛИ If answers(i).Contains(Button1.Text) Then
            Button1.BackColor = Color.Green
            Button8.Text = "Вперёд"
            i += 1
        Else
            Button1.BackColor = Color.Red
            Button8.Text = "Итоги"
            i = 0
        End If
        YouAnswer()
    End Sub
    ' так защита если второй раз нажать
    Function YouAnswer()
        Button8.Visible = True
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Return Me
    End Function

@Orlangur · 08.04.2020, 22:08

January29, не совсем понял как это должно работать, объясните?

@January29 · 08.04.2020, 22:43

Orlangur,
при нажатии на кнопку с ответом
так как ответ первый под номером 0 в массиве значит i = 0
сравниваем ответ answers(i) с текстом кнопки Button.Text если
верно тогда красит в зеленый, иначе в красный
функция отключает все кнопки с ответами , чтобы второй раз не нажали ,а то переменная i ставит 0
ну и возврат из функции, кнопку Button8 делает видимой, и пишет Вперед или Итоги
как то так

@Orlangur · 08.04.2020, 23:02

January29, то есть i перед каждым последующим вопросом должен перезадаваться? Не понял все равно. И зачем нужна функция, если возвращаемое значение нам не нужно? Лучше сделать процедуру

@January29 · 08.04.2020, 23:33

Orlangur, лучше процедуру ,я так на скорую руку сделал .i да если ответ верен то ответ следущий из массива из answers

Добавлено через 4 минуты
так лучше будет

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim i As Integer = 0 ' первый ответ. Второй +1 и т.д. и т.п.
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If answers(i) = Button1.Text Then ' ИЛИ If answers(i).Contains(Button1.Text) Then
            Button1.BackColor = Color.Green
            Button8.Text = "Вперёд"
            i += 1
        Else
            Button1.BackColor = Color.Red
            Button8.Text = "Итоги"
            i = 0
        End If
        YouAnswer()
    End Sub
    ' так защита если второй раз нажать
    Sub YouAnswer()
        Button8.Visible = True
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
    End Sub

Uswer · 09.04.2020, 01:52

Склепал проектик на скорую руку, допилите если понравится.

@Rav26 · 09.04.2020, 12:41 **[ТС]**

Вот сам проект. Зачем мне врать, проверял я ваши варианты, совпадают с моими же действиями, поэтому и обратился за помощью, т.к. в коде по мне всё было нормально, спасибо за помощь)0

@Orlangur · 09.04.2020, 14:58

Rav26, касательно вашего кода замените обработку нажатия кнопки 1,2,3 и 4 на одну эту

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Private Sub ButtonClick(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        Dim PressedButton As Button = CType(sender, Button)
        If answers.Contains(Trim(PressedButton.Text)) Then
            PressedButton.BackColor = Color.Green
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button8.Text = "Вперёд"
        Else
            PressedButton.BackColor = Color.Red
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button8.Text = "Итоги"
        End If
        Button8.Visible = True
    End Sub

И проверьте, что в answers.txt и 1.txt текст написан одинаково на одной и той же раскладке, я не проверял точно, но есть подозрение, что какой-то символ где-то был написан не в той раскладке, я написал их по новой и все нормально заработало

@Orlangur · 09.04.2020, 20:11

Накидал тоже пример

Uswer · 09.04.2020, 23:24

Orlangur, прям заморочился!
Я запустить не смог, студия и FW старые, но код и ресурсы глянул, прикольно.

@Orlangur · 10.04.2020, 06:35

Uswer, спасибо

там в debug лежит .exe, можно запустить

@Rav26 · 10.04.2020, 08:33 **[ТС]**

спасибо ребята огромное выручили, этот проект у меня в роли дипломки, кто учился на программиста наверно помните, что под каждой практикой отчеты и т.д. плюс этот карантин время не доходит до кода. Ещё раз всем спасибо))

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .
Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .	Диалоги с ИИ zorxor 23.05.2026 Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .	Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .

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

Решение

Решение

@Pro100Daniel 5 / 4 / 1 Регистрация: 10.02.2016 Сообщений: 49
	08.04.2020, 11:51
	Rav26, Жесть ))) 0

@MrCrown 1548 / 1525 / 325 Регистрация: 03.10.2012 Сообщений: 1,551
	08.04.2020, 11:53
	Rav26, скиньте проект целиком, как вас просили. Вряд ли кому-то будет интересно моделировать эту, как вы правильно выразились, "кашу". То, что сразу бросается в глаза: зачем вы уничтожаете кнопки, если используете их текст как данные (что уже само по себе неправильно). 0

Uswer 2289 / 1605 / 400 Регистрация: 26.06.2017 Сообщений: 4,760 Записей в блоге: 1
	08.04.2020, 12:02
	Содержание файла 1.txt прям напрашивается под структуру XML. Структурно прога сделана ужасно. То, что происходит в Form.Load зачем? Я сделал бы так: 1. в Form.Load грузим вопросы и ответы в массив структур. Структура содержит: вопрос, варианты ответов и номер правильного ответа. Затем запускаем процесс опроса. Устанавливаем счётчик вопросов на 1. Выполняем п.2. 2. обновляем форму (отдельной процедурой) из массива структур меняя текст в 4-х кнопках (кнопки ответов) и текст вопроса основываясь на текущем значении счётчика вопросов. Ждём клика по кнопкам. 3. в обработчике (один на все 4) клика по кнопкам ответов выполняем проверку правильности ответа, т.е. если номер (хранимый либо в Tag, либо в Name) кнопки совпал с номером правильного ответа, то увеличиваем общее число правильных ответов. Увеличиваем счётчик вопросов. Вызываем обновление формы (выполняем п.2). Или выполняем подведение итогов при достижении конца массива вопросов выполнив п.4. По результатам проверки ответа можно, например помигать цветом кнопки (используя таймер) или ещё как нибудь указать на правильность/неправильность ответа. 4. при клике по служебным (не вопросным) кнопкам выполняем подведение итогов и запись результатов в файл. 0

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	08.04.2020, 12:26
	Rav26, собрал из каши проект, вставил проверку как я присылал, все работает, в итоге вопрос, почему вы говорите что ничего не работает, если даже не испытывали то, что вам предложили? 0

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	08.04.2020, 22:08
	January29, не совсем понял как это должно работать, объясните? 0

@January29 3260 / 3323 / 556 Регистрация: 17.02.2019 Сообщений: 5,214
	08.04.2020, 22:43
	Orlangur, при нажатии на кнопку с ответом так как ответ первый под номером 0 в массиве значит i = 0 сравниваем ответ answers(i) с текстом кнопки Button.Text если верно тогда красит в зеленый, иначе в красный функция отключает все кнопки с ответами , чтобы второй раз не нажали ,а то переменная i ставит 0 ну и возврат из функции, кнопку Button8 делает видимой, и пишет Вперед или Итоги как то так 0

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	08.04.2020, 23:02
	January29, то есть i перед каждым последующим вопросом должен перезадаваться? Не понял все равно. И зачем нужна функция, если возвращаемое значение нам не нужно? Лучше сделать процедуру 0

Uswer 2289 / 1605 / 400 Регистрация: 26.06.2017 Сообщений: 4,760 Записей в блоге: 1
	09.04.2020, 23:24
	Orlangur, прям заморочился! Я запустить не смог, студия и FW старые, но код и ресурсы глянул, прикольно. 1

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	10.04.2020, 06:35
	Uswer, спасибо там в debug лежит .exe, можно запустить 1

@Rav26 1 / 1 / 0 Регистрация: 12.02.2020 Сообщений: 74
	10.04.2020, 08:33 [ТС]
	спасибо ребята огромное выручили, этот проект у меня в роли дипломки, кто учился на программиста наверно помните, что под каждой практикой отчеты и т.д. плюс этот карантин время не доходит до кода. Ещё раз всем спасибо)) 0