Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.55/1149: Рейтинг темы: голосов - 1149, средняя оценка - 4.55
BaboshinSD
341 / 280 / 49
Регистрация: 15.11.2012
Сообщений: 477
Записей в блоге: 1
1

Полезные коды для PascalABC.NET

23.03.2013, 15:03. Просмотров 208157. Ответов 125

В этой теме размещаются полезные исходники программ, различные процедуры и функции, а так же готовые решения на часто задаваемые вопросы, написанные на PascalABC.NET.

Поддержать тему и добавить свои примеры, исходники и пр. может каждый, после того, как ознакомиться с правилами темы:
Правила темы!
  1. Запрещается добавлять коды программ никак не связанные с PascalABC.NET, для этих программ есть другие темы и разделы.
  2. Не рекомендуется добавлять слишком простые примеры, типа "Как добавить текст на кнопку?" и пр.
  3. Перед тем как выложить код, подумайте будет ли он кому-то интересен или полезен.
  4. Приветствуются сложные примеры или проекты, а так же программы с интересным принципом работы.
  5. Если программа использует сторонние ресурсы (изображения, библиотеки и пр.) обязательно прикрепляйте их во вложении
  6. Обязательно подробно комментируйте свой код, чтобы другим было проще разобраться в нём.
  7. Тема ведётся в формате Вопрос-Ответ, поэтому все сообщения оформляются в таком виде:
    В: Как что-то сделать?
    О:
    Делаем что-то
    Pascal
    1
    
    // Тут код
  8. Если вы хотите отредактировать свой код, можно обратиться к модераторам раздела или к ТС.


Путеводитель по теме:


Работа с формами:

Готовые решения:
Готовые решения на часто задаваемые вопросы.

Работа с графикой:
Исходники программ, работающих с графикой и графическими библиотеками (GraphABC, OpenGL и пр.).
Проектирование игр:
Инструкции, советы и пр.:
Инструкции, касающиеся работы с PascalABC.NET, советы для новичков и пр.
Работа со строками:
Базовые алгоритмы:
25
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2013, 15:03
Ответы с готовыми решениями:

Модуль для PascalABC.NET
Здравствуйте уважаемые форумчане, возник вопрос почему не работает модуль. Вот модуль unit...

Исправить код для PascalABC.net
как минимум, первое место которое ему не нравиться это как я обьявляю тип объект const size=10; ...

Процедура GetMem для PascalABC.NET
Долго долго курил страницы форума, изучал динамические списки. Когда код для программы уже...

Есть ли PascalABC.NET для Mac OS X?
Есть ли PascalABC.NET для Mac OS X?

В чем разница PascalABC.net и PascalABC
Скажите в чем разница PascalABC.net И PascalABC. Помню когда-то давно программы работающие в...

125
Вячеслав Зозуля
0 / 0 / 0
Регистрация: 11.01.2018
Сообщений: 23
28.04.2018, 19:33 121
Цитата Сообщение от BaboshinSD Посмотреть сообщение
В: Как программно выключить компьютер?
ну зачем такие сложности. это можно написать в одну строчку:
Pascal
1
Execute('cmd.exe','/c shutdown /s /t 0');
0
Соколиный глаз
C#
273 / 213 / 123
Регистрация: 25.07.2014
Сообщений: 4,162
Записей в блоге: 6
Завершенные тесты: 4
09.08.2018, 11:16 122
В: Как изменить символ строки?
О:
Pascal
1
2
3
4
5
6
begin
  var S := 'XYZ';
  Writeln(S);
  StringDefaultPropertySet(S, 1, 'A'); // Возвращает новую измененную строку.
  Writeln(S);
end.
Добавлено через 2 минуты
В: Как проверить, что начиная с i-ого символа строка содержит только пробелы?
О:
Pascal
1
2
3
4
begin
  var from := 1;
  Writeln(StringIsEmpty('XYZ', from));
end.
Добавлено через 7 минут
В: Как реализуется StringDefaultPropertySet?
О:
Pascal
1
2
3
4
5
6
procedure StringDefaultPropertySet(var s: string; index: integer; c: char);
begin
  var chars := s.ToCharArray;
  chars[index] := c;
  s := new String(chars);
