[Пишем программы на Lazarus]. Пишем калькулятор

[@playplay5732]

Самый бесстрашный программист которого я видел, прошло уже 8 минут, а автор ещё ни разу не сохранился

[@zlatochkka]

В видео все чётко и грамотно рассказано и показано. Вы мне очень помогли!!!!

[@АлександрГордиенко-з8е]

Спс. Учителя с информатики удивил)))

[@muntercripple3180]

МУЖИК ТЫ ЛУЧШИЙ СПАСИБО БЛАГОДАРЯ ТЕБЕ Я НАПИСАЛ КУРСАЧ

[@artyomchik6983]

Очень круто!Мы только в школе начали изучать,а я уже калькулятор сделал!Спасибо

[@inqurity]

Будто калькулятор это что-то сложное

[@СашкаБелый-ч6м]

0 + 9 + 1 = 10 (14:57) Это у тебя получилось только потому что у тебя первый ноль... Ибо у тебя знаки "+" , "-" , "*" и "/" - не выполняют действия, и последовательность: 50 + 100 + 500 + 9 + 1 = у тебя тоже даст 10...

[@s1dsp3arss]

Когда пишу Edit1 выдаёт ошибку и какую ты нажимаешь горячую клавишу что бы слово само заполнилось ?

[@anyutkaboikoanna9383]

Спасибо! Очень полезное видео, и всё получилось! было бы не плохо еще написать в виде документа пошаговую инструкцию) но это уже немного наглости конечно же)

[@МВолков-с6ж]

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

[@TxenuxV]

Всё классно, но хотелось бы увидеть уроки на более сложные темы, к примеру создание клиент серверных приложений - баз данных. Как правильно, и как не надо делать и т.д Спасибо за видео!

[@TheMrDen3D]

Уроки с БД планируются позже, пока не знаю с чего начать, сделать уроки по SQL, а потом работа с бд или сразу без учета знаний sql

[@TxenuxV]

TheMrDen3D Без учёта знаний sql думаю можно, а вот про структуры таблиц и так далее можно было бы поговорить. )

[@ИванЗеленков-е8п]

Спасибо, сдал на "5" лабораторку, целую❤️

[@denayed]

7:39 ошибка компиляции. Код if str ' ' then слово когда не работает, выбивает ошибку. Пж помоги

[@TheMrDen3D]

напиши что за ошибка,

[@denayed]

Спасибо вам. Благодаря высокому качевству видео сам заметил ошибку в слове длина .Теперь всё работает.

[@Райми-ф5н]

Спасибо! Не понимаю, как я бы догадалась об этом. А это лабораторная.

[@TheMrDen3D]

нет, какая лабораторная?

[@Райми-ф5н]

@@TheMrDen3D у нас в лабораторной нужно составить калькулятор. Вам,кстати, неоднократно об этом писали в комментарии.

[@Райми-ф5н]

кстати, если нажать на "=" без введения чисел, выходит ошибка программы.

[@TheMrDen3D]

@@Райми-ф5н МОЖЕТ БЫТЬ, мне из нескольких школ, техникумов писали, что мои видео крутят на парах/уроках в качестве учебного пособия )))

[@TheMrDen3D]

@@Райми-ф5н да, это я забыл предусмотреть )))

[@s1nL1g]

че у меня ошыбка выдала znak :=(Sender.AfterConstruction as TButton).Caption ; ошыбка "as"? unit1.pas(67,35) Error: Class or COM interface type expected, but got "untyped"

[@TheMrDen3D]

Внимательней смотрите видео, далее ошибка исправлена znak :=(Sender as TButton).Caption ;

[@veronika6516]

Суперовський! Дякую щиро! (Суперовский. Спасибо большое)

[@ДімаОлійник-е1ъ]

Что делать Делал все как на видео но всеравно + - / * не ставлються

[@bogdanantonuk482]

