8051計時器程式生成器

常常有人寫信來問,其實就算一下子叫我寫,我也要翻書,很麻煩,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 重試 取消

點圖可以放大