Đây là chương trình khá thú vị mà tôi đã nghĩ đến khi tìm hiểu về đồ họa trong Pascal
Lưu ý. chương trình này chỉ áp dụng cho Pascal trên điện thoại
program manyhearts;
uses crt,graph;
var x,y: Integer;
begin
Randomize[];
initGraph[detect[],0,''];
setTextStyle[boldfont,horizdir,9];
setFillStyle[1,5];
bar[0,0,getMaxX, getMaxY];
outTextXY[100,500,'I love you'];
delay[2000];
repeat
begin
x := Random[1500] - Random[1500];
y := Random[1500] - Random[1500];
outTextXY[x,y,'💖'];
end;
until keyPressed[];
readln;
closeGraph[];
end.
Quảng cáo
Chia sẻ cái này
Như thế này
Thích Đang tải.
Có liên quan
Bài viết này nói về việc thiết lập mọi thứ để bạn có thể viết mã, biên dịch và gỡ lỗi Free Pascal từ Visual Studio Code
Điều này có thể hữu ích nếu bạn đang làm công việc không phải GUI và bạn không muốn dựa vào Lazarus IDE toàn diện. Nó cũng cho phép người dùng Windows viết và kiểm tra các chương trình Linux bằng WSL, đây là những gì tôi đã làm để kiểm tra thiết lập này. Lưu ý rằng các bước tương tự có thể được sử dụng để định cấu hình Mã VS cho Pascal trên máy Mac nếu đó là chất độc của bạn. Ít nhất, đây là một công cụ nữa mà bạn có thể tùy ý sử dụng khi làm việc với một cơ sở mã kế thừa
Tín dụng đặc biệt dành cho Mr Bee từ nhóm Pascal Indonesia, bài báo của ông là cơ sở cho bài báo của tôi
Cài đặt Pascal miễn phícác cửa sổ
Trên Windows, bạn có thể tải và cài đặt Free Pascal trực tiếp từ trang web. Lưu ý rằng không có trình biên dịch Windows 64-bit riêng cho phiên bản mới nhất— bạn sẽ cần trình biên dịch gốc 32-bit cũng như trình biên dịch chéo 64-bit. Nguồn có thể được tải xuống từ một liên kết riêng
Linux
Trong trường hợp của tôi, tôi đã cài đặt Free Pascal với Lazarus bằng cách chạy apt-get install lazarus
trên Ubuntu WSL của mình. Điều này đặt mã nguồn dưới /usr/share/fpcsrc/3.0.4
và tệp lazbuild của tôi dưới /usr/bin
. Để cài đặt phiên bản Free Pascal mới hơn, sau đó tôi đã làm theo và tải xuống laz
và src
. deb do Lazarus cung cấp [những tệp này tôi đã cài đặt trực tiếp bằng cách sử dụng apt install
]
Thưởng. Cài đặt WSL
Đây là vấn đề ngoài lề một chút, nhưng nếu bạn muốn chạy Ubuntu theo cách tôi đã làm, thì bài viết này của Microsoft thực hiện khá tốt việc giải thích các bước để kích hoạt WSL. Tôi đã sử dụng các bước cài đặt thủ công vì tôi không muốn tham gia Chương trình người dùng nội bộ Windows
Sau khi WSL được kích hoạt, bạn có thể cài đặt hệ thống con Linux e. g. Ubuntu từ Microsoft Store. Bạn có thể xác minh bản phân phối WSL nào được cài đặt bằng cách chạy wsl.exe -l -v
trong PowerShell
Nếu bạn cài đặt phần mở rộng Remote - WSL cho Mã VS, bạn có thể khởi chạy trình chỉnh sửa trực tiếp từ bảng điều khiển Linux của mình bằng cách nhập
code .
Lần đầu tiên bạn làm điều này, VS Code Server sẽ được cài đặt. Sau đó, nó sẽ khởi chạy Mã VS trong ngữ cảnh hệ thống con Linux của bạn
Cài đặt tiện ích mở rộng Mã VSOmniPascal
Tiện ích mở rộng Mã VS này mang hỗ trợ Object Pascal cho Mã VS, bao gồm hoàn thành mã, phác thảo, v.v.
OmniPascal - Mở bản xem trước - Visual Studio Marketplace
Quản lý mã Delphi và Free Pascal của bạn bằng Visual Studio Code
thương trường. Visual Studio. com
Nếu bạn có ý định sử dụng phần mở rộng này với phần mở rộng Remote - WSL, hãy nhớ cài đặt cả phần mở rộng trong WSL, e. g. bằng cách nhấp vào nút “Cài đặt trong WSL. Ubuntu” liên kết
Nhấp vào “Cài đặt trong WSL. Ubunt”
Sau khi tiện ích mở rộng được cài đặt, hãy đi tới Tệp → Tùy chọn → Cài đặt và tìm phần “Cấu hình OmniPascal” trong “Tiện ích mở rộng”. Đối với Đường dẫn nguồn Free Pascal, hãy nhập đường dẫn đến thư mục chứa nguồn Free Pascal, e. g
/usr/share/fpcsrc/3.0.4
Bạn cũng có thể đặt Đường dẫn Lazbuild để xây dựng các dự án Lazarus [*. tập tin lpi]. Lưu ý rằng tiện ích mở rộng này cho phép bạn chỉ định dự án hiện đang hoạt động trên thanh trạng thái
OmniPascal trong thanh trạng thái Mã VS
Gỡ lỗi gốc
Tiện ích mở rộng Mã VS này cho phép gỡ lỗi gốc. Nó hỗ trợ cả Trình gỡ lỗi GNU [GDB] và LLDB. Đối với bài viết này, tôi sẽ sử dụng GDB
Gỡ lỗi gốc - Visual Studio Marketplace
Trình gỡ lỗi VSCode gốc. Hỗ trợ cả GDB và LLDB. Nhấn ctrl-p [cmd+p trên OS X] và chạy ext install webfreak. gỡ lỗi trong…
thương trường. Visual Studio. com
Các biểu tượng tuyệt vời của VSCode
Không giống như các phần mở rộng khác mà tôi đã liệt kê, phần mở rộng này không dành riêng cho Pascal và không bắt buộc. Tuy nhiên, nó giúp phân biệt các tệp Pascal với các loại tệp khác dễ dàng hơn và có sự đóng góp của chính Mr Bee
Các biểu tượng tuyệt vời của VSCode - Visual Studio Marketplace
Một gói lớn các biểu tượng [100+] cho các tệp của bạn. [. Hình ảnh này không đầy đủ và không được cập nhật. ] Thưởng thức ☺ Sau…
thương trường. Visual Studio. com
Dưới đây là một ví dụ về tiện ích mở rộng đang hoạt động
Các biểu tượng tuyệt vời của VSCode đang hoạt độngCấu hình tác vụ
Tạo nhiệm vụ
Để thực hiện những việc như chạy kiểm tra cú pháp, xây dựng hoặc dọn dẹp bằng Mã VS, có một số tác vụ cần định cấu hình. Tôi không có bất kỳ nhiệm vụ nào được định cấu hình, vì vậy tôi đã tạo một nhiệm vụ mới. json bằng cách vào Terminal → Configure Tasks… và chọn “Create task. json từ Bản mẫu” [đã tạo các tác vụ. json trong thư mục .vscode
]
Gợi ý. Cân nhắc việc sử dụng các tác vụ của người dùng;
Nhận cấu hình tác vụ đầy đủ bằng cách nhấp vào liên kết
Viết các tác vụ này yêu cầu hiểu biết về cách sử dụng trình biên dịch Free Pascal. Tôi đã sử dụng các tác vụ từ đó nhưng đã cắt bớt chúng một cách rộng rãi [e. g. loại bỏ các phần ghi đè vào các cài đặt toàn cầu khác nhau và loại bỏ công cụ Trình định dạng mã Jedi]. Tôi cũng phải thay đổi các tham số để tạo thông tin gỡ lỗi để hỗ trợ GDB. Xem để biết thêm thông tin
Tệp chính hơi dài để nhúng vào bài viết, vì vậy bạn có thể tìm thấy phiên bản tác vụ của tôi trong GitHub tại đây. Rõ ràng, những điều này có thể được điều chỉnh thêm trong tương lai, nhưng chúng phải đủ để bạn bắt đầu
ghi chú sử dụng
Bạn nên chạy tác vụ
/usr/share/fpcsrc/3.0.4
1 một lần trước khi chạy bất kỳ tác vụ xây dựng nào khác, vì điều này tạo ra các thư mục cho các tạo phẩm xây dựng khác nhau. Nếu những thư mục này không tồn tại, các tác vụ khác sẽ thất bạithiết lập gỡ lỗiTrình gỡ lỗi được định cấu hình khi khởi chạy dự án của bạn. tập tin json
Bạn có thể thêm một cái bằng cách chọn Chạy → Thêm cấu hình…, thao tác này sẽ tạo tệp khởi chạy. json trong của bạn. thư mục vscode. Vì bạn đã cài đặt tiện ích Gỡ lỗi gốc trước đó nên bạn có thể chọn “GDB” từ danh sách và cấu hình mặc định sẽ được tạo
Chọn GDB cho cấu hình khởi chạy
Sửa đổi cài đặt
/usr/share/fpcsrc/3.0.4
2 để trỏ đến đường dẫn gỡ lỗi từ tác vụ của bạn. tập tin json. Bạn cũng có thể yêu cầu Mã VS chạy tác vụ xây dựng mặc định trước mà tôi đã thiết lập để thực hiện xây dựng gỡ lỗi. Ví dụphóng. json để gỡ lỗi với GDBKhi bạn đã xây dựng tệp thực thi của mình, bạn sẽ có thể khởi chạy nó bằng các lệnh chạy Mã VS bình thường
Bắt đầu gỡ lỗi trong Mã VS
Giờ đây, bạn có thể đặt các điểm dừng và gỡ lỗi dự án Free Pascal của mình trong Mã VS
Xử lý sự cố
Nếu bạn không thể đặt điểm ngắt, có thể bạn phải bật cài đặt
/usr/share/fpcsrc/3.0.4
3 trong Mã VSCho phép đặt điểm ngắt trong bất kỳ tệp nào
Nếu các điểm dừng của bạn không bị tấn công, hãy kiểm tra xem các tệp nhị phân của bạn đã được tạo có bao gồm thông tin gỡ lỗi chưa. Nếu bạn đã sử dụng nhiệm vụ của tôi
/usr/share/fpcsrc/3.0.4
4 từ ý chính, bạn sẽ ổn với GDB