Постановка диагноза о заболевании туберкулезом по заданным параметрам

@Lelechka · Регистрация: 27.11.2014

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

Необходимо было создать форму, в которую будут вноситься данные о пациенте, и далее отображаться на листе.(это сделала) по этим данным необходимо поставить диагноз болен или не болен туберкулезом пациент. Подскажите как можно задать параметры сравнения и вывода в форму диагноза. Числовые значения должны укладываться в диапазон нормы (норма параметра указанна в форме). Если все параметры укладываются в норму,то здоров, иначе болен. А с символьными значениями вообще не знаю что делать...как сравнивать?помогите...

@Alex77755 · 05.12.2014, 14:11

Lelechka,
Ты сообщения читаешь?!
Зачем сравнивать цифровые показатели анализов с описанием анализов мокроты?!
Ну уже подсказал! Неужели сам не можешь поменять?!

Visual Basic
1
2
3
 If tb < a(i, 1) Or tb > a(i, 2) And ComboBox2 = "гнойный с примесью крови" _
        And ComboBox3 = "жёлтый,местами кровенистый" And ComboBox4 = "вязкая" _
        And ComboBox5 = "комковато-клочковая" Then

@Апострофф · 05.12.2014, 14:20

А как выглядит условие для болезни?
Один (или все?) результаты анализа не в норме и (или?) один ( или все?) из перечисленных признаков совпадают?

@Vlad999 · 05.12.2014, 14:21

Не по теме:

Сообщение от Alex77755

Неужели сам не можешь поменять

Лялечка ближе к женскому нику.:) да и в сообщении #6 об этом упомянулось.

@Lelechka · 05.12.2014, 14:21 **[ТС]**

Ура последовала всем вашим примерам)и вот получилось)))Только остался вопрос по норме. что бы определить здоров человек или нет необходимо не только попасть в приделы нормы ну и что бы в ComboBox были значения нормальные(не патологические). Их тоже где то прописать надо???что бы сравнивать...а если например ни одно из условий не выполниться, программу можно закончить как то,не говоря что диагноз "здоров"?

Visual Basic
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
Private Sub CommandButton4_Click() 'кнопка "Постановка диагноза"
    Dim a()
    Dim i As Long
    With Sheets("Нормы") 'с листом "Лист4"
        a = .Range("B3:C10").Value 'берём в массив диапазон (нормы)
    End With
    For i = 1 To 8 'перебираем поля с данными на форме
        tb = CDbl(Me.Controls("TextBox" & i))
            'сравниваем значение поля и значение массива, если не попали в диапазон то
    If (tb < a(i, 1) And ComboBox2 = "гнойный с примесью крови" _
        And ComboBox3 = "жёлтый,местами кровенистый" And ComboBox4 = "вязкая" _
        And ComboBox5 = "комковато-клочковая") Or (tb > a(i, 2) And ComboBox2 = "гнойный с примесью крови" _
        And ComboBox3 = "жёлтый,местами кровенистый" And ComboBox4 = "вязкая" _
        And ComboBox5 = "комковато-клочковая") Then
            Beep 'звуковой сигнал
            MsgBox "Фиброзно повернозная форма туберкулулеза!", , "Диагноз" 'сообщение
            Exit Sub 'выход из процедуры
         End If
        If (tb < a(i, 1) And ComboBox2 = "слизисто-гнойный" _
        And ComboBox3 = "серовато-желтый" And ComboBox4 = "студенистая" _
        And ComboBox5 = "комковато-клочковая") Or (tb > a(i, 2) And ComboBox2 = "слизисто-гнойный" _
        And ComboBox3 = "серовато-желтый" And ComboBox4 = "студенистая" _
        And ComboBox5 = "комковато-клочковая") Then
            Beep 'звуковой сигнал
            MsgBox "Открытая форма туберкулеза!", , "Диагноз" 'сообщение
            Exit Sub 'выход из процедуры
        End If
    Next
    Beep
    'если не было выхода из процедуры- всё совпало то сообщение (хорошее)
    MsgBox "Здоров", , "Диагноз"
End Sub

@Alex77755 · 05.12.2014, 14:23

