не могу разобраться как писать на vb)

@paxan86 · Регистрация: 18.05.2011

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

есть бд.
есть 4 поля:
1поле - фактическое исп. холодной воды
2поле - норма исп холодной воды
3поле - факт. исп. горячей воды
4поле - норма исп горячей воды
Расчёты:
если 1 поле - 2 поле >=1 ТО 1 поле - 2 поле\1*1000
если 3 поле - 4 поле >=1 ТО 3 поле - 4 поле\1*1000
Вот в этих расчётах выше загвоздка...
Они должны расчитываться если 1 поле > 2 поля и 3 поле > 4 поля....
как это сделать не могу ума приложить)
Подскажите синтаксис)
Где делаю эти расчёты видно на скрине ниже...
А также сама БД.

Заранее спасибо.

@alvk · 21.09.2012, 07:11

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

если 1 поле - 2 поле >=1 ТО 1 поле - 2 поле\1*1000
если 3 поле - 4 поле >=1 ТО 3 поле - 4 поле\1*1000

Это пятое поле? А почему две суммы? Вообщем вместе они существовать не могут, смотрите события формы:

@sekonya · 21.09.2012, 17:56

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

1 поле - 2 поле\1*1000

как такое понять? делить на 1 умноженное на 1000)
не проще просто на 1000 разделить?

Добавлено через 2 минуты
а вообще. примите на вооружение советы alvk

@paxan86 · 21.09.2012, 22:12 **[ТС]**

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

как такое понять? делить на 1 умноженное на 1000)
не проще просто на 1000 разделить?

Добавлено через 2 минуты
а вообще. примите на вооружение советы alvk

Это не деление) т.е. это деление но целочисленное знак в другую сторону)

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

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

Это пятое поле? А почему две суммы? Вообщем вместе они существовать не могут, смотрите события формы:

Про кошмар в связях)) Это я придумал, я не нифига не понял как, что связывать, вот и связал так сказать рандомом))
Про краткость учту спасибо)
Я так понял раз вы выложили мою БД, то что-то поменяли? Поясните пожалуйста...

@sekonya · 21.09.2012, 22:17

paxan86,
ну если вам на организацию базы наплевать, делайте так:

Visual Basic
1
2
if me.поле1 > me.поле2 then
a = me.поле1-me.поле2\1*1000

@paxan86 · 21.09.2012, 22:52 **[ТС]**

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

paxan86,
ну если вам на организацию базы наплевать, делайте так:

Visual Basic
1
2
if me.поле1 > me.поле2 then
a = me.поле1-me.поле2\1*1000

Не совсем понял, на что наплевать?
If then работает в том поле который на скрине "Построитель выражений"?
или как-то макрос отдельно?

Добавлено через 5 минут
Я так понял вы про связь?) нет мне не наплевать, просто не понял эту часть...

Добавлено через 4 минуты
Код нужен такой:
если поле 1> поле 2 то me.поле1-me.поле2\1*1000
если поле 3 > поле 4 то me.поле3-me.поле4\1*1000
или если 1 поле > 2 поля И 3 поле > 4 поля То me.поле1-me.поле2\1*1000 + me.поле3-me.поле4\1*1000

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

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

Это пятое поле? А почему две суммы? Вообщем вместе они существовать не могут, смотрите события формы:

либо по одной сумме должно считаться, если условие выполнено, либо 2е сумы складываются если оба условия выполнены..

@sekonya · 21.09.2012, 22:55

Visual Basic
1
2
if me.поле1 > me.поле2 and me.поле3 > me.поле4 then
a = (me.поле1-me.поле2\1*1000) + (me.поле3-me.поле4\1*1000)

что тут не понятного?

@paxan86 · 21.09.2012, 22:58 **[ТС]**

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

Visual Basic
1
2
if me.поле1 > me.поле2 and me.поле3 > me.поле4 then
a = (me.поле1-me.поле2\1*1000) + (me.поле3-me.поле4\1*1000)

что тут не понятного?

не понятно куда этот код пихать)

Добавлено через 43 секунды
и что за переменная а?

@sekonya · 21.09.2012, 23:01

ну вам где это значение нужно?

@paxan86 · 21.09.2012, 23:03 **[ТС]**

в "поле 5"
на скриншоте видно, где формула написана...(Штраф (рублей))

@sekonya · 21.09.2012, 23:05

как все запущено!)))

@paxan86 · 21.09.2012, 23:07 **[ТС]**

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

как все запущено!)))

что именно?)

@sekonya · 21.09.2012, 23:09

пару минут подождите!

@paxan86 · 21.09.2012, 23:10 **[ТС]**

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

пару минут подождите!

Окей)

@sekonya · 21.09.2012, 23:27

смотрите, после введения данных в ваши поля значение меняется

@paxan86 · 21.09.2012, 23:31 **[ТС]**

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

смотрите, после введения данных в ваши поля значение меняется

нечего не понял)

Добавлено через 47 секунд
какие поля?) какое значение))?

@sekonya · 21.09.2012, 23:34

вводите в ваши поля данные по воде. по холодной по горячей и смотрите как еняется значение поля33

@paxan86 · 21.09.2012, 23:38 **[ТС]**

ну так они же там введены... ? или это такая фича?)

Добавлено через 1 минуту
где можно посмотреть на формулу?

Добавлено через 26 секунд
расчёты не правильные, или я что-то не так понял?

@sekonya · 21.09.2012, 23:39

свойства поля холоднойводы, вкладка события, событие после обновления нажмите на ...
можете эту форму на событие открытие формы повесить, тогда после открытия будет это значение

@paxan86 · 21.09.2012, 23:40 **[ТС]**

нашёл где формула) а только так это возможно реализоват ? а сразу чтоб результат был нельзя?

Добавлено через 34 секунды
Спасибо, щяс по разбираюсь...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@sekonya 609 / 388 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	21.09.2012, 23:01
	ну вам где это значение нужно? 1

@paxan86 51 / 46 / 8 Регистрация: 18.05.2011 Сообщений: 497
	21.09.2012, 23:03 [ТС]
	в "поле 5" на скриншоте видно, где формула написана...(Штраф (рублей)) 0

@sekonya 609 / 388 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	21.09.2012, 23:05
	как все запущено!))) 1

@sekonya 609 / 388 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	21.09.2012, 23:09
	пару минут подождите! 1

@sekonya 609 / 388 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	21.09.2012, 23:34
	вводите в ваши поля данные по воде. по холодной по горячей и смотрите как еняется значение поля33 1

@paxan86 51 / 46 / 8 Регистрация: 18.05.2011 Сообщений: 497
	21.09.2012, 23:38 [ТС]
	ну так они же там введены... ? или это такая фича?) Добавлено через 1 минуту где можно посмотреть на формулу? Добавлено через 26 секунд расчёты не правильные, или я что-то не так понял? 0

@sekonya 609 / 388 / 8 Регистрация: 14.04.2011 Сообщений: 1,324
	21.09.2012, 23:39
	свойства поля холоднойводы, вкладка события, событие после обновления нажмите на ... можете эту форму на событие открытие формы повесить, тогда после открытия будет это значение 1

@paxan86 51 / 46 / 8 Регистрация: 18.05.2011 Сообщений: 497
	21.09.2012, 23:40 [ТС]
	нашёл где формула) а только так это возможно реализоват ? а сразу чтоб результат был нельзя? Добавлено через 34 секунды Спасибо, щяс по разбираюсь... 0

не могу разобраться как писать на vb)

Решение