优秀作品

# 例程1:绘图

gui = GUI()

#gui.HideConsoleWindow()

time = TIME()


title       = "绘画"                                         # 窗口标题

size       = [10,3,86,37]                                    # 窗口尺寸

list = [title,size]

num = gui.Fine(list)                                         # 创建Fine窗口,并返回资源ID

while gui.FineClosed(num) != -1                              # 检查窗口关闭消息

{

    PowerDown(3)                                             # 节能设置

      # 自制画布

      #drawlist = ["CanvasBrush",20,20,630,480,255,0,0]      # 自制画布

      #gui.Drawing(num,drawlist)

      

      #图片画布

      drawlist = ["CanvasImage",20,20,640,510,"exampleRes\\fine5.jpg"]     # 使用图片作为画布

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Text","欢迎你世界!",0,0,"微软雅黑",38,0,255,0]         # 在图片上写字

      gui.Drawing(num,drawlist)

      time.sleep(1000)  

      drawlist = ["Point",40,80,0,0,255]                  # 在(200,200)位置画一个蓝色的点

      gui.Drawing(num,drawlist)

      time.sleep(100) 

      drawlist = ["Line",0,0,200,200,0,2,0,0,255]          # 画线drawlist = ["Rectangle",100,100,300,300,0,4,0,255,0]

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Rectangle",200,70,60,80,0,4,0,255,0]    # 画矩形,不带填充色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["RectangleFill",300,130,100,200,0,4,0,255,0,0,255,0]         # 画矩形,带填充色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["RoundRect",420,70,100,60,1,4,50,30,0,255,0]                 # 画圆角矩形,不带填充色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["RoundRectFill",540,120,60,130,3,4,50,30,0,255,0,0,0,255]    # 画圆角矩形,带填充色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Polyline",50,200,60,300,90,250,70,180,0,4,0,255,0]          # 开放多边形

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Polygon",110,200,120,300,150,250,130,180,0,4,0,255,0]       # 封闭多边形,不填充

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["PolygonFill",170,200,180,300,210,250,190,180,0,4,0,255,0,0,0,255]     # 开放多边形

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Circle",300,270,50,2,4,0,255,0]                          # 画圆,不填充

      gui.Drawing(num,drawlist)

      time.sleep(1000)  

      drawlist = ["CircleFill",420,200,50,0,4,0,255,0,0,0,255]              # 画圆,填充颜色

      gui.Drawing(num,drawlist)

      time.sleep(1000)   

      drawlist = ["Ellipse",90,380,120,100,3,4,0,255,0]                     # 画椭圆,无填充颜色

      gui.Drawing(num,drawlist)

      time.sleep(1000)   

      drawlist = ["EllipseFill",220,380,100,140,3,4,0,255,0,0,0,255]         # 画椭圆,有填充颜色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Chord",340,400,100,70,30,120,3,4,0,255,0]                 # 画闭合弦,无填充颜色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["ChordFill",430,400,100,70,30,120,3,4,0,255,0,0,0,255]     # 画闭合弦,有填充颜色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Pie",530,400,100,70,30,120,3,4,0,255,0]                # 画扇形,无填充颜色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["PieFill",510,320,70,120,0,120,3,4,0,255,0,0,0,255]     # 画扇形,有填充颜色

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["Arc",300,300,400,200,-20,150,3,4,0,255,0]              # 画弧

      gui.Drawing(num,drawlist)

      time.sleep(1000) 

      drawlist = ["AddImage",120,120,100,100,"exampleRes\\fine8.jpg"]     # 添加图片

      gui.Drawing(num,drawlist)

      time.sleep(1000)

/*     

      drawlist = ["Save","PaintingArea","exampleRes\\mydraw.bmp"]         # 将绘图区内容保存为BMP图片

      gui.Drawing(num,drawlist)

      time.sleep(2000)

      drawlist = ["Save","Screen","exampleRes\\screen.bmp"]               # 将窗口客户区内容保存为BMP图片

      gui.Drawing(num,drawlist)

      time.sleep(2000)

*/

      

}

0