end;
0
npoh
0 / 0 / 0
Регистрация: 20.04.2019
Сообщений: 15
21.04.2019, 16:44 123
Цитата Сообщение от BaboshinSD Посмотреть сообщение
Eclipse.rar и Serious Slam.rar
Пожалуйста прищлите pas файлы
0
Соколиный глаз
C#
273 / 213 / 123
Регистрация: 25.07.2014
Сообщений: 4,162
Записей в блоге: 6
Завершенные тесты: 4
21.04.2019, 19:08 124
npoh, он давно уже неактивен (Последняя активность: 21.01.2014 00:55).
0
21.04.2019, 19:08
Sun Serega
678 / 473 / 236
Регистрация: 07.04.2017
Сообщений: 2,031
21.04.2019, 20:15 125
Цитата Сообщение от npoh Посмотреть сообщение
Пожалуйста пришлите pas файлы
А чем вам архивы не нравятся? Вы не умеете скачивать WinRAR? У него пробная версия, хоть и написано что месяц - вообще бесконечна. А без архиватора жить вообще сложно.

Но вообще, я сам пытался на тех играх научится использовать OpenGL - в итоге туториалы для C++ OpenGL больше помогли, ибо Eclipse и Serious Slam написаны на очень старой версии компилятора. Заставить их компилироваться нереально.

Если хотите рабочие примеры - посмотрите, к примеру, сюда. Эта игра, конечно, не доделана, но она хотя бы компилируется и запускается...
0
Пс
97 / 67 / 33
Регистрация: 29.07.2018
Сообщений: 701
05.08.2019, 19:12 126
класс кнопки в GraphWPF
Pascal
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
type
  ///Класс  кнопки
  WPFButton = class
    x, y, w, h: integer;
    text: string;
    cl: color;
    b: boolean;
    public event Click: procedure;
    
    procedure destroy;
    begin
      b := true;
      OnMouseDown -= MouseDown; 
      OnMouseUp -= MouseUp;
    end;
    
    procedure MouseDown(x1, y1: real; mb: integer);
    begin
      if (x1 > x) and (x1 < x + w) and (y1 > y) and (y1 < y + h) and (b <> true)
      then begin
        brush.Color := cl;
        FillRectangle(x + 2, y + 2, w, h);
        rectangle(x + 2, y + 2, w, h);
        textout(x + 3 + 2, y + 3 + 2, text);
      end;
    end;
    
    procedure MouseUp(x1, y1: real; mb: integer);
    begin
      if (x1 > x) and (x1 < x + w) and (y1 > y) and (y1 < y + h) and (b <> true)
      then begin
        brush.Color := cl;
        FillRectangle(x, y, w, h);
        rectangle(x, y, w, h);
        textout(x + 3, y + 3, text);
        Click;
      end;
    end;
    
    constructor Create(x1, y1, w1, h1: integer; txt: string; cl1: color);
    begin
      (x, y, w, h, text, cl) := (x1, y1, w1, h1, txt, cl1);
      brush.Color := cl;
      rectangle(x + 2, y + 2, w, h);
      FillRectangle(x, y, w, h);
      rectangle(x, y, w, h);
      textout(x + 3, y + 3, text);
      OnMouseDown += MouseDown;
      OnMouseUp += MouseUp;
    end;
  end;
было бы не плохо услышать ваши комментария по поводу улучшения
0
05.08.2019, 19:12
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.08.2019, 19:12

Надо найти библиотеку для PascalABC NET
Всем привет. Вот сейчас пишу движок для PascalABC NET. Для графики взял OpenGL. Теперь начал делать...

Создание своего модуля для PascalABC.net
Здравствуйте уважаемые форумчане, подскажите как создать из файла Pas файл PCU. Чем и как его можно...

Ошибка при создании меню в PascalABC.net для игры
ПОМОГИТЕ СРОЧНО!Я хочу заключить процедуры в одну процедуру для меню, для того чтобы запускать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
126
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.