亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        如何運(yùn)用vba繪制游標(biāo)卡尺

        2011-05-18 11:42:06張小建
        物理教師 2011年2期

        張小建

        (江蘇省木并茶高級(jí)中學(xué),江蘇 如東 226406)

        游標(biāo)卡尺作為基本測(cè)量工具之一,自然是考查的熱點(diǎn).物理教師在編制試卷時(shí),最困難的就是繪制游標(biāo)卡尺.很多教師就采用其他軟件繪制然后以圖片的形式復(fù)制到word里,再經(jīng)過縮放等操作后往往會(huì)出現(xiàn)模糊、變形、鋸齒等現(xiàn)象.實(shí)際上用word里嵌套的vba編程工具就可很準(zhǔn)確的畫出游標(biāo)卡尺.下面就把筆者在實(shí)際工作中積累的一點(diǎn)經(jīng)驗(yàn)介紹給大家,以供參考.

        1 Word的對(duì)象及坐標(biāo)系

        運(yùn)用vba畫游標(biāo)卡尺主要用到一個(gè)集合對(duì)象:Shapes.其方法又與Word坐標(biāo)系有關(guān)系.

        1.1 Shapes集合對(duì)象

        Shapes集合對(duì)象是隸屬于 Document對(duì)象.Shapes集合對(duì)象代表文檔中或者文檔頁(yè)眉和頁(yè)腳中的所有圖形.本文運(yùn)用Shapes集合對(duì)象的兩個(gè)方法添加形狀.Addline方法添加直線,AddTextbox方法添加文本框.

        1.2 word的坐標(biāo)系

        Word坐標(biāo)系的坐標(biāo)原點(diǎn)在Document對(duì)象的左上角,橫向向右為x軸正方向,縱向向下為y軸正方向.量度值為磅,允許兩位小數(shù),可以滿足一般用戶的精度要求.

        2 Addline方法和AddTextbox方法

        運(yùn)用vba繪制游標(biāo)卡尺主要就是用Shapes集合對(duì)象的這兩種方法.

        2.1 Addline方法

        在文檔中添加一條直線.返回一個(gè)代表該直線的Shape對(duì)象,并將其添加到Shapes集合.

        語(yǔ)法:expression.AddLine(BeginX,BeginY,EndX,EndY)

        各參數(shù)解釋:

        expression 必需.該表達(dá)式返回一個(gè)Shapes對(duì)象.

        BeginX Single 類型,必需.直線起點(diǎn)相對(duì)于鎖定標(biāo)記的水平位置,以磅為單位.

        BeginY Single 類型,必需.直線起點(diǎn)相對(duì)于鎖定標(biāo)記的垂直位置,以磅為單位.

        EndX Single 類型,必需.直線終點(diǎn)相對(duì)于鎖定標(biāo)記的水平位置,以磅為單位.

        EndY Single 類型,必需.直線終點(diǎn)相對(duì)于鎖定標(biāo)記的垂直位置,以磅為單位.

        2.2 AddTextbox方法

        在文檔中添加一個(gè)文本框.返回一個(gè)代表該文本框Shape對(duì)象,并將其添加到Shapes集合.

        語(yǔ)法:expression.AddTextbox(Orientation,Left,Top,Width,Height)

        各參數(shù)解釋:

        expression 必需.該表達(dá)式返回“應(yīng)用于”列表中的一個(gè)對(duì)象.

        Orientation MsoTextOrientation 必需.指定文本的方向.

        Left Single 類型,必需.文本框左側(cè)邊緣的位置,以磅為單位.

        Top Single 類型,必需.文本框上部邊緣的位置,以磅為單位.

        Width Single 類型,必需.文本框的寬度,以磅為單位.

        Height Single 類型,必需.文本框的高度,以磅為單位.

        提示:在編寫vba代碼時(shí),要充分利用好vba的幫助.

        3 算法及主程序

        以10格游標(biāo)卡尺為例進(jìn)行算法說明,20格、50格游標(biāo)卡尺算法類似.

        ybcgs=10′游標(biāo)尺格數(shù).

        l=TextBox1.Text′ 通過文本框獲取需要繪制游標(biāo)卡尺的讀數(shù)值,以mm單位.

        zcl=Int(l)′ 需要繪制游標(biāo)卡尺的讀數(shù)值的整數(shù)部分,主尺上的第一條刻度是zcl-3.

        zczxfd=10′ 主尺最小分度的屏幕長(zhǎng)度,以磅為單位.相當(dāng)于游標(biāo)卡尺主尺的最小分度1 mm.

        zkds=7+ybcgs′ 主尺總刻度數(shù).

        zccd=80+ybcgs*zczxfd′ 主尺總長(zhǎng)度(磅).

        If zcl<6 Then′ 通過以下算法返回主尺整厘米刻度值的第1個(gè)刻度值.

        bzckd=Round((zcl/10),0)

        Else

        bzckd=Round((zcl/10)+0.1,0)

        End If

        ybzxfd=zczxfd*(1-(1/ybcgs))′ 游標(biāo)卡尺最小分度的屏幕長(zhǎng)度(磅).

        Set docActive=ActiveDocument

        docActive.Shapes.AddLine(80,180,80+zccd,180).Select′ 畫主尺橫線.

        再利用line的屬性設(shè)置直線的格式(代碼略).

        For i=1 To zkds′ 畫主尺刻度線.

        If(zcl-4+i)/10=bzckd Then

        docActive.Shapes.AddLine(80+zczxfd*i,172,80+zczxfd*i,180).Select′畫整數(shù)厘米刻度線.

        docActive.Shapes.AddTextbox

        (msoTextOrientationHorizontal,80+zczxfd*i-2,162,8,10).Select′在整數(shù)厘米刻度線位置添加一個(gè)文本框.再利用TextFrame屬性設(shè)置文本框的格式(代碼略).

        Selection.TypeText Text:=bzckd′ 寫整數(shù)厘米刻度值.

        bzckd=bzckd+1

        ElseIf l<6 And i=1 Then′ 讀數(shù)值小于6mm,主尺的第一個(gè)刻度線為零值.

        docActive.Shapes.AddLine(80+zczxfd*i,172,80+zczxfd*i,180).Select′ 畫整數(shù)厘米刻度線

        docActive.Shapes.AddTextbox

        (msoTextOrientationHorizontal,80+zczxfd*i-2,162,8,10).Select′在整數(shù)厘米刻度線位置添加一個(gè)文本框.再利用TextFrame屬性設(shè)置文本框的格式(代碼略).Selection.TypeText Text:=bzckd′ 寫整數(shù)厘米刻度值

        bzckd=bzckd+1′ 刻度值加 1,返回下一個(gè)整厘米刻度值.

        zcl=3′因?yàn)橐话阒鞒叩牡谝粭l刻度線是zcl-3,而讀數(shù)值小于6mm的第一條刻度線是零,故要給zcl重新賦值,根據(jù)算法推算為zcl=3.

        Else

        docActive.Shapes.AddLine(80+zczxfd*i,175,80+zczxfd*i,180).Select′ 畫主尺刻度線.

        End If Next

        ′畫游標(biāo)尺刻度線

        n=0

        If l<6 Then′ 通過以下算法返回游標(biāo)尺零刻度線的位置.

        ybl=zczxfd*(l+1)

        Else

        ybl=zczxfd*(l-Int(l)+4)

        End If

        For II=0 To ybcgs ′畫游標(biāo)尺的刻度線.

        If II=5*n Then ′每 5格標(biāo)一個(gè)格數(shù)值

        n=n+1

        docActive.Shapes.AddLine(80+ybl+ybzxfd*II,180,80+ybl+ybzxfd*II,187).Select

        docActive.Shapes.AddTextbox (msoTextOrientationHorizontal,80+ybl+ybzxfd*II-2,188,15,10).Select

        再利用TextFrame屬性設(shè)置文本框的格式(代碼略).

        Selection.TypeText Text:=II

        Else

        docActive.Shapes.AddLine

        (80+ybl+ybzxfd*II,180,80+ybl+ybzxfd*II,185).Select

        End If

        Next

        With docActive.Shapes′ 畫游標(biāo)尺的邊框.

        AddLine(75+ybl,180,75+ybl,200).Select

        AddLine(88+ybl+ybzxfd*ybcgs,180,88+ybl+ybzxfd*ybcgs,200).Select

        AddLine(75+ybl,200,88+ybl+ybzxfd*ybcgs,200).Select

        End With

        繪制游標(biāo)卡尺的效果如圖1所示:

        圖1

        4 結(jié)束語(yǔ)

        利用vba編程能拓展office辦公軟件的功能和提升工作效率,提高教學(xué)質(zhì)量.此代碼也可移植到PPT中制作交互性很強(qiáng)的課件,也可仿照著繪制其他基本測(cè)量工具的讀數(shù)練習(xí),如螺旋測(cè)微器、電表讀數(shù)等.

        一区二区激情偷拍老牛视频av| 亚洲少妇一区二区三区老| 国产精品熟女视频一区二区三区 | 亚洲精品午睡沙发系列| 久久艹影院| 欧美1区二区三区公司| 亚洲一二三四五中文字幕| 国产精品无码素人福利| 免费观看性欧美大片无片| 99热这里有免费国产精品| 国产精品国产三级厂七| 久久免费看的少妇一级特黄片| 国产精品兄妹在线观看麻豆| 五十路熟女一区二区三区| 日本一区二区三区中文字幕视频| 国产在线a免费观看不卡| 久久天堂av综合合色| 国产亚洲成人精品久久久| 亚洲精品一区二区三区麻豆| 男女主共患难日久生情的古言| 永久黄网站色视频免费看| 亚洲国产精品一区二区第四页| av在线免费观看你懂的| 麻神在线观看免费观看| 激情影院内射美女| 亚洲国产麻豆综合一区| av免费一区在线播放| 国产三级精品视频2021| 久久久久香蕉国产线看观看伊| 国产精品天堂| 日本黑人人妻一区二区水多多| 日本av在线一区二区| 亚欧美日韩香蕉在线播放视频| 大地资源中文第三页| 娇妻粗大高潮白浆| 一区二区二区三区亚洲| 国产a国产片国产| 国产精在线| 一区二区免费国产a在亚洲| 久久综合噜噜激激的五月天| 欧美丰满熟妇aaaaa片|