游戏进度条图片素材-VB 这样的进度条样式怎么做？

橙光游戏制作怎么导入好感度界面

制作前先去网上下载要使用的素材,比如:对方的头像、好感度背景图、进度条等。

把下载好的素材抠出来,比如进度条,抠完后选择一个你喜好的或都弄下来。抠好后出来调整大小

,再然后裁剪一个进度条下来保存为PNG格式(全部为这个格式),保存后用涂鸦笔将进度条弄成空心作为底图。

第3步建立一个960/540像素的画布(根据自己制作游戏的像素而制作大小),建完后插一个已下载好的背景图放上来。

第4步打字,如图,打【好感度界面】字放在最上面,然后再插入准备好的人物头像放好,具体放几个根据自己需求了,调整大小放好后再在人物下方输入该角色名字,如:岳父的好感度:。

弄完所需的素材后把刚做完的素材放在指定位置去,或在制作工具那里选择图片是点击【打开所在文件夹】。

打开【橙光文字制作工具】找到【高级UI】进去制作好感度界面系统。在空白处新建一个系统。

建立后在左边点击【添加组件】再点图片找到你做好的背景图放上来。放好背景图就点添加组件、【数值】点第一个选择框进去看到空白的建立新的数值名称,比如:与岳父的好感,其他类似。做完数值名称后点与岳父的好感确认出来就看见左上角有一个字符了,把他拉到对应的位置放好,其他类似。

制作进度条,一般不需要的。点击添加组件--数值条,图像第一个是放制作好的进度条底图(空心图),第二个是滚动图(满格图),数据:最大值点击进去再建立要制作好感的角色名,如:岳父好感最大值,其他类似。不重新制作的话进度条就不动了。之后确认出来就看见一个进度管了,把他放在相应的位置上。

如何用ppt制作进度条效果

PPT制作进度条效果的方法

问题分析

用PPT制作进度条,相信难点在于数字的跳动和进度条的同步。教程中假设数字从10到100(间隔为10的倍数),每个数字跳动时间为0.1秒,10个数字时间共1秒,与此同时,把进度条的总出现时间设置为1秒,这样,就能做到数字的总时间和进度条的总时间相同,达到同步的目的——这就是制作PPT进度条的原理。

预备工作

在PPT制作进度条制作前,我们需要先把需要的素材(10个数字和进度条)先准备好。

动画设置

整个动画过程,我们需要把所有动画的【开始】,设置为【与上一动画同时】,这样才能保证动画的同时进行。进度条的动画从左边开始向右擦除,并且时间设置为1秒,而数字,同时逐个出现和逐个消失(把每个数字进入动画设置为0.1s淡出,消失动画设置为0.1s淡出),直到10个数字全部完成,并最后静止在100这个数字(最后一个数字动画不需要设置消失动画即可)。

排版设置

动画一切设置就绪之后,我们需要把数字居中对齐,全部数字叠加并排列在进度条中间,这里我们用到PPT排版常用工具【对齐】之【左右居中】,非常好用的工具,排版中需要经常用到,建议把此工具设置为单独的选项卡,以便于我们日常方便使用(教程后续)。

对齐后,结果如下图示。

这就是PPT制作进度条的全部过程,进度条只是简版,没有进行深入设计处理,抛砖引玉,若你做出更好的视觉效果,记得和大家一起分享哦!

怎么用Premiere快速制作一根进度条?

用PR也可以快速制作一根进度条

首先,打开PR软件,文件新建—

旧版标题

,弹出新建字幕对话框:修改名称,视频设置,宽度高度选默认

使用“旧版标题”中的圆角矩形工具绘制一个形状,分别点击左边的

中心对齐、居中对齐

绘制好第一个形状之后,再复制出来一个,更改一个名称

将拷贝出来的图形打开旧标题进行编辑,这里需要绘制一个描边,以便在动画移动时可以有一个黑色框,

操作步骤:关闭

填充选项

,在描边下选择

内描边

