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

        ?

        VB案例教學(xué)

        2009-12-29 04:42:04張忠和
        職業(yè)·下旬 2009年11期
        關(guān)鍵詞:累加器文本框數(shù)組

        張忠和

        案例教學(xué)是提高基礎(chǔ)知識(shí)運(yùn)用能力的一個(gè)非常好的手段,也是激發(fā)學(xué)生創(chuàng)作積極性的有效方法。特別是以學(xué)生感興趣的案例為切入點(diǎn)能起到事半功倍的效果。本文利用網(wǎng)絡(luò)上流行的游戲“開心農(nóng)場(chǎng)”、“陽光牧場(chǎng)”作為切入點(diǎn),開發(fā)一個(gè)程序?qū)崿F(xiàn)定時(shí)提醒收割或定時(shí)提醒偷竊,成功地解決了網(wǎng)友在等待中白白地浪費(fèi)時(shí)間或錯(cuò)過收割時(shí)機(jī)。

        一、知識(shí)點(diǎn)準(zhǔn)備

        1.控件數(shù)組

        見表1

        表1說明如下:

        (1)選用控件數(shù)組是為了方便編寫源程序代碼,充分利用該案例界面中每行任務(wù)的同質(zhì)性。

        (2)“選擇網(wǎng)站”和“選擇場(chǎng)地”控件數(shù)組選用組合框控件而不選擇列表框控件。這是由于很多個(gè)網(wǎng)站有開心農(nóng)場(chǎng)游戲,在制作界面時(shí)無法窮盡,當(dāng)用戶使用該程序時(shí)既可在給定的下拉列表中選擇給定文本也可直接填入未給定文本。

        (3)“間隔分鐘”、“剩余時(shí)間“、“序號(hào)姓名”三個(gè)控件數(shù)組皆選用文本框,利用文本框控件的“Chang”事件編寫“間隔分鐘”控件數(shù)組的過程代碼,從而實(shí)現(xiàn)用戶在“間隔分鐘”所在列的文本框中輸入作物收割所需的分鐘數(shù),之后在程序代碼的控制下,用“剩余時(shí)間”“提醒位置”和“蜂鳴器”三種方法提醒用戶收割時(shí)間已到。“剩余時(shí)間”和“序號(hào)姓名”兩列控件數(shù)組無事件代碼,只起到提示時(shí)間和記錄的作用。

        (4)“提醒位置”控件數(shù)組選用圖片框控件,便于用顯著的圖片來起到提醒的作用,本控件數(shù)組也無需編寫事件代碼,在制作界面時(shí)將圖片加載,并在窗體的Load事件過程中令該控件數(shù)組的Visible = False使其程序運(yùn)行時(shí)隱藏,再利用定時(shí)器控件(Timer)控制其何時(shí)顯示。

        (5)“循環(huán)利用”控件數(shù)組選用Command控件數(shù)組,其事件過程目的是在提醒任務(wù)完成后用該控件清空本行繼續(xù)實(shí)現(xiàn)另一個(gè)提醒目的。

        2.定時(shí)器控件

        設(shè)計(jì)兩個(gè)核心定時(shí)器控件,一個(gè)控制調(diào)用“提醒位置”顯示圖片的子過程,另一個(gè)負(fù)責(zé)聲控提醒。再安排16個(gè)定時(shí)器控件分別控制各自行的“剩余時(shí)間”。

        3.基礎(chǔ)知識(shí)

        (1)數(shù)組:本案例源程序聲明了四個(gè)數(shù)組,實(shí)現(xiàn)源程序中時(shí)間運(yùn)算、時(shí)間控制以及累加器等任務(wù)。

        (2)循環(huán)結(jié)構(gòu):選用For循環(huán),實(shí)現(xiàn)控件數(shù)組的賦值和數(shù)組的賦值。

        (3)選擇結(jié)構(gòu):主要使用Select Case語句。

        二、主要過程代碼

        1.“間隔分鐘數(shù)”一列文本框控件數(shù)組的代碼

        Private Sub Text1_Change(Index As Integer)

        Select Case Index

        Case 0

        b(0)=0‘累加器變量

        If Text1(0).Text=""Then Exit Sub‘不輸入時(shí)間則不啟動(dòng)計(jì)時(shí)程序段

        m(0)=Val(Text1(0).Text)‘間隔分鐘數(shù)變量

        t(0)=CDate(Format(m(0)60,0)&":"&Format(m(0)Mod60, 0)&":"&"00")+Time‘轉(zhuǎn)換為未來時(shí)刻

        Timer3.Enabled=True‘啟動(dòng)定時(shí)器控件3

        2.“清空”一列的代碼

        Private Sub Command1_Click(Index As Integer)‘恢復(fù)到初始狀態(tài)

        Select Case Index

        Case 0

        Combo1(0).Text ="":Combo2(0).Text="":Text1(0).Text ="":Text2(0).Text="":Picture1(0).Visible=False:Timer3.Enabled=False

        t(0)=#11:59:59PM#

        y(0)=16

        Text3(0)=""

        …… ……

        通過本程序的學(xué)習(xí),使學(xué)生探索性地學(xué)習(xí)了開發(fā)一個(gè)實(shí)用程序,學(xué)生的編程水平上了一個(gè)新臺(tái)階。鞏固并充實(shí)了《Vasaul Basic程序設(shè)計(jì)》課程中的許多知識(shí)點(diǎn)。為學(xué)生編程水平的進(jìn)一步提高打下了堅(jiān)實(shí)的基礎(chǔ)。

        (作者單位:山東省泰安市高級(jí)技工學(xué)校)

        猜你喜歡
        累加器文本框數(shù)組
        格上身份基簡短關(guān)聯(lián)環(huán)簽名及其電子投票應(yīng)用
        無線電工程(2024年5期)2024-07-20 00:00:00
        密碼累加器研究進(jìn)展及應(yīng)用
        JAVA稀疏矩陣算法
        巧用文本框?qū)崿F(xiàn)PPT多圖片排版
        JAVA玩轉(zhuǎn)數(shù)學(xué)之二維數(shù)組排序
        PPT文本框的另類應(yīng)用
        基于霍夫變換的工位點(diǎn)識(shí)別算法設(shè)計(jì)與實(shí)現(xiàn)
        文本框酷變3D效果
        尋找勾股數(shù)組的歷程
        用于時(shí)間延遲積分型圖像傳感器的流水采樣列級(jí)運(yùn)放共享累加器*
        国产成人精品免费视频大全| 久久久久人妻一区精品色欧美 | 亚洲av综合色区无码一二三区| 免费看一级a女人自慰免费| 女同视频网站一区二区| 国产视频一区二区三区在线免费| 天下第二社区在线视频| 中文字幕福利视频| 国产精品人人爱一区二区白浆| 在线播放国产自拍av| 中文字幕人妻熟在线影院| 东京热久久综合久久88| 蜜桃伦理一区二区三区| 精品人妻一区二区三区在线观看| 久久精品国产亚洲av高清热| 久久精品re| 一道本中文字幕在线播放| 欧美最猛性xxxx| 青青草97国产精品免费观看| 日本精品一区二区三本中文| 我想看久久久一级黄片| 四虎国产成人永久精品免费| 亚洲国产韩国欧美在线| 免费 无码 国产精品| 国产熟女白浆精品视频二| 亚洲国产精品无码专区在线观看 | 成a人片亚洲日本久久| 少妇高潮惨叫久久久久电影69| 久久久精品欧美一区二区免费| 鲁丝一区鲁丝二区鲁丝三区| av在线高清观看亚洲| 天天躁夜夜躁天干天干2020| 午夜短视频日韩免费| 少妇人妻精品一区二区三区视| 亚洲色图片区| 人人妻人人澡人人爽精品欧美| 人妻在线中文字幕视频| 精品国产亚洲亚洲国产| 国产chinese男男gay视频网| 中文字幕一区韩国三级| 国产成人精品人人做人人爽97|