• Программирование — такой же инструмент математики, как математика — инструмент любой науки.

Работа с графическим окном

Microsoft Small Basic в графическом окне с помощью класса GraphicsWindow позволяет:

  • Изменять цвет фона окна, высоту, ширину, размещение по отношению к верхнему левому углу экрана, название и может ли пользователь изменять размер окна графики.
  • Рисовать полые и сплошные эллипсы, прямоугольники и треугольники разного цвета.
  • Просматривать изображения.
  • Изменять размеры существующих фигур и изображений.
  • Получать и изменять цвет отдельных пикселей.
  • Реагировать на действия пользователя, такие как нажатие и отпускание клавиши на клавиатуре, перемещение мыши и нажатия и отпускания кнопки мыши.

Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:

 

GraphicsWindow.BackgroundColor = "Green" ' сделали цвет фона окна зеленым.

GraphicsWindow.CanResize = "True" ' Позволяем изменять размеры окна

' Создаём графическое окно размерами 700x500 пикселей, смещенное от верхнего левого угла экрана на 50 и 100 пикселей.

GraphicsWindow.Height = 500

GraphicsWindow.Width = 700

GraphicsWindow.Top = 50

GraphicsWindow.Left = 100

GraphicsWindow.Title = "Please Wait..." ' Изменили заголовок окна

GraphicsWindow.Clear()

GraphicsWindow.DrawImage(Flickr.GetRandomPicture("cat"), 175, 0) ' Выводим случайное изображение с сайта Flickr в графическом окне.

GraphicsWindow.PenColor = "Blue" ' Используем синее перо.

GraphicsWindow.PenWidth = 5

' Рисуем эллипс, линию, прямоугольник, текст и треугольник в графическом окне.

GraphicsWindow.DrawEllipse(100, 150, 50, 20)

GraphicsWindow.DrawLine(0, 0, 50, 100)

GraphicsWindow.DrawRectangle(25, 175, 60, 30)

GraphicsWindow.DrawBoundText(0, 20, GraphicsWindow.Width, "Hello, World!")

GraphicsWindow.DrawTriangle(15, 350, 55, 350, 35, 375)

GraphicsWindow.BrushColor = GraphicsWindow.GetColorFromRGB(125, 100, 75) ' Используем специальную цветную палитру (RGB).

GraphicsWindow.FillEllipse(10, 400, 50, 20) ' Рисуем закрашенный эллипс

GraphicsWindow.BrushColor = GraphicsWindow.GetPixel(0, 10) ' Используем цвет пикселя с координатами 0, 10 из графического окна.

' Рисуем закрашенный прямоугольник и треугольник.

GraphicsWindow.FillRectangle(5, 455, 60, 30)

GraphicsWindow.FillTriangle(100, 455, 150, 425, 125, 475)

GraphicsWindow.BackgroundColor = GraphicsWindow.GetRandomColor() ' Меняем цвет фона графического окна на случайный цвет.

' Меняем цвета пикселей случайным образом.

For x = 70 to 170

For y = 40 to 80

GraphicsWindow.SetPixel(x, y, GraphicsWindow.GetRandomColor())

EndFor

EndFor

GraphicsWindow.Title = "Моё графическое окно" ' Меняем заголовок окна

GraphicsWindow.ShowMessage("Смотрите, случайные цвета! ", "Набор пикселей") ' выводим простое диалоговое окно с сообщением.

' Реакция на события мыши и клавиатуры. "Развешиваем" обработчики на события:

GraphicsWindow.MouseDown = OnMouseDown

GraphicsWindow.MouseUp = OnMouseUp

GraphicsWindow.MouseMove = OnMouseMove

GraphicsWindow.KeyDown = OnKeyDown

GraphicsWindow.KeyUp = OnKeyUp

GraphicsWindow.TextInput = OnTextInput

 

Sub OnKeyDown ' подпрограмма-обработчик нажатий клавиш клавиатуры

GraphicsWindow.Title = "Была нажата клавиша: " + GraphicsWindow.LastKey

EndSub

Sub OnKeyUp ' подпрограмма-обработчик отпусканий клавиш клавиатуры

GraphicsWindow.Title = "Была отпущена клавиша: " + GraphicsWindow.LastKey

EndSub

Sub OnMouseDown ' подпрограмма-обработчик нажатий кнопки мыши

GraphicsWindow.Title = "Кнопка мыши была нажата."

EndSub

Sub OnMouseUp ' подпрограмма-обработчик отпусканий кнопки мыши

GraphicsWindow.Title = "Кнопка мыши была отпущена."

EndSub

Sub OnMouseMove ' подпрограмма-обработчик перемещений мыши

GraphicsWindow.Title = "Мышь переместилась в точку с координатами: " + GraphicsWindow.MouseX + ", " + GraphicsWindow.MouseY + "."
EndSub

Sub OnTextInput ' подпрограмма-обработчик ввода текста

GraphicsWindow.Title = "Любой введенный текст."

EndSub


Поделиться: