Small Basic中文站-快乐编程

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 7880|回复: 2

简短代码做的SmallBasic绘图程序

  [复制链接]
发表于 2010-6-15 11:48:05 | 显示全部楼层 |阅读模式
这个程序,运行后还会让你在屏幕上输入2个参数   根据输入的参数不同  绘画出来的图像也不同

效果图:
2.png
代码很短,只有11行
源代码如下:
  1. GraphicsWindow.Show()

  2. GraphicsWindow.Width=600
  3. GraphicsWindow.Height=600

  4. TextWindow.Write("Enter X parameter: ")
  5. XT=TextWindow.ReadNumber()
  6. TextWindow.Write("Enter Y parameter: ")
  7. YT=TextWindow.ReadNumber()
  8. TextWindow.Hide()

  9. For vi=0 To 2*Math.Pi Step 0.0005
  10. GraphicsWindow.SetPixel(300+250*Math.sin(XT*vi),300+250*Math.sin(YT*vi),"black")
  11. EndFor
复制代码

回复

使用道具 举报

发表于 2012-3-18 18:06:31 | 显示全部楼层
GraphicsWindow.Show()
GraphicsWindow.Width=600
GraphicsWindow.Height=600
oncemore:
TextWindow.Write("Enter X parameter: ")
XT=TextWindow.ReadNumber()
TextWindow.Write("Enter Y parameter: ")
YT=TextWindow.ReadNumber()
TextWindow.Hide()
GraphicsWindow .Clear ()
For vi=0 To 2*Math.Pi Step 0.0005
GraphicsWindow.SetPixel(300+250*Math.sin(XT*vi),300+250*Math.sin(YT*vi),"black")
EndFor
Goto oncemore
加一个再来一次
回复 支持 反对

使用道具 举报

发表于 2012-8-20 15:39:38 | 显示全部楼层
x为10,y为11时,图案很有趣:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol:lol
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|手机版|Small Basic中文站-快乐编程 ( 闽ICP备09051788号 |

GMT+8, 2017-8-22 13:16 , Processed in 0.249930 second(s), 11 queries , File On.

Powered by Discuz! X3.3

快速回复 返回顶部 返回列表