Да всё просто? написать 378х2 условия всего делов-то!
7*6*3*3 сочетаний в комбобоксах и 2 условия по каждому параметру!

@Lelechka · 05.12.2014, 14:29 **[ТС]**

Alex77755, ну вот да я девушка и что дальше..вообще то в это время я исправляла косяки свои,прислушавшись всем вашим советам...

Добавлено через 4 минуты
Alex77755, попробую ограничиться минимальным количеством))))

@Апострофф · 05.12.2014, 14:43

Сообщение от Lelechka

Visual Basic
1
2
3
4
5
If (tb < a(i, 1) And ComboBox2 = "гнойный с примесью крови" _
          And ComboBox3 = "жёлтый,местами кровенистый" And ComboBox4 = "вязкая" _
          And ComboBox5 = "комковато-клочковая") Or (tb > a(i, 2) And ComboBox2 = "гнойный с примесью крови" _
          And ComboBox3 = "жёлтый,местами кровенистый" And ComboBox4 = "вязкая" _
          And ComboBox5 = "комковато-клочковая") Then

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

Visual Basic
1
2
3
If (tb < a(i, 1)Or (tb > a(i, 2)) And ComboBox2 = "гнойный с примесью крови" _
          And ComboBox3 = "жёлтый,местами кровенистый" And ComboBox4 = "вязкая" _
          And ComboBox5 = "комковато-клочковая" then

@Lelechka · 05.12.2014, 15:08 **[ТС]**

еще маленький вопросик. Если допустим болезнь сопровождается фиброзно повинозной формой туберкулеза, по характеру мокроты возможно 2 варианта : гнойный с примесью крови, а так же серозное отделяемое. То как это лучше прописать?

Visual Basic
1
 If (tb < a(i, 1) And (ComboBox2 = "гнойный с примесью крови" Or ComboBox2 = "серозное отделяемое") And ComboBox3 = "серовато-желтый"

Меня программа поймет? что я хочу???

Добавлено через 1 минуту
Апострофф, поняла...спасибо

Добавлено через 20 минут
Ребят ну помогите...еще...если мне нужно вывести диагноз на лист, с помощью какой команды это можно сделать?

Visual Basic
1
2
MsgBox "Ôèáðîçíî ïîâåðíîçíàÿ ôîðìà òóáåðêóëóëåçà!", , "Äèàãíîç" 'ñîîáùåíèå
        Exit Sub 'âûõîä èç ïðîöåäóðû

С помошью

Visual Basic
1
Range("N" & n + 1).Value = .Text

не получается...подскажите пожалуйста!

Добавлено через 2 минуты
или сообщения из MsgBox нельзя на лист вывести????

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Lelechka 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 17

	Постановка диагноза о заболевании туберкулезом по заданным параметрам 29.11.2014, 18:31. Показов 2119. Ответов 27 Метки нет (Все метки) Необходимо было создать форму, в которую будут вноситься данные о пациенте, и далее отображаться на листе.(это сделала) по этим данным необходимо поставить диагноз болен или не болен туберкулезом пациент. Подскажите как можно задать параметры сравнения и вывода в форму диагноза. Числовые значения должны укладываться в диапазон нормы (норма параметра указанна в форме). Если все параметры укладываются в норму,то здоров, иначе болен. А с символьными значениями вообще не знаю что делать...как сравнивать?помогите... Миниатюры 0

@Апострофф 9912 / 3933 / 743 Регистрация: 11.10.2011 Сообщений: 5,916
	05.12.2014, 14:20
	А как выглядит условие для болезни? Один (или все?) результаты анализа не в норме и (или?) один ( или все?) из перечисленных признаков совпадают? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	05.12.2014, 14:23
	Да всё просто? написать 378х2 условия всего делов-то! 763*3 сочетаний в комбобоксах и 2 условия по каждому параметру! 0

@Lelechka 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 17
	05.12.2014, 14:29 [ТС]
	Alex77755, ну вот да я девушка и что дальше..вообще то в это время я исправляла косяки свои,прислушавшись всем вашим советам... Добавлено через 4 минуты Alex77755, попробую ограничиться минимальным количеством)))) 0