У меня с 13:59 тип ошибка. не могу запустить проект для проверки, в строке сообщений пишет следуеще: Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 1 unit1.pas(118,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found Что делать?!

[@TheMrDen3D]

возможно что-то пропустил. скачай исходники github.com/Den3D/SrcExLazarusProgram

[@yuryev_art]

Как у тебя работает case of если он не может работать с типом string?

[@Murzik_Kisulya]

Вот тоже не могу понять как работает case со str

[@JohnSmith-bf1bz]

Теперь хотелось бы стэковый с обратной бесскобочной записью, в стиле МК-61. И как отлавливать ошибки ввода, типа двух запятых?

[@stepanbandera4518]

Как исправить:unit1.pas(66,37) Error: Class or COM interface type expected, but got "untyped"

[@МуррКіт]

@Music World да. Токо на 67

[@МуррКіт]

Лол в кінці він видалив АфтерКонструкшин

[@stepanbandera4518]

@@МуррКіт бля, це було 2 роки назад, я вже давно це виправив ахахах

[@МуррКіт]

@@stepanbandera4518 я аж тепер замітив

[@Sadnes_s]

А можно ли сделать так чтоб при написании нового примера стирался старый ответ? Просто тут если пример 2+2 а ответ 4 при записи нового примера 5+5 пишет 45+5. Да я знаю что есть кнопки стереть, но хотелось бы чтоб ответ сам пропадал при вводе нового примера. Плиз помоги, мне самому в этом не разобраться.

[@АнитаМосквина-э7э]

У меня высвечивается ошибка там где str := Edit1.Text; из за чего это может быть??

[@АлександрЩербатых-л1н]

Выложите как работать с версией 2.2.0

[@ВладиславКлючук-л3н]

Привет. Меня зовут Влад. Мне очень понравились твои видео по лазарус. В нас в школе сейчас тема по лазарус и спасиба тебе за то что ти меня научил немного програмировать. Я би хотел что би ти випускал видео бистрее и по более нужним програмам в лазарус. Удачи!

[@cptmctawish]

Помоги пожалуйста.Код правильный(не выдает ошибку) но при запуске самой программы выдает ''' is an invalid float

[@РобертКамінський]

инвалид/хах)

[@TheMrDen3D]

это надо смотреть программу , возможно у тебя передаются неверные данные

[@ДенисРудківський]

як раз проходим цю тему.

[@РобертКамінський]

мы тоже, у меня какраз 12 пошли))

[@АртёмХаритонов-о6п]

В каком ты классе был когда вы это проходили?

[@TheMrDen3D]

@@АртёмХаритонов-о6п У нас этого не было в школе, в колледже только)

[@qubi7215]

@@TheMrDen3D, мы сейчас это в 8 классе проходим.

[@gaidaidplanetgames5926]

@@qubi7215 +

[@Fraud9]

Спасибо большое ! Выручил !

[@TV-kl4yq]

Как сделать чтоюы в калькуляторе можно было решить например тако пример : 2x +2 / 6 и т.д. как?

[@lowrensium288]

А как сделать чтобы любое число в куб возврдилось

[@victorg6350]

Проект сохранил в папку, запустил- компилировать, что бы создать ехе файл, пишет "идет отладка...", и так уже полчаса. Мне кажется она будет идти вечно. Скажите кто - нибудь, в чем дело ?

[@eist5012]

выдаёт ошибку procedure Edit1.ClickBut(Sender: TObject).Caption; (в этом месте не могу решить) unit1.pas(46,2) Ошибка: Identifier not found "Edit1" unit1.pas(43,17) Ошибка: method identifier expected пж помогите (

[@YuraKalgan]

Зачем AfterConstruction?

[@ВераКаряковцева]

Почему, я пишу процедуру и предыдущая переименовуется также?

[@sophianickolaenko2011]

здравствуйте , а можно весь текст в документе?

[@piassanodavinci5140]

Я когда копирую кнопки, то они появляются с верху и не пишется but2 что делать???

[@НуржаусынТагаев]

Не видит команду case of есть решение? можешь помочь пожалуйста ?

[@vladbjashirov1560]

Так же, при запуске появились ошибки. Делал я точно как на видео!

[@TheMrDen3D]

какие ошибки?

[@misha77729]

​@@TheMrDen3D ошибка unit1 .pas не найден

[@Lkramss]

что делать если такое ошибко вышло Fatal: Невозможно найти gettext исползуемый в Laz UTF8 пакета LazUtils

[@TheMrDen3D]

как понимаю у вас стоит версия 1.8 ? )) я пока еще не устанавливал новую версию на своем ПК, но знаю что такая ошибка бывает при открытии старых проектов. Пересоздайте вручную проект

[@yaroslavsunshine]

Почему у меня когда я начал писать код для стирания символов и там используется str и когда я запускаю у меня Компиляция светится не зелёным а красным и выбивает ошибку на str,как ето решить?

[@playplay5732]

Скопируй то, что он пишет и скинь сюда

[@modenov]

Здравствуйте! Очень хотелось бы немного осветить тему многовкладочных текстовых редакторов, желательно на компоненте SynEdit, будет очень интересно. Написать такой действительно продвинутый редактор текста:) СПАСИБО!

[@TheMrDen3D]

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

[@modenov]

отлично!!! будем ждать, спасибо огромное.

[@blues5154]

TheMrDen3D Я тоже жду

[@oleksiifilatov2021]

Сидел, работал, изучал программу в итоге забыл самое важное при сохраненнии, ФОРМАТ!!! боже как обидно, Поплатился за невнимательность!

[@TheMrDen3D]

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

[@АндрейПолтавец-х3в]

Делал пробный запуск. Ничего не получилось. Пишет ,что индетификатор едит1 не найден. Помогите!

[@TheMrDen3D]

ты создавал сам проект? или запускал готовый? В готовом не должно быть ошибок.

[@pereostit]

У меня после первой компиляции пишет Edit1 not found ?

[@TheMrDen3D]

не должно быть такого, ты исходники скачал или по видео делал?

[@alonaphone4853]

У меня выдаёт ошибку "" is an invalid float и при проверке всё нормально,но цифры и знаки не вводятся

[@playplay5732]

Это значит, что ты хочешь преобразовать ничего в дробное число

[@vilka661]

Edit1.Text:=Edit1:Text + ( Sender as TButton).Caption; правильно же?

[@TheMrDen3D]

Edit1.Text:=Edit1.Text + ( Sender as TButton).Caption;

[@forgottenvoid8025]

нет у тебя двоиточие вместо точки

[@НатальяМокроусова-ц6ф]

выдает ошибку в case znak of (что-то с типом переменной не так)

[@nadejdakotikova6192]

а что с деление на ноль делать?!

[@АннаСірик-к2п]

умножать на 10000000000000000000000000

[@ГаращенкоДаниил]

Лайк! КЛассно, всё получилось автор молоодец

[@fasterua4176]

У меня проблема с компонентом var znak : String;

[@yuricode92]

Доброго времени суток! Я немного решил разнообразить калькулятор, подсмотрел кое-где, как можно сделать вычисление факториала, переписал под свои переменные, но почему-то не высчитывается (ну, или, по крайней мере, обратно в эдит не передаётся). Собсно, вот код кнопки: procedure TCalcLightForm.BtnFactorialClick(Sender: TObject); begin f := StrToInt(EdResult.Text); g := 1; for h := 1 to f do begin g := g * h; EdResult.Text := IntToStr(f) end; end; ещё хотел я прикрутить окно с ошибкой переполнения целых чисел в этот код, но не могу понять, куда его можно прилепить, т.к. на else и except 11 делфи ругается 😁

[@yato6338]

Не могу найти строку куда все вводить... Автор ответь если ты ещё жив!

[@TheMrDen3D]

Строка куда цифры вводить? на первой вкладке Standart - TEdit

[@MrRaphael_Santi]

Как сделать, чтобы запятая не повторялась при вводе дробного числа?

[@karlshtolz1066]

procedure TForm1.BpointClick(Sender: TObject); begin tmp_display := Et1.Text; tmp_len := tmp_display.Length; tmp_chars := tmp_display.ToCharArray(1, tmp_len); IF (tmp_len 0) AND ((tmp_display[tmp_len] = '0') OR (tmp_display[tmp_len] = '1') OR (tmp_display[tmp_len] = '2') OR (tmp_display[tmp_len] = '3') OR (tmp_display[tmp_len] = '4') OR (tmp_display[tmp_len] = '5') OR (tmp_display[tmp_len] = '6') OR (tmp_display[tmp_len] = '7') OR (tmp_display[tmp_len] = '8') OR (tmp_display[tmp_len] = '9')) THEN Et1.Text := tmp_display + ','; end; условия разрешают ставить десятичную запятую если: 1. строка не пустая 2. перед запятой уже есть число

[@kemsnowkiting]

а где проверка на две плавающие точки? ))

[@amxifebi]

Здравствуй , не мог бы показать простейший электронный учебник на основе TreeView? Спасибо.

[@TheMrDen3D]

В планах имеется такая тема, но пока нет времени сесть за съемки уроков

[@zot1ck275]

Весело, интересно спасибо.

[@yanag695]

Як копіювати кнопки ?

[@文字のセット]

Я только учюсь, но почему при запуске у меня пишет индификатор ненайден ?

[@ДаниловВ.А]

Здравствуйте! А это на каком языке пишется ??

[@TheMrDen3D]

pascal

[@sasharudnick6254]

КАК ДУБЛИРОВАТЬ?

[@TheMrDen3D]

Ctrl +c , ctrl+v

[@ДенисРудківський]

Я таке в школі роблю

[@TheRenderOfficialChannel]

Респект я за ранее готовлюсь)

[@yaross143]

я тоже

[@РоманЧатовий]

Теж)))

[@makssakurai710]

Я тоже

[@Chrom-gx7uh]

+

[@dip8188]

Музыку в студию. Если не сложно)

[@ТататаТататата-ф6ы]

Когда я нажимаю C у меня все стирается вместо того чтобы был 0

[@ГрищукМарія-с7б]

Доброго дня підскажіть будь ласка як доблювати кнопки?

[@TheMrDen3D]

На форму? При помощи клика на палитре компонентов, а потом клик по форме. Если только начинаете изучать, то смотрите обновленную серию уроков kzbin.info/www/bejne/nqKulXSeqK1qp5I. Там подробно показано.

[@arkadii4052]

А как ты продублировал кнопки?

[@Олег-й7ы9ъ]

Ctrl+C (Copy), ctrl+V (Paste)

[@nastyakovalenko2332]

У меня ошибка, не находит файл в проекте, помогите пожалуйста?

[@TheMrDen3D]

Сегодня на эту тему будет урок, как установить версию 1.8 и исправить ошибки связанные с ней

[@xristos3676]

почему выдает ошибку что не корректно записано ?

[@TheMrDen3D]

посмотри на мои исходники github.com/Den3D/SrcExLazarusProgram

[@АлисаМай-с7р]

что делать если не распознаёт команду Delete?

[@TheMrDen3D]

Может ты что-то не так написал?

[@ОбычныйСтудент-ж9э]

Спасибо, но хотелось бы ещё траи сюда вставить, чтобы деление на ноль не допустить

[@interestinglydeliciouschin8592]

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

[@TheMrDen3D]

нет

[@interestinglydeliciouschin8592]

@@TheMrDen3D за деньги же, а можно вообще через этот конструктор такое собрать?

[@TheMrDen3D]

и за деньги нет, времени нет особо, попробуй на фрилансе задание кинуть

[@interestinglydeliciouschin8592]

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

[@сергійфещук-ы9с]

скажите пж как дублировать не понимаю пресмотрел уже кучу раз

[@krytoi4ell219]

нажимаешь на правую кнопку по выбранному батону и там будет скопировать, потом нажимаешь сочетания клавиш Ctrl+V и все

[@zlork6380]

Разве это не Delphi?

[@bykovec2010]

Интересно. мне понравилось

[@кобольтковалевский]

Какой комбинацией на выполнение запустить

[@TheMrDen3D]

F9

[@НикитаТрегубов-т6з]

хороший разбор, как насчет приложений?

[@TheMrDen3D]

да, планируются, но бывают непредвиденные ситуации которые ломают все планы. Я еще 4 месяца назад планировал ряд уроков по разработке приложений )

[@prometheusmusic4559]

а покажи плиз, как сделать тотал командер в лазарусе) я слышал что тотал сделан именно здесь)

[@TheMrDen3D]

для этого надо больше знаний, пока это для канала не подходит

[@МаринаГнатенко-ы4п]

Спасибо большое, помогли

[@dakrak7097]

а можете скинуть саму программу "калькулятор" пожалуйста

[@TheMrDen3D]

на гитхабе лежит github.com/Den3D/SrcExLazarusProgram

[@julir251]

как запустить на исполнение?

[@TheMrDen3D]

F9

[@Сергей-ь7ц7й]

сними видео в котором покажеш команды Sender и case

[@andrii_ka]

Спасибо бро, помог)

[@ГлебСоловьёв-з8к]

как сделать таблицу умножения в lazarus ?пожалуйста!!!8 класс

[@ГлебСоловьёв-з8к]

Вывести в листбокс

[@fury_legends8912]

У меня показываетошыбку в слове implementation

[@TheMrDen3D]

надо смотреть весь код, ошибка может быть в чем угодно

[@romanhoncharyk6155]

как запустить на исполнение

[@МолодойЧеловек-з4п]

F9

[@ГаращенкоДаниил]

Ну блин почему я только создаю проект делаю все кнопки и меняю название а у меня в редакторе исходного кода нету procedure ни одной

[@ГаращенкоДаниил]

А нет всё поулчилось

[@xxx_bak_mih_xxxtv1383]

Как ты вызываещ помощника?

[@1nvar]

стрл + пробел

[@nazardoe]

Влад Влад спасибо

[@1nvar]

скука скука пжлст

[@СемёнАкатов]

как исправить ошибку Indentifier not found

[@x3mmusic1]

это значит что переменную не обьявил

[@vitcoinvitcoin9304]

При запуске все ок, успешно, но не выходит окно проверки

[@TheMrDen3D]

в каком плане, " не выходит окно проверки"?

[@yuratonkoglas296]

А что означает команда sqrt

[@prometheusmusic4559]

yura tonkoglas sqrt это вроде как бы х^2. ток он потом исправил на sqr, что было правильно

[@aiterosabotage8409]

корень квадратный, на сколько я помню

[@user-luzer]

Повторяю за вами. Получаю ошибку. Где я не прав? cloud.mail.ru/public/DvM5/sXiX9Cg7u

[@mr.mironwtf6096]

как копировать

[@TV-tv3is]

я неможу перейминовать вибиває імя не є коректним індифікатором поможіть

[@vladyslavbosyi4881]

Введи не в строке Name, а в строке Caption

[@_slauik_63]

У меня при запуске проекта после созраниние в папку не находит 'unit1.pas'

[@СемёнАкатов]

и ошибку illegal character ''п''

[@x3mmusic1]

а это скорее всего он жалется, что переменная не может быть русским символом

[@yarikakc182]

что делать если у меня не появляется процедура

[@banacan1232]

как дублиревать

[@sabonchik]

как нажать на испалниние

[@danielspoTVchannel]

F9

[@КолкиОЗНВК]

Кому треба! Автору Велика подяка! drive.google.com/open?id=0B-vKZDuh9IEmV0JLblVqWkhvWkE

[@Ada-yk9kw]

Боже, величезне дякую)

[@cosmokotik0292]

Дякую брат)

[@Gibagiba_0]

Можно в ворде символ наити и скопировать в лазарус ✌️

[@tellan7469]

Пишет что имя 1 не является коректным

[@TheMrDen3D]

цифрами нельзя задавать имена объектов и переменных

[@ДімаОлійник-е1ъ]

Я не могу ставить + - * /