图形旋转

原创 2003年10月31日 21:32:00

‘在窗体上加两个picturebox控件,五个option控件放在frame框架上,一个按钮

Option Explicit
Const Pi = 3.1416
Dim JiaoDu As Double
Function b(i)
Dim x As Integer, y As Integer
Dim X1 As Integer, Y1 As Integer
Dim X2 As Double, Y2 As Double
Dim X3 As Double, Y3 As Double
JiaoDu = Option1(i).Caption

Picture2.Visible = True
Picture2.Cls

Dim Hudu As Double
 Hudu = JiaoDu * Pi / 180

 Picture1.ScaleMode = vbPixels
 Picture2.ScaleMode = vbPixels
For x = 0 To Picture2.ScaleWidth

 X1 = x - Picture2.ScaleWidth / 2
For y = 0 To Picture2.ScaleHeight
   Y1 = y - Picture2.ScaleHeight / 2
   X2 = X1 * Cos(-Hudu) + Y1 * Sin(-Hudu)
   Y2 = Y1 * Cos(-Hudu) - X1 * Sin(-Hudu)
   X3 = X2 + Picture1.ScaleWidth / 2
   Y3 = Y2 + Picture1.ScaleHeight / 2
 If X3 > 0 And X3 < Picture1.ScaleWidth - 1 And Y3 > 0 And Y3 < Picture1.ScaleHeight - 1 Then
  Picture2.PSet (x, y), Picture1.Point(X3, Y3)
 End If
 Next y
Next x
 
   Picture1.Visible = False
  End Function


Private Sub Command1_Click()
Dim i As Single
If Option1(0).Value = True Then
    Shape1.Visible = False
 
   Call b(0)
ElseIf Option1(1).Value = True Then
 
   Shape1.Visible = False
   Call b(1)
ElseIf Option1(2).Value = True Then
   Shape1.Visible = False
  
   Call b(2)
ElseIf Option1(3).Value = True Then
   Shape1.Visible = False
   Call b(3)
 Else
   Shape1.Visible = True
   Picture2.Cls
End If
 
 End Sub

Private Sub Form_Load()
Picture2.Visible = True
Picture1.Visible = False

Shape1.Visible = True
End Sub

Private Sub Frame1_Click()  ‘单击框架恢复
 Shape1.Visible = True
   Picture2.Cls
End Sub

MFC中简单图形的平移与简单旋转

include “stdafx.h”include “hui.h”include “HuiTu.h”hui::hui() : m_ptOrigin(0) , m_ptEnd(0) ...
  • zhuwuhong5163
  • zhuwuhong5163
  • 2017年09月10日 14:31
  • 540

java 图形旋转操作

其实这不算原创了,只是把别人的代码做了下整理,方便同样需要的朋友直接使用了。:)原文请见这里 。package myclass;import java.awt.*;import java.awt.im...
  • oobug
  • oobug
  • 2006年11月30日 16:30
  • 3073

二维图形旋转的实现

二维图形旋转的实现。
  • clever101
  • clever101
  • 2010年11月11日 23:59
  • 7166

如何用几何画板制作图形平移和旋转

在数学教学中,老师们在黑板上作图,都是不能够动的。这样往往不利于老师把自己的课程讲清楚明白。如果图形能够随着课程的进度进行的移动和旋转,这样不仅能够让课程变得生动有趣,还能够帮助学生理解记忆知识点。随...
  • EducationSoft
  • EducationSoft
  • 2016年06月14日 09:49
  • 4178

OpenGL入门示例8——图形平移、旋转、缩放

#include #include static GLfloat spin=0.0; //旋转量 static GLfloat move=0.0; //平移量 static GLflo...
  • lynch0571
  • lynch0571
  • 2014年04月13日 21:27
  • 6767

图形旋转的C语言源程序

图形旋转的C语言源程序本程序是让图形旋转的C语言源程序#include#include#include#include#includeint load_cut(char *fname);int loa...
  • bz201
  • bz201
  • 2005年10月29日 23:01
  • 1406

OpenGL入门(三):图形随鼠标转动

void gluLookAt(GLdouble eyex,GLdouble eyey,GLdouble eyez,GLdouble centerx,GLdouble centery,GLdouble ...
  • u013470545
  • u013470545
  • 2017年03月02日 21:36
  • 1902

图像旋转c++实现

图像旋转c++实现
  • wfei101
  • wfei101
  • 2017年06月21日 21:46
  • 707

C#图像旋转示例

图像旋转的C#示例:  private void RotateTransform_Click(object sender, System.EventArgs e)  {   Graphics grap...
  • jhxiaoma
  • jhxiaoma
  • 2005年10月28日 21:11
  • 3269

OpenGL旋转立方体的实现

西电计算机图形学大作业
  • zhangxiao93
  • zhangxiao93
  • 2015年12月30日 19:39
  • 5940
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:图形旋转
举报原因:
原因补充:

(最多只允许输入30个字)