Компьютерное моделирование 2017-2018 учебный год Лабораторная работа 2 Клеточный автомат Волновой алгоритм Пример 1. Создать программу для OpenOffice.org Calc на языке программирования OpenOffice.org Basic, которая закрашивает определенную ячейку электронной таблицы в определенный цвет и увеличивает счетчик в этой ячейке на заданный шаг. Задание: добавьте возможность закрашивать другую ячеку в другой цвет. Const COL_X = 1 Const COL_Y = 2 Const ROW_X = 2 Const ROW_Y = 2 Dim x As Integer Sub Main Doc = StarDesktop.CurrentComponent Sheet = Doc.Sheets(0) Cell_X = Sheet.getCellByPosition(COL_X, ROW_X) Cell_Y = Sheet.getCellByPosition(COL_Y, ROW_Y) x = x + 1 Cell_X.Value = x Cell_X.CellBackColor = RGB(0,230,64) End Sub Пример 2. В ячейке D3 задается число от 0 до 255, в соответствии с которым меняется красная составляющая цвета фона ячейки C3. Задание: добавьте возможность менять все три составляющие цвета фона ячейки, для этого назначьте ячейки E3 и F3 для зелёной и синей составляющих соответственно. ' Глобальные константы Const COL_X = 1 Const COL_Y = 2 Const COL_RED = 3 Const ROW_X = 2 Const ROW_Y = 2 Const ROW_RED = 2 Dim x As Integer Dim redColor As Integer Sub Main Doc = StarDesktop.CurrentComponent Sheet = Doc.Sheets(0) Cell_X = Sheet.getCellByPosition(COL_X, ROW_X) Cell_Y = Sheet.getCellByPosition(COL_Y, ROW_Y) Cell_Red = Sheet.getCellByPosition(COL_RED, ROW_RED) x = x + 1 Cell_X.Value = x redColor = Cell_Red.Value Cell_Y.Value = redColor Cell_X.CellBackColor = RGB(0,230,64) Cell_Y.CellBackColor = RGB(redColor,0,0) End Sub
Основные источники
inf.1september.ru: Алгоритмы перебора. И.И.Данилина
Дополнительные источники
forum.openoffice.org: Basic macro to color cell background.
stackoverflow.com How to change the background color of a cell on mouse click in Libre Office Calc?
ooo-forums.apache.org: Change cell color macro.