Рисование простых геометрических фигур

2 posts / 0 new
Последнее сообщение
Alfi1992
Рисование простых геометрических фигур

доброго времени суток. прошу помощи у вас. я новичок в программировании на MapBasiс. пишу программму которая бы рисовала прямоуголиник и точки в ней. Представляю код сей тупой программы) компилируется без ошибок но ничего не рисует(

Include "MAPBASIC.DEF"
Dim cable As Object
dim x,y as integer
x=0
y=0

Create rect
Into Variable cable
(0, 0) (150, 100)
Pen MakePen(100, 200, BLACK)

if (x<=100) and (y<=100) then
x=x+1
y=y+1
else
if (x=100) and (y=100) then
x=x-2
y=y-2
end if
end if

Create point
Into Variable cable
(x, y)

dab
Вы создаёте прямоугольник и

Вы создаёте прямоугольник и точки в переменные. Весь результат работы программы остаётся в оперативной памяти.
Что бы "что либо происходило" нужно значение переменной "cable" вносить в таблицу Mapinfo.
Например
Insert Into you_table_name (obj) Values (cable)