Программирование в Delphi Урок 3 1 Решение домашнего задания

Уроки программирования в Delphi для начинающих. Урок 3 (часть 1 из 2).
Базовые компоненты Delphi: метка (надпись) - Label, текстовое окно ввода данных - Edit, выпадающий список - ComboBox, кнопка - Button, флажок - CheckBox, изображение - Image.
Переменные, оператор присвоения, условный оператор IF THEN ELSE.
Создание приложения "Калькулятор".
В этой части урока разберем домашнее задание Урока 2.

[VadimLevkin]

Специально под каждым уроком поблагодарю :) ! Потому, что Ваш канал достоин хорошей и большой аудитории! Буду рекомендовать всем, кто изучает Delphi и другие информационные технологии!

[LeraLevo]

Спасибо большое за такие хорошие уроки. У вас очень приятный голос - слушать одно удовольствие. Когда делала задание сама, то затупила, и не поняла, что нужно в конце всё обратно в текст преобразовать. Из-за этого delphi выдавал ошибку. Но благодаря вам, всё получилось.

[justtop]

Спасибо тебе за все! Фиг найдешь в ютубе такого как ты.Ты лучший в своем деле и, объясняешь по человечески.Приятно смотреть такие видео, Вчера сделал калькулятор, сам первый раз и от радости, не знал куда себя деть.Это благодаря тебе, спасибо тебе за все!

[Walentin]

var summa: Double;
a, b, c: Double;
begin
a := StrToFloat(e1.Text);
b := StrToFloat(e2.Text);
c := StrToFloat(e3.Text);
if chTovar1.Checked = false then
a := a * 0 ;
if chTovar2.Checked = False then
b := b * 0 ;
if chTovar3.Checked = False then
c := c * 0;
summa := a + b + c;

e4.Text := FloatToStr(Summa);

Блин, немного не так, но принцип работы такой же:) Классные видосы, учусь с вами!

[tuzzmle]

Отличные уроки. Будем ждать следующий урок!

[AlexLame-tykm]

Интересные и не сложные для восприятия видеоролики.
Буду дальше смотреть твой курс, дружище))

[asloz]

Приятно повторять и даже хочется. Чего я раньше так ленился. СПС
И.. То что ньанс был расказан в конце : инициализровать переменную. Это не перегружает и по сразу по делу в нужный момент рассказано.

[smorchokglista]

Ничего себе, я оказывается уже не начинающий программист. Я просто посмотрел что будет, если не выбрать ни одного товара - мне выдало максимальное значение integer. Додумался присвоить ему 0 до всех операций. Спасибо Вам за уроки!

[nikotim]

Мда, а ларчик то просто открывался..))
Я же сделал через кучу Если, перебрал все варианты развития событий, получилось 7 проверок if...then, а стоило немного над алгоритмом подумать и меньше писать кода пришлось бы..)) Как говорится дурная голова .. рукам покоя не дает))
Спасибо вам большое за уроки!

[KyMaR]

Подскажите, а как убрать ошибку при оставшемся пустом поле с ценой товара, вдруг пользователь нажмет галочку, но в Edit1 оставит пустоту вместо нуля?

[tdifqmb]

Я сначала сложил всё, а потом вычитал, если галочки не стоят. )))

[Pacmeister]

Очень обрадовался когда удалось решить задачку самостоятельно, но для этого мне потребовалось аж 4 переменные и я был уверен что блок "else" является обязательным к написанию. После того как посмотрел "ответ", пришёл в уныние, ведь код решения оказался настолько элегантней, изящней и короче что мне стало не по себе. Многим ведь известно что чем короче код, тем меньше вероятность ошибок и выше скорость его выполнения. Расстроился короче(

[iuvnlqo]

отличный урок)

var summa: real; // Можно выбрать переменные double, real, integer и др.
begin
summa := 0; // Значение по умолчанию.

if CheckBox1.Checked then
summa := summa + StrToFloat(Edit1.Text) // Перевод в числовое значение
else ShowMessage('Пункт 1 не выбран');


if CheckBox2.Checked then
summa := summa + StrToFloat(Edit2.Text) // Перевод в числовое значение
else ShowMessage('Пункт 2 не выбран');


if CheckBox3.Checked then
summa := summa + StrToFloat(Edit3.Text) // Перевод в числовое значение
else ShowMessage('Пункт 3 не выбран');

Edit4.Text:= FloatToStr(summa); // Перевод (обратно) в строковое значение


😀😀😀

[kxuyfpv]

Я правильно понимаю принцип работы If then else. После операторов then или else выполняется только одна строк кода, до ";". Если мы хотим выполнить больше команд, то код нужно заключать в Begin <Код>;...;<Код>; End;

[zysttno]

Добрый день. Возникла необходимость с вами связаться. Укажите по какому контакту можно это сделать.

[alextopsite]

А почему после then не пишете begin? Разве это не считается хорошим тоном в программировании?

[ehbsrhe]

А у меня CheckBox не работает.Не выбрала не одного товара, но когда нажала на кнопку сумма выходит

[mvoeejo]

var a, b, c, sum: double;
begin
if chbtov1.checked = True then
a:= StrToFloat(eStoimost1.Text)
else a:=0;
if chbtov2.checked = True then
b:= StrToFloat(eStoimost2.Text)
else b:=0;
if chbtov3.checked = True then
c:= StrToFloat(eStoimost3.Text)
else c:=0;
sum:= a + b + c;
eItogo.Text:= FloatToStr(sum);

end;
Как-то так получилось)