,更改类型:大小,填充类型的数值

接下来需要进行打关键帧的重要步骤了。

第一:在效果组选择“裁剪”,添加至第一层的形状上

在关键帧右侧打字,

第一帧位于素材的第一帧位置

(状态为波动到无长条状态)第二帧位于关键帧到长条状态

(第二帧的位置是大家可以根据动画的快捷键来决定)

再次添加一个效果为百叶窗,注意是

视频效果下的百叶窗

,把效果添加至第一层的素材上调节百叶窗效果

的过渡完成和宽度数值,调整到合适的效果

在项目窗口添加一个透明视频

更改数值如下:

透明度为0

场符号_去掉

格式选择帧

时间码源选择剪辑

把透明视频添加至时间轴的最上层,这里给大家说说关于时间码的知识点,当选择好上一步的所有数值之

后,每当剪断素材时,时间码的数值就又会恢复到0的状态。

在控制时间码100%的时候,可以控制在102-103%数值左右,然后做个

嵌套

,便于后续的步骤。

嵌套好之后,需要控制进度条在加载100%的状态时,刚好是

时间码

数值100,用比率拉伸工具去匹配长度,把时间码移动下位置至进度条之上,点击嵌套,调整位置的数值。

使用工具栏中的文字工具添加个%符号

为了使得动画在完成100%显示的时候静止动画,可以给画面做个导出帧

把视频的小眼睛关闭,点击节目窗口中的相机符号,如若Pr软件中没有,可以在节目窗口中的+号拖

拽添加

在导出帧的选择界面上,注意:一定要选择PNG,Targa格式,记得勾选_导入到项目中。

操作完成后,把导出帧图片拖拽至时间轴最上层

效果就出来了,OK!大功告成了。

电脑游戏下载时进度条的图形多种多样,以下是几种常见的图形:线性进度条,圆形进度条,步进进度条,渐进进度条。进度条的图形可以有很多种,它们的形式和设计主要取决于软件开发者的设计和用户体验的需求。

靠

一、实现原理

采用一个完整的图片来作为进度条,每次当进度条改变时,采用先贴图再用背景色擦去不需显示的一段进度的方法来实现进度条的变化,可实现制作任何复杂美观的进度条。

二、准备工作

首先需准备一个如下图样式的进度条图片(当然你可以做你自己喜欢的样式)。然后在窗体中加入一PictureBox控件,属性设置如下:

AutoSize:True

Appearance:Falt

AutoRedraw:True

ScaleMode: Pixel

Picture:〃准备的图片〃

再加一辅助控件(只用于保存图片,方便快捷地使用进度条)Image,属性设置如下:

Picture:〃准备的图片〃

Visible:FALSE

进度条的用途:

※在一般软件中表示执行进度

※在多媒体播放器中表示音量大小、频率节奏的变化…

※在游戏中表示角色的能量、生命值…

进度条的分类:

由以上用途可知,进度条大体可分为两类

第一类:自动变化的进度条(如安装程序中的进度条)

第二类:可由用户操作的进度条(如音量调节)

以下是两类进度条的代码。

实现第一类的方法:

Const MaxValue = 100

Const MinValue = 0

Dim Gene As Single

Dim ProValue As Single

Sub InitData()

Gene = / (MaxValue - MinValue)

End Sub

Sub SetProBar(value As Single)

Dim X As Single

ProValue = value

If ProValue > MaxValue Then

ProValue = MaxValue

Else

If ProValue < MinValue Then

ProValue = MinValue

End If

End If

= ProValue

X = (ProValue - MinValue) * Gene

With Picture1

=

(X, 0)-(.ScaleWidth, .ScaleHeight), vbWhite, BF

End With

End Sub

以上是实现第一类进度条的全部代码,它有相当的独立性,不管你准备的进度条有多长,此代码都可无须改变而应用于你的系统中。其中,MAXVALUE、MINVALUE为此进度条所表示的最大最小值,可由实际应用而定。

