Всё классно, но хотелось бы увидеть уроки на более сложные темы, к примеру создание клиент серверных приложений - баз данных. Как правильно, и как не надо делать и т.д Спасибо за видео!
Спасибо! Очень полезное видео, и всё получилось! было бы не плохо еще написать в виде документа пошаговую инструкцию) но это уже немного наглости конечно же)
0 + 9 + 1 = 10 (14:57) Это у тебя получилось только потому что у тебя первый ноль... Ибо у тебя знаки "+" , "-" , "*" и "/" - не выполняют действия, и последовательность: 50 + 100 + 500 + 9 + 1 = у тебя тоже даст 10...
А как убрать ноль спереди? Как фильтровать вводимые данные? Ну, в смысле сделать так, чтобы вводились только цифры, а не буквы. А самое главное, как сделать так, чтобы этот калькулятор работал не только с мышки, но при нажатии соответствующих клавиш?
Доброго времени суток! Я немного решил разнообразить калькулятор, подсмотрел кое-где, как можно сделать вычисление факториала, переписал под свои переменные, но почему-то не высчитывается (ну, или, по крайней мере, обратно в эдит не передаётся). Собсно, вот код кнопки: 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 делфи ругается 😁
Здравствуйте! Очень хотелось бы немного осветить тему многовкладочных текстовых редакторов, желательно на компоненте SynEdit, будет очень интересно. Написать такой действительно продвинутый редактор текста:) СПАСИБО!
Привет. Меня зовут Влад. Мне очень понравились твои видео по лазарус. В нас в школе сейчас тема по лазарус и спасиба тебе за то что ти меня научил немного програмировать. Я би хотел что би ти випускал видео бистрее и по более нужним програмам в лазарус. Удачи!
че у меня ошыбка выдала znak :=(Sender.AfterConstruction as TButton).Caption ; ошыбка "as"? unit1.pas(67,35) Error: Class or COM interface type expected, but got "untyped"
бывает, у меня было что при сохранении комп завис, после перезапуска проект уже не запускался и искодники каким то странным образов полетели, ну точнее формат файлов полетел. При открытии там были иероглифы. Теперь урок - создавать как можно чаще копии проекта!!! ))))
А можно ли сделать так чтоб при написании нового примера стирался старый ответ? Просто тут если пример 2+2 а ответ 4 при записи нового примера 5+5 пишет 45+5. Да я знаю что есть кнопки стереть, но хотелось бы чтоб ответ сам пропадал при вводе нового примера. Плиз помоги, мне самому в этом не разобраться.
Почему у меня когда я начал писать код для стирания символов и там используется str и когда я запускаю у меня Компиляция светится не зелёным а красным и выбивает ошибку на str,как ето решить?
выдаёт ошибку procedure Edit1.ClickBut(Sender: TObject).Caption; (в этом месте не могу решить) unit1.pas(46,2) Ошибка: Identifier not found "Edit1" unit1.pas(43,17) Ошибка: method identifier expected пж помогите (
Проект сохранил в папку, запустил- компилировать, что бы создать ехе файл, пишет "идет отладка...", и так уже полчаса. Мне кажется она будет идти вечно. Скажите кто - нибудь, в чем дело ?
как понимаю у вас стоит версия 1.8 ? )) я пока еще не устанавливал новую версию на своем ПК, но знаю что такая ошибка бывает при открытии старых проектов. Пересоздайте вручную проект
На форму? При помощи клика на палитре компонентов, а потом клик по форме. Если только начинаете изучать, то смотрите обновленную серию уроков th-cam.com/video/hqKdAhsH7q0/w-d-xo.html. Там подробно показано.
У меня с 13:59 тип ошибка. не могу запустить проект для проверки, в строке сообщений пишет следуеще: Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 1 unit1.pas(118,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found Что делать?!
@@TheMrDen3D так а что на счет конструктора лазерус, при помощи него не получится? ... если нет, то может можно взять готовый проксификатор и уже через лазерус дополнить его так чтобы в этом проксификаторе менялся прокси через заданное время? так сказать сделать дополнение для стороннего приложения.
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. перед запятой уже есть число
![[Пишем программы на Lazarus]. Простой текстовый редактор](http://i.ytimg.com/vi/5cbHl2vdZnU/mqdefault.jpg)
![[Пишем программы на Lazarus]. Простой текстовый редактор](/img/tr.png)
![[Примеры. Lazarus] Stopwatct - секундомер](http://i.ytimg.com/vi/bwwzlIjwQ0k/mqdefault.jpg)
Самый бесстрашный программист которого я видел, прошло уже 8 минут, а автор ещё ни разу не сохранился
В видео все чётко и грамотно рассказано и показано. Вы мне очень помогли!!!!
МУЖИК ТЫ ЛУЧШИЙ СПАСИБО БЛАГОДАРЯ ТЕБЕ Я НАПИСАЛ КУРСАЧ
Спс. Учителя с информатики удивил)))
Всё классно, но хотелось бы увидеть уроки на более сложные темы, к примеру создание клиент серверных приложений - баз данных. Как правильно, и как не надо делать и т.д
Спасибо за видео!
Уроки с БД планируются позже, пока не знаю с чего начать, сделать уроки по SQL, а потом работа с бд или сразу без учета знаний sql
TheMrDen3D Без учёта знаний sql думаю можно, а вот про структуры таблиц и так далее можно было бы поговорить. )
Спасибо! Очень полезное видео, и всё получилось! было бы не плохо еще написать в виде документа пошаговую инструкцию) но это уже немного наглости конечно же)
0 + 9 + 1 = 10 (14:57) Это у тебя получилось только потому что у тебя первый ноль...
Ибо у тебя знаки "+" , "-" , "*" и "/" - не выполняют действия, и последовательность:
50 + 100 + 500 + 9 + 1 =
у тебя тоже даст 10...
Очень круто!Мы только в школе начали изучать,а я уже калькулятор сделал!Спасибо
Будто калькулятор это что-то сложное
Суперовський! Дякую щиро!
(Суперовский. Спасибо большое)
Спасибо, сдал на "5" лабораторку, целую❤️
Спасибо большое ! Выручил !
Спасибо! Не понимаю, как я бы догадалась об этом. А это лабораторная.
нет, какая лабораторная?
@@TheMrDen3D у нас в лабораторной нужно составить калькулятор. Вам,кстати, неоднократно об этом писали в комментарии.
кстати, если нажать на "=" без введения чисел, выходит ошибка программы.
@@Райми-ф5н МОЖЕТ БЫТЬ, мне из нескольких школ, техникумов писали, что мои видео крутят на парах/уроках в качестве учебного пособия )))
@@Райми-ф5н да, это я забыл предусмотреть )))
Когда пишу Edit1 выдаёт ошибку и какую ты нажимаешь горячую клавишу что бы слово само заполнилось ?
Лайк! КЛассно, всё получилось автор молоодец
А как убрать ноль спереди? Как фильтровать вводимые данные? Ну, в смысле сделать так, чтобы вводились только цифры, а не буквы. А самое главное, как сделать так, чтобы этот калькулятор работал не только с мышки, но при нажатии соответствующих клавиш?
Так же, при запуске появились ошибки. Делал я точно как на видео!
какие ошибки?
@@TheMrDen3D ошибка unit1 .pas не найден
Спасибо бро, помог)
Доброго времени суток! Я немного решил разнообразить калькулятор, подсмотрел кое-где, как можно сделать вычисление факториала, переписал под свои переменные, но почему-то не высчитывается (ну, или, по крайней мере, обратно в эдит не передаётся). Собсно, вот код кнопки:
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 делфи ругается 😁
Что делать
Делал все как на видео
но всеравно + - / * не ставлються
Интересно. мне понравилось
Как у тебя работает case of если он не может работать с типом string?
Вот тоже не могу понять как работает case со str
Теперь хотелось бы стэковый с обратной бесскобочной записью, в стиле МК-61.
И как отлавливать ошибки ввода, типа двух запятых?
як раз проходим цю тему.
мы тоже, у меня какраз 12 пошли))
В каком ты классе был когда вы это проходили?
@@АртёмХаритонов-о6п У нас этого не было в школе, в колледже только)
@@TheMrDen3D, мы сейчас это в 8 классе проходим.
@@qubi7215 +
Здравствуйте! Очень хотелось бы немного осветить тему многовкладочных текстовых редакторов, желательно на компоненте SynEdit, будет очень интересно. Написать такой действительно продвинутый редактор текста:) СПАСИБО!
В планах есть отдельный урок по многовкладочного интерфейса в рамках базового обучения lazarus и урок создания блокнота.
отлично!!! будем ждать, спасибо огромное.
TheMrDen3D Я тоже жду
Выложите как работать с версией 2.2.0
Привет. Меня зовут Влад. Мне очень понравились твои видео по лазарус. В нас в школе сейчас тема по лазарус и спасиба тебе за то что ти меня научил немного програмировать. Я би хотел что би ти випускал видео бистрее и по более нужним програмам в лазарус. Удачи!
Спасибо большое, помогли
Весело, интересно спасибо.
Помоги пожалуйста.Код правильный(не выдает ошибку) но при запуске самой программы выдает ''' is an invalid float
инвалид/хах)
это надо смотреть программу , возможно у тебя передаются неверные данные
че у меня ошыбка выдала znak :=(Sender.AfterConstruction as TButton).Caption ; ошыбка "as"?
unit1.pas(67,35) Error: Class or COM interface type expected, but got "untyped"
Внимательней смотрите видео, далее ошибка исправлена
znak :=(Sender as TButton).Caption ;
Спасибо, но хотелось бы ещё траи сюда вставить, чтобы деление на ноль не допустить
Не могу найти строку куда все вводить... Автор ответь если ты ещё жив!
Строка куда цифры вводить? на первой вкладке Standart - TEdit
Сидел, работал, изучал программу в итоге забыл самое важное при сохраненнии, ФОРМАТ!!! боже как обидно, Поплатился за невнимательность!
бывает, у меня было что при сохранении комп завис, после перезапуска проект уже не запускался и искодники каким то странным образов полетели, ну точнее формат файлов полетел. При открытии там были иероглифы. Теперь урок - создавать как можно чаще копии проекта!!! ))))
А можно ли сделать так чтоб при написании нового примера стирался старый ответ? Просто тут если пример 2+2 а ответ 4 при записи нового примера 5+5 пишет 45+5. Да я знаю что есть кнопки стереть, но хотелось бы чтоб ответ сам пропадал при вводе нового примера. Плиз помоги, мне самому в этом не разобраться.
Как исправить:unit1.pas(66,37) Error: Class or COM interface type expected, but got "untyped"
@Music World да. Токо на 67
Лол в кінці він видалив АфтерКонструкшин
@@МуррКіт бля, це було 2 роки назад, я вже давно це виправив ахахах
@@stepanbandera4518 я аж тепер замітив
Почему у меня когда я начал писать код для стирания символов и там используется str и когда я запускаю у меня Компиляция светится не зелёным а красным и выбивает ошибку на str,как ето решить?
Скопируй то, что он пишет и скинь сюда
У меня высвечивается ошибка там где str := Edit1.Text; из за чего это может быть??
А как сделать чтобы любое число в куб возврдилось
Edit1.Text:=Edit1:Text + ( Sender as TButton).Caption; правильно же?
Edit1.Text:=Edit1.Text + ( Sender as TButton).Caption;
нет у тебя двоиточие вместо точки
хороший разбор, как насчет приложений?
да, планируются, но бывают непредвиденные ситуации которые ломают все планы. Я еще 4 месяца назад планировал ряд уроков по разработке приложений )
Здравствуй , не мог бы показать простейший электронный учебник на основе TreeView? Спасибо.
В планах имеется такая тема, но пока нет времени сесть за съемки уроков
Я таке в школі роблю
Респект я за ранее готовлюсь)
я тоже
Теж)))
Я тоже
+
Зачем AfterConstruction?
сними видео в котором покажеш команды Sender и case
выдаёт ошибку
procedure Edit1.ClickBut(Sender: TObject).Caption; (в этом месте не могу решить)
unit1.pas(46,2) Ошибка: Identifier not found "Edit1"
unit1.pas(43,17) Ошибка: method identifier expected
пж помогите (
7:39 ошибка компиляции. Код if str ' ' then слово когда не работает, выбивает ошибку. Пж помоги
напиши что за ошибка,
Спасибо вам. Благодаря высокому качевству видео сам заметил ошибку в слове длина .Теперь всё работает.
Проект сохранил в папку, запустил- компилировать, что бы создать ехе файл, пишет "идет отладка...", и так уже полчаса. Мне кажется она будет идти вечно. Скажите кто - нибудь, в чем дело ?
Делал пробный запуск. Ничего не получилось. Пишет ,что индетификатор едит1 не найден. Помогите!
ты создавал сам проект? или запускал готовый? В готовом не должно быть ошибок.
Музыку в студию. Если не сложно)
здравствуйте , а можно весь текст в документе?
Не видит команду case of есть решение? можешь помочь пожалуйста ?
что делать если такое ошибко вышло Fatal: Невозможно найти gettext исползуемый в Laz UTF8 пакета LazUtils
как понимаю у вас стоит версия 1.8 ? )) я пока еще не устанавливал новую версию на своем ПК, но знаю что такая ошибка бывает при открытии старых проектов. Пересоздайте вручную проект
Как сделать чтоюы в калькуляторе можно было решить например тако пример : 2x +2 / 6 и т.д. как?
класно все вийшло
Здравствуйте! А это на каком языке пишется ??
pascal
Почему, я пишу процедуру и предыдущая переименовуется также?
У меня ошибка error:overloaded functions have the same parameter list
Клас мені сподобалось.
Кому треба! Автору Велика подяка!
drive.google.com/open?id=0B-vKZDuh9IEmV0JLblVqWkhvWkE
Боже, величезне дякую)
Дякую брат)
У меня выдаёт ошибку "" is an invalid float и при проверке всё нормально,но цифры и знаки не вводятся
Это значит, что ты хочешь преобразовать ничего в дробное число
Доброго дня підскажіть будь ласка як доблювати кнопки?
На форму? При помощи клика на палитре компонентов, а потом клик по форме. Если только начинаете изучать, то смотрите обновленную серию уроков th-cam.com/video/hqKdAhsH7q0/w-d-xo.html. Там подробно показано.
Я когда копирую кнопки, то они появляются с верху и не пишется but2 что делать???
Прикольно.....
У меня после первой компиляции пишет Edit1 not found ?
не должно быть такого, ты исходники скачал или по видео делал?
У меня с 13:59 тип ошибка.
не могу запустить проект для проверки,
в строке сообщений пишет следуеще:
Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 1
unit1.pas(118,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found
Что делать?!
возможно что-то пропустил. скачай исходники github.com/Den3D/SrcExLazarusProgram
Школа👌
а где проверка на две плавающие точки? ))
а покажи плиз, как сделать тотал командер в лазарусе) я слышал что тотал сделан именно здесь)
для этого надо больше знаний, пока это для канала не подходит
thank you ! are you Robocop ? :D
напишешь мне проксификатор с автосменой прокси через заданный интервал времени?
нет
@@TheMrDen3D за деньги же, а можно вообще через этот конструктор такое собрать?
и за деньги нет, времени нет особо, попробуй на фрилансе задание кинуть
@@TheMrDen3D так а что на счет конструктора лазерус, при помощи него не получится? ... если нет, то может можно взять готовый проксификатор и уже через лазерус дополнить его так чтобы в этом проксификаторе менялся прокси через заданное время? так сказать сделать дополнение для стороннего приложения.
Спасибо помог
Как дублиривать?
Как сделать, чтобы запятая не повторялась при вводе дробного числа?
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. перед запятой уже есть число
А как ты продублировал кнопки?
Ctrl+C (Copy), ctrl+V (Paste)
Ошибки
супер спасибо
спасибо в карман не положишь и на хлеб не намажешь так что пенсию свою давай
выдает ошибку в case znak of (что-то с типом переменной не так)
а можете скинуть саму программу "калькулятор" пожалуйста
на гитхабе лежит
github.com/Den3D/SrcExLazarusProgram
Разве это не Delphi?
Когда я нажимаю C у меня все стирается вместо того чтобы был 0
А как назад добавить
Я только учюсь, но почему при запуске у меня пишет индификатор ненайден ?
/Спасибо очень помог
КАК ДУБЛИРОВАТЬ?
Ctrl +c , ctrl+v
а что с деление на ноль делать?!
умножать на 10000000000000000000000000
А как сделать отрицательные числа?
скажите пж как дублировать не понимаю пресмотрел уже кучу раз
нажимаешь на правую кнопку по выбранному батону и там будет скопировать, потом нажимаешь сочетания клавиш Ctrl+V и все
Повторяю за вами. Получаю ошибку. Где я не прав?
cloud.mail.ru/public/DvM5/sXiX9Cg7u
При запуске все ок, успешно, но не выходит окно проверки
в каком плане, " не выходит окно проверки"?
У меня ошибка, не находит файл в проекте, помогите пожалуйста?
Сегодня на эту тему будет урок, как установить версию 1.8 и исправить ошибки связанные с ней
Ну блин почему я только создаю проект делаю все кнопки и меняю название а у меня в редакторе исходного кода нету procedure ни одной
А нет всё поулчилось
что делать если не распознаёт команду Delete?
Может ты что-то не так написал?
почему выдает ошибку что не корректно записано ?
посмотри на мои исходники github.com/Den3D/SrcExLazarusProgram
как сделать таблицу умножения в lazarus ?пожалуйста!!!8 класс
Вывести в листбокс
Як копіювати кнопки ?
Как продублировать кнопки?
читай в коментах, я уже раз 10 написал
как исправить ошибку Indentifier not found
это значит что переменную не обьявил
Спасибо огромное
У меня показываетошыбку в слове implementation
надо смотреть весь код, ошибка может быть в чем угодно
Какой комбинацией на выполнение запустить
F9