單選、微調(diào)、計(jì)時(shí)_第1頁
已閱讀1頁,還剩4頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、選項(xiàng)按鈕組選項(xiàng)按鈕組一、設(shè)計(jì)表單一、設(shè)計(jì)表單PLUS01.SCXPLUS01.SCX1、在、在TEXT1TEXT1中輸中輸入一個(gè)數(shù),在選項(xiàng)入一個(gè)數(shù),在選項(xiàng)按鈕組按鈕組OPTIONGROUP1OPTIONGROUP1中選擇選擇“加上加上”或“減去減去”,按,按“等于”命令按鈕,在命令按鈕,在TEXT3TEXT3中顯示運(yùn)算中顯示運(yùn)算結(jié)果;結(jié)果;2、若結(jié)果為負(fù)數(shù),則以紅色顯示,否則以藍(lán)色顯示。、若結(jié)果為負(fù)數(shù),則以紅色顯示,否則以藍(lán)色顯示。要點(diǎn)

2、:要點(diǎn):將三個(gè)文本框的將三個(gè)文本框的VALUEVALUE屬性設(shè)為屬性設(shè)為0,確保文本框的,確保文本框的VALUEVALUE值為數(shù)值型;值為數(shù)值型;將選項(xiàng)按鈕組的將選項(xiàng)按鈕組的VALUEVALUE屬性設(shè)為屬性設(shè)為=[=[加上加上],運(yùn)行表單時(shí)默認(rèn)選中第一項(xiàng);,運(yùn)行表單時(shí)默認(rèn)選中第一項(xiàng);編寫編寫“等于等于”命令按鈕的命令按鈕的CLICKCLICK事件代碼事件代碼IFIFTHISFM.OPTIONGROUP1.VALUE=[THISFM.OP

3、TIONGROUP1.VALUE=[加上加上]THISFM.TEXT3.VALUE=THISFM.TEXT1.VALUETHISFM.TEXT2.VALUETHISFM.TEXT3.VALUE=THISFM.TEXT1.VALUETHISFM.TEXT2.VALUEENDIFENDIFIFIFTHISFM.OPTIONGROUP1.VALUE=[THISFM.OPTIONGROUP1.VALUE=[減去減去]THISFM.TEXT3.V

4、ALUE=THISFM.TEXT1.VALUETHISFM.TEXT2.VALUETHISFM.TEXT3.VALUE=THISFM.TEXT1.VALUETHISFM.TEXT2.VALUEENDIFENDIFIFIFTHISFM.TEXT3.VALUE0THISFM.TEXT3.VALUE0THISFM.TEXT3.FECOL=RGB(25500)THISFM.TEXT3.FECOL=RGB(25500)ELSEELSETHISFM

5、.TEXT3.FECOL=RGB(00255)THISFM.TEXT3.FECOL=RGB(00255)ENDIFENDIF二、設(shè)計(jì)表單二、設(shè)計(jì)表單MULTIPLUS.SCXMULTIPLUS.SCX1、在TEXT1TEXT1中輸入一個(gè)數(shù),利用選項(xiàng)按鈕組選擇中輸入一個(gè)數(shù),利用選項(xiàng)按鈕組選擇“乘以乘以”或“除以除以”,在,在TEXT2TEXT2中輸入另一個(gè)數(shù),按中輸入另一個(gè)數(shù),按“等于等于”命令按鈕,在命令按鈕,在TEXT3TEXT3中顯

6、示運(yùn)算結(jié)果;中顯示運(yùn)算結(jié)果;2、如果選擇、如果選擇“除以除以“,且,且TEXT2TEXT2中為中為0,則在,則在TEXT3TEXT3中顯中顯示“錯誤錯誤”。要點(diǎn):要點(diǎn):將文本框?qū)⑽谋究騎EXT1TEXT1,TEXT2TEXT2的VALUEVALUE屬性設(shè)為屬性設(shè)為0(數(shù)值型)(數(shù)值型),則TEXT3TEXT3的VALUEVALUE屬性不做設(shè)屬性不做設(shè)置(字符型)置(字符型);編寫編寫“等于等于”命令按鈕的命令按鈕的CLICKCLICK事

7、件代碼事件代碼IFIFTHISFM.OPTIONGROUP1.VALUE=1THISFM.OPTIONGROUP1.VALUE=1THISFM.TEXT3.VALUE=STR(THISFM.TEXT1.VALUETHISFM.TEXT2.VALUE6THISFM.TEXT3.VALUE=STR(THISFM.TEXT1.VALUETHISFM.TEXT2.VALUE62)2)ENDIFENDIFTHISFM.TEXT1.VALUE=X(

8、1)THISFM.TEXT1.VALUE=X(1)微調(diào)器微調(diào)器一、設(shè)計(jì)表單一、設(shè)計(jì)表單XSYS.scx,運(yùn)行界面如下圖,編寫,運(yùn)行界面如下圖,編寫“更新更新”按鈕的按鈕的CLICK代碼,代碼,要求如下:要求如下:1)將形狀控件)將形狀控件SHAPE1的顏色更新為三個(gè)微調(diào)按鈕值所代表的顏色;的顏色更新為三個(gè)微調(diào)按鈕值所代表的顏色;2)若三個(gè)微調(diào)按鈕值為)若三個(gè)微調(diào)按鈕值為255,0,0,將,將SHAPE1的形狀改為正方形的形狀改為正方形(

9、CURVATURE=0)3)若三個(gè)微調(diào)按鈕值為)若三個(gè)微調(diào)按鈕值為0,255,0,將,將SHAPE1的形狀改為圓角正方形的形狀改為圓角正方形(CURVATURE=10)4)若三個(gè)微調(diào)按鈕值為)若三個(gè)微調(diào)按鈕值為0,0,255,將,將SHAPE1的形狀改為圓形的形狀改為圓形(CURVATURE=99)“更新更新”按鈕的按鈕的click事件代碼如下:事件代碼如下:r=thisfm.spinner1.valueg=thisfm.spinner

10、2.valueb=thisfm.spinner3.valuethisfm.shape1.backcol=rgb(rgb)docasecaser=255g=0b=0thisfm.shape1.curvature=0caser=0g=255b=0thisfm.shape1.curvature=50caser=0g=0b=255thisfm.shape1.curvature=99endcase思考:若微調(diào)器的值超出思考:若微調(diào)器的值超出0到2

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論