双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

急，计算机图形学相关，给100分

2003-01-03 05:47:29 69 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

neowang 墨衍会员 · AI 创作全网分发关注 + 加入社区

【计算机图形学】c++ OpenGL 三维变换（包括平移、旋转和缩放）运行结果演示源代码 // 三维变换.cpp : 定义控制台应用程序的入口点。 // #include "stdafx.h" #include <GL/glut.h> #include <stdlib.h> using namespace std; void init(void) { glClearColor(0.0, 0.0, 0.0, 0.0); //背景黑色 } void display(void) { glClear(GL_COLOR_BUFFER_BI 阅读详情

小弟最近为此焦头烂额，下周一就要交差了，但至今没有什么头绪，主要是对vb不熟。
问题是：
1.在窗体上用鼠标画直线（要求有橡皮筋的效果）
2.在窗体上用鼠标画圆（要求有橡皮筋的效果）
3.多边形的裁剪
4.多边形的填充
顺便想问一下vb里面的开平方函数是不是sqrt（x）啊，怎么我的vb老是说找不到这个过程或是函数呢？
望各位大虾指教，感激不尽！！！

...全文

《Computer Graphics with OpenGL》计算机图形学读书笔记 02——计算机图形学软件这里是《Computer Graphics with OpenGL》英文原版第四版的读书笔记，预计每一章写一篇读书笔记。本篇为第二章，简要介绍计算机图形学的相关软件。图形学相关软件可分为两类——专业类、综合类。其中，专业类为非编程人员准备，可提供如美术、CAD绘图等功能。综合类为编程人员使用，可以通过代码直接控制绘图过程。坐标表示将放置好的物体显示在屏幕上要经历一系列阅读详情

neowang

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

agua06 2003-01-04

打赏
举报

我来贴一个使用橡皮筋效果画任意多边形的例子把。不过这个程序是我3年前刚上班的时候写的，所以比较简陋

Public x1, y1, i, c As Integer 'i为绘画标志，c为绘画完成后的清屏标志
Public newX, newY, oldX, oldY As Integer 'oldX,oldY为最初的点坐标，newX,newY为最后一次的坐标定位

Private Sub Form_DblClick()
Form1.AutoRedraw = True
Line (oldX, oldY)-(newX, newY) '双击闭合曲线
i = 0
c = 1
End Sub

Private Sub Form_Load()
i = 0
c = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c = 1 Then
Form1.Cls
c = 0
End If
PSet (X, Y) '画初点
x1 = X
y1 = Y
i = i + 1 '设置初始标志

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then '如果无鼠标键按下，画线
If i >= 2 Then '过程画线
Form1.AutoRedraw = False
Form1.Refresh
Line (newX, newY)-(X, Y)
End If
If i = 1 Then '初次画线
Form1.AutoRedraw = False
Form1.Refresh
Line (x1, y1)-(X, Y)
oldX = x1
oldY = y1
i = i + 1
End If
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'画下最终确定的直线
If i = 1 Then '初次画线
Me.DrawMode = 13
Me.AutoRedraw = True
Line (x1, y1)-(X, Y)
newX = X
newY = Y
End If

If i >= 2 Then '过程画线
Me.DrawMode = 13
Me.AutoRedraw = True
Line (newX, newY)-(X, Y)
newX = X
newY = Y
End If
End Sub

wzn0521 2003-01-04

打赏
举报

你们学图形学的时候还用VB这么高级的东西啊，
我学的时候要用C来写啊，

neowang 2003-01-04

打赏
举报

橡皮筋效果是：
当首次单击鼠标左键时，该点为画直线的起点，此时不松开左键移动鼠标时会有直线始终连接起点和鼠标当前位置，松开左键时以松开鼠标的位置为终点画出直线。

zyl910 2003-01-04

打赏
举报

http://cocgame.myetang.com/zyl910/map/linetool.zip
直线编辑工具。允许修改绘制好的直线

zyl910 2003-01-04

打赏
举报

http://cocgame.myetang.com/zyl910/map/linetool.zip
直线编辑工具。允许修改绘制好的直线

neowang 2003-01-04

打赏
举报

各位大虾，我们老师要求我们不能用系统函数和api函数，只能自己写函数来实现啊！我晕！

fzn0621 2003-01-03

打赏
举报

橡皮筋的效果是怎么个效果？

feixuehenshui 2003-01-03

打赏
举报

Dim MySqr
MySqr = Sqr(4) ' 返回 2。
MySqr = Sqr(23) ' 返回 4.79583152331272。
MySqr = Sqr(0) ' 返回 0。
MySqr = Sqr(-4) ' 生成一个运行时错误（负数不能用此函数开平方根）。

✦双11狂欢大促✦

急，计算机图形学相关，给100分

相关推荐

双11狂欢大促