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

neowang 2003-01-03 05:47:29
小弟最近为此焦头烂额,下周一就要交差了,但至今没有什么头绪,主要是对vb不熟。
问题是:
1.在窗体上用鼠标画直线(要求有橡皮筋的效果)
2.在窗体上用鼠标画圆(要求有橡皮筋的效果)
3.多边形的裁剪
4.多边形的填充
顺便想问一下vb里面的开平方函数是不是sqrt(x)啊,怎么我的vb老是说找不到这个过程或是函数呢?
望各位大虾指教,感激不尽!!!
...全文
28 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
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) ' 生成一个运行时错误(负数不能用此函数开平方根)。

计算机通信与网络课程设计报告 题目:组建校园局域网 专 业: 学 号: 姓 名: 指导老师: 2012年9月5日 组建校园局域网 针对组建校园局域网的可行性进行析,用户需求析,基于需求析进行网络规划 ,详细描叙组网过程,并进行相关的安全维护。 确保网络安全运行。 关键字:校园网 局域网 拓扑图 维护 安全 ̥ 一 设计目的及要求 校园网的建设是现代教育发展的必然趋势,建设校园网不仅能够更加合理有效地利用 学校现有的各种资源,而且为学校未来的不断发展奠定了基础,使之能够适合信息时代 的要求。校园网络的建设及其与Internet的互联,已经成为教育领域信息化建设的当务 之。假设学校有100台计算机,请规划各个部门,便于管理。 我们暂且设定学校有四个部门:学生宿舍、教师宿舍、办公楼、教学楼。各部门的计 算机配如表: "部门 "计算机数量(台) "24口交换机(台) " "学生宿舍 "30 "1 " "教师宿舍 "20 "2 " "办公楼 "20 "1 " "教学楼 "30 "2 "   二:需求析 该方案涉及路由技术、交换技术。路由技术主要应用在OSI模型的第三层,它的作用 是在通信子网中转发数据包。传统的交换技术是发生在OSI模型的第二层。现代的交换技 术已经实现三层交换和多层交换。假设该单位有两个大部门组成,每个部门别包含两 个下属二级部门。所以,现需划四个子网,每个部门独自成一个子网,在各二级部门 部有一个交换机充当集线器,部门的所有pc机都直接连到交换机上,此为接入层;两个 大部门使用两个路由器,别为部门部的两个子网配地址段,此为布层;最后,核 心层由一个核心路由器作为单位的网络核心。该单位从电信部门申请到一个C类的ip,它 的围是192.168.1.0- 192.168.7.0,要求该单位和划子网,实现不同的局域网之间能够互相通信,在同一个 局域网中需实现打印共享。具体需求如下: 1、为了满足各部门现有的主机使用,以及各部门将来有可能的扩展需要,必须进行可变 长的子网划。 2、为了单位发展,单位部需要配置相应的服务器 3、为了单位部信息的安全,单位部主机的ip不能像外透露。 4、为了网络管理人员的管理的方便须在核心层及布层的路由器采用相关的rip协议 5、为了更好的保护部网络,在网与外网之间还需添加一防火墙设备,过滤来自Inte rnet上的有害信息。 由于要实现在同一局域网中打印共享,所以为每个局域网中的打印机配置该局域网网 段中的地址,但不配置网关。这样每台局域网中的打印机即实现了在本局域网中打印共 享,有控制不同局域网中的打印机无法共享使用。 总体要求:设计一个拓扑结构为树形的网络,建立校园局域网的官方,可向外界发布 信息,pc通过交换机连接起来,网络之间通过路由器或交换机连接起来,安全性通过路 由器的访问控制来设置,在网络部联网的布使用的是私有IP地址,通过路由器连接到 互联网,不同部门可以进行局域网划。 三 绘制拓扑结构图 四 详细步骤 1 拓扑图如上 2 设备选型 路由器:3台 交换机:6台 PC机: 100台 电缆线:若干米 双绞线:若干米 网钳: 一把 测网器: 一个 3 综合布线系统 布线系统是网络实现的基础,选择时应主要以带宽和数据传输速率为衡量标准,同时考 虑其发展余地、投资费用、安装质量及二次开发成本。综合布线系统是一个用于语音、 数据、影像和其他信息技术的标准结构化布线系统,它由许多部件组成,主要有传输介 质、线路管理硬件、连接器、插座、插头、适配器、传输电子线路、电气保护设施等, 由这些部件构造各种子系统:工作区子系统、水平布线子系统、干线子系统、设备间子 系统、管理子系统、建筑群子系统。   布线系统,它应该能支持话音、图形、图像、数据多媒体、安全监控、传感等各种信 息的传输,支持UTP、光纤、STP、同轴电缆等各种传输载体,支持多用户、多类型产品 的应用,支持高速网络的应用,为校园网通信系统提供有力支撑系统硬件 。   另外校园网硬件设备中还包括服务器、PC机、大容量存储设备和投影仪、电视墙、 摄像机等。在建设校园网的过程中应根据学校具体情况,选择不同性能与价格的硬件设 备,既能满足学校各方面的要求,又符合学校的经济状况。本设计中只是一个模拟的、 缩小版的校园局域网组建过程。就不在考虑综合布线系统的规划问题。 4 IP地址规划和网段划 子网划: 由于这个课设中使用的pc机较少只是代表性的用了几台,但是现实中肯定要蛮多的,必 须要了解有关子网划的有关知识。 子网划是将32位的ip地址划为网络部和主机部,网络部可以向主机部借用 32位的二进制地址但是必须满足主机部至少有两位。全1和全0地址不能作为主机的ip 地址 子网划过程中一般采用变长子网

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