VB画圆代码
VB画圆代码：主要使用函数【Circle (x, y), 半径, 颜色 】 ：Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色
代码start===========
'控件：
'名称:Command1，属性Caption:开始
'名称:Command2，属性Caption:结束
Private Sub Command1_Click() '****开始按钮
Circle (1500, 1000), 700, vbBlack '此为画圆函数：【Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】
End Sub
Private Sub Command2_Click() '***结束按钮
Unload Form1 '退出Form1
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture，否则画的图可能消失
End Sub
代码end=============
Private Sub Command1_Click()
MsgBox ("画第1个圆")
Circle (1200, 1200), 200, QBColor(1)
MsgBox ("画第2个圆")
Circle (1200, 1200), 400, QBColor(2)
MsgBox ("画第3个圆")
Circle (1200, 1200), 600, QBColor(3)
MsgBox ("画第4个圆")
Circle (1200, 1200), 800, QBColor(4)
MsgBox ("画第5个圆")
Circle (1200, 1200), 1000, QBColor(5)
End Sub
Circle (5, 5), 3, vbRed
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Scale (0, 0)-(10, 10)
End Sub
MATLAB画圆圈
方法一：在控制台输入以下代码。=== alpha=0:pi\/20:2*pi;%角度[0,2*pi]R=2;%半径 x=R*cos(alpha);y=R*sin(alpha);plot(x,y,'o-')axis equal === 方法二：把以下程序存为circle.m，调用函数画圆。=== function circle(R)alpha=0:pi\/50:2*pi;%角度[0,2*pi]R=2;%半径 x...
请教vb画实心圆的问题……
Private Sub Command1_Click()Dim i As Integer '在窗体上用circle方法画出多个同心圆，要求每个同心圆的颜色都不同。Dim R As Byte, G As Byte, B As Byte Me.FillStyle = 0 For i = 0 To 15 Randomize R = Int(Rnd * 256)G = Int(Rnd * 256)B = Int(Rnd * 256)Me.FillColor...
50分vb编程谁帮我!做毕业设计用 !就是用vb编一个程序!能画圆,直线...
建立两个窗体，也可一个，看你自己习惯和要求，我是建了两个。第一个窗体上有三个按钮，它们caption属性分别是“画直线”、“画矩形”“画圆”，其他属性采用默认值。第二个窗体上什么都没有。第一个窗体的代码：Public a As Integer Private Sub Command1_Click()Form2.Show a = 1 End Sub P...
线切割3B编程画10mm的圆怎么编?
1、首先在线切割设备已设置好，等待接收代码的情况下，依次点击“线切割”。2、线切割页面下“同步传输”。3、然后选择“...”浏览文件。4、接着找到桌面保存的3B代码，然后点击“打开”。5、最后点击“确定”传输到线切割设备，就完成了。
求一个java画圆代码 画随机的圆 设计要求: 编一个Applet,实现简单的...
import java.applet.Applet;import java.awt.Color;import java.awt.Graphics;import java.util.Random;public class zhang extends Applet { int x,y; \/\/圆的位置 int W_H; \/\/圆的大小 int R,G,B; \/\/圆的颜色 Random rd = new Random();public void init(){ this.resize(400, ...
想在用VB编的画图程序上加上画圆和矩形,该怎么改
Dim PenStyle As Integer Dim DW As Integer, bChangeDrawWidth As Boolean Dim C(0 To 2) As Integer, bChangeRGB As Boolean Dim Bn As Integer, oX As Single, oY As Single Private Sub Form_Load()PenStyle = 0: DW = 1 With Combo1 .AddItem 1: .AddItem 2: .AddItem 3: ....
如何用matlab在同一个坐标系中画圆和直线
在同一个plot()函数中画出圆和直线 使用hold on 使当前轴及图形保持而不被刷新，从而可以继续加入新的图形 示例代码：>> t = 0:pi\/50:2*pi;>> plot(cos(t),sin(t),'r',2*cos(t)+1,2*sin(t)+1.5,'g')>> x = -2:2;>> y = 2*x;>> hold on>> plot(x,y,'b')>>...
vb画圆环
Sub DrawRing(s As Single, w As Single)'此子过程的作用是在窗体正中画一个彩虹圆环'第1个参数s是圆环外圆的半径（单位是缇）'第2个参数w是圆环的宽度（单位是缇）'要注意，w一定不能大于s！Dim i As Integer, j As Single, c As VariantDim r As Integer, g As Integer, b As ...
在matlab中画出圆,如何给其填充颜色?
1、首先在电脑中打开matlab -->点击“新建脚本文件”（或同时按下ctrl +N），就可以建立一个脚本文件，在脚本文件中编写程序方便修改。2、然后在页面中输入下图代码。3、在新建脚本文件中输入画图程序-->点击保存-->点击运行。4、 在Figure界面即可以看到hsv色系的三维曲面图。5、还可以将上面的三维...
用VB怎么编写利用按钮控件数组来画几何图形(包括直线,矩形,圆等)的程 ...
If Option1(0).Value = True Then Me.Line (a, b)-(X, Y) '画直线 If Option1(1).Value = True Then Me.Line (a, b)-(X, Y), , B '画矩形 If Option1(2).Value = True Then Me.Circle (a, b), Sqr((X - a) ^ 2 + (Y - b) ^ 2) '画圆 End Sub 不懂追问...
年轰金刚： VB画圆代码:主要使用函数【Circle (x, y), 半径, 颜色 】 :Circle(圆圈中心的坐标X,圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色 代码start==========='控件:'名称:Command1,属性Caption:开始'名称:Command2,属性Caption...
天峻县19156421703： VB画圆的代码是? - ？
年轰金刚： Circle (x, y), r, c, s, e, k (x, y) 圆心坐标 r 半径 c 颜色 s 弧线起始角度(画圆时不需要) e 弧线结束角度(画圆时不需要) k 椭圆高宽比(画圆时不需要)
天峻县19156421703： vb中,在picturebox控件中画圆的代码要求,1、鼠标左键按下时的位置为圆心,拖拉的距离为半径画圆.2、鼠标可以选择此图形,并可以移动此图. - ？
年轰金刚：[答案] Option Explicit Dim Dx, Dy As Integer 'mousedown Dim Cx, Cy As Integer 'center of circle Dim MouseDown As Boolean 'mouse is down Dim isExists As Boolean 'circle exists Dim Cr As Single 'radius Private Sub Picture1_MouseDown(Button As ...
天峻县19156421703： 用VB编程画圆 - ？
年轰金刚： 添加以个TEXT2,一个按钮,复制一下代码即可Private Sub Command2_Click() Dim i As Integer'i = Val(Text2.Text) For i = 1 To Val(Text2.Text) Form3.Picture1.Circle (120, 260), i * 10, vbRed Next'Form3.Picture1.Circle (60, 60), 40, vbRed '画一个...
天峻县19156421703： vb中拿鼠标画圆的代码 - ？
年轰金刚： 画圆 Circle 方法可画出圆形和椭圆形的各种形状.另外,Circle 方法还可以画出圆弧(圆的一部分)和楔形饼块.使用变化的 Circle 方法,可画出多种曲线.为了画圆,Visual Basic 需要给出该圆的圆心位置和它的半径.画一个理想圆的语法是...
天峻县19156421703： vb中画出线条或形状(例如圆)的代码并注释其格式 - ？
年轰金刚： 在窗体上画一条(0, 0)到(1000,1000)的直线 me.line (0,0)-(1000,1000) 画圆或者椭圆用circle方法. circle方法的语法如下 对象名.circle (x , y) , 半径 , [,颜色] [, 起始角] [, 终止角] [, 长短轴比率] 如,在窗体上以(1000,1000)为圆心画一个半径为500的圆. me.circle (1000, 1000) , 500
天峻县19156421703： VB画圆的题目编写程序,在窗体上画圆.要求:按着鼠标右键移动可画圆,否则不行.VB中画圆的命令为:Circle(X,Y),R 以X、Y为圆心,以R为半径画一个... - ？
年轰金刚：[答案] Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then CurrentX = X CurrentY = Y End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me....
天峻县19156421703： 用VB画圆、正方形、长方形、球、正方体、长方体要编程的内容过程最好编程简单点否则以我的程度 怕看不懂 - ？
年轰金刚：[答案] 画圆 VERSION 5.00 Begin VB.Form FMain BorderStyle = 1 'Fixed Single Caption = ＂Form1＂ ClientHeight = 5205 ClientLeft = 45 ClientTop = 330 ClientWidth = 7035 LinkTopic = ＂Form1＂ MaxButton = 0 'False MinButton = 0 'False ScaleHeight = ...
天峻县19156421703： VB用circle画圆的命令 - ？
年轰金刚： 你说的意思是画实心圆,我给你一个示例的代码,如下:1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33Dimi AsInteger, l AsInteger Dimr AsBoolean PrivateSubForm_Load() Form1.Scale (-200, 200)-...
天峻县19156421703： 怎么用vb画一个逐渐生成的圆 - ？
年轰金刚： Dim a As Single, X0 As Integer, Y0 As Integer, r As Integer Const p = 3.14159Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) X0 = X: Y0 = Y: a = 0 PSet (X, Y) Print ＂O＂ '标示圆心位置 'Me.Cls r = ...
