stroke-width 外部轮廓的边框的大小
站在用户的角度思考问题，与客户深入沟通，找到黎平网站设计与黎平网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站建设、做网站、企业官网、英文网站、手机端网站、网站推广、域名与空间、虚拟主机、企业邮箱。业务覆盖黎平地区。
bbsmax
绘制基本图形和线型（StrokeStyle）的设置详解
HackerVirus 2022-10-20 原文
绘制基本图形和线型（StrokeStyle）的设置详解
目前，在博客园上，相对写得比较好的两个关于Direct2D的教程系列，分别是万一的Direct2D系列和zdd的Direct2D系列。有兴趣的网友可以去看看。本系列也是介绍Direct2D的教程，是基于Windows API Code Pack 1.1的Direct2D的教程，如果要调试文中的代码的话，还得参考前文 Direct2D教程I——简介及首个例子 下载导入Windows API Code Pack 1.1的动态库
在前文 Direct2D教程I——简介及首个例子 简单介绍了Direct2D，并给了一个简单的示例。接下来，本文对一些基本的绘图命令做个介绍
绘制基本图形：直线、矩形、圆角矩形、椭圆
和GDI+类似，在RenderTarget对象下有各个绘图命令（GDI+是在Graphics对象下有各个绘图命令），下面是各个基本图形的绘图命令的函数原型
直线：
Public Sub DrawLine(firstPoint As Direct2D1.Point2F, secondPoint As Direct2D1.Point2F, brush As Direct2D1.Brush, skrokeWidth As Single, strokeStyle AsDirect2D1.StrokeStyle)
矩形：
Public Sub DrawRectangle(rect As Direct2D1.RectF, brush As Direct2D1.Brush, strokeWidth As Single)
Public Sub DrawRectangle(rect As Direct2D1.RectF, brush As Direct2D1.Brush, strokeWidth As Single, strokeStyle As Direct2D1.StrokeStyle)
Public Sub FillRectangle(rect As Direct2D1.RectF, brush As Direct2D1.Brush)
圆角矩形：
Public Sub DrawRoundedRectangle(roundedRect As Direct2D1.RoundedRect, brush As Direct2D1.Brush, strokeWidth As Single)
Public Sub DrawRoundedRectangle(roundedRect As Direct2D1.RoundedRect, brush As Direct2D1.Brush, strokeWidth As Single, strokeStyle As Direct2D1.StrokeStyle)
Public Sub FillRoundedRectangle(roundedRect As Direct2D1.RoundedRect, brush As Direct2D1.Brush)
椭圆：
Public Sub DrawEllipse(ellipse As Direct2D1.Ellipse, brush As Direct2D1.Brush, strokeWidth As Single)
Public Sub DrawEllipse(ellipse As Direct2D1.Ellipse, brush As Direct2D1.Brush, strokeWidth As Single, strokeStyle As Direct2D1.StrokeStyle)
Public Sub FillEllipse(ellipse As Direct2D1.Ellipse, brush As Direct2D1.Brush)
从上面的函数原型可以看出，以Draw开头的函数都是绘制函数。以Fill开头的函数都是填充函数。绘制函数的线宽由strokeWidth参数指定，绘制函数的线型由strokeStyle参数指定（默认是实线）。和GDI+不同的是，在Direct2D中，不再区分Brush（画刷）和Pen（画笔）对象，而统一用Brush（画刷）对象，在用Brush（画刷）绘制线的时候再指定线宽和线型参数。
从参数strokeWidth和参数strokeStyle来看，都带有单词stroke。熟悉PS的都知道，stroke指的是描边，在PS中描边的位置分为“外部”、“内部”、“居中”。那么在Direct2D中，这里的描边的位置在哪儿呢？我们用代码实验一下。
说明：为了代码的复用，我们把前文中的_d2DFactory和_renderTarget修饰限定词从Private改为Protected。这样在后面的例子中直接继承前文的类，也可以直接用_d2DFactory和_renderTarget这两个对象。
先给出Point2F、RectF、RoundedRect、Ellipse这四个类的原型定义，参数都简介明了，不再详述
Direct2D1.Point2F(x As Single, y As Single)
Direct2D1.RectF(left As Single, top As Single, right As Single, buttom As Single)
Direct2D1.RoundedRect(rect As Direct2D1.RectF, radiusX As Single, radiusY As Single)
Direct2D1.Ellipse(point As Direct2D1.Point2F, radiusX As Single, radiusY As Single)
下面是实验示例代码
Public Class clsDirect2DSample2
Inherits clsDirect2DSample
Public Shadows Sub Render()
If Not _renderTarget Is Nothing Then
With _renderTarget
.BeginDraw()
Dim F1 As New Direct2D1.RectF(0, 0, 100, 50)
Dim F2 As New Direct2D1.RectF(200, 200, 300, 250)
Dim B As Direct2D1.SolidColorBrush = _renderTarget.CreateSolidColorBrush(New Direct2D1.ColorF(1, 0, 0))
_renderTarget.DrawRectangle(F1, B, 10)
_renderTarget.DrawRectangle(F2, B, 10)
.EndDraw()
End With
End If
End Sub
End Class
从上图的代码来看，在（0，0）位置上画了一个100*50的矩形，描边宽度10px。在（200，200）位置上画了一个矩形，描边宽度10px，如下图所示
从上面的效果可以看出两点：
一是左上角的矩形说明，Direct2D中的描边类型应该是“居中”；
二是右边的矩形说明Direct2D中的RectF定义和原本GDI+中的RectangleF定义不同，Direct2D中的RectF中后两个参数是右下角的坐标，而GDI+中的RectangleF中的后两个参数指的是矩形的宽和高。
线型（StrokeStyle）的设置
在上面的函数原型中，线型是由参数strokeStyle决定的，它是StrokeStyle类。这个类不能直接初始化，必须由D2DFactory对象的CreateStrokeStyle函数创建（Direct2D中有不少的类不能直接初始化，必须由D2DFactory或RenderTarget对象的相应的函数创建，如上面的SolidColorBrush对象就必须由RenderTarget对象的CreateSolidColorBrush函数创建）。
先看看CreateStrokeStyle函数的原型定义：
Public Function CreateStrokeStyle(strokeStyleProperties As Direct2D1.StrokeStyleProperties) As Direct2D1.StrokeStyle
Public Function CreateStrokeStyle(strokeStyleProperties As Direct2D1.StrokeStyleProperties, dashes() As Single) As Direct2D1.StrokeStyle
主要是通过strokeStyleProperties参数来设置线型，来看看StrokeStyleProperties结构及其参数对象的原型定义。
Direct2D1.StrokeStyleProperties(startCap As Direct2D1.CapStyle, endCap As Direct2D1.CapStyle, dashCap As Direct2D1.CapStyle, _
lineJoin As Direct2D1.LineJoin, miterLimit As Single, _
dashStyle As Direct2D1.DashStyle, dashOffset As Single)
Public Enum CapStyle
Flat = 0
Square = 1
Round = 2
Triangle = 3
End Enum
Public Enum LineJoin
Miter = 0
Bevel = 1
Round = 2
MiterOrBevel = 3
End Enum
Public Enum DashStyle
Solid = 0
Dash = 1
Dot = 2
DashDot = 3
DashDotDot = 4
Custom = 5
End Enum
其中CapStyle枚举指的是线端的线头类型，分别是Flat（平整，即无）、Square（方块）、Round（圆）、Triangle（三角）。和GDI+中的DashCap枚举类似，多了一个Square（方块），而在下面的例子中会说明Flat和Square的区别。参数startCap决定线起点的线头类型、endCap决定线终点的线头类型、dashCap决定中间划线端的线头类型。
而DashStyle枚举指的是线型，分别是Solid（实线）、Dash（划线）、Dot（点线）、DashDot（点划线）、DashDotDot（点点划线）、Custom（自定义）。和GDI+中的DashStyle一样。
参数dashOffset指的是点划线的偏移量
下面的代码是对上面的两个枚举的演示，请注意枚举CapStyle中的Flat和Square的区别。
Public Class clsDirect2DSample3
Inherits clsDirect2DSample
Public Shadows Sub Render()
If Not _renderTarget Is Nothing Then
With _renderTarget
.BeginDraw()
Dim B As Direct2D1.SolidColorBrush = _renderTarget.CreateSolidColorBrush(New Direct2D1.ColorF(1, 0, 0))
Dim SP As New Direct2D1.StrokeStyleProperties()
Dim S As Direct2D1.StrokeStyle
SP.StartCap = Direct2D1.CapStyle.Flat
SP.EndCap = Direct2D1.CapStyle.Flat
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 20), New Direct2D1.Point2F(200, 20), B, 8, S)
SP.StartCap = Direct2D1.CapStyle.Square
SP.EndCap = Direct2D1.CapStyle.Square
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 40), New Direct2D1.Point2F(200, 40), B, 8, S)
SP.StartCap = Direct2D1.CapStyle.Round
SP.EndCap = Direct2D1.CapStyle.Round
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 60), New Direct2D1.Point2F(200, 60), B, 8, S)
SP.StartCap = Direct2D1.CapStyle.Triangle
SP.EndCap = Direct2D1.CapStyle.Triangle
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 80), New Direct2D1.Point2F(200, 80), B, 8, S)
SP.StartCap = Direct2D1.CapStyle.Flat
SP.EndCap = Direct2D1.CapStyle.Flat
SP.DashCap = Direct2D1.CapStyle.Round
SP.DashStyle = Direct2D1.DashStyle.Solid
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 120), New Direct2D1.Point2F(200, 120), B, 6, S)
SP.DashStyle = Direct2D1.DashStyle.Dash
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 140), New Direct2D1.Point2F(200, 140), B, 6, S)
SP.DashStyle = Direct2D1.DashStyle.Dot
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 160), New Direct2D1.Point2F(200, 160), B, 6, S)
SP.DashStyle = Direct2D1.DashStyle.DashDot
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 180), New Direct2D1.Point2F(200, 180), B, 6, S)
SP.DashStyle = Direct2D1.DashStyle.DashDotDot
S = _d2DFactory.CreateStrokeStyle(SP)
_renderTarget.DrawLine(New Direct2D1.Point2F(10, 200), New Direct2D1.Point2F(200, 200), B, 6, S)
.EndDraw()
End With
End If
End Sub
End Class
上面四条线是演示枚举CapStyle的四种类型，注意第一条线是Flat，第二条线是Square。虽然都是方形，但是很明显第二条线比第一条线两边还多出一点（方形线帽）
下面五条线是演示枚举DashStyle表示的五个线型。注意：上面代码中红色的部分，DashCap不能设置为Direct2D1.CapStyle.Flat，如果设置为Flat，则所有的点都不见了；设置其他三种类型分别代表不同的点（方形点、圆点、菱形点）。
再说说枚举DashStyle中的Custom线型。设定为Custom后，必须用一个数组来指定自定义划线的线型。数组按照｛实、空、实、空……｝顺序来指定各部分的长度，单位是线宽。
例如｛2，2｝表示2线宽长的实线和2线宽长的空白组成的划线，也就是枚举DashStyle中的Dash
｛0，2｝表示0线宽长的实线和2线宽长的空白组成的划线，就是枚举DashStyle中的Dot。这也解释了DashCap设置为Direct2D1.CapStyle.Flat时，为何点不见了（设置为其他值时，点实际上是由线头组成的，点本身的长度为0）。
以此类推，｛2，2，0，2｝表示DashStyle中的DashDot，｛2，2，0，2，0，2｝表示DashStyle中的DashDotDot
要注意的是，只有枚举DashStyle设置为Custom时，才能传递数组，否则会直接报错的。
最后说说LineJoin枚举，指的是连接两条线的连接方式。分别是Miter（折角）、Bevel（倒角）、Round（圆角）、MiterOrBevel（折角或倒角）。和GDI+中的LineJoin枚举类似，只是MiterOrBevel好像对应GDI+中LineJoin枚举中的MiterClipped。
说说MiterOrBevel，当折角的值没有超过指定的值（系统指定）时，是Miter（折角），反之超过的话是Bevel（倒角）。
参数miterLimit是指折角的限制，低于限制时会自动添加倒角。参数miterLimit最小是1。注意的是miterLimit参数并不是配合LineJoin使用。当miterLimit设置为1的时候，下面的例子中，LineJoin枚举设置成Miter、Bevel、MiterOrBevel效果是一样的。当miterLimit设置为3的时候，LineJoin枚举设置成Miter、Bevel、MiterOrBevel效果才是不一样的
下面是LineJoin的示例，由于是演示两条线的连接，故用了一些后面才会详述的代码。不过，不影响我们理解枚举LineJoin的各个设置值的意义。
左上是Miter，右上是Bevel，左下是Round，右下是MiterOrBevel
Public Class clsDirect2DSample4
Inherits clsDirect2DSample
Public Shadows Sub Render()
If Not _renderTarget Is Nothing Then
With _renderTarget
.BeginDraw()
Dim B As Direct2D1.SolidColorBrush = _renderTarget.CreateSolidColorBrush(New Direct2D1.ColorF(1, 0, 0))
Dim SP As New Direct2D1.StrokeStyleProperties()
Dim S As Direct2D1.StrokeStyle
Dim PG As Direct2D1.PathGeometry
Dim sink As Direct2D1.GeometrySink
PG = _d2DFactory.CreatePathGeometry
sink = PG.Open
sink.BeginFigure(New Direct2D1.Point2F(17, 17), Direct2D1.FigureBegin.Hollow)
sink.AddLine(New Direct2D1.Point2F(45, 85))
sink.AddLine(New Direct2D1.Point2F(85, 45))
sink.AddLine(New Direct2D1.Point2F(85, 125))
sink.AddLine(New Direct2D1.Point2F(165, 17))
sink.EndFigure(Direct2D1.FigureEnd.Open)
sink.Close()
SP.LineJoin = Direct2D1.LineJoin.Miter
SP.MiterLimit = 3
S = _d2DFactory.CreateStrokeStyle(SP)
.DrawGeometry(PG, B, 10, S)
PG = _d2DFactory.CreatePathGeometry
sink = PG.Open
sink.BeginFigure(New Direct2D1.Point2F(217, 17), Direct2D1.FigureBegin.Hollow)
sink.AddLine(New Direct2D1.Point2F(245, 85))
sink.AddLine(New Direct2D1.Point2F(285, 45))
sink.AddLine(New Direct2D1.Point2F(285, 125))
sink.AddLine(New Direct2D1.Point2F(365, 17))
sink.EndFigure(Direct2D1.FigureEnd.Open)
sink.Close()
SP.LineJoin = Direct2D1.LineJoin.Bevel
SP.MiterLimit = 3
S = _d2DFactory.CreateStrokeStyle(SP)
.DrawGeometry(PG, B, 10, S)
PG = _d2DFactory.CreatePathGeometry
sink = PG.Open
sink.BeginFigure(New Direct2D1.Point2F(17, 217), Direct2D1.FigureBegin.Hollow)
sink.AddLine(New Direct2D1.Point2F(45, 285))
sink.AddLine(New Direct2D1.Point2F(85, 245))
sink.AddLine(New Direct2D1.Point2F(85, 325))
sink.AddLine(New Direct2D1.Point2F(165, 217))
sink.EndFigure(Direct2D1.FigureEnd.Open)
sink.Close()
SP.LineJoin = Direct2D1.LineJoin.Round
SP.MiterLimit = 3
S = _d2DFactory.CreateStrokeStyle(SP)
.DrawGeometry(PG, B, 10, S)
PG = _d2DFactory.CreatePathGeometry
sink = PG.Open
sink.BeginFigure(New Direct2D1.Point2F(217, 217), Direct2D1.FigureBegin.Hollow)
sink.AddLine(New Direct2D1.Point2F(245, 285))
sink.AddLine(New Direct2D1.Point2F(285, 245))
sink.AddLine(New Direct2D1.Point2F(285, 325))
sink.AddLine(New Direct2D1.Point2F(365, 217))
sink.EndFigure(Direct2D1.FigureEnd.Open)
sink.Close()
SP.LineJoin = Direct2D1.LineJoin.MiterOrBevel
SP.MiterLimit = 3
S = _d2DFactory.CreateStrokeStyle(SP)
.DrawGeometry(PG, B, 10, S)
.EndDraw()
End With
End If
End Sub
End Class
下面是效果图
从上图能看出四种类型的不同。左上是Miter，右上是Bevel，左下是Round，右下是MiterOrBevel
绘制基本图形和线型（StrokeStyle）的设置详解的更多相关文章
Jupyter自定义设置详解
今天专门花时间总结梳理一下jupyter的一些高级设置,jupyter我已经介绍过一次基本内容了,Setup and Linux | James Chen's Blogs,尤其是如何在服务器运行jup ...
【转】Eclipse Java注释模板设置详解
Eclipse Java注释模板设置详解 设置注释模板的入口: Window-Preference-Java-Code Style-Code Template 然后 ...
Win7 NFS 设置详解 | X-Space
Win7 NFS 设置详解 | X-Space Win7 NFS 设置详解
[转]JAVA环境变量JAVA_HOME、CLASSPATH、PATH设置详解
[转] JAVA环境变量JAVA_HOME.CLASSPATH.PATH设置详解 - dreamman的日志 - 网易博客 ...
fiddler软件测试——Fiddler抓取https设置详解（图文）（摘抄）
随笔- 8 文章- 0 评论- 0 fiddler软件测试——Fiddler抓取https设置详解(图文) 强烈推荐(原创亲测)!!!Fiddler抓取https设置详解(图文)转 本文主要说 ...
fiddler软件测试——Fiddler抓取https设置详解（图文）
强烈推荐(原创亲测)!!!Fiddler抓取https设置详解(图文)转 本文主要说明了自己在设置fiddler抓取https过程中所遇到的问题及解决步骤,特别是fiddler在设置证书的环节遇到的各 ...
MySQL高可用架构之Mycat-关于Mycat安装和参数设置详解
MySQL高可用架构之Mycat-关于Mycat安装和参数设置详解 作者:尹正杰 版权声明:原创作品,谢绝转载!否则将追究法律责任. 一.Mycat介绍 1.什么是Mycat Mycat背后是 ...
【转载】 Eclipse注释模板设置详解
Eclipse注释模板设置详解 网站推荐: 金丝燕网(主要内容是 Java 相关) 木秀林网(主要内容是消息队列)
loadrunner 运行脚本-Run-time Settings-Browser Enmulation设置详解
运行脚本-Run-time Settings-Browser Enmulation设置详解 by:授客 QQ:1033553122 浏览器模拟 所有Internet Vuser Header包含一个标 ...
随机推荐
c# WebBrowser开发参考资料
原文:c# WebBrowser开发参考资料 c# WebBrowser开发参考资料,所有资料的采集均来自网上 话说有了WebBrowser类,终于不用自己手动封装SHDocVw的AxWebBrows ...
设计模式组合模式(Composite)精华
23种子GOF设计模式一般分为三类:创建模式.结构模型.行为模式. 创建模式抽象的实例,他们帮助如何创建一个系统独立.这是一个这些对象和陈述的组合. 创建使用继承类的类架构更改实例.的对象类型模型的建 ...
sdut 3-4 长方形的周长和面积计算
3-4 长方形的周长和面积计算 Time Limit: 1000MS Memory limit: 65536K 标题叙述性说明 通过本题的练习能够掌握拷贝构造函数的定义和用法: 设计一个长方形类Rec ...
poj 3273 Monthly Expense (二分)
//最大值最小 //天数的a[i]值是固定的 不能改变顺序 # include algorithm # include string.h # include s ...
JSLint是一个JavaScript的代码质量工具
JSLint是一个JavaScript的代码质量工具 可能都或多或少的知道JSLint是一个JavaScript的代码质量工具,一个JavaScript语法检查器和校验器,它能分析JavaScript ...
3. SQL Server数据库状态监控 - 可用空间
原文:3. SQL Server数据库状态监控 - 可用空间 数据库用来存放数据,那么肯定需要存储空间,所以对磁盘空间的监视自然就很有必要了. 一. 磁盘可用空间 1. 操作系统命令或脚本.接口或工具 ...
Warning: Cannot modify header information - headers already sent by (output started at
一般来说在header函数前不能输出html内容,类似的还有setcookie() 和 session 函数,这些函数需要在输出流中增加消息头部信息.如果在header()执行之前有echo等语句,当 ...
JS复选框选中
Web前端之复选框选中属性 熟悉web前端开发的人都知道,判断复选框是否选中是经常做的事情,判断的方法很多,但是开发过程中常常忽略了这些方法的兼容性,而是实现效果就好了.博主之前用户不少方法,经常 ...
leetcode[158] Read N Characters Given Read4 II - Call multiple times
想了好一会才看懂题目意思,应该是: 这里指的可以调用更多次,是指对一个文件多次操作,也就是对于一个case进行多次的readn操作.上一题是只进行一次reandn,所以每次返回的是文件的长度或者是n, ...
shell脚本中执行另一个shell脚本
分类: 可以在一个shell脚本中执行另一个shell脚本(或非可执行文件,主要用于取得一些变量的值),方法是: . 文件名(包括路径) 或 变量=文件名(包括路径) . $变量 注意,圆点后面有 ...
热门专题
微服务INSTALL服务端一直报错CENTOS 7 安装截图软件SHUTTERDB与LOG对数关系雅虎YUI的RESETECHARTS地图 关闭涟漪效果THIS方法用数组颜色ARDUINO报错373WINFORM的冒泡双数组TRIE树 AC自动机FLUENT中怎么看传热系数C# LIST 获取前1000条JS PUSH 参数REACT 字段超长缩放显示,鼠标悬浮气泡显示JAVA PDF加水印 斜着一层层 铺满CHROME ERR_UNSAFE_PORT 所有端口VUE CESIUM 绘制立方体如何利用VAR来调资产类别的权重LINUX运行MAPREDUCE的JAR时报错ADB抓取LOG命令LINUX9 安装 VLC
Home
Powered By WordPress
程序设计初步 一、 顺序结构程序设计 1.输入语句read和readln 功能：从键盘或文件读入数据项，并把它存到变量中去，使该数据能在以后的计算中使用。 输入语句的一般形式为： read(v1，v2，…，vn)； readln(v1，v2，…，vn)；从键盘逐次读入数据，分别赋给变量v1，v2，…，vn，一次输入多个变量值时，要求数据之间用空格分隔，readln语句要求输入数据后必须回车，使得后继操作从下一行的头上开始。
Slide 2read语句与readln语句区别是： （1） read语句是一个接一个地读数据，在执行完本Read语句( 读完本语句中变量所需的数据)后,下一个读语句接着从该数据输入行中继续读数据，也就是说，不换行。如： Read(a,b); Read(c,d); Read(e); 如果输入数据行如下: 1□2□3□4□5□6□←┘ 则a,b,c,d,e的值分别为1,2,3,4,5,如果后面无读语句则数据6是多余的，这是允许的。
Slide 3Readln则不同，在读完本Readln语句中变量所需的数据后, 该数据行中剩余的数据多余无用，或者说，在读完本Readln语句中变量所需数据后，一定要读到一个回车，否则多余的数据无用。设有下列语句: read(a,b,c); readln(d,e); readln; readln(f); 其中,所有变量均为整型。再设输入的数据如下： 1□2←┘ 3□4□5□6□7□8←┘ 9□10←┘ 11←┘ 结果为：1 2 3 4 5 11
Slide 4(2)readln语句与read语句的第二个区别是: read 后一定要有参数表, readln可以不带参数表,即可以没有任何输入 项, 只是等待读入一个换行符(回车)。 经常用于暂停程序的运行，直到输入 一个回车
Slide 52、输出语句write和writeln 功能：把程序计算的结果，按适当的形式输出到屏幕或文件。 1)、write语句格式Write(表达式1，表达式2，……)；如: write(x,5,a+b); write(‘My name is Liping’); 2)、writeln语句格式: Writeln(表达式1，表达式2，……) 或writeln
Slide 6Write语句与writeln语句格式上都相似，但它们在功能上有所不同，两个语句的区别在于: write语句将其后括号中的表达式一个接一个输出后，没有换行。 而writeln语句则在输出各个表达式的值后换行。例如以下两个程序段的输出分别为： write(1,2,3,4); write(5,6); 输出为： 123456 writeln(1,2,3,4); write(5,6); 输出为： 1234 56
Slide 74)实数的输出格式实数（real）以浮点型格式输出。例如805.67对应的浮点数为8.056700000000E+02。这种实数表达方式很不方便。我们可以通过下述形式强迫实数以定点型格式输出： 实数表达式：域宽：小数位数例如，t的值设为63.123。下面三条输出语句分别有它们右边所示的输出格式： write(t)； 6.312300000000E+01 write(t：6：2)； 63.12 write(t：10：5)； 63.12300 输出语句的输出格式： 场宽的分类：标准场宽和自定义场宽。 自定义场宽又分为单场宽和双场宽。 单场宽的形式： x：n； 可以输出的项目有整型、字符型、布尔型，不允许实型。 双场宽的形式： x：n1：n2； 控制实型数据的输出。
Slide 83：复合语句：定义：复合语句是由若干条语句组成的语句序列。形式： begin 语句1； 语句2； ···· 语句n end；用保留字begin和end括起来，构成一条逻辑上的语句，语法上充当一条语句。
Slide 9二、 选择结构程序设计 一：什么是选择结构？选择结构的特点？ 二：选择结构的几种语句： 1．if 语句：格式：if 条件 then 语句1； if 条件 then 语句1 else 语句2；功能：执行过程说明：1）该语句为一个语句； 2）条件是一个布尔表达式或一个布尔变量，then 和else后的语句可以是单个语句，当需要多条语句时，用begin和end括起来构成复合语句。 3）灵活运用该语句，条件是关键。
Slide 10补充：逻辑运算及布尔表达式 1、布尔常量： true false const t=true;f=false; 2、 布尔变量： var t,f:Boolean; 顺序型数据false(0),true(1),有ord,succ,pred等函数运算 3、关系表达式：定义；运算符；运算结果 对于数值型数据的比较，直接比较数值的大小如：136 的结果为true 对于其它类型数据的比较，则按其序号进行比较如：’a’=’b’的结果为false 逻辑运算：三个运算符（优先级）：not(单目) and(双目) or(双目) 运算结果为布尔型数据：true,false 布尔表达式：由逻辑运算符将几个类型相容且有序的表达式联结起来的式子。 逻辑、算术、关系运算符的运算次序：括号——函数、not——*、/、div、mod、and——+、-、or——、=、、=、=、 例：若a=true，b=false，x=7，y=12，m=3，n=35，求下列布尔表达式的值。 a and not (mn) and (xy-m) or (a or b) ① ② ③
Slide 112．if 语句的嵌套：格式： (1) if 语句嵌套在then语句中 if 条件1 then if 条件2 then 语句21 else 语句22 else 语句12；（2）if 语句嵌套在else语句中 if 条件1 then 语句11 else if 条件2 then 语句21 else 语句22 ；
Slide 12【例】:计算下列函数 分析：根据输入的x值，先分成x0与x≤0两种情况，然后对于情况x≤0，再区分x是小于0，还是等于0。
Slide 13程序代码： program ex; var x:real; y:integer; begin write('input x:');readln(x); if x0 then y:=1 else if x=0 then y:=0 else y:=-1; writeln('x=',x:6:2,'y=',y); end.
Slide 143．case 语句：分情况语句（多分支语句）格式：case 表达式 of 常数表1：语句1； 常数表2：语句2； ···· 常数表n：语句n; else 语句n+1 end; 功能：执行过程说明：1）end 与case 对应 2）表达式的类型通常是整型、字符型 3)常量表是常量，其类型与表达式的类型要一致。常量表中的常量不能重复。
Slide 15【例】:输入两个数（均不为零）及一个算术运算符，输出其运算的结果程序代码： program ex3(input,output); var x,y,s:real; ch:char; begin writeln(‘input x y ch:’); readln(x,y); readln(ch); case ch of ‘+’:s:=x+y; ‘-‘:s:=x-y; ‘*’:s:=x*y; ‘/’:s:=x/y end; writeln(x,ch,y,’=’,s) end.
Slide 16上机练习题 1.求一元二次方程ax2+bx+c=0的根。 算法分析：方程的系数a,b,c决定了方程有无根，是几个根，是实数根还是复根。 2.打印某年某月有几天。 算法分析：可分为以下3种情况： 每年的1，3，5，7，8，10，12这七个月每月为31天； 每年的4，6，9，11这四个月为30天； 2月又分为两种情况：闰年为29天，否则为28天。 判断闰年的条件：年数能被4整除，并且不能被100整除，或者年数能被400整除； （year mod 4=0）and (year mod 1000) or (year mod 400=0)
Slide 17第三节 循环结构程序设计 一、什么是循环结构？其特点是什么？二、循环结构的三种形式： 1．for语句：（“计数循环”）：就是将规定循环体重复执行的次数。格式：for 控制变量：=初值 to 终值 do 循环体语句； for 控制变量：=初值 downto 终值 do 循环体语句；功能：执行过程说明：1) 初值和终值可以是表达式，控制变量和初值、终值的类型相同，且必须是整型、布尔型和字符型等顺序类型，不能为实型。 2）递增按succ函数规律变化，递减按pred函数规律变化，整型按数值大小变化，如果为字符型量，按ASCII码表的顺序计算。 3）初值和终值在循环之前计算，重复过程中，其值不受影响；不得在循环语句中对控制变量进行赋值。 4）当初值超过终值，不执行循环，循环次数为零。
Slide 18【例1】:计算1+2+3+4+···+100之和。算法分析：对于求和，我们使用的是累加的办法。程序代码： program ex1(input,output); var i,sum:integer; begin sum:=0; for i:=1 to 100 do sum:=sum+I; writeln(‘sum=’,sum) end. 补充说明：类似sum迭加变量这样的功能称为“累加器”；类似i这样的变量称为“计数器”；“计数器”和“累加器”是在程序中经常使用的基本操作语句。
Slide 192．while语句：（“当型循环”）：当条件满足时反复执行循环体。格式：while 布尔表达式 do 语句；功能：执行过程：先求布尔表达式的值，值为真时，执行语句；值为假时，退出循环。说明：1）为了while循环能正常终止，布尔表达式中的变量必须在循环体中的某语句中有所改变，即有可能是布尔表达式的值为假，使循环结束，否则将出现死循环。 2）循环体中的语句一般是多条语句，用begin和end使其成为一条复合语句。
Slide 20【例】:输出1~100之间的奇数。程序代码： program ex5(input,output); var x:integer; begin x:=1; while x100 do begin write(x:5); x:=x+2 end end.
Slide 213．until语句：（“直到型循环”）：反复执行循环体直到条件满足为止。格式：repeat 语句1； 语句2； 语句3； ··· 语句n until 布尔表达式；功能：执行过程：先执行指定的语句序列，然后判别表达式。
Slide 22说明：while语句和repeat语句都可以实现循环结构，但它们有四点不同：
Slide 23【例】:输出1~100之间的奇数。(用repeat则应该是）程序代码： program ex5(input,output); var x:integer; begin x:=1; repeat write(x:5); x:=x+2 Until x=100 end.
Slide 24三、多重循环： 1*1=1 2*1=2 2*2=4 3*1=3 3*2=6 3*3=9 4*1=4 4*2=8 4*3=12 4*4=16 ………………………………………….. 9*1=9 9*2=18 9*3=27 ………….. …... 9*9=81 打印出如下的九九表：
Slide 25program jjb(input,output); var i,j:integer; begin for i:=1 to 9 do begin for j:=1 to i do write(i,'*',j,'=',i*j,‘ ':3); writeln; end end.
Slide 26四、转向语句：goto Goto语句并不是循环语句，而是一个无条件的强制跳转语句。格式： goto 语句标号； 1、标号说明通常放在程序说明部分第一个出现，格式如下： label 标号1，标号2……… 标号只起到一个表明位置的作用，它并不改变原语句的功能 标号并不代表实际的行数，标号之间也可不按大小顺序 2、只能从一个语句结构中转出来，不允许从外部转进去例如：求100以内的所有质数
Slide 27program js(input,output); Var n,i,j:integer; begin write('2,'); for i:=3 to 100 do begin n:=2; while i mod n0 do n:=n+1; if i=n then write(i,','); end; end.
Slide 28上机练习题 1.编程求出1!+2!+3!+……….+n!的值 2.编程找出四位整数abcd中满足下述关系的数。 (ab+cd)(ab+cd)=abcd 3.已知：faibonacci（费波那契）数列的前几个数分别为0，1，1，2，3，5，···，编程求出此数列的前n项。 4.试编写能打印如下输出图形的程序。＃＃＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃ ＃＃＃＃＃ ＃＃＃ ＃思考：如果把图形上下颠倒的话，程序应如何修改
Slide 295. （1）求出两个自然数a和b的最大公约数。 （2）求出两个自然数a和b的最小公倍数。 6. 用5元钱买100只纽扣，其中金属纽扣每只5角，有机玻璃纽扣每只一角，小按扣1分钱3个，编程求出各种纽扣各买了多少只？ 7.（1）随机产生一个三位自然数，判断这个数是否为水仙花数。 （2）求100~999中的水仙花数。（若三位数abc,abc=a3+b3+c3,则称为水仙花数。如：153，13+53+33=1+125+27=153）
Slide 30program jjb(input,output); var i,n,s,m:integer; begin read(n); s:=0; m:=1; for i:=1 to n do begin m:=m*i; s:=s+m; end; writeln('s=',s); end. 1.编程求出1!+2!+3!+……….+n!的值
Slide 312、【算法分析：这道题属于搜索问题，因为是四位整数，其范围从1000——9999，所求的数究竟在哪里，无法确定，只有在这个范围内从小到大一个一个进行搜索，对每一个数，看它的高两位数与低两位数和的平方是否为该数。高两位数：abcd div 100=ab 低两位数：abcd mod 100=cd 程序代码： program ex4(input,output); var i,m,n,k:integer; begin for i:=1000 to 9999 do begin m:=i div 100; n:=i mod 100; k:=(m+n)*(m+N); If k=i then write(I:8) end end. 补充说明：以上用的方法也叫“枚举法”，又称“穷举法”。它是用计算机解题的一种常用的办法。它的基本思路是：一一枚举各种可能的情况，并判断哪一种可能是符合要求的解。方法虽然很笨，然而与计算机高速的处理能力相结合，也不失为一种较有用的方法
Slide 323.已知：faibonacci（费波那契）数列的前几个数分别为0，1，1，2，3，5，···，编程求出此数列的前n项。 program fbnqsl(input,output); var f1,f2,fn,i,n:integer; begin writeln('input n:'); readln(n); f1:=0; f2:=1; write(f1:6,f2:6); for i:=3 to n do begin fn:=f1+f2; write(fn:6); f1:=f2; f2:=fn; end; end.
Slide 334、＃＃＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃ ＃＃＃＃＃ ＃＃＃ ＃ program ex10(input,output); var i,j,k:integer; begin for i:=6 downto 1 do begin for j:=1 to 6-i do write(‘ ‘); for k:=2*i-1 downto 1 do write(‘#’); writeln end end. ＃ ＃＃＃ ＃＃＃＃＃ ＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ program ex10(input,output); var i,j,k:integer; begin for i:=1 to 6 do begin for j:=6-i downto 1 do write(' '); for k:=2*i-1 downto 1 do write('#'); writeln end end.
Slide 345、program fbnqsl(input,output); var m,n,t,r:integer; begin writeln('input m and n:'); readln(m,n); if mn then begin t:=m; n:=m; m:=t; end; r:=m mod n; while r0 do begin m:=n; n:=r; r:=m mod n; end; write(n); end. program fbnqsl(input,output); var m,n,i,s:integer; begin writeln('input m and n:'); readln(m,n); i:=1; s:=m*i; while s mod n0 do begin i:=i+1; s:=m*i; end; write(s); end. 最小公倍数：
Slide 356、用5元钱买100只纽扣，其中金属纽扣每只5角，有机玻璃纽扣每只一角，小按扣1分钱3个，编程求出各种纽扣各买了多少只？ var x,y,z:integer; begin for x:=1 to 10 do for z:=1 to 100 do begin y:=100-x-z; if 50*x+10*y+z/3=500 then writeln(x:4,y:4,z:4); end; end.
Slide 367、program ex9(input,output); var a,b,c:integer; begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if a*a*a+b*b*b+c*c*c=a*100+b*10+c then write(a*100+b*10+c:6); writeln end.
循环结构
by guest102525 | Added: 1 month ago
Language: Chinese | Topic: Nature
4 Views 1 Embeds
Share via email
URL:
Embed: HTML XHTML
For WordPress: Get SlideBoom plugin for WordPress
More by this UserMost ViewedRelated presentations
This user doesn't uploaded any other presenations.
Share via email
(comma-separated)Emails*:
Your name*:
Message:
Refresh
Please enter the characters you see.
Characters are not case sensitive.
Send
* indicates a required field
Share presentation with a group
Group:
Select group
Message:
Post
http协议中的请求头，具体google，一般在程序开发中没什么意义。
wordpress使用的是PHP语言的开源系统，我们都知道PHP经常会使用到include来引用PHP文件，wordpress为了简化这些常用文件的引用，特别为我们准备了 get_header()、get_footer()、get_sidebar()等主题模板文件包含语句。get_header()函数是我们主题开发过程必用的函数，一般用于包含公用的头部文件header.php,如果你有多个头部文件你可以使用get_header($name)来获取指定头部文件header-{$name}.php。
什么是渗透测试？
渗透测试，是渗透测试工程师完全模拟黑客可能使用的攻击技术和漏洞发现技术，对目标网络、主机、应用的安全作深入的探测，发现系统最脆弱的环节。
如何进行Web渗透测试？
完整web渗透测试框架当需要测试的web应用数以千计，就有必要建立一套完整的安全测试框架，流程的最高目标是要保证交付给客户的安全测试服务质量。
1、立项：项目建立，时间安排，人力分配，目标制定，厂商接口人确定；
系统分析威胁分析：针对具体的web应用，分析系统架构、使用的组件、对外提供的接口等，以STRIDE为威胁模型进行对应的安全威胁分析，输出安全威胁分析表，重点关注top3威胁；
制定测试用例：根据威胁分析的结果制定对应的测试用例，测试用例按照模板输出，具备可执行性；
测试执行漏洞挖掘：测试用例执行发散测试，挖掘对应的安全问题or漏洞；
问题修复回归测试：指导客户应用开发方修复安全问题or漏洞，并进行回归测试，确保安全问题or漏洞得到修复，并且没有引入新的安全问题；
项目总结评审：项目过程总结，输出文档评审，相关文档归档。
2、Web应用的渗透测试流程
主要分为3个阶段，分别是：信息收集→漏洞发现→漏洞利用，下面仔细分析一下各个阶段流程：
一、信息收集
在信息收集阶段，我们需要尽量多的收集关于目标web应用的各种信息，比如：脚本语言的类型、服务器的类型、目录的结构、使用的开源软件、数据库类型、所有链接页面，用到的框架等
脚本语言的类型：常见的脚本语言的类型包括：php、asp、aspx、jsp等
测试方法：
1 爬取网站所有链接，查看后缀
2 直接访问一个不存在页面后面加不同的后缀测试
3 查看robots.txt，查看后缀
服务器的类型：常见的web服务器包括：apache、tomcat、IIS、ngnix等
测试方法：
1 查看header，判断服务器类型
2 根据报错信息判断
3 根据默认页面判断
目录的结构：了解更多的目录，可能发现更多的弱点，如：目录浏览、代码泄漏等。
测试方法
1 使用字典枚举目录
2 使用爬虫爬取整个网站，或者使用google等搜索引擎获取
3 查看robots.txt是否泄漏
使用的开源软件：我们如果知道了目标使用的开源软件，我们可以查找相关的软件的漏洞直接对网站进行测试。
测试方法
指纹识别（网络上有很多开源的指纹识别工具）
数据库类型：对于不同的数据库有不同的测试方法。
测试方法
1 使应用程序报错，查看报错信息
2 扫描服务器的数据库端口（没做NAT且防火墙不过滤时有效）
所有链接页面：这个跟前面的获取目录结构类似，但是这个不只是获取网站的所有功能页面，有时候还可以获取到管理员备份的源码。
测试方法
1 使用字典枚举页面
2 使用爬虫爬取整个网站，或者使用google等搜索引擎获取
3 查看robots.txt是否泄漏
用到的框架：很多网站都利用开源的框架来快速开发网站，所以收集网站的框架信息也是非常关键的。
测试方法
指纹识别（网络上有很多开源的指纹识别工具）
二、漏洞发现
在这个阶段我们在做测试的时候要对症下药，不能盲目的去扫描，首先要确定目标应用是否使用的是公开的开源软件，开源框架等、然后在做深一度的漏洞扫描。
关于开源软件的漏洞发现
开源的软件：常见的开源软件有wordpress、phpbb、dedecms等
开源的框架：常见的开源框架有Struts2、 Spring MVC、ThinkPHP等
中间件服务器：常见的中间件服务器有jboss、tomcat、Weblogic等
数据库服务：常见的数据库服务mssql、mysql、oracle、redis、sybase、MongoDB、DB2等
对于开源软件的测试方法
1 通过指纹识别软件判断开源软件的版本信息，针对不同的版本信息去开放的漏洞数据库查找相应版本的漏洞进行测试
2 对于默认的后台登录页、数据库服务端口认证等入口可以进行简单的暴力破解、默认口令尝试等操作
3 使用开源的漏洞发现工具对其进行漏洞扫描，如：WPScan
关于自主开发的应用
手动测试：这个阶段，我们需要手工测试所有与用户交互的功能，比如：留言、登入、下单、退出、退货、付款等操作
软件扫描：使用免费的软件扫描，如：appscan、wvs、netsparker，burp等
可能存在的漏洞
Owasp关键点
代码安全之上传文件
代码安全之文件包含
代码安全之SSRF
逻辑漏洞之密码重置
逻辑漏洞之支付漏洞
逻辑漏洞之越权访问
平台安全之中间件安全
三、漏洞利用
针对不同的弱点有不同的漏洞利用方式，需要的知识点也比较多。一般这个阶段包括两种方式，一种是手工测试，一种是工具测试
手工测试
手工测试是通过客户端或服务器访问目标服务，手工向目标程序发送特殊的数据，包括有效的和无效的输入，观察目标的状态、对各种输入的反应，根据结果来发现问题的漏洞检测技术。手工测试不需要额外的辅助工具，可由测试者独立完成，实现起来比较简单。但这种方法高度依赖于测试者，需要测试者对目标比较了解。手工测试可用于Web应用程序、浏览器及其他需要用户交互的程序。
这种方式对于有特殊过滤等操作，或者网络上没有成型的利用工具的时候可以使用。
工具测试
网络上有很多好用的免费利用工具，比如针对sql注入的sqlmap、针对软件漏洞的matesploit等。
