绿杨荫里

闲来独步绿杨荫

日志

关于我

绿杨荫里

闲来独步绿杨荫

文章分类

幽居碎语（6）——代码画图

2016-08-28 21:09:09| 分类：幽居碎语 | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

幽居，在代码世界里一不留神竟然做出下面花纹图案：

Dim d As Integer, Xn As Integer, Yn As Integer

Dim v1 As Integer, v2 As Integer,cv As Integer

Dim st As Single, ii As Single

Const pI = 3.14

pWidth = Int(uStep / 0.8): w = Len(userTxt): x = 50: y = 50

yy = y + Int((uStep - txtHeight) / 2)

v1 = CInt(uStep / 2): v2 = CInt(picObj.Height / 2)

With picObj

.DrawStyle = uIndex

.FontBold = True

.FillStyle = 1

End With

For n = 1 To w

pStr = Mid(userTxt, n, 1)

txtWidth = picObj.TextWidth(pStr)

Rem 画圆形图案

d = uStep / 4

st = pI / cv '调节cv的值，产生不同图案，cv取值范围：2—25

For ii = 0 To 2 * pI Step st

Xn = x + d * Cos(ii) + v1

Yn = y + d * Sin(ii) + v2

picObj.Circle (Xn, Yn), d * 0.8, YXPicColor

Next ii

Rem 输出文字

xx = x + Int((uStep - txtWidth) / 2)

picObj.CurrentX = xx: picObj.CurrentY = yy + 50: picObj.Print pStr

x = x + uStep + 200

Next n

偶得之。这里的关键技术是调节变量st（=pI/cv）的值，取值从2到25，随着值的变化产生不同的花纹图案。

评论这张

转发至微博

阅读(144)| 评论(0)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_087075084080083066082086084068072083081071080087087067092',
              blogTitle:'幽居碎语（6）——代码画图',
              blogAbstract:'幽居，在代码世界里一不留神竟然做出下面花纹图案：<wbr\><div\><div\><img title=\"幽居碎语（6）——代码画图 - 绿杨荫里 - 绿杨荫里\"   alt=\"幽居碎语（6）——代码画图 - 绿杨荫里 - 绿杨荫里\"   style=\"margin: 0px 10px 0px 0px; width: 350px; height: 85px;\"   src=\"http://img0.ph.126.net/4x0flSvnMY2LQNDcu8Dn1Q==/6631828627747155666.jpg\"   \></div\><div\><img title=\"幽居碎语（6）——代码画图 - 绿杨荫里 - 绿杨荫里\"   alt=\"幽居碎语（6）——代码画图 - 绿杨荫里 - 绿杨荫里\"   style=\"margin: 0px 10px 0px 0px; width: 350px; height: 84px;\"   src=\"http://img1.ph.126.net/tfBGMCeHrZaE2Ag7utCeCQ==/6631537257165773095.jpg\"   \></div\><div\><img title=\"幽居碎语（6）——代码画图 - 绿杨荫里 - 绿杨荫里\"   alt=\"幽居碎语（6）——代码画图 - 绿杨荫里 - 绿杨荫里\"   style=\"margin: 0px 10px 0px 0px; width: 350px; height: 84px;\"   src=\"http://img2.ph.126.net/4rucQpuv4VQlP2hPETWnxQ==/6631452594770437001.jpg\"   \></div\> </div\><div\><div\><font size=\"2\"   face=\"宋体\"   \>Dim d As Integer, Xn As Integer, Yn As Integer</font\></div\></div\>',
              blogTag:'其他',
              blogUrl:'blog/static/50441108201672885144496',
              isPublished:1,
              istop:false,
              type:1,
              modifyTime:1472417241205,
              publishTime:1472389749024,
              permalink:'blog/static/50441108201672885144496',
              commentCount:0,
              mainCommentCount:0,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:true,
              hostIntro:'闲来独步绿杨荫',
              hmcon:'1',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/50441108201672885144496">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

绿杨荫里

导航

日志

幽居碎语（6）——代码画图

历史上的今天

最近读者

热度

评论

页脚