PROVALUE 为当前的进度值,可由它得到当前值,以便处理。

SETPROBAR 为实际使用的过程,在软件中通过调用此过程来改变进度条的长度。VALUE 的取值为 MINVALUE～MAXVALUEINITDATA 是初始化进度条长度和实际要表示的范围的比例因子,在软件中首先要调用此过程完成初始化工作。

第二类实现方法:

要实现此类进度条,只需在第一类的基础上再加上响应用户操作的部分即可

具体所加代码如下:

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single)

If Button = 1 Then

Picture1_MouseDown Button, Shift, X, Y

End If

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)

If Button = 1 Then

ProValue = Int(X / Gene + MinValue + 1)

SetProBar ProValue

End If

End Sub

应用示例:

建一工程,然后加入下列控件,并写入所示代码即可。

控件:两个PictureBox,组成控件数组(属性设置如上)但:picture1(0)的BorderStyle:None

两个Label,组成控件数组并分别以与自已Index 值相同的PictureBox为父控件(只需把Label绘在或粘贴在相应的PictureBox上即可)属性:

AutoSize:True

Alignment:Center

BackStyle:Transparent

Label(1): Caption:〃当前音量0〃

Enabled:False

Label(0): Caption:〃0%〃

一个Timer:属性:Interval:50

三、实例

一个自动的进度条和由用户控制的进度条。

Option Explicit

′如果有多个进度条且表示值的范围不同

′则可设立一组范围值,最好能通过INDEX

′值同自已的进度条建立对应关系,以方便处理

Const MaxValue = 100

Const MinValue = 0

Dim Gene As Single

Dim ProValue(1) As Single

′生成比例因子,必须首先执行

Sub InitData()

Gene = Picture1(0).ScaleWidth /

(MaxValue - MinValue)

End Sub

′根据当前进度值设置进度条,INDEX指出是哪个进度条的值

Sub SetProBar(value As Single, Index As Integer)

Dim X As Single

Dim BkColor As Long

ProValue(Index) = value

′对当前进度值超出范围的处理

If ProValue(Index) > MaxValue Then

ProValue(Index) = MaxValue

Else

If ProValue(Index) < MinValue Then

ProValue(Index) = MinValue

End If

End If

′在存在多个进度条时分别设置各进度条的不同文本

Select Case Index

Case 1

Label1(Index).Caption = ProValue(Index) & 〃%〃

Case 0

Label1(Index).Caption = 〃当前音量〃 & ProValue(Index)

End Select

′计算出当前进度值所对应的进度条位置

X = (ProValue(Index) - MinValue) * Gene

With Picture1(Index).Picture =

′把当前进度值所对应的进度条位置之后的图片用白色盖住

′它是此法实现思路的核心

Select Case Index

Case 1

bkcolor = vbWhite

Case 0

bkcolor = vbMenuBar

End Select

Picture1(Index).Line (X, 0)-(.ScaleWidth, _ .ScaleHeight), bkcolor, BF

End With

End Sub

′首先初始化比例因子

Private Sub Form_Load()

InitData

End Sub

′在用户操作INDEX为0的进度条时的响应

Private Sub picture1_MouseMove(Index As Integer, _

Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 And Index = 0 Then

Picture1_MouseDown Index, Button, Shift, X, Y

End If

End Sub

′根据当前鼠标坐标的X值(进度条若为纵向则使用Y值)

′计算出所对应的当前进度值,然后设置进度条

Private Sub Picture1_MouseDown(Index As Integer, _

Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 And Index = 0 Then

ProValue(Index) = Int(X / Gene + MinValue + 1)

SetProBar ProValue(Index), Index

End If

End Sub

′在演示中以定时器定时设置进度

′实际使用时当然是按事件完成的

′百分比来设置进度

Private Sub Timer1_Timer()

Static curval As Single

SetProBar curval, 1

curval = (curval + 1) Mod MaxValue

If curval = 0 Then

curval = MinValue

End If

End Sub