资源描述:
《制作陀螺的材料》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划制作陀螺的材料 陀螺的故事,黑白的陀螺旋转会产生彩色的图案陀螺的故事。同样是旋转的游戏,不过这次转的是陀螺。公主要过生日了,因为公主特喜欢陀螺,所以官员们都争相给公主做陀螺。前面有两个官员,找的人做的陀螺都很厉害很出色。一个是全国有名的木匠雕刻的陀螺,转动起来就象是钉子钉在地上一样,转动得要多稳有多稳;一个是著名的画家制作的陀螺,图案很是精美绝伦,但转动起来就看不到了。公主对这俩陀螺都不感兴趣,轮到一休了,但一休说这个陀螺是大街上买来的普通的陀螺,人们都很
2、泄气。但一转动起来,这个黑白配的陀螺却能转出彩虹的颜色,颜色会不断地变动,公主很是喜欢。 原来一休在陀螺的白色顶面上画了颜色,一半是黑色,一半是四段三组合的同心圆的弧线,每两个相邻的同心圆的边缘距离都是相等的。一转动起来,就会出现彩虹的颜色,这是英国人在很早很早的时候发现的,但至今仍没有什么科学的道理可以解释,是个神奇的谜。 =================== 《一休》里黑白的陀螺旋转会产生彩色的图案目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车
3、场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 昨天想做这种陀螺玩,找了好久没找到可用的图案,最后只能找到《一休》鸡蛋和陀螺那一集,仔细看了一下动画片,自己用Word编了个宏画了几个线条不同的试试,在Word里转了一下看看好像还有点效果, 这些图案顺时针旋转时,外圈近似红色,内圈深色。发Word文档好像有点麻烦,我直接把画这个陀螺的函数发出来好了。画好了用打印机打印出来,剪下贴在硬纸板上,中间插上小棍子转转看看哦。 下面是画这个陀螺的函数,因为懒得添加设置线型的语句了,画好了自己选择那些弧线条设置不同的线型试试效果。 Sub画陀
4、螺1() ' 'Macro1Macro '宏在XX-6-5由晶晶录制 '彩色陀螺 DimArcLeftAsSingle,ArcTopAsSingle,ArcWidthAsSingle,ArcHeightAsSingle ''''''画圆 DimCycleDAsSingle,StepRAsSingle,CycleLAsSingle,CycleTAsSingle CycleL=150 CycleT=50目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保
5、障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 CycleD=212 (msoShapeOval,CycleL,CycleT,CycleD,CycleD).Select (来自:写论文网:制作陀螺的材料)=RGB(0,0,0) '''''画半圆 (msoShapeBlockArc,CycleL,CycleT,CycleD,CycleD).Select (1)=180#'调整圆弧角度(2)=0#'调整圆心距离 ArcLeft=CycleL+CycleD/2 StepR=CycleD/26 Fori=1To12 A
6、rcTop=CycleT+(13-i)*StepR ArcHeight=StepR*i ArcWidth=ArcHeight (msoShapeArc,ArcLeft,ArcTop,ArcWidth,ArcHeight).Select'画圆弧256#,50, 'msoFlipVertical SelectCasei'顺时针旋转时,外圈红色 Case10To12 (1)=45'调整点目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正
7、常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 (2)=0'调整点 Case7To9 (1)=90'调整点 (2)=45'调整点 Case4To6 (1)=135'调整点 (2)=90'调整点 Case1To3 (1)=180'调整点 (2)=135'调整点 Case13 (1)=180'调整点 (2)=0'调整点 EndSelect 'SelectCasei''顺时针旋转时,内圈红色 'Case1To3 '(1)=45'调整点 '(2)=0'调整点 'Case4To6 '(1)=90'调整点