7487
社区成员
- 全部
急需用vb画多角形源代码,在线等待!给100分!!
用vb实现.输入角数.立刻在窗体中画出角数所对应的多角形
例如: 输入5.当鼠标点击窗体时.即可画出五角星!! 再线等待!!!!!!
例如: 输入5.当鼠标点击窗体时.即可画出五角星!! 再线等待!!!!!!
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
a11s 2003-12-13
这个是近似画法 我数学学的不好，有错误的地方希望大家指正
把一下代码粘贴到Form1上，设置Form1.Autoredraw=true scalemode=3 (象素)
Option Explicit
Private Type POINTAPI
x As Long
y As Long
d As Single
End Type
Sub DrawShape(Optional Lines As Long, Optional r As Long, Optional x As Single, Optional y As Single)
If Lines < 3 Then Exit Sub
If r < 10 Then r = 10
If x < 10 Then x = 20
If y < 10 Then y = 20
Dim i As Long
Dim dr As Single
Dim Points() As POINTAPI
dr = 360 / Lines
ReDim Points(Lines) As POINTAPI
Points(0).x = x
Points(0).y = y
For i = 1 To Lines
With Points(i)
.d = dr * i / 57
.x = Cos(.d) * r + Points(i - 1).x
.y = Sin(.d) / 1 * r + Points(i - 1).y
End With
Next
For i = 1 To Lines - 1
Me.Line (Points(i - 1).x, Points(i - 1).y)-(Points(i).x, Points(i).y), vbBlack
Next
Me.Line (Points(0).x, Points(0).y)-(Points(Lines - 1).x, Points(Lines - 1).y), vbBlack
End Sub
Private Sub Form_Load()
Me.Cls
DrawShape 5, 60, 200, 100
End Sub
把一下代码粘贴到Form1上，设置Form1.Autoredraw=true scalemode=3 (象素)
Option Explicit
Private Type POINTAPI
x As Long
y As Long
d As Single
End Type
Sub DrawShape(Optional Lines As Long, Optional r As Long, Optional x As Single, Optional y As Single)
If Lines < 3 Then Exit Sub
If r < 10 Then r = 10
If x < 10 Then x = 20
If y < 10 Then y = 20
Dim i As Long
Dim dr As Single
Dim Points() As POINTAPI
dr = 360 / Lines
ReDim Points(Lines) As POINTAPI
Points(0).x = x
Points(0).y = y
For i = 1 To Lines
With Points(i)
.d = dr * i / 57
.x = Cos(.d) * r + Points(i - 1).x
.y = Sin(.d) / 1 * r + Points(i - 1).y
End With
Next
For i = 1 To Lines - 1
Me.Line (Points(i - 1).x, Points(i - 1).y)-(Points(i).x, Points(i).y), vbBlack
Next
Me.Line (Points(0).x, Points(0).y)-(Points(Lines - 1).x, Points(Lines - 1).y), vbBlack
End Sub
Private Sub Form_Load()
Me.Cls
DrawShape 5, 60, 200, 100
End Sub
zichuan1979 2003-12-13
不需要考虑半径
a11s 2003-12-13
不考虑半径么?
用python函数画德国国旗代码_Python使用Turtle模块绘制五星红旗代码示例 在Udacity上课时学到了python的turtle方法，这是一个很经典的用来教小孩儿编程的图形模块，最早起源于logo语言。python本身内置了这个模块，其可视化的方法可以帮助小孩儿对编程的一些基本理念有所理解。在作业提交...
python画五角星代码_Python使用Turtle模块绘制五星红旗代码示例 在Udacity上课时学到了python的turtle方法，这是一个很经典的用来教小孩儿编程的图形模块，最早起源于logo语言。python本身内置了这个模块，其可视化的方法可以帮助小孩儿对编程的一些基本理念有所理解。在作业提交...
Python turtle 画正多边形和多角形 Python turtle 画正多边形和多角形作正多边形作正多角形计算内角画图代码作棱角分明的多角形观察棱角分明的多角形简洁的结论代码高斯与正十七边形作出正十七角形思考 原创文章，转载请申明出处 作正多边形 正n边形...
python用matplotlib画五角星_Python使用Turtle模块绘制五星红旗代码示例 在Udacity上课时学到了python的turtle方法，这是一个很经典的用来教小孩儿编程的图形模块，最早起源于logo语言。python本身内置了这个模块，其可视化的方法可以帮助小孩儿对编程的一些基本理念有所理解。在作业提交...
用python画国旗的程序_用Python的Turtle模块绘制五星红旗 Turtle官方文档turtle的基本操作# 初始化屏幕window = turtle.Screen()# 新建turtle对象实例import turtleaTurtle = turtle.Turtle()# 海龟设置aTurtle.hideturtle() # 隐藏箭头aTurtle....左转右转aTurtle.fd(100) ...
极好的 3D 示范实例程序：全景漫游vb版 一个 3D 的全景漫游程序，它包含了制作 3D 游戏的许多基本技巧，例如：Z 缓冲, 纹理映射, 矩阵, 多角形排序和移动背景。程序中的 3D 世界包括一架飞机和一条小船和一些树，这样您将容易理解代码并自行修改为您需要的...
python用turtle画雪花_python学习turtle(是时候画些图了) 首先是晴天的太阳图标， ，画一个多角形，然后填充。再画个圆形在里面填充。hideturtle()color("#FF8C00")begin_fill()for i in range(18):fd(80)left(100)end_fill()up()goto(40,-8)down()color("#FF6347")...
关于正整数的多角形数加法补数 (2011年) 对于∨n∈N+,设a(n)表示n的多角形数加法补数部分,即a(n)是使n+a(n)为一多角形数(1/2)(2m + (r-2)m( m-1)),m∈N的最小的非负整数.运用初等方法研究了多角形数加法补数级数的敛散性以及均值性质,给出它的渐近公式.
docker-multicorn:Docker容器中的多角形世界你好-源码 基于Postgres 9.4容器和conda的python库的多角形Docker容器。 docker pull danielfrg/multicorn docker run -p 5432:5432 -v $(pwd):/src danielfrg/multicorn /src Python库将被安装。 有关更多信息，请参见...
（转载）ACM训练计划，先过一遍基础再按此拼搏吧！！！！ ACM大量习题题库ACM大量习题题库现在网上有许多题库，大多是可以在线评测，所以叫做Online Judge。除了USACO是为IOI准备外，其余几乎全部是大学的ACM竞赛题库。USACOhttp://ace.delos.com/usacogate美国著名在线题库...
Scratch基础（五）：画多边形 学习使用Scratch画多边形 1、Scratch在【添加扩展】中有【画笔】组件。 可以很方便的绘制如下的图形。 图形特点： （1）正十边形 （2）每一条边的颜色在发生变化 （3）每个角上都有一个【角色】的复制品 2、采用...
不看后悔！史上最全面的电力系统150+90问！——电力巡检篇 不看后悔！史上最全面的电力系统150+90问！——电力巡检篇 150问 1、油浸变压器有哪些主要部件？ 答：变压器的主要部件有：铁芯、绕组、油箱、油枕、呼吸器、防爆管、散热器、绝缘套管、分接开关、气体继电器、温度...
电力安全工作规程发电厂和变电站电气部分_电气主接线知识精讲！ 一．对电气主接线的基本要求在构成系统电气接线图时必须考虑以下基本要求。1．可靠性。电气接线必须保证用户供电的可靠性和电能质量，应分别按各类负荷的重要性程度安排相应可靠程度的接线方式，保证电气接线可靠性...
table画斜线、直线、圆、矩形、圆角矩形、圆弧、多角形、曲线等 table画斜线、直线、圆、矩形、圆角矩形、圆弧、多边形、曲线等 xmlns:v> 无标题文档 v\:*{behavior:url(#default#VML);} body,td,th { font-size: 10pt; } --> 模拟投资试算比较分析 ...
C语言大型软件设计的面向对象 C语言代码一旦达到一定规模，就特别强调良好的架构设计，以保证代码的可读性好、代码简洁以及可复用。此时，软件设计师势必要用C语言来做面向对象的设计。不能克服面向对象这一关，也是很多人无法读懂Linux内核、驱动等架构比较庞大的软件的主要技术壁垒之一，因为这些软件里面充满了对象式的设计。 本课程以案例来详细讲解，用C语言如何设计面向对象的程序。 本课程以案例来详细讲解，用C语言教大家如何设计面向对象的程序。
