Embedded Files
常常有人寫信來問,其實就算一下子叫我寫,我也要翻書,很麻煩,SO,寫現成的來用,只寫了16位元計時器的程式碼進去,未來有空再加入自動產生PWM的程式碼功能,但也有可能不會寫,因為用計時器在中寫PWM遠遠不比內建PWM的功能精準,你在中斷副程式中加了很多判斷就不準了,而且8051現在出的很多都有PWM功能,不必一定要用計時器來做,要是真的要玩PWM,強烈建議還是買有PWM功能的8051
這程式用到幾個語法
1.程式碼寫太多要換行
"空格(半行)"+"底線( _ )+按ENTER
2.剪貼簿功能
Sub 自訂涵數名稱()
Clipboard.SetText Text7.Text '將Text7.Text的資料複製到剪貼簿裡
End Sub
Sub 自訂涵數名稱()
Clipboard.Clear '直接清除剪貼簿裡的所有資料
End Sub
然後在程式中呼叫即可,記得先呼叫清除,再複製,否則會蓋不上去!
3.msgbox回傳值
語法: 變數=MsgBox("問題",點擊按鈕形式 + BOX圖示,"標頭文字")
範例:
yesorno = MsgBox("還沒複製的程式碼將會消失", vbYesNo + vbExclamation, "確定離開?")
Select Case yesorno
Case 6 'vbYesNo回傳的值,按YES回傳6
End '選"是"就結束
Case 7 'vbYesNo回傳的值,按NO回傳7
'選"否"不處理,回到程式
End Select
補充資料:
圖示:vbCritical是一個大叉叉 可用數字16來代替單字,vbQuestion是一個問號,可用數字32來代替,vbExclamation是一個驚嘆號,可用48代替,vbInformation是一個大大的I,可用64代替
回傳值的意思:
回傳1表示使用者按下了"確定(vbOK)",回傳2表示按下了"取消(vbCancel)",回傳3表示使用者按下了"異常終止(vbAbort)",
回傳4表示使用者按下了"重試(vbRetry)",回傳5表示使用者按下了"略過(vbIgnore)",回傳6表示使用者按下了"是(vbYes)",回傳7表示使用者按下了"否(vbNo)"
點擊按鈕形式:
可用數字0代替 vbOKOnly 確定
可用數字1代替 vbOKCancel 確定 取消
可用數字2代替 vbAbortRetryIgnore 異常終止 重試 略過
可用數字3代替 vbYesNoCancel 是 否 取消
可用數字4代替 vbYesNo 是 否
可用數字5代替 vbRetryCancel 重試 取消
點圖可以放大
Google Sites
Report abuse